[[Caral]]

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