MNF008.R001 — Cliente precisa estar ativo e sem bloqueio financeiro

Módulo: MNF008 · Menu: Faturamento > Movimentações > Notas Fiscais > Emissão Nota Fiscal de Venda - Obras Classificação: intencional · Relevância: alta

Regra

Ao informar o cliente da nota, o sistema bloqueia o lançamento se a pessoa estiver com situação financeira bloqueada ou com cadastro inativo.

Quando dispara

Ao preencher/sair do campo Cliente (CD_PESSOA) na aba Nota.

Mensagem exibida

A Pessoa está com Situação Financeira Bloqueada! / A Pessoa Física / Jurídica não está Ativa [TFA001]!

Como o usuário resolve

Regularizar a situação financeira do cliente ou reativar o cadastro em TFA001 antes de emitir a nota.

Evidência

Arquivo	Linhas	Rotina	O que o trecho faz
source/MNF008/UdmMNF008.pas	2305-2322	TdmMNF008.tabNOTACD_PESSOAValidate	Valida bloqueio financeiro, ativação e tipo da pessoa ao selecionar o cliente

source/MNF008/UdmMNF008.pas:2305

   if ( Trim(tabNOTACD_PESSOA.AsString) <> '' ) then begin
      Consulta := 'Select P.NM_PESSOA, P.ST_ATIVA, P.NR_CNPJCPF, P.CD_TIPOPESSOA, ' +
                  '       T.TP_TIPOPESSOA, P.DS_OBSERVACAO, P.DT_NASCIMENTO, P.ST_SCPC, ' +
                  '       PARM.CD_MOVTRANSFSAI, PARM.CD_MOVTRANSFENT ' +
                  'From PESSOA P ' +
                  'INNER JOIN TIPOPESSOA T ON (T.CD_TIPOPESSOA = P.CD_TIPOPESSOA) ' +
                  'LEFT JOIN EMPRESA EMP ON (EMP.CD_PESSOA = P.CD_PESSOA) ' +
                  'LEFT JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = EMP.CD_EMPRESA) ' +
                  'WHERE P.CD_PESSOA = ' + tabNOTACD_PESSOA.AsString;
      Resultado := ExecutaConsulta(dmMNF008.transaction, Consulta);
      if ( Resultado[0] <> '' ) then begin
         if ( Resultado[7] = 'S' ) then