Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'TOTVS.CH'
#INCLUDE 'PARMTYPE.CH'
User Function MTA455E()
Local nOpca:= PARAMIXB
MsgInfo("Executando ponto de entrada MTA455E")
If !FwIsAdmin()
nOpca := 2 //1= Permite o desbloqueio 2=Mantêm o bloqueio
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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas