none
CrystalReportViewer e passagem de parâmetros RRS feed

  • Pergunta

  • Seguinte pessoal...estou fazendo um aplicação ao qual tem relatórios em Crystal feitos com procedures no sql...

    Estou usando VS2005 e não estou acetando a passagem de parâmetro já que a minhna procedure tem 6 parametros

    Coloquei o componente em uma página em branco e tenho algumas dúvidas em como proceguir depois....tipo.. na minha página aspx onde tem o botão imprimir que abre o relatório...o que eu deevo colocar nessa página ja que toda a configuração do relatoria vai ficar na página onde coloquei o componente CrystalReportViewer (Me corrijam se estou errada, pois nunca fiz isso.)

     

    A minha página vb onde esta o componente esta assim:

     

    Imports CrystalDecisions.CrystalReports.Engine

    Imports CrystalDecisions.Shared

    Imports System.Data

    Imports sistvb_cripto

     

    Partial Class Relatorio1

    Inherits System.Web.UI.Page

    Private rpt As ReportDocument

    Private Sub ConfigureCrystalReports()

    rpt = New ReportDocument()

    rpt.Load(Server.MapPath("viewer\rptDispensa1_9.rpt").ToString)

     

    Dim user_bco As String = "UiePbcIbN"

    Dim senha_bco As String = "AYkbrkEySe@"

    Dim Obj As New crpt

    'Dim Mat As Integer

    'Dim Data As DateTime

    'Dim Dia As Integer

    'Dim Superintendente As String = Nothing

    'Dim DuasHoras As Integer

    'Dim DiasCorridos As Integer

    rpt.SetDatabaseLogon(Obj.fug_criptografa(user_bco, False), Obj.fug_criptografa(senha_bco, False))

    crvRelatorio.ReportSource = rpt

    'rpt.SetParameterValue("@func_cd_matricula", Mat)

    'rpt.SetParameterValue("@DtCessarAtividades", Data)

    'rpt.SetParameterValue("@DiaApresentacaoRH", Dia)

    'rpt.SetParameterValue("@NmSuperintendente", Superintendente)

    'rpt.SetParameterValue("@flDuasHoras", DuasHoras)

    'rpt.SetParameterValue("@fl7DiasCorridos", DiasCorridos)

    End Sub

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init

    ConfigureCrystalReports()

    End Sub

    End Class

     

     

    PSSurprise que esta comentado são os parametros da minha procedure..eis a dúvida..se coloco ai ou na pagian ondee tem o botão imprimir ou se em ambas....clareiem isto pra mim por favor..estou perdida.

     

    PS 2: Esta ocorrendo um erro assim tb :

    Error 1 'CrystalReportViewer' is ambiguous in the namespace 'CrystalDecisions.Web'. C:\Inetpub\wwwroot\Prog2005\Relatorio1.aspx

    Não sei o que é...

     

    Me ajudem...

    quinta-feira, 31 de maio de 2007 18:48

Todas as Respostas

  • Ola, vivian tenho um relatorio em meu sistema que funciona direitinho, veja se te ajuda.

    detalhe uso o vs2003 mas para adaptar para vs2005 é facil.

     

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    'Put user code to initialize the page here

    Dim rpt As New CRImp_VeicApreLib

    Dim sqlConexao As New SqlClient.SqlConnection(conStr)

    Try

    sqlConexao.Open()

    Dim cm As SqlClient.SqlCommand = sqlConexao.CreateCommand

     

    cm.CommandType = CommandType.StoredProcedure

    cm.CommandText = "sp_Veiculos_Apreendidos"

    cm.Parameters.Add("@codsit", SqlDbType.VarChar).Value = Request.QueryString("TpSituacao")

    cm.Parameters.Add("@muncod", SqlDbType.VarChar).Value = Request.QueryString("muncod")

    cm.Parameters.Add("@dataini", SqlDbType.VarChar).Value = Request.QueryString("dataini")

    cm.Parameters.Add("@datafim", SqlDbType.VarChar).Value = Request.QueryString("datafim")

    cm.ExecuteNonQuery()

     

    Dim da As New SqlClient.SqlDataAdapter(cm)

    Dim ds As New Dsliberacao

    da.Fill(ds, "Liberacao")

    rpt.SetDataSource(ds)

    rpt.SetDataSource(ds.Tables(0))

    CRVimp_VeicApreeLib.ReportSource = rpt

    Catch ex As Exception

    msgboxweb("Erro ao Tentar Visualizar.: " & ex.ToString, Me)

    End Try

    End Sub

    End Class

    sexta-feira, 1 de junho de 2007 16:05