_DPN_Action

(    Mode : Integer;
     ...             ) : Byte

Vykoná akci pro neschopenky (DPN) podle parametru Mode. Každý mode vrací true (povedlo se) nebo false (nepovedlo se).

Mode	Parametry	Popis
dpnaNovaPN	... UvazekId : Longint; Typ : Integer; CisloRozh : String; DpnDatumOd : Date; DpnUrzPrac : Byte; DpnUrzJinaOS : Byte; DpnUrzAlkohol : Byte; dim DPNMainId : Longint):Byte	Založí nový záznam PM. Jeho ident vrací v DPNMainId.
dpnaZmenaPN	... DPNMainId : Longint; UvazekId : Longint; Typ : Integer; ExterniData : Byte):Byte	Změní některé údaje v existující PM podle jejího identu DPNManId.
dpnaNotifZmenaPN	... DPNMainId : Longint; CisloRozh : String; DpnDatumOd : Date; DpnUrzPrac : Byte; DpnUrzJinaOS : Byte; DpnUrzAlkohol : Byte):Byte	Založí notifikaci typu Změna a aktualizuje příslušné údaje v hlavičce PN.
dpnaNotifTrvani	... DPNMainId : Longint; DpnTrvaniDo : Date):Byte	Založí notifikaci typu Trvání a aktualizuje datum 'trvání do' v hlavičce PN.
dpnaNotifUkonceni	... DPNMainId : Longint; DpnDatumDo : Date):Byte	Založí notifikaci typu Ukončení a aktualizuje datum 'ukončení' v hlavičce PN.
dpnaDlgListNotif	... DPNMainId : Longint):Byte	Zobrazí dialog notifikací pro hlavu s identem DPNMainId.
dpnaListIdNotif	... DPNMainId : Longint; dim F : File):Byte	Do streamu F uloží identy všech notifikací pro danou hlavičku PN.
dpnaSmazUzivNotif	DPNMainId : Longint):Byte;	Budou odstraněny pouze uživatelské notifikace (NTF[ntfZdrojTyp]=dpnNtfZdrojFluxPam5) pro hlavu s identem DPNMainId.
dpnaSmazPN	DPNMainId : Longint):Byte;	Smaže celou PN s identem DPNMainId včetně všech notifikací!
dpnaDuplikujNotif	DPNMainId : Longint):Byte;	Všechny notifikace PN s identem DPNMainId z externího systému: (NTF[ntfZdrojTyp]<>dpnNtfZdrojFluxPam5) budou duplikovány jako uživatelské, tj. v duplikátech budou změněny údaje: * NTF[ntfId] = nový UID * NTF[ntfZdrojTyp] = dpnNtfZdrojFluxPam5 * NTF[ntfZdrojSpec] = login uživatele Pam5 * NTF[ntfVytvoreno] = aktuální datum a čas, zvyšuje se o vteřinu u každé nové notifikace * NTF[ntfZprac] = false
dpnaRPVSTestNotif	... OJNumber : String; Obcani : Byte; DatumOd : Date; DatumDo : Date; dim PocetZprac : Integer; dim PocetNovychNtf : Integer; dim PocetNovychPN : Integer; TestXMLSoubor : String; dim Chyba : String dim F : File):Byte	Testovací režim příjmu DPN notifikací na vězeňské službě z určeného XML souboru. Otestuje komunikaci s programem FlxPamRPVSClient.exe, pomocí kterého vlastní komunikace probíhá ve skutečnosti. OJNumber: Číslo organizační jednotky Obcani: true=občani, false=příslušníci DatumOd: Datum zjišťování notifikací od DatumDo: Datum zjišťování notifikací do TestXMLSoubor: Testovací XML soubor, který bude použit Chyba: Jestliže funkce vrací false, je zde popis chyby F: Otevřený proud, kde se vrací chyby a upozornění index 000001.. typ zprávy 1=upozornění, 2=chyba index 100001.. rodné číslo zaměstnance index 200001.. text
dpnaRPVSStahniNotif	... OJNumber : String; Obcani : Byte; DatumOd : Date; DatumDo : Date; dim PocetZprac : Integer; dim PocetNovychNtf : Integer; dim PocetNovychPN : Integer; dim Chyba : String dim F : File):Byte	Ostré stažení DPN notifikací na vězeňské službě. Komunikuje s programem FlxPamRPVSClient.exe, pomocí kterého vlastní komunikace probíhá. Jestliže vrací false, jedná se o zásadní chybu, notifikace se nezpracují a naplní se parametr Chyba! Jestliže vrací true, mohou být ve streamu F méně významné chyby, ale ke zpracování notifikací došlo!! OJNumber: Číslo organizační jednotky Obcani: true=občani, false=příslušníci DatumOd: Datum zjišťování notifikací od DatumDo: Datum zjišťování notifikací do Chyba: Jestliže funkce vrací false, je zde popis chyby F: Otevřený proud, kde se vrací chyby a upozornění index 000001.. typ zprávy 1=upozornění, 2=chyba index 100001.. rodné číslo zaměstnance index 200001.. text
dpnaCSSZStahniNotif	... GUID : String[38]; Mesic : Byte; Rok : Integer; dim PocetZprac : Integer; dim PocetNovychNtf : Integer; dim PocetNovychPN : Integer; dim Chyba : String dim F : File):Byte	Stažení a zpracování DPN notifikací ze sloupce 'PVS_SUB_STATUS.response_data'. Jestliže vrací false, jedná se o zásadní chybu, notifikace se nezpracují a naplní se parametr Chyba! Jestliže vrací true, mohou být ve streamu F méně významné chyby, ale ke zpracování notifikací došlo!! Zároveň se naplní sloupec 'PVS_SUB_STATUS.processed' hodnotou true. Jestliže nebude existovat žádná chyba ve streamu F, smaže se sloupec 'PVS_SUB_STATUS.response_data'! GUID: guid kterým se hledá ve sloupci 'PVS_SUB_STATUS.xuid' Mesic/Rok: období pro stanovení přístupových práv k zaměstnancům Chyba: Jestliže funkce vrací false, je zde popis chyby F: Otevřený proud, kde se vrací chyby a upozornění index 000001.. typ zprávy 1=upozornění, 2=chyba index 100001.. rodné číslo zaměstnance index 200001.. text

Typ neschopenky:

0 dpnTypNic
1 dpnTypNEM
2 dpnTypOCR
3 dpnTypPPM
4 dpnTypVPM
5 dpnTypOPP
6 dpnTypDLO

Příklad:

function Pridej;
    dim nUvazekId       : Longint;
    dim nTyp            : Integer;
    dim strCisloRozh    : String[18];
    dim dtDpnDatumOd    : Date;
    dim bDpnUrzPrac     : Byte;
    dim bDpnUrzJinaOS   : Byte;
    dim bDpnUrzAlkohol  : Byte;
    dim nNDPNMainId     : Longint;
    
    nUvazekId       := O[dbIdent];
    nTyp            := dpnTypNEM;
    strCisloRozh    := "123456789";
    dtDpnDatumOd    := _Date(10,11,2019);
    bDpnUrzPrac     := false;
    bDpnUrzJinaOS   := false;
    bDpnUrzAlkohol  := false;
    nNDPNMainId     := 0;
    
    Trace("Pridej:",
        _DPN_Action(dpnaNovaPN, 
                    nUvazekId, 
                    nTyp, 
                    strCisloRozh, 
                    dtDpnDatumOd, 
                    bDpnUrzPrac, 
                    bDpnUrzJinaOS, 
                    bDpnUrzAlkohol, 
                    nNDPNMainId)
    );
    			
    Trace("nNDPNMainId:",nNDPNMainId);
    return nNDPNMainId;				
endfunc { Pridej }