ContSet

(    Mode : Integer;
     ...             );

Podle parametru Mode ukládá data do kontaktů připojených k pracovnímu poměru. Počet následných parametrů se liší podle použitého Mode.

Mode Parametry Popis
contSet_Add ...
    UvazekId  : Longint;
    KontaktId : Longint)
Přidá kontakt, jehož ident je KontaktId, do kontaktů pracovnímu poměru s identem UvazekId. Jestliže tento kontakt již v seznamu existuje, nepřidá ho.
contSet_Del ...
    UvazekId  : Longint;
    KontaktId : Longint)
Smaže kontakt, jehož ident je KontaktId, z kontaktů pracovního poměru s identem UvazekId.

Podívejte se na: Procedury a funkce - Kontakty

Příklady:

procedure Test_Cont2
    { Přidáme kontakt }
    _AddRec(dbtKont);
    Kont[kontTypId] := 23783;{ Telefon - zaměstnání }
    Kont[kontText] := "963258741";	
    { Kontakt přidáme do seznamu kontaktů zaměstnance s identem 2 }
    ContSet(contSet_Add, 2, Kont[dbIdent]);
endproc