Rozdíly

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

--- reports:openoffice [2010/09/22 10:22] – Petr Kristan
+++ reports:openoffice [2024/02/02 08:31] (aktuální) – [Makro na odstránkování podle textu v buňce] Libor Kadaník
@@ Řádek 1: / Řádek 1: @@
 ====== Výstupy do OpenOffice calc ======
+===== Převod šablon .stc na .ots =====
+**stc2ots.sh**
+<code>
+#!/bin/sh
+echo spustit v adresari s reporty
+for i in `find -name "*.stc"`; do unoconv -f ots $i; done
+for i in `find -name "*.stc"`; do git rm $i; done
+for i in `find -name "*.ots"`; do git add $i; done
+for i in `find -name "*_reports.xml"`; do perl -pi -e's/\.stc/.ots/' $i; done
+</code>
 ===== Vzorce pro počítání hodnot na jednotlivých řádcích =====
@@ Řádek 8: / Řádek 21: @@
 <code>=INDIRECT(CONCATENATE("F";CELL("ROW")))+INDIRECT(CONCATENATE("K";CELL("ROW")))</code>
+===== CRLF z SQL =====
+pro zalomení (viditelné v buňce) se musí vložit nezlomitelná mezera společně s CRLF
+<code> ... list(idskladkarta, ASCII_CHAR(160)||ASCII_CHAR(13)||ASCII_CHAR(10)) ... </code>
+===== Makro na odstránkování podle textu v buňce  =====
+Pokud se tiskne do OpenOffice calc více záznamů, které je třeba tisknout tak, aby hlavička každého zázamu začínala na samostatném listě, je možné použít následující makro. Pro každou šablonu je nutné specificky doupravit kde a co hledat (zalomení stránky se dá nad buňku, která obsahuje hledaný text) - v následujícím příkladu se na prvním listu v rozsahu J1:J3000 hledá text "Dodací list".
+Pro automatické spuštění po otevření dokumentu je nutné makro "navěsit" např. na akci **Otevřít dokument** (menu Nástroje -> Přizpůsobit -> Události). Pozor potom na úpravu šablony - při každém otevření se přidá ruční zalomení.
+<code freebasic>
+sub ZalomitStranku
+  dim document   as object
+  dim dispatcher as object
+  dim Sheet, CellRange, Descriptor, Found As Object
+  document   = ThisComponent.CurrentController.Frame
+  dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
+  Sheet = ThisComponent.getSheets().getByIndex(0) 'hledej na prvnim listu
+  CellRange=Sheet.getCellRangeByName("A1:A3000") 'hledej ve sloupci J
+  Descriptor=CellRange.createSearchDescriptor()
+  With Descriptor
+    .SearchCaseSensitive=False
+    .SearchString="KonecStranky"
+    .SearchType=1 'Search for values, not just formulas. This is an undocumented property
+    .SearchWords=True 'Search the whole cell, not just part of it
+  End With
+  Found=Sheet.findAll(Descriptor) 'najit vsechno podle .SearchString
+  dim args1(0) as new com.sun.star.beans.PropertyValue
+  If not ISNULL(Found) then
+    For i=0 to Found.Count-1
+      'MsgBox Found(i).AbsoluteName
+      args1(0).Name = "ToPoint"
+      args1(0).Value = Found(i).AbsoluteName
+      dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
+      dispatcher.executeDispatch(document, ".uno:InsertRowBreak", "", 0, Array())
+      dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0, Array()) 'smaz text v bunce
+    Next
+  EndIf
+  'skok zpatky na A1
+  args1(0).Name = "ToPoint"
+  args1(0).Value = "$A$1"
+  dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
+end sub
+</code>
+===== Makro na export do PDF  =====
+Makro si zjistí plnou cestu a název otevřeného souboru a do stejného adresáře pod stejným názvem uloží .pdf.
+Pro automatické spuštění po otevření dokumentu je nutné makro "navěsit" např. na akci **Otevřít dokument** (menu Nástroje -> Přizpůsobit -> Události) - vhodné pro tisk s pevně danou cestou k výstupnímu souboru (viz [[lua:tisk_pomoci_lua|Tisk pomocí LUA]]).
+<code freebasic>
+Sub SavePDF
+cFile = ThisComponent.URL
+cFile = Left(cFile, Len(cFile) - 4) + ".pdf"
+oDoc = StarDesktop.getCurrentComponent()
+oDoc.storeToURL( ConvertToURL( cFile ),_
+      Array( _
+         MakePropertyValue( "FilterName", "writer_pdf_Export" ) )
+End Sub
+Function MakePropertyValue( Optional cName As String, Optional uValue ) As com.sun.star.beans.PropertyValue
+   oPropertyValue = createUnoStruct( "com.sun.star.beans.PropertyValue" )
+   If Not IsMissing( cName ) Then
+      oPropertyValue.Name = cName
+   EndIf
+   If Not IsMissing( uValue ) Then
+      oPropertyValue.Value = uValue
+   EndIf
+   MakePropertyValue() = oPropertyValue
+End Function
+</code>
+===== Makro pro optimalni vysku vsech radku  =====
+<code freebasic>
+sub Main
+  doc = thisComponent
+  list = doc.sheets(0)
+  radky = list.rows
+  list.rows().OptimalHeight = True
+end sub
+</code>
 ====== Výstupy do OpenOffice writer ======
@@ Řádek 22: / Řádek 133: @@
 Fieldy jsou jako v html #FieldName#
+Vypnout náhrady uvozovek: "Nástroje|Automatické opravy|Vlastní uvozovky"
+====== Podepisování PDF elektronickým podpisem ======
+Podepsaný ODT soubor nelze uložit jako podepsané PDF. Pomocí Adobe Reader se dají podepisovat pouze PDF dokumenty, které byly při vytvoření speciálně označeny - běžné nelze. Je nutné použít např. [[http://jsignpdf.sourceforge.net/index.php?page=domu|JSignPdf]]. Postup viz. [[http://www.openoffice.cz/navody/jak-elektronicky-podepsat-pdf]].
+Lze také stáhnout [[http://extensions.services.openoffice.org/en/project/jsignpdf|extension do OpenOffice]]
+====== Úprava velkých repeated formátu OpenOffice - zaseknutí tisku ======
+Moznosti|LibreOffice|Expertni nastaveni:
+org.openoffice.Office.Common.Save.Document.PrettyPrinting = true
+<code bash>
+unzip system/reports/ucto/prehledvysledku.stc -d /tmp/ content.xml
+grep repeated /tmp/content.xml
+vim /tmp/content.xml
+zip -u -j system/reports/ucto/prehledvysledku.stc /tmp/content.xml
+</code>
+====== Formátovaní čísla na výstupu ======
+Do buňky napsat **#@return {NumberFormat=DSI:GetMenaJazykDatum().Format, Value=DSI:FieldByName("cena"), BrushColor=...., FontColor=...., FontStyle=....}**
+====== Zobrazení po tisku v excelu ======
+Nedrží okraje + zápatí se překrývá s tiskem.
+Řešení: ve formátu stránky - **Zápatí** zaškrtnout volbu **Automatická úprava výšky**