_DiaSigner

( XmlFile : String;
   DstPath : String;
RegKey : String;
     PVSName : String;
   PVSPsw : String;
   Medium : Byte;
dim Error : String) : Word

Tato funkce zobrazí dialog, který umožňuje podepsat elektronická XML podání ze souboru XmlFile pro:

RELDP
Roční evidenční list důchodového pojištění
PRIHL
Přihlášky a odhlášky k nemocenskému pojištění

Po podepsání bude soubor se stejným jménem uložen do adresáře DstPath ve formátu, který 'Server pro odeslání podání' FluxPVS umí odeslat na portál veřejné správy PVS.

Funkce používá knihovnu FlxSigner.DLL, která však není požadována hned při spuštění mzdového programu. Proto chyba o její nepřítomnosti může vzniknout až při volání této funkce.

Parametry

XmlFile	Výchozí XML soubor
DstPath	Adresář, kam bude soubor uložen
RegKey	Registr aktuálně přihlášeného uživatele Windows, kde bude hledán certifikát pro podpis.
PVSName	Jméno uživatele pro přihlášení k portálu PVS (portál veřejné správy)
PVSPsw	Heslo uživatele pro přihlášení k portálu PVS
Medium	Jestliže zde bude false, bude 'Serverem pro odeslání podání' FluxPVS podání odesláno pomocí Internetu. Jestliže zde bude true, bude podání serverem FluxPVS uloženo na disk k předání na mediu. Umístění se definuje v uživatelském rozhraní serveru FluxPVS.
Error	Funkce dopadne dobře, jestliže tento parametr bude prázdný. Jinak zde bude textový popis chyby.

Funkce vrací cmOK nebo cmCancel .

O dialogu čtěte zde.

Podívejte se na: Procedury a funkce - Objekty

Příklad:

call PodpisDokumentu("C:\Social\eldp\Pam5\RELDP.xml","C:\Social\eldp\xml");
Exit

procedure PodpisDokumentu(    sXmlFile  : String;
                              sDstPath  : String)
    dim Comm   : Word;
    dim sError : String;
	Comm := _DiaSigner(sXmlFile,sDstPath,"reldp", 
				_GetActUser(AU_PVS_JMENO), _GetActUser(AU_PVS_HESLO), 
				false, sError);
    if(sError<>"")then
        _MsgBox(1, "Chyba při podpisování dokumentu: "+sError, 0);
        return;
    endif
    if(Comm=cmOK)then
        {...}
    endif
endproc