Ver Mensaje Individual
  #7  
Antiguo 22-05-2008
metroyd metroyd is offline
Miembro
 
Registrado: oct 2007
Posts: 78
Reputación: 17
metroyd Va por buen camino
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

Última edición por metroyd fecha: 22-05-2008 a las 19:51:11.
Responder Con Cita