( Mode : Byte; ...)
Procedura ukládá informace do externího komunikačního XML souboru. Používá se ve chvíli, kdy Pam5 běží v tzv 'Tichém režimu'. Jestliže se procedura použije v případě, kdy pam5 neběží v tichém režimu, nic se nestane. Číst informace lze funkcí _GetExtInfo.
Způsob činnosti a složení parametrů určuje hodnota Mode.
Mode | Parametry | Popis |
exiStav |
Stav : Integer; Rok : Integer; Mesic : Integer; Verze : String) |
Nastavuje informaci o stavu systemu. V souboru může být pouze jeden. Proto opakované použití bude přepisovat původní obsah. Parametr Stav informuje o stavu zpracování:
Parametry Rok a Mesic určují období zpracování mezd a parametr Verze určuje aktuální verzi makro systému. |
exiVysledek |
Typ : Longint; Text : String) |
Nastavuje výsledek zpracování. V souboru může být pouze jeden. Proto opakované použití bude přepisovat původní obsah. Parametr Typ informuje o výsledku:
Parametr Text upřesňuje výsledek zpracování. |
exiPopis |
Text : String) |
Vkládá doplňkový text k výsledku zpracování. Počet těchto poznámek není v souboru omezen. |
exiAkce |
Async : Byte; Parametry : String; Text : String) |
Umožňuje nastavit parametry pro případné následné spuštění Pam5 ze správce hromadného spouštění PamMng.exe obsluhou. V souboru může být pouze jeden. Proto opakované použití bude přepisovat původní obsah. Parametr Async definuje způsob spuštění.
Parametr Parametry vrací parametry se kterými bude Pam5 spuštěna. Nastavte jméno makra, které se spustí a použijte přepínač pro vstup do režimu Zpracování v Pam5 /z: /m"Makro.Mac&Par1&Parametr 1" /z Parametr Text bude zobrazen jako doprovodná informace v PamMng.exe. |
exiPrepinac |
Zapni : Byte) |
Tato volba řídí používání tichého režimu.
|
Podívejte se na: System
Příklady:
procedure TestExtInfo SetExtInfo(exiStav, exicondPoPrechodu, 2014, 3, "4.456") SetExtInfo(exiVysledek, exiresOK, "Všechno v pořádku") SetExtInfo(exiAkce, true, "/v"ZobrProt.Mac&Par1&Parametr 1&Par2&Parametr 2" /z, "Zobraz protokol") SetExtInfo(exiPopis, "Testovaní popis 1") SetExtInfo(exiPopis, "Testovaní popis 2") SetExtInfo(exiPopis, "Testovaní popis 3") endproc