Komplexní prováděcí skripty

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