ERP e GO UP | Ferramentas Customizadas

10404 - Comando like em cursor utilizando __Inserir

Problema: Descrição do Problema: é possível utilizar like e __Inserir em cursores?

Rotina / Tela: Regras, Relatórios.Solução: Solução: Segue exemplos abaixo:

@Exemplo 1@
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();

Esse artigo foi útil?

Usuários que acharam isso útil: 0 de 0

Tem mais dúvidas? Envie uma solicitação

Comentários

0 comentário

Artigo fechado para comentários.