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.