Pular para o conteúdo principal

MNF026.R001 — Vendedor obrigatório quando bloqueio está ligado

Módulo: MNF026 · Menu: Faturamento > Movimentações > Notas Fiscais > Troca de Produtos com Emissão de Nota Fiscal Classificação: intencional · Relevância: alta

Regra​

Se PARMFATUR.ST_BLOQUEIOVENDEDOR = 'S', a nova nota de troca não pode ser salva sem vendedor informado.

Quando dispara​

Ao clicar em Trocar (F6) ou Salvar (F6/btnSalvar) com o campo Vendedor vazio.

Mensagem exibida​

W-0127 / W-1983

Como o usuário resolve​

Informar o código do vendedor no campo Vendedor da aba Dados antes de trocar/salvar.

Parâmetros envolvidos​

  • PARMFATUR.ST_BLOQUEIOVENDEDOR

Evidência​

ArquivoLinhasRotinaO que o trecho faz
source/MNF026/UMNF026.pas624-630TfrmMNF026.btnSalvarClickVerifica vendedor obrigatório ao salvar quando ST_BLOQUEIOVENDEDOR=S
source/MNF026/UMNF026.pas674-682TfrmMNF026.btnSalvarClickSegunda verificação de vendedor obrigatório antes de gravar

source/MNF026/UMNF026.pas:624

         if (( Trim(dmMNF026.tabNOTACD_VENDEDOR.AsString) = '' )
            and  ( ParmFatur.Values['ST_BLOQUEIOVENDEDOR'] = 'S' ) )
         then
         begin
            dmMNF026.tabNOTACD_VENDEDOR.FocusControl;
            Raise JException.Create('W-1983');
         end;

source/MNF026/UMNF026.pas:674

         if ( ParmFatur.Values['ST_BLOQUEIOVENDEDOR'] = 'S' ) then
         begin
            \{ Codig de Pgt da Nova Nota \}
            if ((dmMNF026.tabNOTACD_VENDEDOR.AsString) = '' ) then
            begin
               dmMNF026.tabNOTACD_VENDEDOR.FocusControl;
               Raise JException.Create('W-0127');
            end;
         end;