MNF005.R001 — Empresa deve estar cadastrada

Módulo: MNF005 · Menu: Faturamento > Movimentações > Notas Fiscais > Cancelamento de Notas Fiscais Classificação: intencional · Relevância: sistemica

Regra

O código de Empresa informado precisa existir na tabela EMPRESA.

Quando dispara

Ao sair do campo Empresa.

Mensagem exibida

A Empresa não está Cadastrada [ADM002]!

Como o usuário resolve

Corrigir o código da Empresa ou cadastrá-la em ADM002.

Evidência

Arquivo	Linhas	Rotina	O que o trecho faz
source/MNF005/UdmMNF005.pas	62-78	TdmMNF005.tabEMPRESACD_EMPRESAValidate	Consulta EMPRESA pelo código informado e barra se não encontrar.

source/MNF005/UdmMNF005.pas:62

procedure TdmMNF005.tabEMPRESACD_EMPRESAValidate(Sender: TField);
var
   Consulta: String;
   Resultado: TResultado;
begin
   if ( Trim(tabEMPRESACD_EMPRESA.AsString) <> '' ) then begin
      Consulta := 'Select NM_EMPRESA From EMPRESA ' +
         'Where CD_EMPRESA = ' + tabEMPRESACD_EMPRESA.AsString;
      Resultado := ExecutaConsulta(transaction, Consulta);
      if ( Resultado[0] <> '' ) then
         tabEMPRESANM_EMPRESA.AsString := Resultado[0]
      else