problemas en consulta al pasar parametros

[Neftali [Germán.Estévez]]

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;

[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;

[leofuentes21]

Gracias amigos por su ayuda despues de tanto provar y quebradera de cabeza lo logre
el problema estaba cuando pasaba los parametros.

Código SQL [-]
       Q_fol.First;
       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+' ');
       //  C:=1;  // aqui estaba el erro yo le asiganaba el valor c:=1 entonces no le asiganaba el primer parametro y se lo saltaba
         ParamByName('DOC').Text:='%'+Trim(Q_fol.FIELDBYNAME('FOLUSER').Text)+'%';
         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;

gracias espero pasen un feliz año nuevo