Como Hacer Un Reporte De Ventas??

[metroyd]

mmmm , el resultado sigue siendo el mismo amigo:
http://www.subirimagenes.com/fondosy...do-506687.html

Esta es la estructura de mi quick Report:
http://www.subirimagenes.com/fondosy...te-506692.html

y este es el resultado de la consulta que me pasaste, que pues si funciona:
http://www.subirimagenes.com/otros-r...a2-506736.html

Y este es el codigo del boton Imprimir despues de haber seleccionado las fechas:

Código Delphi [-]
with Modulo.Busqueda do begin
        If active then close;
        SQL.Clear;
        SQL.Add('SELECT venta.id_venta, venta.fecha_venta, venta.total_venta, productos.descripcion,');
        SQL.Add('detalle_venta.precio_unitario, detalle_venta.cantidad_vendida ');
        SQL.Add('FROM venta');
        SQL.Add('join detalle_venta on venta.id_venta = detalle_venta.id_venta');
        SQL.Add('join productos on detalle_venta.id_producto = productos.id_producto');
        SQL.Add('WHERE venta.fecha_venta between "2008-05-01" and "2008-05-31"');
        SQL.Add('order by venta.id_venta');
        //ParamByName('Fechaini').AsDateTime := unDateTimePickerIni.DateTime;
        //ParamByName('FechaFin').AsDateTime := unDateTimePickerFin.DateTime;
        Open;
     end;

     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;

Como veras solo estoy probando las ventas del mes de mayo, tengo como 4 ventas, y solo me muestra la primera y en Detalle muestra los productos de todas las ventas

Gracias por tu paciencia amigo, espero sigas ayudandome

[ContraVeneno]

PUes supongo que el problema será que estas utilizando una banda "Sub Detail" cuando debería ser "Detail"

[metroyd]

Bueno, quite la SuDetail y agrege una QRBand con tipo Detail, y ahi meti los QRDBTEXT correspondientes a Descripcion, cantidad vendida y costo. pero no cambio el resultado!!
Si trato de poner su propiedad linkband al QRGroup no realiza la operacion de mostrar el reporte.
Tal vez este reporte sea imposible de hacer con QuickReports

[ContraVeneno]

tengo infinidad de reportes que hacen eso que pides, todos hechos con quickreports. No es imposible.

Simplemente algún detalle está faltando.

¿Seguro que pusiste el campo "ID_Venta" en la propiedad "Expression" de la banda "GroupBand" ?

[metroyd]

Empezado por ContraVeneno

tengo infinidad de reportes que hacen eso que pides, todos hechos con quickreports. No es imposible.

Simplemente algún detalle está faltando.

¿Seguro que pusiste el campo "ID_Venta" en la propiedad "Expression" de la banda "GroupBand" ?

Código Delphi [-]
form18.QRGroup1.Expression:=modulo.busqueda.fieldbyname('id_venta').AsString;

Es correcto esto?

Ahora que recuerdo mencionaste algo de AfterPrint en Falso, pero este es un EVENTO, como puedo asignar el valor falso?? sera esto lo que hace que falle????

[ContraVeneno]

ya vi el problema, jejeje

cuando haces:

Código Delphi [-]
form18.QRGroup1.Expression:=modulo.busqueda.fieldbyname('id_venta').AsString;

Estas agrupando por el valor de ID_Venta, no por el campo.

tiene que ser:

Código Delphi [-]
form18.QRGroup1.Expression:='ID_Venta';

///o tambien
form18.QRGroup1.Expression:=modulo.busqueda.Fields[0].FieldName;

[metroyd]

UFF, HASTA QUE POR FIN RESULTÓ
gRACIAS

OYE ME PODRIAS AYUDAR CON OTRO REPORTE PARECIDO A ESTE?? PERO AKI MANEJO LA CARTELERA DE UN CINE, DEJA TE PASO EL LINK DEL HILO DONDE PUSE ESTO