Histórico da Página

#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'TOTVS.CH'
#INCLUDE 'PARMTYPE.CH'

User Function MTA455E() 

Local nOpca:= PARAMIXB
 
MsgInfo("Executando ponto //Variávelde numéricaentrada recebe a opção que está sendo executada 
 
	MTA455E") 

If !FwIsAdmin()
    nOpca := 2   //Verifica se  1= Libera    2=Mantêm o usuário não é Administrador
    	nOpca := 2      //1= Libera    2=Mantêm o bloqueio  
	EndIf bloqueio Return(nOpca)
    Alert("Somente o Administrador tem permissão para efetuar o desbloqueio!") 
Else  
    MsgInfo("Desbloqueio efetuado com sucesso!") 
EndIf             

Return(nOpca)   //Retorna variável numérica contendo a opção 1 ou 2