Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#INCLUDE 'PROTHEUS.CH'
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas