ERP - Identificador de Regras - Como dividir a variável VSABRNUMTIT para pesquisar no SQL
Dúvida
Como dividir a variável VSABRNUMTIT para pesquisar no SQL utilizando uma regra com o identificador de regras GER-000BLQPE01 no módulo de Ferramentas de Customizações?
Observação:
A variável VSABRNUMTIT é uma string e vem preenchida com os títulos divididos por vírgula no identificador de regras GER-000BLQPE01.
Solução
Para dividir a variável VSABRNUMTIT para pesquisar no SQL, realize os passos a seguir:
1. Desenvolva uma regra com a função LerPosicaoAlfa para quebrar procurando pela vírgula.
Abaixo um exemplo de regra:
Definir Alfa aTitulos; @ Titulos @
Definir Alfa aNumTit; @ Titulo @
Definir Lista lNumTit; @ Lista de titulos @
Definir Alfa aCaracter;
aTitulos = "228387/01,228387/02,227653/01";
TamanhoAlfa(aTitulos,vTam);
/* Definição de campos dentro da lista declarada acima. */
lNumTit.DefinirCampos();
lNumTit.AdicionarCampo("Titulo", alfa);
lNumTit.EfetivarCampos();
Para (i=1;i<=vTam;i++)
Inicio
LerPosicaoAlfa(aTitulos, vCaracter, i);
Se (vCaracter = ',')
Inicio
lNumTit.Adicionar();
lNumTit.Titulo = aNumTit;
lNumTit.Gravar();
aNumTit = "";
Fim
SeNao
Inicio
CaracterParaAlfa(vCaracter, aCaracter);
aNumTit = aNumTit + aCaracter;
Fim
Fim;
lNumTit.Adicionar();
lNumTit.Titulo = aNumTit;
lNumTit.Gravar();
/* Ler lista */
Tem = lNumTit.Primeiro();
enquanto (Tem = 1)
{
aNumTit = lNumTit.Titulo;
Tem = lNumTit.Proximo();
}
Clique aqui para acessar a documentação da função LerPosicaoAlfa