Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 33

changes.mady.by.user Usuário desconhecido (rogerio.bispo)

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 acionado naa 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


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'
#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 de PARAMIXB[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 de estoque...")automática
    
    If  If Alltrim(C9_PRODUTO)MV_PAR01 == "000000" .And. MV_PAR02 == "00150080401zzzzzz"   //Verifica se no pedidorange de vendapedido foram constaincluidos otodos produtoos 00150080401pedidos.
        nOpca := 2                             //AtribuiAjusta ào nOpcaretorno 1=para Libera2 estoqueindicando ouque atribuia àliberação nOpcanão 2=Mantêmirá o bloqueio, de acordo com a regraser precessada
        Alert("SomenteNão oé Administradorpermitido temo permissão para efetuar a liberação processamento de estoquetodos paraos este produtopedidos!") 
     Else
        MsgInfo("LiberaçãoProcesso de estoqueliberação efetuadainiciado com sucesso!")         
    EndIFEndIf
elseElse
    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