problema con crviewer
Publicado por Roberto (8 intervenciones) el 26/07/2004 19:36:16
tengo el siguiente codigo:
Dim N As Integer
Dim crxApplication As New CRAXDRT.Application
Dim Report As CRAXDRT.Report
Dim crxSubreport As CRAXDRT.Report
Dim crxDatabaseTable As CRAXDRT.DatabaseTable
Dim Subreporte(9) As String
Subreporte(0) = "Refacciones"
Subreporte(1) = "PosicionesDeTrabajo"
Subreporte(2) = "Detalles de tot"
Subreporte(3) = "Subtotal de servicio"
Subreporte(4) = "Subtotal de t.o.o"
Subreporte(5) = "Inventario"
Subreporte(6) = "Subreporte trabajos adicionales"
Subreporte(7) = "Subtotal de trabajos adicionales"
Subreporte(8) = "Varios"
Subreporte(9) = "Subtotal de refacciones"
Set Report = crxApplication.OpenReport(App.Path & "\OrdenPresupuesto.rpt", 1)
For Each crxDatabaseTable In Report.Database.Tables
crxDatabaseTable.Location = "C:\SERVICIO\BASE DE DATOS\" & Cia & "SERVICIO" & Ejercicio & ".MDB"
Next crxDatabaseTable
For N = 0 To 9
Set crxSubreport = Report.OpenSubreport(Subreporte(N))
For Each crxDatabaseTable In crxSubreport.Database.Tables
crxDatabaseTable.Location = "C:\SERVICIO\BASE DE DATOS\" & Cia & "SERVICIO" & Ejercicio & ".MDB"
Next crxDatabaseTable
Next N
Report.RecordSelectionFormula = "{FACTURAS.NUMEROFACTURA}=" & Val(TxtFactura) & ""
Report.PrintOut
'CRViewer1.ReportSource = Report
'CRViewer1.PrintReport
Dim N As Integer
Dim crxApplication As New CRAXDRT.Application
Dim Report As CRAXDRT.Report
Dim crxSubreport As CRAXDRT.Report
Dim crxDatabaseTable As CRAXDRT.DatabaseTable
Dim Subreporte(9) As String
Subreporte(0) = "Refacciones"
Subreporte(1) = "PosicionesDeTrabajo"
Subreporte(2) = "Detalles de tot"
Subreporte(3) = "Subtotal de servicio"
Subreporte(4) = "Subtotal de t.o.o"
Subreporte(5) = "Inventario"
Subreporte(6) = "Subreporte trabajos adicionales"
Subreporte(7) = "Subtotal de trabajos adicionales"
Subreporte(8) = "Varios"
Subreporte(9) = "Subtotal de refacciones"
Set Report = crxApplication.OpenReport(App.Path & "\OrdenPresupuesto.rpt", 1)
For Each crxDatabaseTable In Report.Database.Tables
crxDatabaseTable.Location = "C:\SERVICIO\BASE DE DATOS\" & Cia & "SERVICIO" & Ejercicio & ".MDB"
Next crxDatabaseTable
For N = 0 To 9
Set crxSubreport = Report.OpenSubreport(Subreporte(N))
For Each crxDatabaseTable In crxSubreport.Database.Tables
crxDatabaseTable.Location = "C:\SERVICIO\BASE DE DATOS\" & Cia & "SERVICIO" & Ejercicio & ".MDB"
Next crxDatabaseTable
Next N
Report.RecordSelectionFormula = "{FACTURAS.NUMEROFACTURA}=" & Val(TxtFactura) & ""
Report.PrintOut
'CRViewer1.ReportSource = Report
'CRViewer1.PrintReport
Valora esta pregunta


0