Tenemos que cambiar un procedure, de los anteriores por este
Código Delphi
[-]procedure TFXPAF.DBNCodigoComercialChange(Sender: TObject);
begin
if FXPAF.Active then
begin
if DBNCodigoComercial.Text <> '' then
begin
ActQuery(IBQAgentes, 'Select * from EMPLEADOS where (EMPLEADOS.AGENTE = '+QuotedStr('S')+') AND (Upper(EMPLEADOS.CODIGO)=Upper('+
QuotedStr(DBNCodigoComercial.Text) + '))');
if Not IBQAgentes.IsEmpty then ActQuery(IBQAgenteIMAGEN, 'Select * from PC where (PC.MODULO = '+QuotedStr('EMPLEADOS')+') AND (Upper(PC.CODIGO)=Upper('+
QuotedStr(DBNCodigoComercial.Text) + '))');
end;
end;
end;
ya que si no no podíamos mostrar la imagen del comercial