Exemplo do Ponto de Entrada M450CMAN.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
/*------------------------------------------------------------------------------------------------------*
| P.E.: M450CMAN |
| Desc: Análise de Crédito Cliente |
| Links: http://tdn.totvs.com/pages/releaseview.action?pageId=6784168 |
*------------------------------------------------------------------------------------------------------*/
User Function M450CMAN()
Local aArea := GetArea()
Local lRet := .T.
Local nOpcao := PARAMIXB[1]
//Se for a opção Rejeita
If nOpcao == 3
MsgStop("Opção <b>Rejeita</b> indisponível!", "Atenção")
lRet := .F.
EndIf
RestArea(aArea)
Return lRet
Observaçõess:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;