Consistência de Acertos

/* Trata Banco de Horas para as Empresas 02, 03, 04, 12, 13, 20 e 30. */

Se ((R034Fun.NumEmp = 02) ou (R034Fun.NumEmp = 03) ou (R034Fun.NumEmp = 04) ou (R034Fun.NumEmp = 12) ou
   (R034Fun.NumEmp = 13) ou (R034Fun.NumEmp = 20) ou (R034Fun.NumEmp = 30))
  Inicio
    /* Somente no período de 28/08/98 - 28/08/99: */
    /* As horas creditos nao podem ultrapassar a 135 horas (saldo = 2) */
    Se (HorSit[120] <> 0)
      Inicio
        MontaData(28,8,1998,inicon);
        MontaData(28,8,1999,fimcon);
        Se ((DatPro < inicon) ou (DatPro > fimcon))
          Cancel(1);
        vsal = ValSal[2];
        Se (vsal >= 8100)
          Cancel(1);
        vsal = vsal + HorSit[120];
        Se (vsal > 8100)
          Inicio
            vdif = vsal - 8100;
            Se ((SitAnt[47] <> 0) e (HorSit[47] = 0))
              Inicio
                HorSit[90] = vdif;
                HorSit[47] = HorSit[47] + vdif;
              Fim;
            Senao
              Se ((SitAnt[48] <> 0) e (HorSit[48] = 0))
                Inicio
                  HorSit[91] = vdif;
                  HorSit[48] = HorSit[48] + vdif;
                Fim;
            HorSit[120] = HorSit[120] - vdif;
          Fim;
        vsal = 0;
        vdif = 0;

        @ Se Adicional Noturno dever  ser pago dentro do mes. @
        Se ((SitAnt[48] <> 0) e (HorSit[48] = 0))
          HorSit[123] = SitAnt[48];
      Fim;
  Fim;