Rozdíly

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

--- lua:tisk_pomoci_lua [2023/05/25 11:34] – [Ukázka tisku vizuálního:] 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 ====
@@ Řádek 222: / Řádek 268: @@
   * V excelu a openoffice se napíše kouzelné slovíčko **commandband** do 1. řádku a posledního + 3 sloupce daného bandu.
   * V html se prostě mezi značky nic nevloží. ''<BAND>#@...#</BAND>''
+==== Přímý tisk z OBIS na Windows tiskárnu ====
+<code LUA>
+print(LuaForm.RawPrintFile([[c:\0\test.pdf]], {Driver="system", Params={Name=[[ECOSYS P6030cdn]]}}, "application/pdf"))
+</code>