Histórico da Página

Ponto-de-Entrada: MTA455E - Validação da liberação Liberação "automática" de bloqueio Bloqueio de estoqueEstoque

O ponto de entrada MTA455E épertence acionadoa na rotina Liberação de Estoque (MATA455), apóse oé usuárioacionado clicarpelo no botão "+Automática".
Sua finalidade é permitir a validação das inclusão de validações para as liberações automáticasexecutadas depelo bloqueio por estoqueopção "+Automática".

MATA455.PRX

#INCLUDE 'TOTVS.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
    Pergunte('LIBAT2',.F.) //Carrega o pergunte da liberação automática
    
    If MV_PAR01 == "000000" .And. MV_PAR02 == "zzzzzz"   //Verifica se no range de pedido foram incluidos todos os pedidos.
        nOpca := 2   //Ajusta o retorno para 2 indicando que a liberação não irá ser precessada
        Alert("Não é permitido o processamento de todos os pedidos!")
    Else
        MsgInfo("Processo de liberação iniciado com sucesso!")        
    EndIf
Else
    MsgAlert("Operação cancelada")  
EndIf            

RestArea(aArea) //Restaura o ambiente ativo no início da chamada

Return(nOpca) //Retorna a variável numérica nOpca contendo a opção 1 ou 2