Fórum EoleException with message ´Field quot;pusuarioquot; not f #365475

procedure TfrmAdministracao.SQL_CheckBoxGrid;
begin
  with ibEmpresas do
  begin
    Close;
    CommandText := ´ select a.marcar_check, ´+
                   ´ a.nmempresa,           ´+
                   ´ a.cdempresa,           ´+
                   ´ b.idusuario,           ´+
                   ´ b.marcarbox            ´+
                   ´ from empresa a         ´+
                   ´      left join permissoesuser b  ´+
                   ´    ON (a.cdempresa = b.idempresa)´+
                   ´ and b.idusuario = :pusuario and  ´+
                   ´ b.marcarbox = ´´T´´              ´;
    Params.ParamByName(´pusuario´).AsInteger := dsPrincipal.DataSet.FieldByName(´id_usuario´).AsInteger;
    Open;
  end;
end;

procedure TfrmAdministracao.DBMarcarDadosCellClick(Column: TColumn);
begin
  {se der um clique na célula a tabela vai entrar em modo de edição}
  if Column.FieldName = ´MARCARBOX´ then
  begin
     {Criei esta SP para deletar quando estiver marcado ou incluir quando não tiver marcado}
     try
       with ibSPPermissoes do
       begin
         Prepare;
         Params[0].AsInteger := ibUsuario.FieldByName(´ID_USUARIO´).AsInteger;
         Params[1].AsInteger := ibEmpresasCDEMPRESA.AsInteger;
         params[2].AsString  := ´T´;
         ExecProc;
         Unprepare;
       end;
       if not dm.Transaction.InTransaction then
          dm.Transaction.StartTransaction;
          dm.Transaction.CommitRetaining;
          {Atualiza o CDS para deixar a dbgrid atualizada}
          ibEmpresas.Refresh;
          DBGrid2.Refresh;
          //ibEmpresas.Close;
          //ibEmpresas.Open;
     except
       on E:Exception do
       begin
         if not dm.Transaction.InTransaction then
            dm.Transaction.StartTransaction;
            dm.Transaction.RollbackRetaining;
            MessageDlg(´Ocorreu um erro neste processo. ´ +#1313 +´Erro gerado: ´+13+
              E.Message + 1313 + ´Todo o processo foi abortado!´, mtError, [mbOk],0);
            Abort;
       end;
     end; //Final try/except
  end;
end;