Histórico da Página
Portuguese |
---|
Ponto-de-Entrada: MTA455E - Validação da Liberação Automática de bloqueio de estoque Descrição: O ponto de entrada MTA455E é acionado na rotina de Liberação de Estoque (MATA455) após o usuário clicar no botão "+Automática". Programa Fonte MATA455.PRX Sintaxe MTA455E( {nOpca} ) --> nOpca Parâmetros: {nOpca} - Tipo: Array - Número da opção, sendo: 1 = Permite o desbloqueio Retorno: nOpca - Tipo: Variável numérica contendo o número da operação, sendo: 1 = Permite o desbloqueio 2 = Não permite o desbloqueio Exemplo: |
Bloco de código | ||||
---|---|---|---|---|
| ||||
#INCLUDE 'PROTHEUS.CH' |
...
#INCLUDE 'TOTVS.CH' |
...
#INCLUDE 'PARMTYPE.CH' |
...
User Function MTA455E() |
...
Local nOpca:= PARAMIXB[1] |
...
//Variável nOpca recebe valor = 1 de |
...
PARAMIXB MsgInfo("Executando a validação da liberação de estoque...") |
...
If !FwIsAdmin() // Verifica se o usuário que está executando a rotina é Administrador
nOpca := 2 // 1=Libera estoque 2=Mantêm o bloqueio
Alert("Somente o Administrador tem permissão para efetuar a liberação de estoque!")
Else
MsgInfo("Liberação de estoque efetuada com sucesso!")
EndIf
Return(nOpca) //Retorna a variável numérica nOpca contendo a opção 1 ou 2 de acordo com a condição do ponto de entrada. |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas