Histórico da Página

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

User Function MTA455E()

Local aArea := GetArea() //Armazena o ambiente 

ativo para restaurar ao fim do processo
Local nOpca := PARAMIXB[1] //Variável nOpca recebe valor = 1 na confirmação e valor = 2 no cancelamento  

If nOpca == 1
    MsgInfo("Executando a validaçãoPergunte('LIBAT2',.F.) //Carrega o pergunte da liberação automática
 de estoque...")  
    If MV_PAR01 ==  If Alltrim(C9_PRODUTO)"000000" .And. MV_PAR02 == "00150080401zzzzzz"   //Verifica se no pedidorange de pedido vendaforam constaincluidos otodos produtoos 00150080401pedidos.
        nOpca := 2                           //AtribuiAjusta ào nOpca 1= "Libera estoque" ou atribui à nOpca 2= "Mantêm o bloqueio", de acordo com a regraretorno para 2 indicando que a liberação não irá ser precessada
        Alert("VocêNão nãoé tempermitido permissãoo para efetuar a liberação processamento de estoquetodos paraos este produtopedidos!") 
     Else
        MsgInfo("LiberaçãoProcesso de estoqueliberação efetuadainiciado com sucesso!")         
    EndIf
Else
    MsgAlert("Operação cancelada")   
EndIf             

ReturnRestArea(nOpca)                                  //Retorna a variável numérica nOpca contendo a opção 1 ou 2aArea) //Restaura o ambiente ativo no início da chamada

Return(nOpca)