ACTIVE REPORTS LIMPAR MESMO CAMPO DO BANCO

JOERBETH 23/10/2012 22:12:18
#412663

rsrsrsrs, e como seria essa outra maneira?.rss

JOERBETH 23/10/2012 23:51:10
#412664

consegui:
Option Explicit
Dim v_Total
Dim v_Qtde
Dim v_cod (aqui)
Dim v_passa As Boolean (aqui)
Dim v_passa2 As Boolean (aqui)

Private Sub ActiveReport_Activate()
DataControl1.ConnectionString = [Ô]Provider=IBOLE.Provider.v4;Extended Properties=[ô]sql Dialect=3[ô];Persist Security Info=False;Data Source=[Ô] & _
v_IP & [Ô];Extended Properties=[ô]COLLATE=PT_BR[ô];Character Set=ISO8859_1[Ô]
Printer.Orientation = ddOLandscape
End Sub
Private Sub ActiveReport_ReportStart()
Dim Var_Select
Dim v_Flag50
v_Flag50 = [Ô]N[Ô]
v_Total = [Ô]0[Ô]
Var_Select = [Ô]SELECT CAMPANHAS.*,CARROSCAMPANHA.CODIGO,CARROSCAMPANHA.NUMERO_CARRO FROM CAMPANHAS INNER JOIN CARROSCAMPANHA ON CAMPANHAS.CODIGO=CARROSCAMPANHA.CODIGO AND CAMPANHAS.FLAG=[ô][Ô] & v_Flag50 & [Ô][ô] ORDER BY CLIENTE[Ô]
DataControl1.Source = Var_Select
F_DataInicio.DataField = [Ô]DATA_ENTRADA[Ô]
F_DataFim.DataField = [Ô]DATA_TERMINO[Ô]
F_Empresa.DataField = [Ô]EMPRESA[Ô]
F_NumeroCarro.DataField = [Ô]NUMERO_CARRO[Ô]
F_Cliente.DataField = [Ô]CLIENTE[Ô]
F_Valor.DataField = [Ô]VALOR_GERAL[Ô]
F_Cod.DataField = [Ô]CODIGO[Ô]
v_passa = True (aqui)
End Sub

Private Sub Detail_BeforePrint()
If v_passa2 = False Then (aqui)
v_passa = False (aqui)
Else
v_passa = False (aqui)
End If
End Sub

Private Sub Detail_Format()

If F_Valor.Text = [Ô][Ô] Then
F_Valor.Text = [Ô]0[Ô]
End If
If v_passa = True Then (aqui)
v_cod = F_Cod.Text (aqui)
If v_cod = F_Cod.Text Then (aqui)
v_passa = False (aqui)
v_passa2 = False (aqui)
v_Total = CDbl(v_Total) + CDbl(F_Valor.Text) (aqui)
End If
Else
If v_cod = F_Cod.Text Then (aqui)
v_passa = True (aqui)
v_passa2 = False (aqui)
F_DataInicio.Text = [Ô][Ô] (aqui)
F_DataFim.Text = [Ô][Ô] (aqui)
F_Empresa.Text = [Ô][Ô] (aqui)
F_Cliente.Text = [Ô][Ô] (aqui)
F_Valor.Text = [Ô][Ô] (aqui)
Else
v_cod = F_Cod.Text (aqui)
v_passa = True (aqui)
v_passa2 = False (aqui)
v_Total = CDbl(v_Total) + CDbl(F_Valor.Text) (aqui)

End If
End If



End Sub
Private Sub GroupFooter1_Format()
F_Geral.Text = Format(v_Total, [Ô]#,##0.00;($#,##0.00)[Ô])
v_Total = 0

End Sub

Private Sub PageFooter_Format()
LBL_Pag.Caption = Str(Me.pageNumber)
End Sub
Private Sub PageHeader_Format()
Field1.Text = Date
End Sub

MARCELO.TREZE 23/10/2012 23:59:55
#412665

legal que você conseguiu, desculpe se não pude ajudar é que as vezes fica meio dificil de entender a lógica da coisa, mas ta valendo boa sorte, e um abraço.