Ponto de Entrada – CHKEXEC

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;

Links:

Pesquisa no TDN

Etiquetas

Receba novidades

Seja VIP e receba novidades exclusivas por e-Mail gratuitamente.