( Mode : Byte;
Wait : Byte;
OJNumber : String;
Month : Byte;
Year : Word;
FileName : StringZ;
dim Msg : String;
dim ExitCode : Word) : Longint
Volá externí program FlxPamRPVSClient.exe, který umožňuje komunikaci s registrem pojištěnců vězeňské služby (RPVS).
Čtěte zde.
Program se nejprve podívá do registru:
REG:\HKEY_CURRENT_USER\Software\FLUX\GlobalSettings
, zda existuje klíč:
Path of RPVS Client
Jestliže existuje, hledá se FlxPamRPVSClient.exe pomocí tam zadané cesty. Jestliže uvedená hodnota v registru neexistuje, vytvoří se cesta k Pam.Exe a k ní se přípojí adresář RPVSClient a tam se FlxPamRPVSClient.exe hledá.
Jestliže tedy bude Pam.Exe nainstalován například do adresáře 'C:\Flux\Bin', bude RPVS klient hledán v adresáři: 'C:\Flux\Bin\RPVSClient'.
True = Čekej na ukončení externího programu FlxPamRPVSClient.exe. Jestli chcete, aby komunikace pokračovala nezávisle dál, pište False.
Číslo organizační jednotky
Měsíc období pro zpracování
Rok období pro zpracování
Cesta k souboru xml s přenášenými daty.
Oznámení popsané u parametru ExitCode, ale v textové podobě.
Kod vracený programem FlxPamRPVSClient.exe:
V případě vzniku chyby, ukládá program FlxPamISIRClient.exe její podrobné znění do textového souboru FlxPamISIRClientLog.txt.
Jestliže funkce dopadne dobře, vrací 0. Jinak vrací systémový kód chyby, jejichž celkový výčet je zde. Zde se také dozvíte, že program FlxPamRPVSClient.exe vůbec neexistuje (kód 2).
Nastavení proxy serveru se bere ze společných systémových hodnot, nebo z registrů. Hodnoty v registrech mají přednost!
reg:\HKEY_CURRENT_USER\Software\FLUX\GlobalSettings\Proxy Url Adresa reg:\HKEY_CURRENT_USER\Software\FLUX\GlobalSettings\Proxy User reg:\HKEY_CURRENT_USER\Software\FLUX\GlobalSettings\Proxy Psw reg:\HKEY_CURRENT_USER\Software\FLUX\GlobalSettings\Proxy Použij
Jestliže bude 'Proxy Použij' = 0, nebude proxy použita. Hodnota 1 znamená: použij proxy.
Příklad:
call Test;
Exit;
procedure Test
dim ExitCode : Word;
dim sMsg : String;
trace(_ExecRPVSClient(RPVS_OdesliData, true, "OJ_01", 7, 2015, "W:\RPVS\Testy\RPVS_1.xml", sMsg, ExitCode),
" ExitCode:",ExitCode, " ", sMsg);
endproc { Test }
Podívejte se na: Ostatní procedury a funkce