MontaComandoLike
Esta função pode ser utilizada para montar uma cláusula SQL com LIKE. Na função serão passados o campo e a expressão na qual quer se montar o comando LIKE.
Sintaxe: MontaComandoLike(Alfa xCampo, Alfa xExpressao, Alfa xClausulaComLike)
Parâmetros:
Nome | Tipo | Descrição |
xCampo | Alfa | Campo de uma tabela. Preferencialmente deve ser utilizado o formato "Tabela.Campo". |
xExpressao | Alfa | Expressão (palavra) que será utilizada no comando Like. |
xClausulaComLike | Alfa | Cláusula SQL que a função retorna. Sempre retornará a cláusula SQL no seguinte formato: " xCampo LIKE '%xExpressao%'". |
Tipo de Retorno: O retorno é um comando SQL pronto para ser utilizado em um cursor.
Exemplo:
Definir Alfa EDesExp;
Definir Alfa aux_EDesExp;
EDesExp = "Teste";
/* Verifica se existe a expressão procurada na descrição da pergunta */
MontaComandoLike ("R202PER.DESPER", EDesExp, aux_EDesExp);
aux_EDesExp = " AND " + aux_EDesExp;
cur_R202PER_aux.Sql "SELECT CODPER, DESPER FROM R202PER \
WHERE R202PER.GRUPER = :vGruPer \
AND R202PER.CODPER = :vCodPer __Inserir(:aux_EDesExp)";
cur_R202PER_aux.AbrirCursor();
Utilização: Editor de regras e gerador de relatórios.