Rozdíly

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

--- lua:tisk_pomoci_lua [2025/05/23 12:54] – [Command Band] Karel Petrů
+++ lua:tisk_pomoci_lua [2026/01/22 08:25] (aktuální) – [Vložení LUA bandu do existujícího reportu] Libor Kadaník
@@ Řádek 166: / Řádek 166: @@
 \\
+==== RawPrint ====
+<code lua>
+LuaForm.Func.v_sklad_objed_reports_PrintPalety = {
+  function(Data)
+    return LuaForm.StartNotify("Tisk palety")
+  end,
+  function(Data)
+    local Options = {Report = Data.FirstParams.ReportName, Print = Data.FirstParams.Action}
+    Data.FileName = Functions.GetTempDir().."stitek.txt"
+    local Config = {output = Data.FileName, output_type = Data.FirstParams.OutputType, document_name = Data.FirstParams.Name,
+      luaprint="LuaForm.RawPrintFile(FileName, OutputType==PRINT_PRINT)"}
+    return LuaForm.StartPrintReport(Options, Config)
+  end,
+  function(Data)
+    local md = Data.DSI:OwnerMiddleDB()
+    local hlDS = md:FindDataSetItem("")
+    local polDS = md:FindDataSetItem("sklad_objpol")
+    local palDS = md:FindDataSetItem("objed_sektory")
+    local tID = Data.Form:GetSelectedRows(Data.DSI) --oznacene objednavky, pokud tisk z polozek pak je to jen ta jedna
+    local tOzn = Data.Form:GetSelectedRows()
+    --print(tID, tOzn)
+    local tPal, tPol = nil, nil
+    if #cf.spliti("|", tOzn[1])==4 then --oznacene palety
+      tPal = tOzn
+    elseif #cf.spliti("|", tOzn[1])==3 then --oznacene polozky objednavky (karty)
+      tPol = tOzn
+    end
+    cf.WalkRecords(hlDS, "idrezerv", tID, function(DSI, ID, ntf)
+      polDS:SetRangeDetail()
+      cf.WalkRecords(polDS, "IDRezerv;ID;IDSkladKarta", tPol, function(DSI, ID, ntf)
+        palDS:SetRangeDetail()
+        cf.WalkRecords(palDS, "IDRezerv;ID;IDSkladKarta;IDSektor", tPal, function(DSI, ID, ntf)
+          Data.Report:BandDSAndByNames("body_sklad_sektory", palDS, {PopisKarty=polDS:FieldByName("popis")})
+        end, Data.Notify)
+      end, Data.Notify)
+    end, Data.Notify)
+    return LuaForm.EndPrintReport()
+  end,
+  function(Data)
+    return LuaForm.EndNotify("Objednav", "PrnPol")
+  end,
+}
+</code>
 ==== Vložení LUA bandu do existujícího reportu ====