HPGet

(    Mode : Integer;
     ...             );

Podle parametru Mode vrací data ze zaměstnance. Počet následných parametrů se liší podle použitého Mode.

Mode Parametry Popis
hpgZamId_z_UvazekId ...
    UvazekId : Longint;
dim ZamId    : Longint)		 Vrací ident zaměstnance ZamId (HZAM.IDENT) z identu PP UvazekId (OSOBNI.IDENT). Jestliže neexistuje spojení: úvazek=zam, vrací
ZamId = 0.
hpgZamId_z_Uid ...
    Uid      : String[22];
dim ZamId    : Longint)		 Vrací ident zaměstnance ZamId (HZAM.IDENT) z Uid zaměstnance (OSOBA.XUID). Jestliže Uid neexistuje, vrací ZamId = 0.
hpgSeznamUvazku ...
    ZamId       : Longint;
    Mesic       : Integer;
    Rok         : Integer;
    SkupinyPrav : Longint;
dim Uvazky      : File)

Vrací seznam identů úvazků pro osobu s identem ZamId pro období Mesic/Rok a skupiny práv SkupinyPrav :

  • $07FFFFFF
    Všechny aktivní PP, ale lze použít i jinou masku.
  • _AppRights(AR_PAM5_MA_SKUPZAM)
    Všechny PP podle práv aktuálně přihlášeného uživatele.
  • 0
    Všechny PP.

Výsledek vrací ve streamu Uvazky ve formátu: Idx=0,... a každý záznam je ident PP.
hpgStatusBit ...
    ZamId   : Longint;
    Bit     : Byte;
dim Stav    : Byte)		 Vrací stav Stav (0,1) bitu Bit (1..32) z pomocného pole zaměstnance (HZAM.XMACSTATUS).
hpgZamData ...
    ZamId      : Longint;
dim sUid       : String;
dim sGUID      : String;
dim Jmeno      : String;
dim Prijmeni   : String;
dim CisloZam   : String;
dim RodneCislo : String;
dim DatumNar   : Date;
dim MistoNar   : String;
dim PohlaviId  : Longint;
dim Poznamka   : String;
dim Stav       : Byte)  		 Vrací základní data zaměstnance s identem ZamId. Jestliže bude zaměstnanec nalezen, vrací Stav = true.

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

Příklady:

dim ZamId : Longint;
HPGet(hpgZamId_z_UvazekId, O[dbIdent], ZamId);
Printup(O[dbIdent],"  ",ZamId);
dim FUvazky	: File;
SRewrite(FUvazky, "", true);
{
HPGet(hpgSeznamUvazku, ZamId, _ActMonth, _SysYear, $3FFF, FUvazky);
HPGet(hpgSeznamUvazku, ZamId, _ActMonth, _SysYear, _AppRights(AR_PAM5_MA_SKUPZAM), FUvazky);
}
HPGet(hpgSeznamUvazku, ZamId, _ActMonth, _SysYear, $3FFF, FUvazky);
if(_SFirst(FUvazky, Idx))then
    repeat
        _(_SGet(FUvazky, Idx))
    until _SNext(FUvazky, Idx)=false;
endif
dim bStav : Byte;
HPGet(hpgStatusBit, ZamId, 1, bStav);
dim sUid      : String[50];
dim sGUID     : String[50];
dim sJmeno    : String[50];
dim sPrijm    : String[50];
dim sCisZam   : String[50];
dim sRC       : String[50];
dim dDatNar   : Date;
dim sMistoNar : String[50];
dim nPohlId   : Longint;
dim sPozn     : String[50];
dim bStav     : Byte;

HPGet(hpgZamData, OsobaId, sUid, sGUID, sJmeno, sPrijm, 
    sCisZam, sRC, dDatNar, sMistoNar, nPohlId, sPozn, bStav);
if bStav then
    { OK }
    ...
endif