Exemplo do Ponto de Entrada FA040INC.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | //Bibliotecas#Include "Protheus.ch"/*--------------------------------------------------------------------------------* | P.E.: FA040INC | | Desc: Função chamada ao incluir título a receber | | Link: http://tdn.totvs.com/display/public/mp/FA040INC+-+Valida+dados+--+11845 | *--------------------------------------------------------------------------------*/User Function FA040INC() Local aArea := GetArea() Local lRet := .T. //Se for RA If Alltrim(M->E1_TIPO) == 'RA' MsgInfo("Inclusão de Recebimento Antecipado!", "Atenção") EndIf 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;