Cursor para ler as marcações

/* Este cursor retorna as marcações na regra de Período de Geração. */

 

Definir Cursor CurMar;
Definir Data vdatacc;
Definir Data vdatpro;
Definir Numero vnumemp;
Definir Numero vtipcol;
Definir Numero vnumcad;

 

vdatpro = DatPro;
vnumemp = R034FUN.NumEmp;
vtipcol = R034FUN.TipCol;
vnumcad = R034FUN.NumCad;

 

CurMar.Sql  "SELECT NUMCRA, DATACC, HORACC, SEQACC, CODRLG, CODFNC, ORIACC, DATAPU FROM R070ACC \
             WHERE NUMEMP = :vnumemp AND \
                   TIPCOL = :vtipcol AND \
                   NUMCAD = :vnumcad AND \
                   USOMAR IN (2,4,5,6,7,8,10) AND \
                   DATAPU = :vdatpro \
             ORDER BY NUMCRA, DATACC, DATAPU, HORACC";

 

CurMar.AbrirCursor();
Enquanto (CurMar.Achou)
  Inicio
    vhoracc = CurMar.HorAcc;
    vdatacc = CurMar.DatAcc;
    CurMar.Proximo();
  Fim;

CurMar.FecharCursor();