Hacer un Reporte con 5 detalles construidos de 5 cursores en vfp9
Buenas tardes quisiera me pueda ayudar a crear un reporte con 5 detalles
la cabecera ( cursor1), detalle1 (cursor2), detalle2 (cursor3), detalle3 (cursor4), detalle5 (cursor5),
los cursores son:
X=thisform.txtregistro.value
SELECTcuadroprincipal.numreg,cuadroprincipal.idchofer,conductores.nombre,vehículos.placa,vehículos.marca,cuadroprincipal.distancia,;
cuadroprincipal.fecsalida,cuadroprincipal.fecdestino,tablatransportista.codemp,tablatransportista.items,empresa.nombre;
from cuadroprincipal,conductores,vehículos,tablatransportista,empresa INTO CURSOR datos1;
where cuadroprincipal.idchofer==conductores.idchofer AND cuadroprincipal.codveh==vehículos.codveh AND cuadroprincipal.numreg==X and;
cuadroprincipal.numreg==tablatransportista.numreg AND tablatransportista.items=1 AND tablatransportista.codemp==empresa.codemp;
order BY cuadroprincipal.numreg
*********************
SELECT tablatransportista.numreg,tablatransportista.nroguiatra,tablatransportista.dptdestino,tablatransportista.prodestino,tablatransportista.disdestino,tablatransportista.tipodestin,tablatransportista.descdestin;
from tablatransportista INTO CURSOR datos2;
where tablatransportista.numreg=X ;
ORDER BY numreg
********************
SELECT gastoscombu.numreg,gastoscombu.fecha,gastoscombu.ciudad,gastoscombu.galones,gastoscombu.precioxg,gastoscombu.monto,gastoscombu.items;
from gastoscombu INTO CURSOR datos3;
where gastoscombu.numreg=X ;
ORDER BY items
********************
SELECT gastosctes.numreg,gastosctes.conceptoga,gastosctes.total;
from gastosctes INTO CURSOR datos4;
where gastosctes.numreg=X ;
ORDER BY gastosctes.numreg
********************
SELECT cuadroprincipal.numreg,cuadroprincipal.observacio;
from cuadroprincipal INTO CURSOR datos5;
where cuadroprincipal.numreg=X;
ORDER BY cuadroprincipal.numreg
Todos los datos los obtengo a través de la variable X;
he intentado uniendo los 5 cursores en uno solo pero se me repiten muchos datos;
dado que cada cursor tiene diferentes filas, el cursor1(cabecera) es el único que tiene 1 fila.
Por favor o en todo caso si me pudieras enviar un ejemplo a mi correo, muchísimas gracias.
Danny cadillo
