Histórico da Página

#include "Protheus.ch"

User Function CT010TOK()

	Local nOpc := ParamIXB[1]
	Local lRet := .F.

	If nOpc > 2	

		If RetCodUsr() == "000000"		
			If MsgYesNo("Evidencia do Ponto de Entrada CT010TOK - Dados estao Corretos ?")			
				lRet := .T.	
			EndIf	
		Else		

			Alert("Evidencia do Ponto de Entrada CT010TOK - Somente Administrador pode incluir calendario. ")	
		EndIf
	EndIf

Return lRet