Vytváření dokumentů MS Word a MS Excel - Historie editací

EnTeamAdmin v 22. 12. 2020, 21:30

2020-12-22T21:30:24Z

EnTeamAdmin v 14. 8. 2020, 09:26

2020-08-14T09:26:46Z

EnTeamAdmin v 11. 7. 2019, 12:16

2019-07-11T12:16:25Z

EnTeamAdmin v 10. 7. 2019, 14:01

2019-07-10T14:01:03Z

EnTeamAdmin: naimportována 1 revize

2019-07-04T21:14:50Z

naimportována 1 revize

en>Kadel v 24. 9. 2014, 04:22

2014-09-24T04:22:09Z

Nová stránka

Pomocí připravených funkcí je možné jednoduše vytvářet, nebo editovat soubory typu MS Word a MS Excel. Do jisté míry je podporován také balík Open Office. Funkce pro práci s těmito soubory jsou připraveny v knihovně rozšiřujících funkcí ActualDocument.dll

<h2>Princip generování dokumentů</h2>
* V šablonách aplikace M/TeamBridge jsou uloženy šablony dokumentů, ze kterých skript vytváří skutečné soubory. Ve workflow designeru je možné zobrazit správu šablon v menu "Nástroje/Administrace/Vzory dokumentů".
* Sice mluvíme o šablonách, ale jde přímo o finální dokumenty, které však musí splňovat určité předpoklady.
* V případě souboru typu *.doc, případně *.docx jsou na místech, do kterých chceme uložit hodnoty proměnných workflow, zapsány klíčová slova, která následně skript nahrazuje za hodnoty zmíněných proměnných.
* V případě souboru typu *.xls, případně *.xlsx předpokládáme, že skriptovací jazyk bude ukládat, nebo číst hodnoty z předem daných buněk

<h2>Vytvoření předávacího protokolu typu MS Word ze šablony</h2>
Pro správné fungování následujícího příkladu je nutné do skriptu doplnit definice funkcí z knihovny ActualDocument.dll<BR/>
Ukázka šablony: [[Média:Predavaci_protokol.docx]]
<pre>
Script PredavaciProtokolTypuDOC (): Boolean
Var sTempFile,sTempDir, s : String
i, iRC : Integer
Begin
GetTemp(sTempDir)
sTempFile := sTempDir+ "\predavak.doc"
ExportFromTemplatesExt("attachments\Protokoly\Předávací protokol.doc" ,sTempFile,i,actualDocument) //export šablony do dočasného souboru v adresáři temp
WordOpen(sTempFile) //nevizuální otevření šablony
s := wkf.datum //funkce WordReplaceAll očekává hodnotu typu String. Proto je nutné proměnné typu Date nejprve uložit do typu String a teprve následně volat funkci WordReplaceAll
WordReplaceAll("mtbdatum",s,iRC) //nahrazení klíčového slova v šabloně skutečnou hodnotou z proměnné
s := actuser.firstname + " " + actuser.name //proměnná "s" bude obsahovat křestní jméno a příjmení aktuálně přihlášeného uživatele
WordReplaceAll("mtbautor",s,iRC)
WordReplaceAll("mtbspolečnost",wkf.sml_zakaznik,iRC)
WordClose(true) //uzavření nevizuálně spuštěné aplikace MS Word s uložením změn
DocumentImportExt("doc","Předávací protokol",sTempFile ,"_newdocument_",s,actualdocument) //import nové přílohy do procesu
FileDelete(sTempFile) //smazání dočasného souboru v adresáři Temp
Result := True
End
</pre>

<h2>Vyplnění šablony objednávky typu MS Excel</h2>
<pre>
Declare function ExcelOpenFromTemplates dll "actualDocument" (string,string,string,string,pointer):boolean
Declare procedure ExcelWrite dll "actualDocument" (string,string,string)
Declare function ExcelCloseFromTemplates dll "actualDocument" (string,string,Boolean,Boolean,string,pointer):boolean

Script ObjednavkaTypuXLSX (): Boolean
Var sTempFile, s : String
b : Boolean
Begin
//následující příkaz v sobě kombinuje několik příkazů: nalezne adresář TEMP, exportuje šablonu a nevizuálně otevře MS Excel
ExcelOpenFromTemplates("Attachments\Objednavky\objednavka.xlsx","List1","",sTempDir,actualDocument)
ExcelWrite("b","2",wkf.firma) //do buňky "b2" zapíše hodnotu z proměnné wkf.firma
ExcelWrite("b","4",wkf.firma1D)
ExcelWrite("b","7",wkf.popis1)
s := wkf.cena //proměnnou typu Currency uloží do proměnné typu String
ExcelWrite("c","19",s)
//následující příkaz importuje šablonu jako novou přílohu procesu, smaže dočasný soubor a uzavře nevizuální aplikace MS Excel
b := ExcelCloseFromTemplates("Objednávka","",true,true,"_newdocument_",actualDocument)
End
</pre>

Zpět na stránku [[Prováděcí skripty]]
[[Category: MTB skripty]]

← Starší verze		Verze z 22. 12. 2020, 21:30
Řádek 67:		Řádek 67:

	Zpět na stránku [[Prováděcí skripty]]		Zpět na stránku [[Prováděcí skripty]]
−	[[Category: ~~MTB~~ skripty]]	+	[[Category: enTeam skripty]]

@@ Řádek 2: / Řádek 2: @@
 <h2>Princip generování dokumentů</h2>
-* V šablonách aplikace enTeam Workflow manager jsou uloženy šablony dokumentů, ze kterých skript vytváří skutečné soubory. V enTeam Workflow designer je možné zobrazit správu šablon v menu "Nástroje/Administrace/Vzory dokumentů".
+* V šablonách aplikace enTeam Workflow Manager jsou uloženy šablony dokumentů, ze kterých skript vytváří skutečné soubory. V enTeam Workflow Designer je možné zobrazit správu šablon v menu "Nástroje/Administrace/Vzory dokumentů".
 * Sice mluvíme o šablonách, ale jde přímo o finální dokumenty, které však musí splňovat určité předpoklady.
-* V případě souboru typu *.doc, případně *.docx jsou na místech, do kterých chceme uložit hodnoty proměnných workflow, zapsána klíčová slova, která následně skript nahrazuje za hodnoty zmíněných proměnných.
+* V případě souboru typu *.doc/*.docx jsou na místech, do kterých chceme uložit hodnoty proměnných workflow, zapsána klíčová slova, která následně skript nahrazuje za hodnoty zmíněných proměnných.
-* V případě souboru typu *.xls, případně *.xlsx předpokládáme, že skriptovací jazyk bude ukládat, nebo číst hodnoty z předem daných buněk
+* V případě souboru typu *.xls/*.xlsx předpokládáme, že skriptovací jazyk bude ukládat, nebo číst hodnoty z předem daných buněk
 <h2>Vytvoření předávacího protokolu typu MS Word ze šablony</h2>
 Ukázka šablony: [[Média:Predavaci_protokol.docx]]
 <pre>
-Script PredavaciProtokolTypuDOC (): Boolean
+declare procedure DocumentImportExt dll "ActualDocument" (string, string, string, string, string, pointer)
-Var sTempFile,sTempDir, s : String
+declare procedure ExportFromTemplatesExt dll "ActualDocument" (string, string, var integer, pointer)
-    i, iRC : Integer
+declare procedure FileDelete dll "ActualDocument" (string)
-Begin
+declare procedure GetTemp dll "ActualDocument" (string)
-   GetTemp(sTempDir)
+declare procedure WordClose dll "ActualDocument" (boolean)
-   sTempFile := sTempDir+ "\predavak.docx"
+declare procedure WordOpen dll "ActualDocument" (string)
-   ExportFromTemplatesExt("attachments\Protokoly\Předávací protokol.docx" ,sTempFile,i,actualDocument) //export šablony do dočasného souboru v adresáři temp
+declare procedure WordReplaceAll dll "ActualDocument" (string, string, var boolean)
-   WordOpen(sTempFile) //nevizuální otevření šablony
-   s := wkf.datum  //funkce WordReplaceAll očekává hodnotu typu String. Proto je nutné proměnné typu Date nejprve uložit do typu String a teprve následně volat funkci WordReplaceAll
+script PredavaciProtokolWord(): boolean
-   WordReplaceAll("enT_datum",s,iRC) //nahrazení klíčového slova v šabloně skutečnou hodnotou z proměnné
+var
-   s := actuser.firstname + " " + actuser.name //proměnná "s" bude obsahovat křestní jméno a příjmení aktuálně přihlášeného uživatele
+  TEMP: string
-   WordReplaceAll("enT_autor",s,iRC)
+  FileName: string
-   WordReplaceAll("enT_společnost",wkf.sml_zakaznik,iRC)
+  S: string
-   WordClose(true) //uzavření nevizuálně spuštěné aplikace MS Word s uložením změn
+  RC: integer
-   DocumentImportExt("doc","Předávací protokol",sTempFile ,"_newdocument_",s,actualdocument) //import nové přílohy do procesu
+begin
-   FileDelete(sTempFile) //smazání dočasného souboru v adresáři Temp
+   GetTemp(TEMP)
-   Result := True
+   FileName := TEMP + "\Protokol.docx"
-End
+   ExportFromTemplatesExt("attachments\Protokoly\Předávací protokol.docx", FileName, RC, actualdocument) // Export šablony do dočasného souboru v adresáři Temp
 </pre>
 <h2>Vyplnění šablony objednávky typu MS Excel</h2>
 <pre>
-Declare function ExcelOpenFromTemplates dll "actualDocument" (string,string,string,string,pointer):boolean
+declare function ExcelCloseFromTemplates dll "ActualDocument" (string, string, boolean, boolean, string, pointer): boolean
-Declare procedure ExcelWrite dll "actualDocument" (string,string,string)
+declare function ExcelOpenFromTemplates dll "ActualDocument" (string, string, string, string, pointer): boolean
-Declare function ExcelCloseFromTemplates dll "actualDocument" (string,string,Boolean,Boolean,string,pointer):boolean
+declare procedure ExcelWrite dll "ActualDocument" (string, string, string)
-Script ObjednavkaTypuXLSX (): Boolean
+script ObjednavkaTypuXLSX(): boolean
-Var sTempFile, s : String
+var
-    b : Boolean
+  FileName: string
-Begin
+begin
-   //následující příkaz v sobě kombinuje několik příkazů: nalezne adresář TEMP, exportuje šablonu a nevizuálně otevře MS Excel
+   // Následující příkaz v sobě kombinuje několik příkazů: nalezne adresář TEMP, exportuje šablonu a nevizuálně otevře MS Excel
-   ExcelOpenFromTemplates("Attachments\Objednavky\objednavka.xlsx","List1","",sTempDir,actualDocument)
+   ExcelOpenFromTemplates("Attachments\Objednavky\objednavka.xlsx", "List1", "", FileName, actualdocument)
-   ExcelWrite("b","2",wkf.firma)  //do buňky "b2" zapíše hodnotu z proměnné wkf.firma
+   ExcelWrite("B", "2", wkf.Firma) // Do buňky "b2" zapíše hodnotu z proměnné wkf.Firma
-   ExcelWrite("b","4",wkf.firma1D)
+   ExcelWrite("B", "4", wkf.Adresa)
-   ExcelWrite("b","7",wkf.popis1)
+   ExcelWrite("B", "7", wkf.Popis)
-   s := wkf.cena //proměnnou typu Currency uloží do proměnné typu String
+   ExcelWriteCurrency("C", "19", wkf.Cena)
-  ExcelWrite("c","19",s)
+   // Následující příkaz importuje šablonu jako novou přílohu procesu, smaže dočasný soubor a uzavře nevizuální aplikace MS Excel
-   //následující příkaz importuje šablonu jako novou přílohu procesu, smaže dočasný soubor a uzavře nevizuální aplikace MS Excel
+   result := ExcelCloseFromTemplates("Objednávka", "", true, true, "_newdocument_", actualdocument)
-   b := ExcelCloseFromTemplates("Objednávka","",true,true,"_newdocument_",actualDocument)
+end
 </pre>
 Zpět na stránku [[Prováděcí skripty]]
 [[Category: MTB skripty]]

← Starší verze	Verze z 4. 7. 2019, 21:14
(Žádný rozdíl)