ConMarDatIni

/* Exemplo de regra para tela de Consulta Marcações */

/* Se empresa=1 lista apenas a data de processamento e as marcações de origem Digitada e Gerada */
Se (R034FUN.NumEmp = 1)
  Inicio
    /* Seta as abrangências da tela */
    ConMarAbrRlg = "";
    ConMarAbrTac = "";
    ConMarAbrUso = "2";
    ConMarAbrOri = "D,G";
    /* Seta data inicial/final para listar as marcações */
    ConMarDatIni = DatPro;
    ConMarDatFim = DatPro;
  Fim
Senao  /* Se empresa <> 1 lista as datas anterior e posterior a data de processamento e marcações de origem Eletrônica */
  Inicio
    /* Seta as abrangências da tela */
    ConMarAbrRlg = "";
    ConMarAbrTac = "";
    ConMarAbrUso = "2";
    ConMarAbrOri = "E";
    /* Seta data inicial/final para listar as marcações */
    ConMarDatIni = DatPro-1;
    ConMarDatFim = DatPro+1;
  Fim;