Histórico da Página
Portuguese | |||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: MTA455E - Validação da Liberação Automática "automática" de bloqueio Bloqueio de estoqueEstoque Descrição: O ponto de entrada MTA455E épertence acionadoa na rotina de Liberação de Estoque (MATA455) apóse oé usuárioacionado clicarpelo no 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 = Não permite o desbloqueio
Exemplo: |
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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ão para efetuar a liberaçãoo processamento de estoquetodos paraos este produtopedidos!") Else MsgInfo("LiberaçãoProcesso de estoqueliberação efetuadainiciado com sucesso!") EndIf Else MsgAlert("Operação cancelada") EndIf ReturnRestArea(nOpcaaArea) //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