MontaAbrangencia

Função utilizada para retornar uma cláusula SQL de acordo com um campo e uma abrangência de valores.

Para montar abrangências de local quando existem valores especiais (“1.1.111==”, por exemplo), deve ser utilizado o campo NumLoc nesta função. O campo CodLoc não é tratado pela função nesta situação.

Sintaxe: MontaAbrangencia(Alfa Tabela, Alfa Valores, Alfa End SqlAbr)

Parâmetros:

Nome

Tipo

Descrição

Tabela

Alfa

Variável que recebe o campo da tabela que vai ser montada a abrangência.

Valores

Alfa

Variável que contém a faixa de valores na forma de abrangência.

SqlAbr

Alfa

Retorno Variável alfa que retorna a cláusula SQL correspondente à abrangência informada.

Exemplo:

<div class="Code"><p>Definir Alfa xCodMot;</p><p>Definir Alfa xAbrMot;</p><p></p><p>Xnumemp = R034FUN.NumEmp;</p><p>Xtipcol = R034FUN.TipCol;</p><p>Xnumcad = R034FUN.NumCad;</p><p>MontaAbrangencia("R038HSA.CodMot",ECodMot,xcodmot);</p><p>Xabrmot = "";</p><p></p><p>Se ( xcodmot &#x3C;> "( )" )</p><p>XAbrMot = ?And ? + xCodMot;</p><p>Chsa.SQL "SELECT * FROM R038HSA WHERE NUMEMP = :xnumemp AND TIPCOL = \ :xtipcol AND NUMCAD = :xnumcad __Inserir(:xAbrMot) ORDER BY DESC, SEQALT DESC";</p><p>...</p></div>

Utilização: Gerador de Relatórios e Regras.

Observações: Caso não seja informado nada na variável de abrangência na tela de entrada, esta retornará ”()”.

O comando MontaAbrangencia retorna ”()” quando a abrangência está vazia.

Este artigo ajudou você?