MOriMa

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

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

Ejemplo:

/* Loop testando quantas marcações geradas existem na data */
Definir Numero xQtdMarGer;
Definir Alfa XOriAcc;

xQtdMarGer = 0;
vposmar = 1;

Enquanto (MDatAc[vposmar] <> 0)
Inicio
back:
XOriAcc = MOriMa[vposmar];
Se(XOriAcc = 'G')
Inicio
xQtdMarGer = xQtdMarGer + 1;
vposmar = vposmar + 1;
Vapara back;
Orden;
Senao
Inicio
Se (MDatAc[vposmar] <> 0)
Inicio
vposmar = vposmar + 1;
Vapara back;
Orden;
Senao
vapara term;
Orden;
Orden;
Vapara back;
term:

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

Disponible para el módulo: Control de Asistencia y Cafetería.