ContGet

(    Mode : Integer;
     ...             );

Podle parametru Mode vrací data z 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

contGet_Vse

...
UvazekId : Longint;
dim Kontakty : File)

Vrací seznam identů všech kontaktů připojených k pracovnímu poměru jehož ident je UvazekId. Parametr Kontakty je proud, který musí být otevřený. V proudu jsou za sebou uloženy identy vybraných kontaktů.

contGet_Flt

...
    UvazekId : Longint;
    TypId    : Longint;
    TypZobr : Integer;
    Nepouz   : Integer;
    Prefer   : Integer;
dim Kontakty : File)

Vrací seznam identů filtrovaných kontaktů připojených k pracovnímu poměru jehož ident je UvazekId. Parametr Kontakty je proud, který musí být otevřený. V proudu jsou za sebou uloženy identy vybraných kontaktů.

Ostatní parametry slouží k filtrování. Obecně platí, že hodnota -1 parametr vyřadí a nebude používán.

TypId je ident z číselníku CSZ
TypZobr je typ zobrazení (cntTypZobr_Vsude, ... čtěte zde)
Nepouz je 0=používáno, 1=nepoužíváno
Prefer je 0=nepreferováno, 1=preferováno

Podívejte se na: Procedury a funkce - Kontakty

Příklady:

procedure Test_Cont
    dim F   : File;
    dim Idx : Longint
	
    SRewrite(F, "", true);
    ContGet(contGet_Vse, 1, F);
    if _SFirst(F, Idx) then
        repeat
            if _FindRecId(dbtKont, _SGet(F, Idx)) then
                if _FindRecId(dbtCsz, Kont[kontTypId]) then				
                    Trace(Csz[cszText], "   ", Kont[kontText]);
                endif
            endif
        until _SNext(F, Idx) = false;
    endif
    SClose(F);	
endproc

procedure Test_Cont1
    dim F   : File;
    dim Idx : Longint
	
    SRewrite(F, "", true);
    ContGet(contGet_Flt, 1, 
        -1,                  { TypId }
        kontTypZobr_Internet,{ TypZobr }
        -1,                  { Nepouz }
        -1,                  { Prefer }
        F);
    if _SFirst(F, Idx) then
        repeat
            if _FindRecId(dbtKont, _SGet(F, Idx)) then
                if _FindRecId(dbtCsz, Kont[kontTypId]) then				
                    Trace(Csz[cszText], "   ", Kont[kontText]);
                endif
            endif
        until _SNext(F, Idx) = false;
    endif
    SClose(F);	
endproc