Rozdíly

Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.

--- lua:eventy [2010/08/18 12:20] – Karel Petrů
+++ lua:eventy [2022/06/13 13:38] (aktuální) – [AfterPasteClipboard] Karel Petrů
@@ Řádek 45: / Řádek 45: @@
   * [[#UserDefined]]
   * [[#ShowLookupField]]
+  * [[#AfterPasteClipboard]]
+  * [[#AfterCopyDetails]]
 ===== Popis =====
@@ Řádek 217: / Řádek 219: @@
 ==== ChangeFieldValue ====
-Event se zavola pri opusteni dane bunky nebo pri ENTERu, NEZALEZI na tom zda se hodnota skutecne zmenila nebo ne, ale na tom, ze v ni uzivatel neco editoval.
+Event se zavola pri opusteni dane bunky nebo pri ENTERu v případě, že došlo ke změně zadaného fieldu.
-Databáze je v editu nebo insertu. Hodnota OldFieldByName obsahuje to co bylo v bunce pred Editem radku. Event se vola i hned po SetFieldByName a take napr. pokud se pres ... otevre lookup tabulka a potvrdi STEJNA hodnota zelenou fajfkou.
+Databáze je v editu nebo insertu.
 <code LUA>
@@ Řádek 257: / Řádek 259: @@
 </code>
 === Barva fontů ===
+    * viz. Colors.Show() resp. v LuaConsole menu
 {{:lua:ukazka_barev_fontu.png|Ukázka barev fontů}}
@@ Řádek 348: / Řádek 352: @@
   srcMD:Free()
+end
+</code>
+==== SetFilter ====
+Registruje se k pouze k DSI a volá se pro všechny Middle, kde se tabulka vyskytuje. Funkce dostává DSI, MDName a vrací wherestring, který se připojuje pomocí and k stávajícímu filtru.
+<code lua>
+ClientSession:AddLUAEvent("sklad_karty.SetFilter", "v_sklad_karty.SetFilter")
+function v_sklad_karty.SetFilterUser(DSI, MDName)
+  --umozni zobrazeni karet z druhu "adm" pouze Adminum
+  if not ClientSession:ISLoggedAdmin() then
+    return [[COALESCE(IDDruh,'') != 'adm']]
+  end
+end
+</code>
+==== AfterPasteClipboard ====
+Volá se na konci kopírovaní CTRL+V, záznam je postnutý. Pokud se kopíruje více záznamů volá se jen jednou na konci, DSI na je posledním kopírovaném.
+<code LUA>
+ClientSession:AddLUAEvent("rozpocty.rozpocty_rozpocty.AfterPasteClipboard", "rozpocty_rozpocty.AfterPasteClipboard")
+function rozpocty_rozpocty.AfterPasteClipboard(DSI)
+  if DSI:OwnerMiddleDB():FindDataSetItem("rozpocty_rkap"):GetState()==STATE_BROWSE then
+    DSI:OwnerMiddleDB():FindDataSetItem("rozpocty_rkap"):Refresh() --refresh kap. aby se doplnily OnCalc fiedly, ktere se pri kopirovani nepocitaji
+  end
+end
+</code>
+==== AfterCopyDetails ====
+Volá se po zkopírovaní všech slave tabulek, pro každý jednotlivý RootDSI záznam, RootDSI je postnuté.
+<code LUA>
+ClientSession:AddLUAEvent("ROZPOCTY.rozpocty_rozpocty.AfterCopyDetails","rozpocty_rozpocty.AfterCopyDetails")
+function rozpocty_rozpocty.AfterCopyDetails(DSI)
+  print("AfterCopyDetails",  DSI:FieldByName("IDRozp"), DSI:GetState())
 end
 </code>
@@ Řádek 379: / Řádek 422: @@
 ==== BeforeActivate ====
+ * není žádný parametr funkce
 ==== AfterActivate ====
@@ Řádek 446: / Řádek 491: @@
 Volá se při zavření okna. Vrati-li funkce false, okno nebude zavřeno.
-Volání: function_name(Form, DSI)
+Volání: function_name(Form, DSI, Button)
+Button = [MR_OK|MR_CANCEL]
+==== CanShow ====
+  * ClientSession:AddLUAEvent("form_name.CanShow", FuncName)
+  * FuncName(Form, DSI) return ErrMsg:string|nil
+<code LUA>
+ClientSession:AddLUAEvent("partneri_partneri.CanShow", "partneri_partneri.CanShow")
+function partneri_partneri.CanShow(Form, DSI)
+  Form:MergeLocalMenuFromXML(Form:GetMiddleDB():FindDataSetItem(""), partneri_partneri.GetRychleAkceXMLMenu("partneri_partneri_RychleAkceClick", "RychleAkce"))
+end
+ClientSession:AddLUAEvent("SKUPINY.CanShow", "common_skupiny.SkupinyCanShow")
+function common_skupiny.SkupinyCanShow(Form, DSI)
+  if not ClientSession:IsLoggedAdmin() then
+    return enc"K tomuto modulu má přístup pouze administrátor"
+  end
+end
+</code>
+===== Ukazka spousteni registrovanych eventu v LUA =====
+<code lua>
+local MD=ClientSession:ActivateMid("Faktury")
+local DSI=MD:FindDataSetItem("")
+DSI:LocateRange("","")
+for Event, Val in pairs(DSI:GetInfo("none").Events) do
+  if string.find(Event, "%.PrintRow$") then
+    for i, v in ipairs(Val) do
+      print(assert(loadstring(string.format("return %s(...)", v.Function)))(DSI))
+    end
+  end
+end
+</code>