FORMULA NO CRYSTAL REPORT...
Boa tarde a Todos.....
Seguinte, criei uma formula do Crystal sem programação é somente para receber dados.
Agora como eu faço para mandar algum valor para essa formula via programação ?
no VB6 faço assim....onde {Aprovacao.Codigo} é uma formula que recebe o valor do txtCodigo.tex
Report.ReportFileName = Caminho & [Ô]AprovacaoRel.rpt[Ô]
Report.SelectionFormula = [Ô][Ô]
Report.SelectionFormula = [Ô]{Aprovacao.Codigo}= [Ô] & [Ô][Ô][Ô][Ô] & txtCodigo.Text & [Ô][Ô][Ô][Ô] & [Ô][Ô]
Report.Destination = crptToWindow
Report.WindowState = crptMaximized
Report.Action = 1
Seguinte, criei uma formula do Crystal sem programação é somente para receber dados.
Agora como eu faço para mandar algum valor para essa formula via programação ?
no VB6 faço assim....onde {Aprovacao.Codigo} é uma formula que recebe o valor do txtCodigo.tex
Report.ReportFileName = Caminho & [Ô]AprovacaoRel.rpt[Ô]
Report.SelectionFormula = [Ô][Ô]
Report.SelectionFormula = [Ô]{Aprovacao.Codigo}= [Ô] & [Ô][Ô][Ô][Ô] & txtCodigo.Text & [Ô][Ô][Ô][Ô] & [Ô][Ô]
Report.Destination = crptToWindow
Report.WindowState = crptMaximized
Report.Action = 1
Geralmente eu utilizo a propria programação do Crystal na formula, se eu precisar.
Agora, para passar valores eu utilizo um campo texto do crystal e passo assim.
Dim v_msg As CrystalDecisions.CrystalReports.Engine.TextObject
v_msg = rpt.ReportDefinition.ReportObjects([Ô]msg[Ô]) [ô] nome do textfield no crystal
v_msg.Text = ME.TEXT1.Text
Agora, para passar valores eu utilizo um campo texto do crystal e passo assim.
Dim v_msg As CrystalDecisions.CrystalReports.Engine.TextObject
v_msg = rpt.ReportDefinition.ReportObjects([Ô]msg[Ô]) [ô] nome do textfield no crystal
v_msg.Text = ME.TEXT1.Text
é isso mesmo Nilson....foi na unha mas fiz aki..,.
Private Sub GeraRelatorio(Optional ByVal Campos As String = Nothing, Optional ByVal Condicao As String = Nothing)
Try
Dim Caminho As String = [Ô][Ô]
Dim cr As New RelatorioNovo
Dim Relatorio As New GeraRelatorio
Caminho = System.Windows.Forms.Application.StartupPath & [Ô]\RelatorioNovo.rpt[Ô]
cr.Load(Caminho)
cr.DataDefinition.FormulaFields([Ô]TituloRelatorio[Ô]).Text = [Ô][ô][Ô] & VarTituloRelatorio & [Ô][ô][Ô]
cr.DataDefinition.FormulaFields([Ô]CabecalhoRel[Ô]).Text = [Ô][ô][Ô] & VartituloCabecalho & [Ô][ô][Ô]
cr.SetDataSource(Relatorio.GeraConsuta(Campos, Condicao).Tables(0))
Me.Report.ReportSource = cr
Catch ex As Exception
TratarErro([Ô]frmRelRazaoAnalitico[Ô], [Ô]GeraRelatorio[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub
falows..
Private Sub GeraRelatorio(Optional ByVal Campos As String = Nothing, Optional ByVal Condicao As String = Nothing)
Try
Dim Caminho As String = [Ô][Ô]
Dim cr As New RelatorioNovo
Dim Relatorio As New GeraRelatorio
Caminho = System.Windows.Forms.Application.StartupPath & [Ô]\RelatorioNovo.rpt[Ô]
cr.Load(Caminho)
cr.DataDefinition.FormulaFields([Ô]TituloRelatorio[Ô]).Text = [Ô][ô][Ô] & VarTituloRelatorio & [Ô][ô][Ô]
cr.DataDefinition.FormulaFields([Ô]CabecalhoRel[Ô]).Text = [Ô][ô][Ô] & VartituloCabecalho & [Ô][ô][Ô]
cr.SetDataSource(Relatorio.GeraConsuta(Campos, Condicao).Tables(0))
Me.Report.ReportSource = cr
Catch ex As Exception
TratarErro([Ô]frmRelRazaoAnalitico[Ô], [Ô]GeraRelatorio[Ô], Err.Number, Err.Description, Erl)
End Try
End Sub
falows..
Tópico encerrado , respostas não são mais permitidas