Hola a todos y gracias de antemano por su ayuda.
Tengo esta consulta:
Código Delphi
[-]
procedure TFReporteDiario.DTP1Change(Sender: TObject);
begin
ShortDateFormat := 'dd/mm/yyyy';
ADOQuery1.Active:= False;
ADOQuery1.SQL.Text:= 'SELECT DISTINCTROW Factura.Fecha, Factura.Terminos, Sum(Factura.MntTotal) AS SumaDeMntTotal '+
' FROM Factura '+
' WHERE Factura.Fecha = #'+DateToStr(DTP1.DateTime)+'# AND Factura.Terminos = "Contado" '+
' GROUP BY Factura.Fecha, Factura.Terminos ';
ADOQuery1.Active:= True;
ADOQuery2.Active:= False;
ADOQuery2.SQL.Text:= 'SELECT DISTINCTROW Factura.Fecha, Factura.Terminos, Sum(Factura.MntTotal) AS SumaDeMntTotal '+
' FROM Factura '+
' WHERE Factura.Fecha = #'+DateToStr(DTP1.DateTime)+'# AND Factura.Terminos = "Credito" '+
' GROUP BY Factura.Fecha, Factura.Terminos ';
ADOQuery2.Active:= True;
ADOQuery3.Active:= False;
ADOQuery3.SQL.Text:= 'SELECT DISTINCTROW PagosAdelanto.FechaTransac, Sum(PagosAdelanto.MontoCompra) AS [Suma De MontoCompra], Sum(PagosAdelanto.Abono) AS [Suma De Abono] '+
' FROM PagosAdelanto'+
' WHERE PagosAdelanto.FechaTransac = #'+DateToStr(DTP1.DateTime)+'#'+
' GROUP BY PagosAdelanto.FechaTransac ';
ADOQuery3.Active:= True;
ADOQuery4.Active:= False;
ADOQuery4.SQL.Text:= 'SELECT DISTINCTROW BancoNac.FechaTransac, Sum(BancoNac.Retiros) AS [Suma De Retiros], Sum(BancoNac.Depositos) AS [Suma De Depositos] '+
' FROM BancoNac'+
' WHERE BancoNac.FechaTransac = #'+DateToStr(DTP1.DateTime)+'#'+
' GROUP BY BancoNac.FechaTransac ';
ADOQuery4.Active:= True;
ADOQuery5.Active:= False;
ADOQuery5.SQL.Text:= 'SELECT DISTINCTROW BancoSanJoseco.FechaTransac, Sum(BancoSanJoseco.Retiros) AS [Suma De Retiros], Sum(BancoSanJoseco.Depositos) AS [Suma De Depositos] '+
'FROM BancoSanJoseco'+
' WHERE BancoSanJoseco.FechaTransac = #'+DateToStr(DTP1.DateTime)+'#'+
' GROUP BY BancoSanJoseco.FechaTransac ';
ADOQuery5.Active:= True;
ADOQuery6.Active:= False;
ADOQuery6.SQL.Text:= 'SELECT DISTINCTROW BancoSanJosedol.FechaTransac, Sum(BancoSanJosedol.Retiros) AS [Suma De Retiros], Sum(BancoSanJosedol.Depositos) AS [Suma De Depositos] '+
' FROM BancoSanJosedol'+
' WHERE BancoSanJosedol.FechaTransac = #'+DateToStr(DTP1.DateTime)+'#'+
' GROUP BY BancoSanJosedol.FechaTransac ';
ADOQuery6.Active:= True;
ADOQuery7.Active:= False;
ADOQuery7.SQL.Text:= 'SELECT DISTINCTROW CxPDetalle.FechaPago, CxPDetalle.TipoTransac, Sum(CxPDetalle.Monto) AS [Suma De Monto] '+
' FROM CxPDetalle'+
' WHERE CxPDetalle.FechaPago = #'+DateToStr(DTP1.DateTime)+'# AND CxPDetalle.TipoTransac ="PA" '+
' GROUP BY CxPDetalle.FechaPago, CxPDetalle.TipoTransac';
ADOQuery7.Active:= True;
ADOQuery8.Active:= False;
ADOQuery8.SQL.Text:= 'SELECT DISTINCTROW CxCDetalle.FechaCobro, CxCDetalle.TipoTransac, Sum(CxCDetalle.Monto) AS [Suma De Monto] '+
' FROM CxCDetalle'+
' WHERE CxCDetalle.FechaCobro = #'+DateToStr(DTP1.DateTime)+'# AND CxCDetalle.TipoTransac ="PA" '+
' GROUP BY CxCDetalle.FechaCobro, CxCDetalle.TipoTransac';
ADOQuery8.Active:= True;
end;
Lo extraño es que funciona y da bien los datos en algunas fechas en otras los datos los da incompletos, he revisado las tablas y los datos estan y correctos.
Por que sera que funciona a veces.?
Gracias por su ayuda.
Edito: No hay forma que me quede bien presentado con las etiquetas delphi.
Saludos