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