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);

<div class="Code"><p>Definir alfa xAbrIn;<br></br>Definir alfa xAbrOut;<br></br><br></br>/*<br></br>Situação 1 - Otimizar uma abrangência válida:<br></br>Considerando o valor da variável de entrada = "1,2,3,4,5,6" temos uma<br></br>abrangência válida porque contém números separados por vírgula.<br></br>O valor da variável xAbrOut será "1-6"<br></br>*/<br></br>xAbrIn = "1,2,3,4,5,6"; <br></br>ValidaAbrInt (xAbrIn, xAbrOut); <br></br>MontaAbrangencia ("R034FUN.CodFil", xAbrInt, xSqlAbrInt);<br></br><br></br>((((R034FUN.CODFIL >= 1) AND (R034FUN.CODFIL &#x3C;= 3))))<br></br><br></br>/* <br></br>Situação 2 - Detectar caracteres inválidos:<br></br>Considerando o valor da variável de entrada = "1,x" temos uma<br></br>abrangência inválida porque existe o caractere x não é um número inteiro válido.<br></br>*/<br></br>xAbrIn = "1,x"; <br></br>ValidaAbrInt (xAbrIn, xAbrOut); <br></br>@ A função retornará a mensagem "Erro na 3ª posição: Número inteiro inválido" @<br></br><br></br>/* <br></br>Situação 3 - Corrigir a digitação de separadores:<br></br>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<br></br>A função eliminará esta vírgula e otimizará o valor da variável para "1-3" <br></br>*/<br></br>xAbrIn = "1,2,3,3,"; <br></br>ValidaAbrInt (xAbrIn, xAbrOut); </p></div>

Utilização: Gerador de relatórios e regras.

Disponível para os módulos: Todos os módulos do Gestão de Pessoas | HCM.