Rozdíly

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

--- lua:eventy [2015/02/25 10:50] – [ChangeFieldValue] Libor Kadaník
+++ lua:eventy [2022/06/13 13:38] (aktuální) – [AfterPasteClipboard] Karel Petrů
@@ Řádek 45: / Řádek 45: @@
   * [[#UserDefined]]
   * [[#ShowLookupField]]
+  * [[#AfterPasteClipboard]]
+  * [[#AfterCopyDetails]]
 ===== Popis =====
@@ Řádek 257: / Řádek 259: @@
 </code>
 === Barva fontů ===
+    * viz. Colors.Show() resp. v LuaConsole menu
 {{:lua:ukazka_barev_fontu.png|Ukázka barev fontů}}
@@ Řádek 364: / Řádek 368: @@
 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 394: / Řádek 422: @@
 ==== BeforeActivate ====
+ * není žádný parametr funkce
 ==== AfterActivate ====
@@ Řádek 461: / Řá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 =====