[leofuentes21]

Empezado por Neftali

Hola.
Creo que cuando haces el recorrido te sobra el primer Next (antes del While), ya que si lo pones como está ahora te dejas el primer registro.

Es decir, la estructura debería ser algo así:

Código Delphi [-]Q.First; while (not Q.eof) do begin ... hacer lo que necesites ... Q.Next; end;

Gracias por responder amigo

esto lo hago asi porque el primer registro no interesa pasarcelo a la variable ya que lo mando en la consulta siguiente

Código Delphi [-]
  WITH  qry1 DO   BEGIN     
Active:=False;     
SQL.Clear;     
SQL.Add('SELECT * FROM FACT01 WHERE  (CVE_DOC LIKE OC ) AND (TIP_DOC ='+         QUOTEDSTR('F')+') AND (STATUS <> '+QUOTEDSTR('C')+         ') AND (FECHA_DOC >= :F1) AND (FECHA_DOC <= :F2) '+BUSCA+' ');     
Q_fol.First;     
C:=0;     
Params[C].Text:=Trim('%'+Q_fol.FIELDBYNAME('FOLUSER').Text+'%');  
/// Aqui le mando el primer registro      
C:=C+1 ;     
Params[C].AsDate:=DateTimePicker1.DATE;     
C:=C+1 ;     
Params[C].AsDate:=DateTimePicker2.DATE;     
Q_fol.Next;   
/// aqui siguen los demas folios y aqui si aplica el next     
while not Q_fol.Eof do       begin       
C:=C+1 ;       
Params[C].Text:=Trim('%'+Q_fol.FIELDBYNAME('FOLUSER').Text+'%');       
C:=C+1 ;       
Params[C].AsDate:=DateTimePicker1.DATE;       
C:=C+1 ;       
Params[C].AsDate:=DateTimePicker2.DATE;       
C:=C+1;       
Q_fol.Next;     
end;     
Active:=True;   
end;