Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 40

changes.mady.by.user William Pianheri Batista Silva

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user William Pianheri Batista Silva

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
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 a rotina Liberação de Estoque (MATA455) e é acionado pelo botão "+Automática".
Sua finalidade é permitir a inclusão de validações para as liberações executadas pelo opção "+Automática".

Programa Fonte
MATA455.PRX

Sintaxe

MTA455E( {nOpca} ) --> nOpca


Parâmetros:


NomeTipoDescriçãoDefaultObrigatórioReferência
PARAMIXBArray of Record

Número da opção acionada, sendo:

1 - Ok

2 - Cancela





Retorno:nOpca - Tipo: Variável numérica contendo o número da operação, sendo:


NomeTipoDescriçãoDefaultObrigatórioReferência
nOpcaNumérico

Número da opção acionada, sendo:

1 - Prossegue com a liberação

2 - Aborta a liberação


X


Exemplo:
Bloco de código
languagejs
linenumberstrue
#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'TOTVS.CH'  User

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