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

Z enTeam
Skočit na navigaci Skočit na vyhledávání
en>Kadel
m
 
 
(Nejsou zobrazeny 3 mezilehlé verze od stejného uživatele.)
Řádek 1: Řádek 1:
 
<h2>Obecná ukázka stavby skriptu</h2>
 
<h2>Obecná ukázka stavby skriptu</h2>
−
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".
+
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 a pokud některá z položek není nastavena správně, je maska znovu zobrazena.
+
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.
  
 
<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>
Řá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

Citováno z „https://wiki.enteam.cz/index.php?title=Komplexní_prováděcí_skripty&oldid=673“