Error : field not found

[[duilioisola]]

Por el nombre del componente, diría que lo utilizas varias veces con SQLs distintos.
Prueba a crear otro componente para ese SQL. Puede que quede la estructura del SQL anterior en memoria y debas borrar los campos antes de seguir.
Prueba con algo como esto:

Código Delphi [-]
   // Creo componente
   with TSQLQuery.Create(nil) do
   begin
       // Me aseguro de liberarlo aunque falle
     try
         // Trabajo con el compoente
       Close;
       SQL.Clear;
       SQL.Text := 'select AGENTE, FORMA_COBRO from ASEGURADOS where CODIGO = :ICODIGO';
       ParamByName('ICODIGO').AsInteger := StrToInt(DBEAsegurado.Text);
       Open;
       if IsEmpty = False then
       begin
        fpago := FieldByName('FORMA_COBRO').AsInteger;
        ag_aux := FieldByName('AGENTE').AsInteger;  <-- El error lo da aquí
       end;
     finally
         // Libero componente
       Free;
     end;
   end;

[identsoft]

Empezado por duilioisola

Por el nombre del componente, diría que lo utilizas varias veces con SQLs distintos.
Prueba a crear otro componente para ese SQL. Puede que quede la estructura del SQL anterior en memoria y debas borrar los campos antes de seguir.
Prueba con algo como esto:

Código Delphi [-]
// Creo componente    
with TSQLQuery.Create(nil) do    
begin        
  // Me aseguro de liberarlo aunque falle        
  try            
  // Trabajo con el compoente            
    Close;            
    SQL.Clear;            
    SQL.Text := 'select AGENTE, FORMA_COBRO from ASEGURADOS where CODIGO = :ICODIGO';            
    ParamByName('ICODIGO').AsInteger := StrToInt(DBEAsegurado.Text);            
    Open;            
    if IsEmpty = False then            
    begin               
      fpago := FieldByName('FORMA_COBRO').AsInteger;               
      ag_aux := FieldByName('AGENTE').AsInteger;  <-- El error lo da aquí            
    end;        
  finally            
    // Libero componente            
    Free;        
  end;    
end;

Da error : "Parameter ICODIGO not found"

[Casimiro Noteví]

Empezado por identsoft

Da error : "Parameter ICODIGO not found"

Eso no puede ser.
¿Qué código estás usando?

[identsoft]

Empezado por Casimiro Notevi

Eso no puede ser.
¿Qué código estás usando?

el que puso duilioisola en el foro:

Código Delphi [-]
with TSQLQuery.Create(nil) do 
begin 
  try 
    Close; 
    SQL.Clear; 
    SQL.Text := 'select AGENTE, FORMA_COBRO from ASEGURADOS where CODIGO = :ICODIGO'; 
    ParamByName('ICODIGO').AsInteger := StrToInt(DBEAsegurado.Text); 
    Open; 
    if IsEmpty = False then 
    begin 
      fpago := FieldByName('FORMA_COBRO').AsInteger; 
      ag_aux := FieldByName('AGENTE').AsInteger; 
    end; 
  finally 
    Free; 
  end; 
end;

Y el error lo da en la linea del ParamByName('ICODIGO').....

[identsoft]

lo siento, no ha respetado los marcadores codigo delphi

[Casimiro Noteví]

Dime exactamente qué componentes estás usando y a qué paleta pertenecen, para hacer una prueba igual.

[identsoft]

Empezado por Casimiro Notevi

Dime exactamente qué componentes estás usando y a qué paleta pertenecen, para hacer una prueba igual.

El componente es un SQLQUERY de la paleta dbexpress.
Lo he utilizado muchas veces de la misma forma: buscar el contenido de un campo de una tabla. previamente un Close y un Clear. A continuacion en sql.Text pongo la select que busco ( a veces con parametros, otras sin parametros) y siempre a funcionado bien, excepto en este caso.
Tal como decia anteriormente, el problema lo tengo solucionado con otro componente(simplidataset, en la misma paleta), pero la cuestion es (si se puede) saber porque hace estas cosas, porque me genera dudas.