Exemplo do Ponto de Entrada F550FECH.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | //Bibliotecas#Include "Protheus.ch"/*---------------------------------------------------------------------* | P.E.: F550FECH | | Desc: Valida Baixa/Rendição Manutenção Caixinha | *---------------------------------------------------------------------*/User Function F550FECH() Local aArea:= GetArea() Local lRet := .T. Local cBco := SET->ET_BANCO Local cAge := SET->ET_AGEBCO Local cCnt := SET->ET_CTABCO lRet := MsgYesNo("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;