Kamael
27-12-2009, 19:22:53
Pues eso. quiero imprimir un informe haciendo un ADOQuery entre dos fechas y solo me imprime el primer registro pero repetido. Si en el intervalo de fechas hay cuatro registros, me los imprime todos repetidos, con el primer registro de la tabla.
El codigo del Adoquery es este :
Query2.SQL.Text := ('SELECT * FROM Kilometros ');
Query2.sql.add('Where Fech between :Fecha1 and :Fecha2');
Query2.Parameters.ParamByName('fecha1').Value := FormatDateTime('dd,mm,yyyy',dtpc1.Date) ;
Query2.Parameters.ParamByName('fecha2').Value := FormatDateTime('dd,mm,yyyy',dtpc2.Date) ;
query2.SQL.Add('Order by Fech,Kil');
Query2.Open;
Query2.Filter := 'Mat = '+QuotedStr(Cb1.Text);
Query2.Filtered := True;
Form4.QuickRep1.Print ;
En el DataSet del qreport tengo puesto Form1.Query2
Esto mismo está hechjo para Dbgrid y me funciona perfectamnete.
La banda donde van los QrDbText es una rbDetail
El codigo del Adoquery es este :
Query2.SQL.Text := ('SELECT * FROM Kilometros ');
Query2.sql.add('Where Fech between :Fecha1 and :Fecha2');
Query2.Parameters.ParamByName('fecha1').Value := FormatDateTime('dd,mm,yyyy',dtpc1.Date) ;
Query2.Parameters.ParamByName('fecha2').Value := FormatDateTime('dd,mm,yyyy',dtpc2.Date) ;
query2.SQL.Add('Order by Fech,Kil');
Query2.Open;
Query2.Filter := 'Mat = '+QuotedStr(Cb1.Text);
Query2.Filtered := True;
Form4.QuickRep1.Print ;
En el DataSet del qreport tengo puesto Form1.Query2
Esto mismo está hechjo para Dbgrid y me funciona perfectamnete.
La banda donde van los QrDbText es una rbDetail