estoy generando un reporte desde mySql con TMySql
bueno vamos al grano como dijo el pollo
tengo 2 arreglos con la informacion a imprimir en uno estan los encabezados de las facturas y en otro el detalle.
pero no doy con bola para armar que despues de cada encabezado me imprima el datalle completo de esa factura es decir, todos los renglones que tiene
Ejemplo:
FOLIO FECHA IMPORTE
2 02-10-02 99.99
// Aqui irian los rengloes de esa nota, que estan en otro arreglo.
pongo una parte del codigo para que os den una mejor idea.
Code: Select all
REPORT oReport TITLE cTexto PREVIEW
COLUMN TITLE "Folio" DATA aRegistros[nRegistro,1] PICTURE '99999' RIGHT
COLUMN TITLE "Fecha" DATA aRegistros[nRegistro,2]
COLUMN TITLE "Or" DATA aRegistros[nRegistro,3] PICTURE '99'
COLUMN TITLE "Origen" DATA substr(NombreRutas(aRegistros[nRegistro,3]),1,15)
COLUMN TITLE "De" DATA aRegistros[nRegistro,4] PICTURE '99'
COLUMN TITLE "Destino" DATA substr(NombreRutas(aRegistros[nRegistro,4]),1,15)
COLUMN TITLE "Comentarios" DATA aRegistros[nRegistro,5]
COLUMN TITLE "Unidades" DATA aRegistros[nRegistro,6] PICTURE '9,999' RIGHT
// EN ESTA PARTE DE AQUI, QUIERO PONER EL DETALLE QUE ESTA EN OTRO ARREGLO
oReport:bSkip := {|| nRegistro++}
END REPORT
ACTIVATE REPORT oReport WHILE nRegistro <= len(aRegistros)
Saludos,
Mauricio