Cita:
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+'%');
C:=C+1 ;
Params[C].AsDate:=DateTimePicker1.DATE;
C:=C+1 ;
Params[C].AsDate:=DateTimePicker2.DATE;
Q_fol.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;