Histórico da Página

#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 pontoa validação da liberação de entrada MTA455Eestoque...") 

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 de acordo com a condição do ponto de entrada.