Histórico da Página

Ponto de Entrada para inserção de opção na rotina de Multas.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

Manutenção de Ativos

Rotina:

Rotina	Nome Técnico
MNTA765	Registro de Multas

Chamados Relacionados

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Windows e Linux

Ponto de Entrada

Descrição:

Ponto de Entrada para que seja possível adicionar novas opções no Menu da rotina de Multas(MNTA765).

Localização:

SIGAMNT: Atualizações/Multas/Multa

Programa Fonte:

MNTA765.PRX

Função:

MNTA7654()

Parâmetros:

Nome	Tipo	Descrição
aRotina	Array	Contêm as opções padrões do Menu.

Retorno:

Nome	Tipo	Descrição	Obrigatório
aRotina	Array	Retorna as opções padrões do menu mais as opções adicionadas.	Sim

Observação:

O ponto de entrada tem duas aplicações:

a) quando é chamado na rotina de multas, não envia parâmetros (portanto aPARAMIXB) é nulo, e espera como retorno o valor de desconto (caracter);

b) quando é chamado na geração do título financeiro (SE2), envia como parâmetro o array de títulos (aPARAMIXB[1] = array) e espera como retorno o array atualizado.

Bloco de código

language	java
firstline	1
title	Exemplo 1 - Padrão
linenumbers	true
collapse	true

#Include 'Protheus.ch'

User Function MNTA7655MNTA7654()

      Local xRet

      If Type("PARAMIXB") == "A"  //chamado na gravação do título SE2

            xRet:= PARAMIXB[1]

            nPos := asCan(xRet,{|x| x[1] == "E2_HIST"})

            If nPos > 0

                  xRet[nPos][2] := 'Multa gerada via módulo MNT.'

            EndIf

      Else  //chamado para gravar desconto

            xRet:= M->TRX_DESCON

      EndIf


Return xRet

Bloco de código

language	java
firstline	1
title	Exemplo 2 - MVC
linenumbers	true
collapse	true

#Include 'Protheus.ch'

User Function MNTA7655()

      Local xRet
	  Local oModel7655 

      If Type("PARAMIXB"	Local aRotina := {}

	If ValType(ParamIxb) == "A"  .And. Len(PARAMIXB) <= 2 //chamado na gravação do título SE2

            xRet:= PARAMIXB[1]

            nPos := asCan(xRet,{|x| x[1] == "E2_HIST"})

            If nPos > 0

                  xRet[nPos][2] := 'Multa gerada via módulo MNT.'

            EndIf

      Else  //chamado para gravar desconto
					
			oModel7655 := PARAMIXB[3] // Busca o modelo de dados que contêm os valores de memória. 		

            xRet:= oModel7655:GetValue('MULTAS','TRX_DESCON') // Busca valor de memória

      EndIf


Return xRet	
		aRotina := ParamIXB[1]
	EndIf

	aAdd(aRotina,{"Botao Novo","msginfo('Ponto de Entrada MNTA7654')",0,4})

Return aRotina

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave

Características do Requisito

Ponto de Entrada