MPD052.R001 — Empresa, Pessoa/Cliente e Produto devem estar cadastrados e ativos

Módulo: MPD052 · Menu: Faturamento > Movimentações > Pedidos > Controle de Obra / Romaneio Classificação: intencional · Relevância: sistemica

Regra

Diversos campos de código (empresa, cliente/fornecedor, endereço, produto, equipe, município) validam a existência do registro e, para pessoa/produto, se está ativo, antes de aceitar o valor.

Quando dispara

Ao digitar/confirmar o código em qualquer um desses campos na tela.

Mensagem exibida

A Empresa não está Cadastrada [ADM002]! / A Pessoa Física / Jurídica não está Ativa [TFA001]! / O Produto não está Cadastrado [TPO001]! / O Produto não está Ativo!

Como o usuário resolve

Cadastrar ou reativar o registro no módulo correspondente antes de usá-lo nesta tela.

Evidência

Arquivo	Linhas	Rotina	O que o trecho faz
source/MPD052/UdmMPD052.pas	758-826	TdmMPD052.tabEMPRESACD_EMPRESAValidate

source/MPD052/UdmMPD052.pas:758

procedure TdmMPD052.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]