Histórico da Página
Portuguese | |||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: MTA455E - Validação da liberação Liberação "automática" de bloqueio Bloqueio de estoqueEstoque Descrição: O ponto de entrada MTA455E épertence acionado naa rotina Liberação de Estoque (MATA455), apóse oé usuárioacionado clicar nopelo botão "+Automática". Programa Fonte MATA455.PRX Sintaxe MTA455E( {nOpca} ) --> > nOpca Parâmetros:
Retorno:nOpca - Tipo: Variável numérica contendo o número da operação
2 = CancelaExemplos
Exemplo: |
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 :=Alert("Executando ponto de entrada MTA455E") 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// 1= Libera 2=Mantêm o bloqueio Return(nOpca)Variáveis | Nome | Tipo | Escopo | Pode Alterar | descrição | Array of Record | Global | Não
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas