MNF025.R001 — Empresa deve estar vinculada ao usuário

Módulo: MNF025 · Menu: Faturamento > Movimentações > Notas Fiscais > Emissão de MDFe Classificação: intencional · Relevância: media

Regra

O código da empresa informado no filtro deve pertencer ao conjunto de empresas liberadas para o usuário logado.

Quando dispara

Ao preencher/validar o campo Empresa na aba Consulta.

Mensagem exibida

W-0010 (empresa não vinculada ao usuário)

Como o usuário resolve

Selecionar uma empresa liberada para o usuário ou solicitar a liberação de acesso.

Evidência

Arquivo	Linhas	Rotina	O que o trecho faz
source/MNF025/UdmMNF025.pas	281-292	TdmMNF025.tabEMPRESACD_EMPRESAValidate	Chama ValidaEmpresaUsuaio para validar a empresa
source/jCommon/jValidate.pas	2886-2901	ValidaEmpresaUsuaio	Verifica vínculo do usuário com a empresa em USUARIOEMPRESA

source/MNF025/UdmMNF025.pas:281

procedure TdmMNF025.tabEMPRESACD_EMPRESAValidate(Sender: TField);
var
   Empresa : TEmpresa;
begin
   try
      Empresa := TEmpresa.Create;
      ValidaEmpresaUsuaio(transaction, Empresa, Sender.AsString);
      tabEMPRESANM_EMPRESA.AsString := Empresa.Nm_Empresa;
   finally
      FreeAndNil(Empresa);
   end;
end;

source/jCommon/jValidate.pas:2886

procedure ValidaEmpresaUsuaio(Transaction: TFDTransaction;
  var Empresa: TEmpresa; Codigo: string);
var
  Consulta: string;
  Resultado: TResultado;
begin
  ValidaEmpresa(Transaction, Empresa, Codigo);
  if (Empresa.Cd_Empresa <> '') then
  Begin
    Consulta := 'SELECT ' + #10 + '  CD_EMPRESA ' + #10 + 'FROM USUARIOEMPRESA '
      + #10 + 'WHERE CD_USUARIO = ' + Nulo(sessao.Usuario.Cd_Usuario, 'S') +
      '  AND CD_EMPRESA = ' + Nulo(Empresa.Cd_Empresa, 'I');