PASSAR TEXTBOX PARA CRYSTAL
Pessoal
Me ajudem nesta questao.
CrystalReport.SelectionFormula = [Ô]{CPAG.PREV_PAG} in Date ([Ô] & ano & [Ô],[Ô] & mes & [Ô],[Ô] & dia & [Ô]) to Date ([Ô] & anofim & [Ô],[Ô] & mesfim & [Ô],[Ô] & diafim & [Ô])[Ô]
Desenvolvi um relatorio em crystal e faço a chamada dele através do crystalreport.selectionformula ( acima ). A concatenação é de dois textbox's que estão no Form do Vb6 que seriam as datas iniciais e finais para buscar as vendas de um determinado perido no banco de dados.
Pois bem. Só que no cabeçalho do Relatorio Crystal ( chamado de [Ô]Receitas de vendas por Periodo [Ô] ) queria colocar o periodo que o usuario preencheu no form do Vb. Ou seja, o usuario quer um relatorio de vendas no periodo de 01/01/2014 a 30/01/2014. Como faço para passar isso para o cabeçalho do relatorio?
Abraço e obrigado
Me ajudem nesta questao.
CrystalReport.SelectionFormula = [Ô]{CPAG.PREV_PAG} in Date ([Ô] & ano & [Ô],[Ô] & mes & [Ô],[Ô] & dia & [Ô]) to Date ([Ô] & anofim & [Ô],[Ô] & mesfim & [Ô],[Ô] & diafim & [Ô])[Ô]
Desenvolvi um relatorio em crystal e faço a chamada dele através do crystalreport.selectionformula ( acima ). A concatenação é de dois textbox's que estão no Form do Vb6 que seriam as datas iniciais e finais para buscar as vendas de um determinado perido no banco de dados.
Pois bem. Só que no cabeçalho do Relatorio Crystal ( chamado de [Ô]Receitas de vendas por Periodo [Ô] ) queria colocar o periodo que o usuario preencheu no form do Vb. Ou seja, o usuario quer um relatorio de vendas no periodo de 01/01/2014 a 30/01/2014. Como faço para passar isso para o cabeçalho do relatorio?
Abraço e obrigado
Em .NET é assim:
Dim frm As New MeuRelatorio
Dim Titulo As CrystalDecisions.CrystalReports.Engine.TextObject
Titulo = frm.ReportDefinition.ReportObjects([Ô]TXT_TITULO[Ô])
Titulo.Text = [Ô]CONTAS A PAGAR: [Ô] & Format(DT_BUSCA_I_2.Value, [Ô]dd/MM/yy[Ô]) & [Ô] A [Ô] & Format(DT_BUSCA_F_2.Value, [Ô]dd/MM/yy[Ô])
Em vb6 não sei, mas pode ser por ai.
Dim frm As New MeuRelatorio
Dim Titulo As CrystalDecisions.CrystalReports.Engine.TextObject
Titulo = frm.ReportDefinition.ReportObjects([Ô]TXT_TITULO[Ô])
Titulo.Text = [Ô]CONTAS A PAGAR: [Ô] & Format(DT_BUSCA_I_2.Value, [Ô]dd/MM/yy[Ô]) & [Ô] A [Ô] & Format(DT_BUSCA_F_2.Value, [Ô]dd/MM/yy[Ô])
Em vb6 não sei, mas pode ser por ai.
Faça seu login para responder