_ActivityAt

(    Index      : Word;
     Position   : Word;
 dim Class      : Word;
 dim Specf      : Word;
 dim SpecfEx    : Word;
 dim DayFrom    : Byte;
 dim DayTo      : Byte;
 dim IsStart    : Byte;
 dim Durat      : Word;
 dim SDurat     : Real) : Byte

Funkce detailního vyšetřování kalendáře ze mzdové položky dané indexem Index. Použije vnitřní datového pole, které bylo vytvořeno funkcí _InitActivity, vrací aktivitu na pozici Position.

• V parametrech vrátí specifikaci směny Class, Specf, SpecfEx, rozpětí trvání DayFrom, DayTo a příznak začátku IsStart.
• Existují-li nějaké směny vyhovující specifikaci v několika za sebou následujících dnech, pak tvoří jednu aktivitu. Nová aktivita vzniká navíc vždy v okamžiku nastaveného začátku.
• Bylo-li při inicializaci _InitActivity užito masky, pak nová aktivita vzniká i každou změnou směny v rámci této masky .
• Pozice Position může nabývat hodnot z intervalu (1,Count) kde Count je počet činností, tj.
  
  Count := _InitActivity.
  
  Jestliže Position bude vyšší než Count, vrací funkce False(0). Jinak vrací True(1).
• IsStart je příznak začátku směny.
  0 - aktivita má nastaven začátek
  1 - aktivita nemá nastaven začátek
• Parametr Durat je skutečné trvání (počet minut) vyšetřované aktivity.
• Parametr SDurat je poměrné trvání
• Použití na jiný mzdový kalendář než ten jehož mzdová věta je nahrána je popsáno zde.

Podívejte se na: Kalendářové makrofunkce

Příklady

procedure Test_Activity
    dim Idx     : Word; 
    dim Count   : Word; 
    dim Class   : Word; 
    dim Specf   : Word; 
    dim SpecfEx : Word; 
    dim DayFrom : Byte; 
    dim DayTo   : Byte; 
    dim IsStart : Byte; 
    dim Durat   : Word; 
    dim SDurat  : Real;

    Count := _InitActivity(997, clNemoc, spNemoc + spPlaceno, $ffff, false);
    Trace("Count:",Count);
    for Idx:=1 to Count do
        _ActivityAt(997, Idx, Class, Specf, SpecfEx, DayFrom, DayTo, IsStart, Durat, SDurat);
        Trace("Class:",Class,", Specf:",Specf,", SpecfEx:",SpecfEx,", DayFrom:",DayFrom,", DayTo:",DayTo,
        ", IsStart:",IsStart,", Durat:",Durat,", SDurat:",SDurat);
    end
endproc