Exemplo do Ponto de Entrada MT410TOK.
Exemplo do Ponto de Entrada:
#include 'Totvs.ch'
/*------------------------------------------------------------------------------------------------------*
| P.E.: MT410TOK |
| Desc: Função executa antes de confirmar a inclusão do Pedido de Venda |
| Links: http://tdn.totvs.com/display/public/mp/MA410MNU |
*------------------------------------------------------------------------------------------------------*/
User Function MT410TOK()
Local lRet:= .T.
Local aArea := GetArea()
Local aAreaC9 := SC9->(GetArea())
Local aAreaC5 := SC5->(GetArea())
Local aAreaC6 := SC6->(GetArea())
//Se o campo existir
If FieldPos("C5_X_TST") > 0
//Se for inclusão e o campo estiver em branco
If INCLUI .And. Empty(M->C5_X_TST)
MsgStop("Erro, campo C5_X_TST em branco!", "Atenção")
lRet := .F.
EndIf
EndIf
RestArea(aAreaC6)
RestArea(aAreaC5)
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;