Histórico da Página
...
Ponto-de-Entrada: MTA455E - Validação da Liberação Automática de bloqueio de estoque
...
MTA455E( {nOpca} ) --> nOpca
...
{nOpca} - Tipo: Array - Número da opção, sendo:
1 = Permite o desbloqueio
2 = Não permite o desbloqueio
Retorno:
nOpca - Tipo: Variável numérica contendo o número da operação, sendo:
1 = Permite o desbloqueio
2 = Não permite o desbloqueio
2 = Não permite o desbloqueio
Exemplo:
...
| language | js |
|---|---|
| linenumbers | true |
#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]
IfnOpca == 1
MsgInfo("Executando
...
a
...
validação
...
da
...
liberação
...
de
...
estoque...")
...
IfAlltrim(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