Ver Mensaje Individual
  #15  
Antiguo 27-07-2017
identsoft identsoft is offline
Miembro
 
Registrado: abr 2006
Posts: 282
Reputación: 19
identsoft Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
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').....
Responder Con Cita