Příklady - Nastavení období

1) Procedury pro nastavení období mohou pracovat pouze v rámci rozsahu _HstYear .. _HstYear+1, protože pouze v tomto rozsahu je známa viditelnost zaměstnanců a skupiny, do kterých patří položky, podle nichž probíhají výpočty (systémová historie ).

V rámci období _HstYear .. _HstYear+1 lze zjišťovat hodnotu historických položek oddělení osobního a pamu prostým nastavením pracovního prostředí SetActEnv.
Jestliže však potřebujete zjistit hodnotu historických položek oddělení osobního a pamu mimo toto období resp _HstYear-1 .. _HstYear+1, musíte použít HstSetSep a _HstValid.

  Předpokládejme položku P[52] takto naplněnou:
      | Platno   | Založeno |  Hodnota |  _HstYear  = 1996
      -----------|----------|-----------  _ActMonth = 1
      |  1/ 1/95 |  1/ 1/95 |      256 |  _SysYear  = 1997
      |  1/ 1/95 |  1/12/95 |        0 |
      |  1/12/95 |  1/12/95 |      270 |
      |  1/ 4/96 |  1/ 4/96 |      457 |
      |  1/ 7/96 |  1/ 7/96 |      408 |
      Ke zjištění hodnoty této položky k 31/12/95 (270) nelze použít
      SetActEnv, protože by systém hlásil "Překročení systémové historie".
      Proto použijeme:
        dim R     : Real;
        dim Attr  : Word;
        dim D, DC : Date;
        HstSetSep(12, 1995);
        D := _Date(31,12,1995);
        _HstValid(dbtP, 52, R, Attr, D, DC, O[dbIdent]);
      Ke zjištění hodnoty této položky k 1/ 5/96 (457) lze použít
      i SetActEnv:
        SetActEnv(5, 5, 1996);
      i _HstValid:
        dim R     : Real;
        dim Attr  : Word;
        dim D, DC : Date;
        HstSetSep(5, 1996);
        D := _Date(1,5,1996);
        _HstValid(dbtP, 52, R, Attr, D, DC, O[dbIdent]);