Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite realizar a manipulação do valor de retorno do indicador na Consulta Indicadores (NGIND001)

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

NGIND001

Consulta indicadores 


Rotina(s) envolvida(s)

Nome Técnico

NGIND00B

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Consulta Indicadores (NGIND001) que permite manipular o valor de retorno do indicador

Programa Fonte:

NGIND001.prx
Localização:SIGAMNT: Consultas/Indicadores/Consulta Indicadores

Função:

NGIND00B()
Parâmetros:

Nome

Tipo

Descrição

ParamIXB[1]Array

Contém as seguintes posições:

1 - Valor do retorno do indicador

2 - Código do indicador calculado

3 - Fórmula do indicador

4 - Resultados das variáveis do indicador

Retorno:
NomeTipoDescriçãoObrigatório
nRetNuméricoRetorno do indicadorX
Exemplo do Ponto de Entrada NGIND00B()
#Include 'Protheus.ch'

User Function NGIND00B()

	Local nInd1 := 0, nInd2 := 0, nPos
	Local nRet       := ParamIXB[1]
	Local cIndicador := ParamIXB[2]
	Local cFormula   := ParamIXB[3]
	Local aResult    := ParamIXB[4]
	
	If ValType(aResult) == "A"	
		If (nPos := aScan( aResult, {|x| AllTrim(x[1]) == "MNTV001" } )) > 0		
			nInd1 := aResult[nPos][3]	
		Endif	
		If (nPos := aScan( aResult, {|x| AllTrim(x[1]) == "MNT1V002" } )) > 0		
			nInd2 := aResult[nPos][3]	
		Endif	
		If !Empty(AllTrim(UPPER(cIndicador))) .and. "MNT1V002" $ cFormula .and. nInd1 <> 0 .and. nInd2 == 0		
			nRet := 100	
		Endif
	Endif
		
Return nRet