Exemplo do Ponto de Entrada CHKEXEC.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
#Include "TopConn.ch"
//Constantes
#Define STR_PULA Chr(13)+Chr(10)
/*----------------------------------------------------------------------------------*
| P.E.: ChkExec |
| Desc: P.E. executado ao abrir rotina no menu |
| Link: http://tdn.totvs.com/display/public/mp/CHKEXEC+-+Dispara+ponto+de+entrada |
*----------------------------------------------------------------------------------*/
User Function ChkExec()
Local aArea := GetArea()
Local lRet := .T.
Local cLog := ""
//Se for o faturamento, registra log
If nModulo == 5
cLog := "Data: "+dToC(dDataBase)+CRLF
cLog += "Hora: "+Time()+CRLF
cLog += "Usuario: "+RetCodUsr()+" ("+UsrRetName(RetCodUsr)+")"+CRLF
MemoWrite("\x_logs\acesso_"+dToS(dDataBase)+"_"+StrTran(Time(), ':', '-')+".log", cLog)
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;