Este conteúdo não recebe atualizações, pois é referente a uma versão do sistema que foi descontinuada. Acesse a documentação da versão 6.10.3 aqui

MOriMa

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

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.

Este artigo ajudou você?