ClrWage

( Wg        : Wage;
  GroupItem : Word;
  Mask      : LongInt)

Nuluje jednotlivé položky proměnné typu Wage podle skupin

Jestliže bude některý z parametrů GroupItem nebo Mask roven nule, nebude brán v úvahu.

Jestliže bude výsledek operace vkládán do mzdové věty M, nebudou upraveny položky s příznakem ruční opravy. Napřed by je bylo nutno funkcí _HandRepWage smazat.

Jak systém pracuje v případě identu mzdové věty:

dim W : Wage;
ClrWage(W, 0, 0);  { W[dbIdent] := 0; }
ClrWage(M, 0, 0);  { M[dbIdent] := bude nezměněn !! }
Pozor ! Bude-li mzdová věta 'M' zamčena (nastaven bit číslo 15 v attributu) pak platí:
dim WW : Wage
ClrWage(M, 0, 0);   { není povoleno, bude chyba makra }
WW := M;            { je povoleno }
ClrWage(WW, 0, 0);  { je povoleno }
M := WW;            { není povoleno, bude chyba makra }

Podívejte se na: Mzdy