Postada em 12/01/2006 09:49 hs
estou migrando de dao p ado, nos clientes que ja rodo o sistema, o que preciso levar a mais, ou seja incluir no meu pacote de instalação ?, e ainda a forma de abrir os relatórios do crystal, precisa mudar algo, ou fica como abaixo:
dpl.ReportFileName = App.Path & "comissao.rpt" dpl.Connect = ";PWD=OSTRA" dpl.DiscardSavedData = True dpl.Formulas(0) = "Data1 = '" & dt1.Value & "'" dpl.Formulas(1) = "Data2 = '" & dt2.Value & "'" dpl.Formulas(2) = "empresa = '" & tbemp!razao & "'" dpl.SelectionFormula = "{ITENS_PEDIDO.data} >= Date(" & Format(dt1.Value, "yyyy, mm, dd") & ") and {ITENS_PEDIDO.data} <= Date(" & Format(dt2.Value, "yyyy, mm, dd") & ")and " & " {ITENS_PEDIDO.STATUS} = 'P'" dpl.SortFields(0) = "+{ITENS_PEDIDO.VEND}" dpl.SortFields(1) = "+{ITENS_PEDIDO.data}" dpl.Destination = 0 dpl.WindowShowPrintSetupBtn = True dpl.Action = 1 dpl.Reset
|