Dúvida
Como é possível utilizar a função like e __Inserir em cursores nas regras do módulo de Recursos?
 
Solução
Para utilizar a função like e __Inserir em cursores, realize os passos a seguir:

1. Crie uma regra no menu Recursos / Implementações / Regras / Editar. Veja exemplo de a seguir:

 
Definir Alfa ECodEmp;
Definir Alfa ECodFil;
Definir Alfa EDatEmi;
Definir Alfa XDatEmi;
Definir Alfa XCodEmp;
Definir Alfa XCodFil;
 
Definir Cursor Cur_E140NFV;
 
VTotFat = 0;
 
MontaAbrangencia(E140NFV.CodEmp,ECodEmp,XCodEmp);
MontaAbrangencia(E140NFV.CodFil,ECodFil,XCodFil);
MontaAbrangencia(E140NFV.DatEmi,EDatEmi,XDatEmi);
 
Cur_E140NFV.Sql Select VlrLiq from E140NFV
              Where  __Inserir(:XDatEmi)
              And    __Inserir(:XCodEmp)
              And    __Inserir (:XCodFil);
 
Cur_E140NFV.AbrirCursor();
enquanto (Cur_E140NFV.Achou)
inicio
 VTotFat = VTotFat + Cur_E140NFV.VlrLiq;
 Cur_E140NFV.Proximo();
fim;
Cur_E140NFV.FecharCursor();
 
@Exemplo 2@
Definir Alfa vparam;
Definir Cursor Cur_SQL;
Definir Alfa Retorno;
 
vparam = %189;
Cur_SQL.SQL SELECT NOMCLI FROM E085CLI WHERE TO_CHAR(E085CLI.CGCCPF) LIKE :vparam;
Cur_SQL.AbrirCursor();
Se ( Cur_SQL.Achou )
Inicio
  Retorno = Cur_SQL.NOMCLI;
  x=y;
Fim;
Senao Cur_SQL.FecharCursor();