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: 

Definir Alfa xCodMot;

Definir Alfa xAbrMot;

 

Xnumemp = R034FUN.NumEmp;

Xtipcol = R034FUN.TipCol;

Xnumcad = R034FUN.NumCad;

MontaAbrangencia("R038HSA.CodMot",ECodMot,xcodmot);

Xabrmot = "";

 

Se ( xcodmot <> "( )" )

XAbrMot = ?And ? + xCodMot;

Chsa.SQL "SELECT * FROM R038HSA WHERE NUMEMP = :xnumemp AND TIPCOL = \ :xtipcol AND NUMCAD = :xnumcad __Inserir(:xAbrMot) ORDER BY DESC, SEQALT DESC";

...

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ê?