Cursor para leer etiquetas

/* Este cursor devuelve las etiquetas en la regla del Período de generación. */

 

Establecer Cursor CurMar;
Establecer fecha vdatacc;
Establecer fecha vdatpro;
Vnumemp número determinado;
Establecer número vtipcol;
Establecer número vnumcad;

 

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

 

CurMar.Sql "SELECCIONE NUMCRA, DATACC, HORACC, SEQACC, CODRLG, CODFNC, ORIACC, DATAPU DESDE R070ACC \
DONDE NUMEMP = :vnumemp Y \
TIPCOL = :vtipcol Y \
NUMCAD = :vnumcad Y \
USO EN (2,4,5,6,7,8,10) Y \
PUDATOS = :vdatpro \
ORDEN POR NUMCRA, DATACC, DATAPU, HORACC";

 

CurMar.OpenCursor();
Mientras (CurMar.Found)
Inicio
vhoracc = CurMar.HorAcc;
vdatacc = CurMar.DataAcc;
CurMar.Next();
Fim;

CurMar.CerrarCursor();