Exemplo do Ponto de Entrada MT140PC.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | //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. EndIfReturn 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;