Exemplo do Ponto de Entrada FA040INC.
Exemplo do Ponto de Entrada:
//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;