Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'TOTVS.CH'
#INCLUDE 'PARMTYPE.CH'
User Function MTA455E()
Local nOpca:= PARAMIXB //Variável nOpca recebe valor = 1 de PARAMIXB
MsgInfo("Executando ponto de entrada MTA455E")
If !FwIsAdmin() // Verifica se o usuário que está executando a rotina é Administrador
nOpca := 2 // 1=Libera estoque 2=Mantêm o bloqueio
Alert("Somente o Administrador tem permissão para efetuar a liberação de estoque!")
Else
MsgInfo("Liberação de estoque efetuada com sucesso!")
EndIf
Return(nOpca) //Retorna a variável numérica nOpca contendo a opção 1 ou 2 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas