Ponto de Entrada MT680EST Estoque Protheus

Ponto de Entrada é uma User Function criada para interagir com uma rotina padrão do ERP TOTVS Protheus. Dependendo do momento em que é acionado durante um processamento, ele pode:

• Aprimorar validações feitas pela aplicação;
• Executar ações que dependem das informações atuais do ambiente;
• Substituir um processamento padrão por uma regra específica do cliente.

Descrição: MT680EST – Estorno do Apontamento
Programa/Rotina Padrão: MATA680 – Produção PCP Mod1
Localizado em: Function A680Deleta() – Programa de exclusão do movimento de estoque.
Em que ponto: É chamado no estorno das produções PCP, modelo I e II. É utilizado para validar se pode ocorrer o estorno do apontamento ou não.

Sintaxe: MT680EST – Estorno do Apontamento ( < PARAMIXB[1]> ) –> lRet

Referência TDN: https://tdn.totvs.com/display/public/PROT/MT680EST+-+Estorno+do+Apontamento

#Include "Protheus.ch"

/*-------------------------------------------------------------------------------------------*
    {Protheus.doc} User Function MT680EST
    ()   
    @type:      User Function
    @author:    Jose Moura
    @site:      https://academiaprotheus.com.br
    @desc.:     Ponto de Entrada MT680EST para Estorno de Apontamento
                Por boas práticas eu salvo o arquivo como: PE_MT680EST.prw (.tlpp)
 
 *-------------------------------------------------------------------------------------------*/
 
User Function MT680EST()
Local nAcao := PARAMIXB[1]
Local lRet  := .F.
If nAcao == 2 //Usuário confirma o estorno
	//Executa processamento / validação de usuário
	lRet  := .T.
Else
	lRet  := .F.
EndIf

Return lRet

Aproveite e inscreva-se em nosso canal do Youtube: https://bit.ly/36keSmP

Moura

Analista de sistemas, programador com mais de 18 anos de experiência no sistema Totvs Protheus, administrador, suporte e customizações, idealizador da Academia Protheus, já ajudou centenas de pessoas a programar em AdvPL/Tlpp.