MRC020.R001 — Confirmação bloqueada por NF pendente

Módulo: MRC020 · Menu: Recapadora > Movimentações > Confirmação de Ordem de Carregamento Recapadora Classificação: intencional · Relevância: alta

Regra

Ao confirmar/encerrar a ordem, se existem itens sem nota fiscal emitida (NR_LANCAMENTO nulo com pedido ativo), o sistema pergunta (ou bloqueia, conforme parâmetro) antes de prosseguir.

Quando dispara

Usuário marca a ordem e clica em Salvar/Finalizar com produtos ainda não faturados.

Mensagem exibida

Existem Notas Fiscais Pendentes para esta Ordem que não foram Emitidas.

Como o usuário resolve

Emitir as notas pendentes antes, ou confirmar mesmo assim se o parâmetro permitir (responder Sim ao aviso).

Parâmetros envolvidos

• PARMFATUR.ST_BLOQCONFIRMACAO

Evidência

Arquivo	Linhas	Rotina	O que o trecho faz
source/MRC020/UMRC020.pas	844-868	TfrmMRC020.btnSalvarClick	Verifica NFs pendentes e decide bloquear ou perguntar conforme ST_BLOQCONFIRMACAO

source/MRC020/UMRC020.pas:844

               \{ Verifica se foi Gerada as NFs da Ordem de Carregamento \}
               Consulta :=
                  'SELECT COUNT(O.NR_EMBARQUE) '+#10+
                  'FROM ORDEMCARREG O '+#10+
                  'INNER JOIN PEDIDO P ON (P.CD_EMPRESA = O.CD_EMPRPED '+#10+
                  '                    AND P.NR_PEDIDO = O.NR_PEDIDO '+#10+
                  '                    AND P.TP_PEDIDO = O.TP_PEDIDO '+#10+
                  '                    AND P.ST_PEDIDO <> ''C'') '+#10+
                  'WHERE O.CD_EMPRESA = ' + dmMRC020.tabORDEMCD_EMPRESA.AsString +#10+
                  '  AND O.NR_EMBARQUE = ' + dmMRC020.tabORDEMNR_EMBARQUE.AsString +#10+
                  '  AND O.ST_ORDEMCARREG = ''N'' '+#10+
                  '  AND O.NR_LANCAMENTO IS NULL ';