Ponto-de-Entrada: NGIND00B - Manipulação de Retorno
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) , Português (Portugal) , Espanhol , Inglês |
Descrição:
Ponto de Entrada para manipulação do valor de retorno do indicador.
Eventos
Programa Fonte
NGIND001.PRX
Sintaxe
NGIND00B - Manipulação de Retorno ( < aParam> ) --> nRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| aParam | Array of Record | Array contendo as seguintes informações:aParam[1] = Valor do retorno do indicador.aParam[2] = Código do indicador calculado.aParam[3] = Formula do Indicador.aParam[4] = Array contendo os resultados das variáveis do indicador. | X |
Retorno
-
nRet(numerico)
- Resultado no qual deva ser o retorno do indicador,caso o retorno indicado não seja o desejado.
Observações
Exemplos
User Function NGIND00BLocal nInd1 := 0, nInd2 := 0, nPosLocal 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 EndifEndifReturn nRet
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |