Exemplo do Ponto de Entrada MT140PC.
Exemplo do Ponto de Entrada:
//Bibliotecas #Include "Protheus.ch" /*------------------------------------------------------------------------------------------------------* | P.E.: MT140PC | | Desc: Define se será obrigatório informar o pedido de compra na criação da Pré-Nota | | Links: http://tdn.totvs.com/pages/releaseview.actionçpageId=6085510 | *------------------------------------------------------------------------------------------------------*/ User Function MT140PC() Local lRet := ParamIXB[1] //Se vir da função de zTeste, define que não será obrigatório If Upper(FunName()) == "ZTESTE" lRet := .F. EndIf Return lRet
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;