Hola, Pues con lo que me has explicado ya puedo lograr imprimir el resultado de una sola venta, por ejemplo:
ID VENTA:2 FECHA: 22/05/2008 TOTAL: $44.00
DETALLE: CANTIDAD VENDIDA COSTO ($)
-----------------------------------------------------------------------------------
Refrescos 2 10.0
chocolate 4 6.0
Pero ahora me gustaria poder imprimir las ventas realizadas en un rango de fechas, por ejemplo, el resultado seria asi:
ID VENTA:2 FECHA: 22/05/2008 TOTAL: $44.00
DETALLE: CANTIDAD VENDIDA COSTO ($)
-----------------------------------------------------------------------------------
Refrescos 2 10.0
chocolate 4 6.0
__________________________________________________________________________
ID VENTA:3 FECHA: 25/05/2008 TOTAL: $180.00
DETALLE: CANTIDAD VENDIDA COSTO ($)
-----------------------------------------------------------------------------------
Papas 10 15.0
chocolate 6 6.0
Pan Tostado 2 6.0
__________________________________________________________________________
ID VENTA:5 FECHA: 25/05/2008 TOTAL: $3.00
DETALLE: CANTIDAD VENDIDA COSTO ($)
-----------------------------------------------------------------------------------
Gomas de mascar 3 1.0
__________________________________________________________________________
La consulta que hago para obtener estos resultados es:
Código SQL
[-]SELECT venta.id_venta,venta.fecha_venta,venta.total_venta,productos.descripcion,detalle_venta.precio_unitar io,detalle_venta.cantidad_vendida FROM venta,productos,detalle_venta WHERE venta.fecha_venta>="aki va la fecha" AND venta.fecha_venta<="aki va la otra fecha" AND venta.id_venta = detalle_venta.id_venta AND productos.id_producto = detalle_venta.id_producto order by venta.id_venta
Si aplico esta consulta con lo que ya tengo en el quickReport, me aparece en el qrgroup los datos de la primera venta, y en el SubDetail aparecen todos los productos vendidos de todas las ventas que cumplan el rango.
Código Delphi
[-]
form18.QuickRep1.DataSet:=modulo.busqueda;
form18.QRGroup1.Expression:=modulo.busqueda.fieldbyname('id_venta').AsString;
form18.QRSubDetail1.DataSet:=modulo.busqueda;
form18.QRDBText1.DataSet:=modulo.busqueda;
form18.QRDBText2.DataSet:=modulo.busqueda;
form18.QRDBText3.DataSet:=modulo.busqueda;
form18.QRDBText4.DataSet:=modulo.busqueda;
form18.QRDBText5.DataSet:=modulo.busqueda;
form18.QRDBText6.DataSet:=modulo.busqueda;
form18.QRDBText1.DataField:='id_venta';
form18.QRDBText2.DataField:='fecha_venta';
form18.QRDBText3.DataField:='total_venta';
form18.QRDBText4.DataField:='descripcion';
form18.QRDBText5.DataField:='cantidad_vendida';
form18.QRDBText6.DataField:='precio_unitario';
form18.QuickRep1.Preview;
Espero tu ayuda, gracias!!!!!