none
Sub Relatorio não atualiza no Crystal Reports RRS feed

  • Pergunta

  •  

    Senhores bom dia, olhei alguns tópicos no assunto mas não consegui resolver meu problema que aparenta ser simples porém não tenho conhecimento de como resolve-lo.

     

    Tenho um relatório no crystal  com um sub relatório:

     

    No relatório eu tenho 3 parametros que passo pelo meu código: (Empresa, DataIni, DataFim)

    No sub relatório também tenho os mesmos 3 parâmetros (Empresa, DataIni, DataFim)

     

    Porem quando chamo o relatório ele atualiza apenas os dados do relatório de acordo com os parâmetros mas não consegue atualizar os dados do sub relatório o que pode estar acontecendo? Vou colocar o código abaixo:

     

    Dim CANAL As New CrystalDecisions.Shared.ParameterValues

    Dim CAMPO As New CrystalDecisions.Shared.ParameterDiscreteValue

    Dim Relatorio As New ReportDocument

     

    'Parametros

    Dim Empresa As Integer = 1

    Dim DtIni As String = "01/06/2008"

    Dim DtFim As String = "30/06/2008"

     

    'Relat¢rio 1 Login-----------------------------------------------------------

    Relatorio.Load("C:\Documents and Settings\brice\Meus documentos\Moto For\RelPrincipal.rpt")

    Relatorio.SetDatabaseLogon("system", "forca")

    'Empresa

    CAMPO.Value = Empresa

    CANAL.Add(CAMPO)

    Relatorio.DataDefinition.ParameterFields("Empresa").ApplyCurrentValues(CANAL)

    'Data Inicial

    CAMPO.Value = DtIni

    CANAL.Add(CAMPO)

    Relatorio.DataDefinition.ParameterFields("DataIni").ApplyCurrentValues(CANAL)

    'Data Final

    CAMPO.Value = DtFim

    CANAL.Add(CAMPO)

    Relatorio.DataDefinition.ParameterFields("DataFim").ApplyCurrentValues(CANAL)

     

    'Relat¢rio 2 Login -------------------------------------------------------------

    Dim PathSubReport As String = "SubRel.rpt"

    Relatorio.OpenSubreport(PathSubReport)

    Relatorio.OpenSubreport(PathSubReport).SetDatabaseLogon("system", "forca")

     

    'Empresa

    CAMPO.Value = Empresa

    CANAL.Add(CAMPO)

    Relatorio.OpenSubreport(PathSubReport).DataDefinition.ParameterFields("EmpresaSub").ApplyCurrentValues(CANAL)

    'Data Inicial

    CAMPO.Value = DtIni

    CANAL.Add(CAMPO)

    Relatorio.OpenSubreport(PathSubReport).DataDefinition.ParameterFields("DataIniSub").ApplyCurrentValues(CANAL)

    'Data Final

    CAMPO.Value = DtFim

    CANAL.Add(CAMPO)

    Relatorio.OpenSubreport(PathSubReport).DataDefinition.ParameterFields("DataFimSub").ApplyCurrentValues(CANAL)

     

    'Carrega visualizador com relat¢rio

    CrystalReportViewer1.ReportSource = Relatorio

     

    Obrigado a todos desde já.

    sábado, 20 de setembro de 2008 14:46

Respostas

Todas as Respostas