Procedura SetStepMask nahradí aktuální masku, podle které probíhá krokování zaměstnanců. Návrat k masce, která je nastavena systémem podle aktuálního uživatele se provede automaticky po ukončení posledního makra nebo zadáte-li 'Mask' = 0.
Pozor! Po použití procedury SetStepMask NEDOJDE automaticky k přehodnocení práv zaměstnance, který byl před tím nahrán v paměti. Toto musí zajistit makro například takto:
SetStepMask($00F0)
if _FindRec(dbtO, dbIdent, _LIToKey(O[dbIdent]))
then
-- Zaměstnanec vyhovuje i nové masce --
Podívejte se na:Procedury a funkce - Systém
Příklad:
ÂÂ Krokuj po všech zaměstnancích
WInit(10, 1,1,80,22, "", 0, 0);
WOpen(10);
SetStepMask(atAlways)
if _StartDB(dbtO) then
repeat
PrintLn(O[oJmeno])
until _LNot(_StepRec (dbtO,
1));
endif
Wait