Cursor para ler as marcações

<div class="Code"><p>/* Este cursor retorna as marcações na regra de Período de Geração. */</p><p></p><p>Definir Cursor CurMar;<br></br>Definir Data vdatacc;<br></br>Definir Data vdatpro;<br></br>Definir Numero vnumemp;<br></br>Definir Numero vtipcol;<br></br>Definir Numero vnumcad;</p><p></p><p>vdatpro = DatPro;<br></br>vnumemp = R034FUN.NumEmp;<br></br>vtipcol = R034FUN.TipCol;<br></br>vnumcad = R034FUN.NumCad;</p><p></p><p>CurMar.Sql "SELECT NUMCRA, DATACC, HORACC, SEQACC, CODRLG, CODFNC, ORIACC, DATAPU FROM R070ACC \<br></br> WHERE NUMEMP = :vnumemp AND \<br></br> TIPCOL = :vtipcol AND \<br></br> NUMCAD = :vnumcad AND \<br></br> USOMAR IN (2,4,5,6,7,8,10) AND \ <br></br> DATAPU = :vdatpro \<br></br> ORDER BY NUMCRA, DATACC, DATAPU, HORACC";</p><p></p><p>CurMar.AbrirCursor();<br></br>Enquanto (CurMar.Achou)<br></br> Inicio<br></br> vhoracc = CurMar.HorAcc;<br></br> vdatacc = CurMar.DatAcc;<br></br> CurMar.Proximo();<br></br> Fim;</p><p>CurMar.FecharCursor();</p></div>