_InitActivity

(    Index   : Word;
     Class   : Word;
     MSpecf  : Word;
     SpecfEx : Word;
     IsMask  : Byte ) : Word;

Funkce detailního vyšetřování kalendáře. Podle kalendářové položky Index vytvoří datové pole, které naplní aktivitami třídy Class, masky specifikace MSpecf a rozšířenou specifikací SpecfEx. Vnitřní datové pole lze číst funkcí _ActivityAt.

Funkce _InitActivity vrací počet aktivit (dále Count), které byly uloženy.

• Činnosti jsou ukládány s pořadovými čísly 1..Count.
• Parametr IsMask určuje pojetí specifikace směny MSpecf a SpecfEx .
• Parametr SpecfEx určuje rozšířenou specifikaci směny. Jestliže ji nechcete použít, pište zde hodnotu $FFFF.
• Aktivity mají poněkud jiný význam než činnosti v přehledu _InitSurvey.
• V případě, že třída směny Class je číslo větší než 7 , budou do datového pole zapsány všechny činnosti měsíce.
• Jestliže na funkci _InitActivity program hlásí "Dělení nulou", tak některá ze směn použitá v turnusu má nulovou délku.
• 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

Příklad:

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