Rozdíly

Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.

--- reports:repupgc [2009/05/15 05:51] – pavel
+++ reports:repupgc [2018/06/15 08:16] (aktuální) – [Prohledávání] Libor Kadaník
@@ Řádek 9: / Řádek 9: @@
 Adresář musí končit lomitkem. Místo adresáře lze použít výběr souborů (např. c:\report\directory\*.rep).
@@ Řádek 18: / Řádek 14: @@
 ===== Příklady =====
-V adresáři **M:\obis4lua\reports\rozpocty\** a podřazených projíždíme soubory s koncovkou **rep**.
+==== Prohledávání ====
+V adresáři **M:\obis4\system\reports\rozpocty\** a podřazených projíždíme soubory s koncovkou **rep**.
 Program vypisuje všechny reporty a fieldy
 <code>
-repupgc -debug 2 -luastring "GrepReports([[M:\obis4lua\reports\rozpocty\*.rep]], [[.*]])"
+repupgc -debug 2 -luastring "GrepReports([[M:\obis4\system\reports\rozpocty\*.rep]], [[.*]])"
 </code>
-Prohledávání reportů, kde je na zacatku fieldu **@dofile**
+Prohledávání reportů, kde je na začátku fieldu **@dofile**
 <code>
-repupgc -debug 2 -luastring "GrepReports([[M:\obis4lua\reports\rozpocty\*.rep]], [[|@dofile]])"
+repupgc -debug 2 -luastring "GrepReports([[M:\obis4\system\reports\rozpocty\*.rep]], [[|@dofile]])"
 </code>
+V adresáři **M:\obis4\system\reports\rozpocty\** a podřazených projíždíme soubory.
+Program vypisuje všechny reporty na které neexistuje odkaz v **XML** souborech, nebo nesouhlasí velikost pismen.
+Funkce kontroluje i přítomnost starých funkcí (začínajících **#**) a špatný zápis datumu.\\
+Parametr **CheckOldFunction** (true/false) kontroluje a převádí staré funkce. Parametr **
+CheckExistInXML** (true/false) kontroluje, zda má report odkaz v některém XML souboru
+<code>
+repupgc -debug 2 -luastring "CheckReports([[M:\obis4\system\reports\rozpocty\*.*]], CheckOldFunction, CheckExistInXML)"
+</code>
+==== Náhrady ====
 Náhrada fieldů kde je na zacatku **@dofile** pomocí **@trydofile**
 <code>
-repupgc -debug 2 -luastring "SedReports([[M:\obis4lua\reports\rozpocty\*.rep]], [[|@dofile]], [[|@cf.trydofile]])"
+repupgc -debug 2 -luastring "SedReports([[M:\obis4\ststem\reports\rozpocty\*.rep]], [[|@dofile]], [[|@cf.trydofile]])"
 </code>
+Je možno pracovat i Labely, ty mají prefixy LABEL_. Nelze využít v html.
+V repupg.lua lze pomocí fce RAdd() přidat field do bandu:
+  * rline - vytvoří vpravo dole malý field
+  * excel a oo - vloží field do pravé spodní buňky, není-li již něčím obsazena
+  * html - vloží na konec textu bandu, můžou vzniknout problémy je-li tam např. hlavička tabulky
+Úprava LUA scriptů a náhrada obsolete funkcí jako např. **os.date()** -> **osex.date()**, **Function:** -> **Function.** atd.
+<code>
+repupgc.bin -debug 2 -luastring "UpgradeLua([[/obis/system/lua/]])"
+</code>
+==== Automatické kontroly ====
 Hlavní systémová funkce pro převod a kontrolu reportů. Volá podružné funkce, které převádí a kontrolují reporty v jednotlivých modulech.
 Příklad na násl. řádku provede možné automatické úpravy na všechny reporty v adresáři zakázky. Veškeré nalezené nesrovnalosti vypíše.
 <code>
-repupgc -debug 2 -luastring "UpgradeReports([[M:\obis4lua\reports\zakazky\]])"
+repupgc -debug 2 -luastring "UpgradeReports([[M:\obis4\system\reports\zakazky\]])"
+</code>
+Druhá možnost je spustit kontrolu od seznamu reportu. Jako paramter přijímá cestu k seznamu reportu, případně masku.
+<code>
+repupgc -debug 2 -luastring "UpgradeFromReportsList([[M:\obis4\system\reports\*_reports.xml]])"
+</code>
+Další možnost je spustit kontrolu, popřípadě i převod starých funkcí začínajících **#**.
+Druhý, nepovinný parametr určuje, zda bude report jen zkontrolován na přítomnost starých fcí.
+Pokud bude parametr **true** budou staré funkce převedeny na nové.
+<code>
+repupgc -debug 2 -luastring "CheckReports([[M:\obis4\system\reports\rozpocty\rozpocet.rep]], true)"
+</code>
+==== Upgrade formregister.xml ====
+<code>
+repupgc -debug 2 -luastring "UpgradeFormRegister([[M:\obis4\user\formregister.xml]])"
+</code>
+====== Skripty pro práci s reporty  ======
+==== Seznam použitých fontů ====
+<code>
+for i in `find -name "*.rep"`; do perl -ne 'if(/<Font /../\/Font>/) {print("$1\n") if/<Name>(.*)<\/Name>/};' $i; done | sort | uniq
+</code>
+==== Nahrazení fontů ====
+<code>
+for i in `find -name "*.rep"`; do perl -pi -e'if(/<Font /../\/Font>/) { s/MS Shell Dlg/Arial/ }' $i; done
 </code>