PE EMPREVVAZ - Gera empenhos dos componentes quando a revisão do produto não está preenchida

01. DADOS GERAIS

02. DESCRIÇÃO

Este Ponto de Entrada é utilizado para modificar o comportamento padrão do sistema quanto a geração dos empenhos para componentes com revisão inicial e revisão final informadas em produtos que tenham a sua revisão atual não informada.

Exemplo:

Estrutura do produto PA

PA

---MP1 (Revisão inicial 001, revisão final 001)

---MP2 (Revisão inicial 002, revisão final 002)

Revisão atual do produto PA em branco.

O comportamento padrão do sistema neste cenário será de não empenhar nenhum dos produtos MP ao gerar uma ordem de produção do produto PA, pois nenhum dos componentes possui uma revisão de estrutura válida.

Ao habilitar este ponto de entrada, o sistema passará a gerar o empenho dos dois produtos MP, pois a revisão atual do produto PA não está informada.

Este ponto de entrada não terá nenhuma interferência no comportamento do sistema caso a revisão atual do produto for diferente de branco.

03. DEMAIS INFORMAÇÕES

#INCLUDE "TOTVS.CH"
 
User Function EMPREVVAZ()
    Local lGera := .T.
    /*
        Retornar .T. para empenhar os produtos onde a revisão atual está em branco, e no cadastro de estrutura a revisão inicial está informada.
        Retornar .F. para assumir o comportamento padrão do sistema, onde o componente não será empenhado caso esteja fora de revisão, mesmo que a revisão atual do produto não seja informada.
    */
Return lGera

04. ASSUNTOS RELACIONADOS

• Não se aplica