Rozdíly

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

--- lua:tisk_pomoci_lua [2022/06/30 07:58] – [Doplnění LUA reportů o správné ukládání při SaveDocument] Libor Kadaník
+++ lua:tisk_pomoci_lua [2026/01/22 08:25] (aktuální) – [Vložení LUA bandu do existujícího reportu] Libor Kadaník
@@ Řádek 1: / Řádek 1: @@
 ==== Doplnění LUA reportů o správné ukládání při SaveDocument ====
-  * Name - jméno reportu, je použito v názvu souboru: [ID-]Name-IDDokument.ext
-  * v reports.xml doplnit volaní LUA funkce o parametr Name (..., Use, Name)
-  * volanou Lua funkci doplnit o parametr Name
-  * ve volání Print doplnit třetí parametr hash: {document_name=Name}
   * MiddleName je použit jako podadresář v reports (report/MiddleName/)
@@ Řádek 11: / Řádek 6: @@
   * pokud se tiskne z Query a chceme dokument ukládat k danému rozpočtu, musí byt v prvním Query field //TypDokl=R// a v printu **NESMÍ** být //GotoNextPage=false//
-=== Pokud potřebuji ID a tiskne se z SQL je první field v SQL (ID) ===
-Do typu reportu napsat: ''@cf.trydofile(VLUADIR().."zakazky/v_zakazky_zakazky-reports.lua") v_zakazky_zakazky.reports.PracVykaz(DSI, Form, Action, ReportName, Use, Name)''
-Pro doplneni //TypDokl// a //Cisla dokladu// do dokumentu je potreba v SQL mit field //TypDokl// a mit nastaven primarni index nebo //DataModelName//. CDokladu do dokumentu si to bere pres DSI:GetPrimaryIndex. Tzn. musí být nadefinován **DataModel** s **RequredIndexes**
-DSI z SQL musi být před tiskem otevřené !!!
-<code lua>
-function v_zakazky_zakazky.reports.PracVykaz(DSI, Form, Action, ReportName, Use, Name)
-  local TiskMD=v_prost_vykony.ZakazkaVykazMiddle(DSI:FieldByName("IDZakaz"))
-  if TiskMD then
-    TiskMD:FindDataSetItem(""):SetOptions({FetchAllBlobs=true}, true) --nutne protoze se zapisuje do syslogu a je jina transakce
-    TiskMD:FindDataSetItem(""):LocateRange("","") --DS musi byt otevrene kvuli primarnimu indexu
-    WindowsManager:Print(TiskMD, {GotoNextPage=true, SetRangeDetail=true, Recalculate=false, Report=ReportName, Print=Action}, {document_name=Name})
-    TiskMD:Free()
-  end
-end
---ponovu
-return LuaForm.PrintReport(Data.TiskMD, {GotoNextPage=true, Report=ReportName, Print=Data.Params.Action},
-    {document_name=Data.Params.Name, output_type=Data.Params.OutputType, Caption=Caption, StatOverride=Data.Params.StatOverride,
-      AfterSaveLuaHookFunc="v_sklad_prijemky.reports.ConvertToPdf"}, nil, Data.Params.Use)
-</code>
 === pokud je použit GotoNextPage=false, ale v dialogu výběru dat pro tisk je vybrána zakázka nebo partner doplnit po Print odpovídající pole v dokumentu ===
 <code lua>
+  --pro specielni pripady ze je dialogu vybran konktretni partner nebo zakazka a dokument pak chci s nim spojit (napr. seznam faktur)
   if res.idpartner ~= "" and Action==PRINT_DOCUMENT and dokumenty_dokumenty.LastIDDokument then
     local MD=ClientSession:ActivateMid("DOKUMENTY")
@@ Řádek 55: / Řádek 25: @@
 </code>
-=== Pro tisk metodou CreatePrint-CreateReport-StartPrint ===
-Pro doplneni //TypDokl// a //Cisla dokladu// do dokumentu je potreba ve **BeforeSaveToDocumentDir(DSI, ID...)** mit parametry **DSI** a **ID**.
-Z DSI se bere //TypDokl// a //CDokladu// pres //DSI:GetPrimaryIndex//. //ID// urcuje, zda je report seznam **ID=""** nebo neni **ID~=""**.
-<code lua>
-  local prnt=WindowsManager:CreatePrint()
-  local report=prnt:CreateReport(ReportName)
-  local FileName
-  local Options = {Report=ReportName, Print=Action, Caption=enc"Popis dokumentu", Poznamka="Poznamka dokumentu"}
-  if Action==PRINT_DOCUMENT then
-    if ID ~= "" then Name=ID.."-"..Name end
-    FileName=dokumenty_dokumenty.BeforeSaveToDocumentDir(DSI, ID, dokumenty_dokumenty.GetDocumentFileName("middle_name", ReportName, Name, DSI), Options)
-  end
-  prnt:StartReport(Action, {output=FileName})
-  ...
-  prnt:PrintReport()
-  report:Free()
-  prnt:Free()
-  if Action==PRINT_DOCUMENT then
-    dokumenty_dokumenty.AfterSaveToDocumentDir(nil, "", FileName, Options)
-  end
-</code>
 ====Ukázka tisku vizuálního:====
@@ Řádek 93: / Řádek 36: @@
 Pomocí output lze nastavit jméno výstupního souboru (má přednost před nastavením v <CONFIG> sekci pro HTML).
-Preferovaný způsob fungujívcí v mobisu.
-<code lua>
+====Ukázka nevizuálního tisku middle:====
-  function(Data)
+Vytiskne do souboru "/tmp/out.pdf" řádky "R0015267", "RZ00005" z middle MD
-    ...
+Middle musí být otevřené a vybrané řádky musí být "dohledatelné".
-    local Options = {Report = Data.FirstParams.ReportName, Print = Data.FirstParams.Action}
-    local Config = {output_type = Data.FirstParams.OutputType, document_name = Data.FirstParams.Name}
-    return LuaForm.PrintReport(Middle, Options, Config, [Form, Use])
-   end,
-</code>
 <code lua>
-mid=ClientSession:ActivateMid("majetek_majetek")
+ClientSession:Print(MD, {Report=REPORTSDIR().."rozpocty/rozp.rep", Print=PRINT_FILE}, {output="/tmp/out.pdf"}, {"R0015267", "RZ00005"}, WR_USE_SELECTED)
-mid:FindDataSetItem(""):LocateRange("idmajetek", "M0605091")
-WindowsManager:Print(mid, {Typ=1, Report=REPORTSDIR()..'majetek/vypis.rep', Print=PRINT_FILE}, {output=USERDIR().."M0605091.rep"})
-ClientSession:Passivate(mid)
 </code>
-Tisk přímo z tiskového dialogu. Umožňuje tisknout označené/všechny řádky dle volby uživatele.
+====Ukázka tisku vizuálního:====
-Výsledek se uloží do souboru pojmenovaném dle sloupce IDMajetek.
+-pokud potřebuji **ID** a tiskne se z **SQL** je potřeba nastavit **primarni index root DSI**. GotoNextPage urcuje, zda je report seznam ID="" nebo neni ID~="" \\
+-pro doplneni **TypDokl** a **Cisla dokladu** do dokumentu je potreba v SQL mit field TypDokl a mit nastaven **primarni index** nebo **DataModelName** (potreba pro BeforeSaveToDocumentDir)\\
+-**CDokladu** do dokumentu si to bere pres **DSI:GetPrimaryIndex**. Tzn. musí být nadefinován **DataModel** s **RequredIndexes**\\
+-//<Middle Name="MiddleName">// pro podadresář v reports (report/MiddleName/)\\
+-pokud neni DSI z SQL **otevřené** otevře se automaticky v cf.LuaFormPrintReport
 <code lua>
-WindowsManager:Print(DSI:OwnerMiddleDB(), {Report=REPORTSDIR()..'majetek/vypis.rep', Print=PRINT_FILE},
+  local query = enc[[
-  {output=USERDIR()..DSI:FieldByName("IDMajetek")..".csv"}, Form, Use)
+  <Middle Name="POHYBY_TAB">
+    <DataModel>
+      <Table Name="a">
+        <RequredIndexes>
+IDPRIJEMKA-P
+        </RequredIndexes>
+      </Table>
+    </DataModel>
+    <QueryItem Name="" DataModelName="a"><SQL><![CDATA[
+    select p.idprijemka, 'P' as typdokl
+    ...
+    Data.TiskMD=ClientSession:CreateMidFromXML(query)
+    local ds=Data.TiskMD:FindDataSetItem("")
+    ds:LocateRange("", "")
+    ...
 </code>
-Uložení reportu do dokumentu
+\\
+=== Základní metoda tisku PrintReport (WindowsManager:Print) ===
 <code lua>
-WindowsManager:Print(DSI:OwnerMiddleDB(), {Report=REPORTSDIR()..'majetek/vypis.rep', Print=PRINT_FILE},
+LuaForm.Func.v_zakazky_zakazky_reports_PrintZakpol={
-  {document_name = Name}, Form, Use)
+  function(Data)
-</code>
+    Data.PrintMid = v_zakazky_zakazky.reports.PrintZakpol(Data.DSI, Data.Form)
-====Ukázka nevizuálního tisku middle:====
+    return cf.LuaFormPrintReport(Data, Data.PrintMid, {GotoNextPage=true, SetRangeDetail=false, Recalculate=false})
-Vytiskne do souboru "m:/tmp/out.sxc" řádky "R0015267", "RZ00005" z middle MD
+  end,
-Middle musí být otevřené a vybrané řádky musí být "dohledatelné".
+  finally=function(Data)
+    if Data.PrintMid then Data.PrintMid:Free() end
+  end
+}
+function v_zakazky_zakazky.reports.PrintZakpol(DSI, Form)
+  local idzakaz=DSI:FieldByName("idzakaz")
+  local polDS = DSI:OwnerMiddleDB():FindDataSetItem("zakazky_zakpol")
+  polDS:SetRangeDetail()
+  local tIDZakpol = Form:GetSelectedRows(polDS)
+  local tisk=[[
+  <Middle Name="ZAKAZKY">
+    <DataModel>
+      <Table Name="zakazky_zakpol">
+        <Field Name="idpartner" Type="String"/>
+        <Field Name="popiszak" Type="String"/>
+      </Table>
+    </DataModel>
+    <QueryItem Name="lua_zakpol" DataModelName="zakazky_zakpol"><SQL>
+        select z.idzakaz, z.idpartner, zp.*, z.popis as popiszak
+        from zakazky_zakpol zp
+        JOIN zakazky_zakazky z ON z.idzakaz = zp.idzakaz
+        where ]]..cf.ConstructWhereFromString("idzakaz;idzakpol", tIDZakpol, "zp")..[[
+      </SQL>
+    </QueryItem>
+  </Middle>
+  ]]
+  if DEBUG_DETAIL then DEBUG_WRITE({mid=tisk}) end
+  local TiskMD=ClientSession:CreateMidFromXML(tisk)
+  if DEBUG_DETAIL and not DEBUG_NOVISIBLE then
+    local form=WindowsManager:CreateDetailMidDBForm(TiskMD)
+    local outSP=WindowsManager:ShowFormSP(form, {Modal=true})
+    form=form:Free()
+    if outSP.MRCode==2 then TiskMD=TiskMD:Free() return end
+  end
+  --pro save dokument musi byt otevrene DSI
+  local ds = TiskMD:FindDataSetItem("")
+  ds:LocateRange("", "")
+  return TiskMD
+end
-<code lua>
-ClientSession:Print(MD, {Report=REPORTSDIR().."rozpocty/rozp.stc"}, {output="m:/tmp/out.sxc"}, {"R0015267", "RZ00005"}, WR_USE_SELECTED)
-</code>
-====Ukázka tisku nevizuálního:====
-<code lua>
-mid=ClientSession:ActivateMid("majetek_majetek")
-mid:FindDataSetItem(""):LocateRange("idmajetek", "M0605091")
-print=ClientSession:CreatePrint()
-report=print:CreateReport(REPORTSDIR()..'majetek/vypis.rep')
-print:StartReport(PRINT_FILE, {output=USERDIR().."report-output"})
-mid:PrintPrepareReport(report)
-print:PrintReport()
-report:Free()
-print:Free()
-ClientSession:Passivate(mid)
 </code>
-====Ukázka tisku vizuálního:====
+=== Metoda tisku Start/EndPrintReport pokud nelze použít jednodušší PrintReport ===
-Preferovaný způsob fungující v mobisu:
 <code lua>
+LuaForm.Func.v_rozpocty_rozpocty_reports_Specifikace={
   function(Data)
-    ...
+    return cf.LuaFormStartPrintReport(Data, {GotoNextPage=(#Data.Form:GetSelectedRows()==1)})
-    Data.Options = {Report = Data.FirstParams.ReportName, Print = Data.FirstParams.Action, Caption=enc"Specifikace souhrn"}
-    local ID = ""
-    --pokudse tiskne jeden rozpocet, muze se do dokumentu doplnit odkaz na rozpocet
-    if #Data.Form:GetSelectedRows()==1 then ID=Data.DSI:FieldByName("idrozp") end
-    if Data.FirstParams.Action==PRINT_DOCUMENT then
-      Data.FileName=dokumenty_dokumenty.BeforeSaveToDocumentDir(Data.DSI, ID, dokumenty_dokumenty.GetDocumentFileName("rozpocty",
-        Data.FirstParams.ReportName, Data.FirstParams.Name, Data.DSI), Data.Options)
-    end
-    local Config = {output = Data.FileName, output_type = Data.FirstParams.OutputType, document_name = Data.FirstParams.Name}
-    return LuaForm.StartPrintReport(Options, Config)
   end,
   function(Data)
-    Data.Report:BandDSAndByNames("body_druhy", Data.DSI, {"field"="Value"})
     ...
-    if Data.FirstParams.Action==PRINT_DOCUMENT then
+    return LuaForm.CallFunc("WalkRecordsVisual", nil, Data.DSI, Data.Form, {WR_USE_SELECTED, function(DSI, ID, ntf)
-      dokumenty_dokumenty.AfterSaveToDocumentDir(nil, "", Data.FileName, Data.Options)
+      v_rozpocty_rozpocty.reports.TiskKapitol(Data.DSI, Data.Form, Data.Report, GroupPolozky)
-    end
+    end, "Tisk zakazek", "PrCarKod"})
-    return LuaForm.EndPrintReport()
+  end,
-  end
+  function(Data)
-</code>
+    ...
+    return cf.LuaFormEndPrintReport(Data)
+  end,
+}
+function v_rozpocty_rozpocty.reports.TiskKapitol(DSI, Form, Report, GroupPolozky)
+  ...
+      if GroupPolozky then
+        local md = v_rozpocty_rozpocty.reports.GetMiddlelGroupPolozky(kapDS:FieldByName("idrozp"), kapDS:FieldByName("idkap"))
+        md:PrintPrepareReport(Report, {GotoNextPage=false, SetRangeDetail=false, Recalculate=false})
+        if md then md=md:Free() end
+      else
+        ...
+        Report:BandDSAndByNames("body_rpolozky", rpDS, {})
+        ...
+      end
+      Report:BandDSAndByNames("afterdetail_rkap", kapDS, {})
-<code lua>
-function Tisk(DSI, Form, Action, ReportName, Use)
- local prnt=WindowsManager:CreatePrint()
- local report=prnt:CreateReport(ReportName)
- local FileName
- if Action==PRINT_DOCUMENT then
-   FileName=dokumenty_dokumenty.BeforeSaveToDocumentDir(nil, "", dokumenty_dokumenty.GetDocumentFileName("MiddleName", ReportName, Name, DSI), {})
- end
- prnt:StartReport(Action, {oput=FileName, document_name=Name})
- report:BandDSAndByNames("body_druhy", DSI, {"field"="Value"})
- prnt:PrintReport()
- report:Free()
- prnt:Free()
- if Action==PRINT_DOCUMENT then
-   dokumenty_dokumenty.AfterSaveToDocumentDir(nil, "", FileName, {})
- end
 end
 </code>
-**Konkrétní příklad**
+\\
+==== RawPrint ====
 <code lua>
-LuaForm.Func.v_faktury_faktury_reports_PrehledFakturZakPol={
+LuaForm.Func.v_sklad_objed_reports_PrintPalety = {
   function(Data)
-    return LuaForm.ShowDlg({
+    return LuaForm.StartNotify("Tisk palety")
-      Caption=enc"Přehled faktur s vybranou zakpol",
-      Items={
-        {"idfdruh", "luaform", enc"Druh dokladů", "MultiSelectLookup", nil, nil, nil, {ArgumentStr="faktury_fdruh:idfddruh"}},
-        {"datum", "calbetweentime", enc"Datum vystavení od|Datum vystavení do", "From|To" },
-        {"idzakpol", "lookup", enc"Zakázková položka", "zakazky_czakpol:idzakpol"},
-      }
-    })
   end,
   function(Data)
-    if Data.Params.Result == DLG_CANCEL then return end
     local Options = {Report = Data.FirstParams.ReportName, Print = Data.FirstParams.Action}
-    local Config = {output_type = Data.FirstParams.OutputType, document_name = Data.FirstParams.Name}
+    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)
-    Data.PrintMid = v_faktury_faktury.reports.PrehledFakturZakPol(Data.Params, Data.DSI, Data.Form, Data.FirstParams.Action, Data.FirstParams.ReportName, Data.FirstParams.Use)
+    local md = Data.DSI:OwnerMiddleDB()
-    return cf.LuaFormPrintReport(Data, Data.PrintMid)
+    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,
-  finally=function(Data)
-    if Data.PrintMid then Data.PrintMid:Free() end
-  end
 }
-function v_faktury_faktury.reports.PrehledFakturZakPol(res, DSI, Form, Action, ReportName, Use)
-...
-...
-  return md, {GotoNextPage=false, SetRangeDetail=false, Recalculate=false, Report=ReportName, Print=Action}
-end
 </code>
 ==== Vložení LUA bandu do existujícího reportu ====
@@ Řádek 279: / Řá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>