ValidaAbrInt
Esta função permite validar se o parâmetro "xAbrIn" é uma abrangência numérica válida e retorna no parâmetro "xAbrOut" a abrangência otimizada. A sintaxe de uma abrangência válida deve ser esta: Uma lista de itens onde cada item pode ter um valor ou um intervalo de valores. Os itens são separados por vírgula ou ponto-e-vírgula(',' ou ';'), e caso um item seja um intervalo, o primeiro elemento deve ser ligado ao segundo através de hífen, dois-pontos, ou ponto-ponto ('-', ':' ou '..').
Sintaxe: ValidaAbrInt (Alfa xAbrIn, Alfa End xAbrOut);
Parâmetro:
Nome | Tipo | Descrição |
xAbrIn | Alfa | Abrangência de números que será validada. |
xAbrOut | Alfa | Retorna a abrangência otimizada. |
Exemplo:
Definir alfa xAbrIn;
Definir alfa xAbrOut;
/*
Situação 1 - Otimizar uma abrangência válida:
Considerando o valor da variável de entrada = "1,2,3,4,5,6" temos uma
abrangência válida porque contém números separados por vírgula.
O valor da variável xAbrOut será "1-6"
*/
xAbrIn = "1,2,3,4,5,6";
ValidaAbrInt (xAbrIn, xAbrOut);
MontaAbrangencia ("R034FUN.CodFil", xAbrInt, xSqlAbrInt);
((((R034FUN.CODFIL >= 1) AND (R034FUN.CODFIL <= 3))))
/*
Situação 2 - Detectar caracteres inválidos:
Considerando o valor da variável de entrada = "1,x" temos uma
abrangência inválida porque existe o caractere x não é um número inteiro válido.
*/
xAbrIn = "1,x";
ValidaAbrInt (xAbrIn, xAbrOut);
@ A função retornará a mensagem "Erro na 3ª posição: Número inteiro inválido" @
/*
Situação 3 - Corrigir a digitação de separadores:
Considerando o valor da variável de entrada = "1,2,3,3," temos um número
repetido e uma vírgula excedente no final da string
A função eliminará esta vírgula e otimizará o valor da variável para "1-3"
*/
xAbrIn = "1,2,3,3,";
ValidaAbrInt (xAbrIn, xAbrOut);
Utilização: Gerador de relatórios e regras.
Disponível para os módulos: Todos os módulos do Gestão de Pessoas | HCM.