Pular para o conteúdo principal

MRC019.R001 — Empresa deve estar cadastrada e usuário deve ter acesso liberado

Módulo: MRC019 · Menu: Recapadora > Movimentações > Ordem de Carregamento Recapadora Classificação: intencional · Relevância: alta

Regra​

Ao informar o código de empresa no filtro, o sistema exige que a empresa exista, que o usuário tenha vínculo em USUARIOEMPRESA e que tenha acesso liberado ao módulo MRC019 (tabela ACESSO) para essa empresa.

Quando dispara​

Ao sair do campo Empresa na aba de consulta.

Mensagem exibida​

A Empresa não está Cadastrada [ADM002]! / O usuário não tem Permissão de Acesso a Empresa [ADM001]! / [ADM004]!

Como o usuário resolve​

Cadastrar a empresa (ADM002) ou solicitar liberação de acesso ao usuário/módulo (ADM001/ADM004).

Evidência​

ArquivoLinhasRotinaO que o trecho faz
source/MRC019/UdmMRC019.pas315-355TdmMRC019.tabEMPRESACD_EMPRESAValidateValida cadastro da empresa e permissões de acesso do usuário

source/MRC019/UdmMRC019.pas:315

procedure TdmMRC019.tabEMPRESACD_EMPRESAValidate(Sender: TField);
var
   Consulta: String;
   Resultado: TResultado;
begin
   if (Trim(tabEMPRESACD_EMPRESA.AsString) <> '') then
   begin
      Consulta :=
         'SELECT COALESCE(E.NM_EMPRESA,'' '') NM_EMPRESA, UE.CD_EMPRESA ' + #10 +
         'FROM EMPRESA E' + #10 +
         'LEFT JOIN USUARIOEMPRESA UE ON (UE.CD_USUARIO = '+ NULO(sessao.usuario.cd_usuario,'S') +  #10 +
         '                            AND UE.CD_EMPRESA = E.CD_EMPRESA )'+ #10 +