MFA013.R001 — Empresa deve existir para configurar a NFS-e

Módulo: MFA013 · Menu: Faturamento > Movimentações > Parâmetros NFSE Classificação: intencional · Relevância: alta

Regra

O código de empresa informado precisa existir na tabela EMPRESA; caso contrário a tela não permite prosseguir.

Quando dispara

Ao sair do campo Código da Empresa com um código que não existe.

Mensagem exibida

W-1736

Como o usuário resolve

Cadastrar a empresa no ADM002 ou corrigir o código informado.

Parâmetros envolvidos

• CD_EMPRESA

Evidência

Arquivo	Linhas	Rotina	O que o trecho faz
source/MFA013/UdmMFA013.pas	174-199	TdmMFA013.qryCadastroCD_EMPRESAValidate	Consulta EMPRESA pelo código e recusa se não encontrar.

source/MFA013/UdmMFA013.pas:174

procedure TdmMFA013.qryCadastroCD_EMPRESAValidate(Sender: TField);
var
   Consulta: String;
   Resultado: TResultado;
begin
   if (Sender.AsString <> '') then
   begin
      Consulta :=
         'select nm_empresa '+
         'from empresa '+
         'where cd_empresa = '+ Nulo(qryCadastroCD_EMPRESA.AsString, 'I');
      Resultado := ExecutaConsulta(dmMFA013.transaction, Consulta);