MOriMa

Retorna a origem da marcação, podendo ser:

• E - Eletrônica
• D - Digitada
• G - Gerada
• R - Regularizada

<div class="Code"><p>/* Loop testando quantas marcações geradas existem na data */<br></br>Definir Numero xQtdMarGer;<br></br>Definir Alfa XOriAcc;<br></br><br></br>xQtdMarGer = 0;<br></br>vposmar = 1;<br></br><br></br>Enquanto (MDatAc[vposmar] &#x3C;> 0)<br></br> Inicio<br></br> back:<br></br> XOriAcc = MOriMa[vposmar];<br></br> Se(XOriAcc = 'G')<br></br> Inicio<br></br> xQtdMarGer = xQtdMarGer + 1;<br></br> vposmar = vposmar + 1;<br></br> Vapara back;<br></br> Fim;<br></br> Senao<br></br> Inicio<br></br> Se (MDatAc[vposmar] &#x3C;> 0)<br></br> Inicio<br></br> vposmar = vposmar + 1;<br></br> Vapara back;<br></br> Fim; <br></br> Senao<br></br> vapara term;<br></br> Fim;<br></br> Fim;<br></br>Vapara back;<br></br>term:</p></div>

Utilização: Regras de Apuração, Eliminar Marcações e de Inserir Marcações.

Disponível para o módulo: Controle de Ponto e Refeitório.