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

Código Delphi [-]
while not vei.Eof do
  vei.First;
begin
  AUTORIZACION.Close;
  AUTORIZACION.SQL.Clear;
  AUTORIZACION.SQL.Add('SELECT * FROM AUTORIZACIONES WHERE NORDEN=:NORDEN');
  AUTORIZACION.Parameters.ParamByName('NORDEN').Value:=TRIM(vei.FieldByName('NORDEN').Text);
  AUTORIZACION.ExecSQL;
  AUTORIZACION.Open;

  vei.Next;
  Application.ProcessMessages;
end;

¿Puedes explicar qué sentido tiene hacer este recorrido?