Komplexní prováděcí skripty: Porovnání verzí

Z enTeam
Skočit na navigaci Skočit na vyhledávání
 
Řádek 45: Řádek 45:
  
 
Zpět na stránku [[Prováděcí skripty]]
 
Zpět na stránku [[Prováděcí skripty]]
[[Category: MTB skripty]]
+
[[Category: enTeam skripty]]

Aktuální verze z 22. 12. 2020, 21:29

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 standardních funkcí a nápovědu k nim naleznete na stránce http://funkce.enteam.cz/. 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. 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 //End of while
end


Zpět na stránku Prováděcí skripty