Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 39

changes.mady.by.user William Pianheri Batista Silva

Gravado em

comparado com

Nova versão 40

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 de bloqueio de estoque


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".
Sua finalidade é permitir a criaçãoinclusão de validações para as liberações automáticasexecutadas depelo bloqueio por estoqueopção "+Automática".

Programa Fonte
MATA455.PRX

Sintaxe

MTA455E( {nOpca} ) --> nOpca


Parâmetros:
Nome
{nOpca} - Tipo: Array -
TipoDescriçãoDefaultObrigatórioReferência
PARAMIXBArray of Record

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

1

= Permite o desbloqueio

- Ok

2

= Não permite o desbloqueio

- 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

= Permite o desbloqueio
2 = Não permite o desbloqueio

- 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