Histórico da Página

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

User Function MTA455E() 

Local nOpca:= PARAMIXB[1] //Variável nOpca recebe valor = 1 de PARAMIXB[1] 

If nOpca == 1
    MsgInfo("Executando a validação da liberação de estoque...")  

     If !FwIsAdminAlltrim(C9_PRODUTO) == "00150080401"   // Verifica se o usuário que está executando a rotina é Administrador
 no pedido de venda consta o produto 00150080401
        nOpca := 2   //Atribui à nOpca 1= Libera estoque ou atribui à nOpca 2=Mantêm o bloqueio,  de acordo com a regra
        Alert("Somente o Administrador tem permissão para efetuar a liberação de estoque para este produto!") 
     Else
  
      MsgInfo("Liberação de estoque efetuada com sucesso!")         
    EndIF
else
    MsgAlert("Operação cancelada")   
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.