DayInfo

(    CalIndex   : Word;
     Day        : Byte;
     Idx        : Byte;
dim IsNext     : Byte;
dim ActIdent   : LongInt;
dim ActFMin    : Word;
dim ActTMin    : Word;
dim ActChar    : Char;
dim ActAttr    : Word;
dim ActClass   : Word;
dim ActSpecf   : Word;
dim ActSpecfEx : Word)

Používá se k přímému zjištění aktivit dne Day ze mzdového kalendáře.

CalIndex
Index položky kalendáře ve mzdovém oddělení
Day
Číslo vyšetřovaného dne
Idx
Index směny ve dni. 0 = vrací směnu předepsanou turnusem (ta může být pouze jedna za den) 1..= první (a další) aktivita(y) daného dne zadaná(é) obsluhou programu
IsNext
- 0 = v daném dni nenásleduje další směna za Idx
- 1 = v daném dni existuje další směna za Idx
ActIdent
Vrací ident nalezené aktivity
ActFMin
Vrací minuty OD
ActTMin
Vrací minuty DO
ActChar
Vrací znak pro výběr aktivity používaný v kalendáři
ActAttr
Vrací znak pro výběr aktivity používaný v kalendáři
ActClass
Vrací {třídu:SmeClass} nalezené aktivity
ActSpecf
Vrací specifikaci nalezené aktivity
ActSpecfEx
Vrací rozšířenou specifikaci nalezené aktivity

Procedura se nevykoná, jestliže před vstupem do ní je _CalResult.

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říklad:

dim D, Idx, IsNext : Byte;
dim Ident : LongInt;
dim FMin, TMin, Attr, Class, Spec, SpecEx : Word;
dim Ch : Char;
for D := 1 to 28 do
Idx := 1;
DayInfo(997,D,Idx,IsNext,Ident,FMin,TMin,Ch,Attr,Class,Spec,SpecEx);
call Show;
if IsNext then
    repeat
      _Inc(Idx);
      DayInfo(997,D,Idx,IsNext,Ident,FMin,TMin,Ch,Attr,Class,Spec,SpecEx);
      call Show;
    until IsNext = False;
endif
end;
Exit

procedure Show;
WInit(10, 0,0,30,15, "", 7,0);
WOpen(10);
PrintLn("Den/Idx:",D,"/",Idx);
PrintLn("Ident: ",Ident);
PrintLn("IsNext: ",IsNext);
PrintLn("FMin: ",FMin);
PrintLn("TMin: ",TMin);
PrintLn("Ch: ",Ch);
PrintLn("Attr: ",Attr);
PrintLn("Class: ",Class);
PrintLn("Spec: ",Spec);
wait
WDone(10)
endproc