Amigos:
Tengo que hacer un reporte (es un presupuesto) que consta de Servicios y
cada uno de estos tiene varios items.
bien, el formato sería este:
Cabeza Presupuesto (donde está el Nº)
-----
Servicio Nº 1
Item 1
.....
Item n
...
Servicio Nº n
Total $.$$$$$
Yo tengo una tabla PRESUCABEZA, otra SERVICIOS, y otra ORDENTRABAJO(items de
servicios) y utilizé
un subreporte para los items de los servicios (eso funciona bien).
Ahora lo que no puedo hacer es que me relacione los servicios de ese Nº de
Presupuesto, lo que hace es traerme todos
los servicios que hay en la tabla SERVICIOS.
mi codigo es:
Dim NFormu As Integer
NFormu = 7
Set CN = New adodb.Connection
Set RS = New adodb.Connection
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
CN.Open "C:\Mis documentos\Cpy\CPY_Vb\conalc.mdb"
RS.Open "Select * from PresuCabeza where nro_pres = " & txtPresNro.Text,
CN, adOpenKeyset, adLockOptimistic
' ********************************CABEZA DE PRESUESTO *******************
frmMain.crpt.Formulas(0) = "formu1= " & Chr(34) &
frmPresupuesto.txtTotalLetras & Chr(34)
frmMain.crpt.Formulas(1) = "formu2= " & Chr(34) &
frmPresupuesto.txtPresNro & Chr(34)
frmMain.crpt.Formulas(2) = "formu3= " & Chr(34) &
frmPresupuesto.txtFecPres & Chr(34)
frmMain.crpt.Formulas(3) = "formu4= " & Chr(34) &
frmPresupuesto.cmbTipoPres.Text & Chr(34)
frmMain.crpt.Formulas(4) = "formu5= " & Chr(34) &
frmPresupuesto.cmbEdifPres.Text & Chr(34)
frmMain.crpt.Formulas(5) = "formu6= " & Chr(34) &
frmPresupuesto.txtUniPres & Chr(34)
frmMain.crpt.Formulas(5) = "formu7= " & Chr(34) &
frmPresupuesto.cmbRazPres.Text & Chr(34)
'
***************************************************************************
Set Report = appl.OpenReport(App.Path + "\rptPresuMant.rpt")
Report.RecordSelectionFormula = "{PRESUCABEZA.nro_pres} = " +
txtPresNro.Text
frmMain.crpt.ReportSource = Report
frmMain.crpt.ViewReport
frmMain.crpt.Action = 1
End Sub
Espero que se entienda y alguien me pueda ayudar!!!...Gracias desde ya!
--
Gustavo
