Hola
Me alegro que lo solucionaras.
Esta podria ser otra solucion:
Código Delphi
[-]
var Fecha1, Fecha2: TDateTime;
begin
Fecha1:= 01/05/2011;
Fecha2:= 17/05/2011;
TuQuery.Sql.Text:='
Select C.Tdc, C.Doc, C.f_Doc, C.Hora, C.Aux, T.Descl As Trabajador, C.TOT, A.Descl As Producto
from (((tblConsumoC C
Left Join tblConsumoD D on (C.TDC = D.TDC and C.DOC = D.DOC))
Left Join tblTrabajador T on C.Aux = T.KOD)
Left Join TblArticulo A on D.KOD = A.KOD)
Where C.f_doc >= :f1 and C.f_doc <= :f2
Order by C.AUX, C.f_DOC'
TuQuery.Parameters[0].AsDateTime := INT(Fecha1.Date);
TuQuery.Parameters[1].AsDateTime := INT(Fecha2.Date);
end;
Saludos