Hola a todos.
Estoy intentando obtener el valor de dos campos de una tabla y de un campo si obtengo pero del otro campo no. El error que da es "Error SqlVarios:Field AGENTE not found" . Los dos campos existen el la tabla ASEGURADOS y tiene valor.
Pongo código:
Código Delphi
[-]
SQLVarios.Close;
SQLVarios.SQL.Clear;
SQLVarios.SQL.Text := 'select AGENTE, FORMA_COBRO from ASEGURADOS where CODIGO = :ICODIGO';
SQLVarios.ParamByName('ICODIGO').AsInteger := StrToInt(DBEAsegurado.Text);
SQLVarios.Open;
if SQLVarios.IsEmpty = False then
begin
fpago := SQLVarios.FieldByName('FORMA_COBRO').AsInteger;
ag_aux := SQLVarios.FieldByName('AGENTE').AsInteger; <-- El error lo da aquí
end
Las dos variable están definidas de igual forma.Son Integer.
Siguiendo el debug, si antes de la asignación le pregunto por el valor del campo (SQLVarios.FieldByName('AGENTE').AsInteger) me lo da correctamente, no tira ningún error.
Utilizo del DBExpress y la bd es firebird. La tabla existe y los dos campos existen y definidos como integer.
Alguien tiene alguna idea de porque da este error?
Muchas gracias.