Exemplo do Ponto de Entrada F090TOK.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
/*-----------------------------------------------------------------------*
| P.E.: F090TOK |
| Desc: Valida Baixas automáticas no Contas a Pagar Multifiliais |
| Link: http://tdn.totvs.com/pages/releaseview.action?pageId=183730928 |
*-----------------------------------------------------------------------*/
User Function F090TOK()
Local aArea:= GetArea()
Local lRet := .T.
Local cBco := ParamIXB[3]
Local cAge := ParamIXB[4]
Local cCnt := ParamIXB[5]
lRet := MsgYesNo("Deseja continuar? Banco "+cBco, "Atenção")
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;