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

Z enTeam
Skočit na navigaci Skočit na vyhledávání
Řádek 4: Řádek 4:
  
 
<pre>
 
<pre>
declare procedure MessageDialog Dll "actualDocument" (string,string)
+
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
+
script SchvaleniFaktury(): boolean
     if wkf.jakDal = "adresar" then
+
begin
       //načtení adresy z externího adresáře
+
  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
 
     end
   
 
  
     //blok akcí při ukončování kroku
+
     // Blok akcí v rámci kroku
     if wkf.jakDal = "schvalit" then
+
    if wkf.JakDal = "adresar" then
       Document.NewNote ("Fakturu schvaluji")  //zapíše text do těla procesu
+
      // Načtení adresy z externího adresáře
       Result := True
+
    end
     End
+
 
     if wkf.jakDal = "neschvalit" then  
+
    // Blok akcí při ukončování kroku
       document.NewNote ("Fakturu neschvaluji")  
+
     if wkf.JakDal = "schvalit" then
       Result := True
+
       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
 
     end
     if wkf.jakDal = "zavrit" then
+
     if wkf.JakDal = "zrusit" then
      Result := True
+
       result := false
    End
 
    if wkf.jakDal = "zrusit" then  
 
       Result := False
 
 
     end
 
     end
   end //while end
+
   end //End of while
 
end
 
end
 
</pre>
 
</pre>

Verze z 14. 8. 2020, 08:43

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