Komplexní prováděcí skripty: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
en>Kadel m |
m (naimportována 1 revize) |
(Žádný rozdíl)
|
Verze z 4. 7. 2019, 21:14
Obecná ukázka stavby skriptu
Většina skriptů využívá kromě základních příkazů skriptovacího jazyka také funkce z rozšiřujících knihoven. Většina funkcí je pak uložena v knihovně ActualDocument.dll, ale zákazník si může napsat knihovny svoje. V následujícím příkladu je uvedena deklarace procedury z externí knihovny. Seznam procedur a funkcí knihovny ActualDocument.dll naleznete v helpu, který je uložen v adresáři aplikace M/TeamBridge ve složce "Manuals". Ve skriptu je dále ukázána možnost opakovaného volání masky s tím, že po uzavření masky je provedena validace a pokud některá z položek není nastavena správně, je maska znovu zobrazena.
declare procedure MessageDialog Dll "actualDocument" (string,string) Script SchvaleniFaktury (): Boolean begin wkf.jakDal := "maska" while wkf.jakDal = "maska" do wkf.jakDal := "zrusit" idx("SchvaleniFaktury") //zobrazení masky //blok podmínek if wkf.jakDal = "neschvalit" and wkf.poznamka = "" then MessageDialog("V případě neschválení dopište poznámku.","w") wkf.jakDal := "maska" End //blok akcí v rámci kroku if wkf.jakDal = "adresar" then //načtení adresy z externího adresáře end //blok akcí při ukončování kroku if wkf.jakDal = "schvalit" then Document.NewNote ("Fakturu schvaluji") //zapíše text do těla procesu Result := True End if wkf.jakDal = "neschvalit" then document.NewNote ("Fakturu neschvaluji") Result := True end if wkf.jakDal = "zavrit" then Result := True End if wkf.jakDal = "zrusit" then Result := False end end //while end end
Zpět na stránku Prováděcí skripty