Gestão de Pessoas - Manual do Usuário > Customizações > Variáveis > MOriMa

MOriMa

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

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

Exemplo:

/* 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;
      Fim;
    Senao
      Inicio
        Se (MDatAc[vposmar] <> 0)
          Inicio
            vposmar = vposmar + 1;
            Vapara back;
          Fim;
        Senao
          vapara term;
      Fim;
  Fim;
Vapara back;
term:

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.