_DiaTrialPeriod

{   JmenoZam        : String;
    VznikPP         : Date;
    DelkaZkusDobyM  : Integer;
dim KonecSjednDoby  : Date;
dim KonecZkusDoby   : Date;
    PouzeVypocet    : Byte) : Word

Zobrazí dialog pro zadání zkušební doby.

Jestli se používá výpočet zkušební doby se pozná ze společných systemových hodnot:

dim F : Byte;
dim Pouzivat : Integer;
IOpen(F, "SYSTÉMOVÉ HODNOTY", true, "");
_IGet(F, "ZKUŠEBNÍ DOBA", "POUŽÍVAT VÝPOČET", Pouzivat);
if Pouzivat then
    ...
endif

JmenoZam	Informativní jméno a případně osobní číslo zaměstnance.
VznikPP	Datum vzniku pracovního poměru. Položka O[310]. Nelze opravovat.
DelkaZkusDobyM	Délka zkušební doby v měsících. Obvykle se bere ze společných systemových hodnot. dim F : Byte; dim DelkaZkusDobyM : Integer; IOpen(F, "SYSTÉMOVÉ HODNOTY", true, ""); _IGet(F, "ZKUŠEBNÍ DOBA", "DÉLKA", DelkaZkusDobyM);
KonecSjednDoby	Datum konce sjednané doby. Položka O[331]. Lze opravovat, nepočítá se.
KonecZkusDoby	Datum konce zkušební doby. Položka O[332]. Bude-li nulová, automaticky se vypočítá. Jinak se zobrazí tak, jak byla vložena a přepočítá se po stisku tlačítka Spočti .  Počítá se jako: VznikPP + DelkaZkusDobyM - 1 den Pokud bude zadáno KonecSjednDoby, provede se kontrola, zda zkušební doba není delší než polovina sjednané doby PP. Pokud je, vypočte zkušební dobu ve výši poloviny sjednané doby.
PouzeVypocet	Jestliže bude true, pouze přepočítá parametr KonecZkusDoby a končí.

Jestliže obsluha stiskne tlačítko  OK ,  vrací cmOK. Jinak vrací cmCancel.

Podívejte se na: Procedury a funkce - Objekty

Příklad:

procedure ZadejZkusebniDobu
    dim VznikPP         : Date;
    dim DelkaZkusDobyM  : Integer;
    dim	KonecSjednDoby  : Date;
    dim	KonecZkusDoby   : Date;
    dim Pouzivat        : Integer; 
    dim F               : Byte;
	
    IOpen(F, "SYSTÉMOVÉ HODNOTY", true, ""); 
    _IGet(F, "ZKUŠEBNÍ DOBA", "POUŽÍVAT VÝPOČET", Pouzivat);
    if Pouzivat then
        VznikPP := O[310];
        _IGet(F, "ZKUŠEBNÍ DOBA", "DÉLKA", DelkaZkusDobyM);
        KonecSjednDoby := O[331];
        KonecZkusDoby  := O[332];
        if _DiaTrialPeriod(O[oJmeno], VznikPP, DelkaZkusDobyM, KonecSjednDoby, KonecZkusDoby, false) = cmOK then
            Trace(VznikPP,"  ",KonecSjednDoby,"  ",KonecZkusDoby);
        endif
    endif
endproc