Exemplo do Ponto de Entrada MT450MAN.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | #Include "Protheus.ch"/*------------------------------------------------------------------------------------------------------* | P.E.: MT450MAN | | Desc: Bloqueia a abertura da tela da liberação manual de crédito do pedido de venda | | Links: http://tdn.totvs.com/display/public/mp/MT450MAN | *------------------------------------------------------------------------------------------------------*/User Function MT450MAN() Local aArea := GetArea() Local aAreaC9 := SC9->(GetArea()) Local lRet := .T. Local cPedido := SC9->C9_PEDIDO lRet := MsgYesNo("Pedido: "+cPedido+", continua?", "Atenção") RestArea(aAreaC9) RestArea(aArea)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;