Replanteando la pregunta haciendo el analisis al codigo hice la siguiente prueba.
Código Delphi
[-]
begin;
with datosa2.Sqajuste do
begin
Close;
ParamByName('categoria').AsString:=listafpago.LookupValue;
Open;
end;
begin
if not datosa2.Sqajuste.IsEmpty then
begin
codigo:=datosa2.Sqajuste.FieldByName('FI_CODIGO').AsString;
ShowMessage(CODIGO);
|end;
datosa2.Sqajuste.Next;
end;
end;
para verificar el recorrido y solo me da un mensaje con el prmer registro, aunque si mustro los datos de la consulta en un grid me muestra todos los registros.