_HPDiaSelEmployment

(    Mesic    : Integer;
     Rok      : Integer;
     ZamId    : Longint;
 dim UvazekId : Longint) : Integer

Zobrazí dialog pro výběr pracovního poměru zaměstnance s identem ZamId. Jestliže vrátí cmOK, vrací v parametru UvazekId ident vybraného úvazku. Parametr UvazekId lze plnit i před spuštěním funkce. V tom případě podle něho bude zaostřen příslušný řádek pracovního poměru.

• V seznamu se zobrazí pouze aktivní - vlastní pracovní poměry.

• Funkci je vhodné používat v maskovacím makru PamShoHP.Mac.

Podívejte se na: Procedury a funkce - Zaměstnanec

Příklad:

procedure ShowHPDiaSel
    dim Rok      : Word;
    dim Mes      : Word;
    dim ZamId    : Longint;
    dim UvazekId : Longint;
	
    Rok := _SysYear;
    Mes := _ActMonth;
	
    UvazekId := O[dbIdent];
    HPGet(hpgZamId_z_UvazekId, UvazekId, ZamId);
    PrintUp(UvazekId);
    if(_HPDiaSelEmployment(Mes, Rok, ZamId, UvazekId) = cmOK)then
        _FindRecId(dbtO, UvazekId);
        ToEdit;
    endif
endproc { ShowHPDiaSel }