Tiempo aproximado para lectura: 00:02:30 min
Duda
¿Cual es la finalidad del Punto de Entrada MTA455E?
Ambiente
Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Facturación (SIGAFAT) - A partir de la versión 12
Solución
El punto de entrada MTA455E pertenece a la rutina Liberación de Stock (MATA455) y se activa mediante el botón "+Automático". Su objetivo es permitir la inclusión de validaciones para lanzamientos realizados por la opción "+Automático".
Para conocer un ejemplo de uso, acceda al siguiente enlace:
MTA455E - Validação da liberação "automática" de Bloqueio de Estoque
Ejemplo:
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#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
|
0 Comentarios