Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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 Alltrim(C9_PRODUTO) == "00150080401" //Verifica se 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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas