OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

Už si to začínám pomalu představovat, že by to šlo jako funkce. Nicméně já bych rád text zarovnával do bloku, takže odřádkování musí být skutečně pouze nový řádek, nikoli nový odstavec (jako ve Writeru Shift+Enter), což je asi znak char(13) = CR, ale zkoušim to a funguje to stejně jako char(10) = LF, takže se obávám že calc tohle prostě vůbec nebude umět.

EDIT: tak jsem myslel že by se to ještě dalo obejít přes nezalomitelné mezery char(255), ale to je v calcu taky nefunkční ... Nějak funguje jakýsi char(160), jenže to je stejně blbost, protože to se zase neumí roztáhnut tak jako normální mezera char(32), takže v bloku dělají pevné mezery ještě horší paseku

EDIT: myslím že vytvořit v Calcu pevný text v bloku v podstatě nelze, nicméně zjistil jsem že v tiskovém náhledu to je pořád stejný a stabilní, takže v případě takové polosazečské práce, jak jsem teď dělal, s větším množstvím textu, je zapotřebí čumět často do tiskového náhledu a nespoléhat se na aktuální zobrazení listu.

to neutr - zajímavé, to mě fakt nenapadlo. Musí to mít tedy i reciproční funkci - tedy vymazat zadaná tvrdá zalomení, aby to šlo editovat. A při novém spuštění nejdříve vymazat stávající zalomení a udělat nová. Každopádně pokud byste něco měl na skladě maker, tak bych to bral, sám nevím úplně jak bych na to šel.

... jinak tedy z M-bank mi chodí platby provedené přes QR kód úplně běžně (desítky měsíčně), takže chyba bude nějaká dost specifická. Ale moje platby jsou v CZK a neuvádím splatnost, ani parametr RN ani X-KS (jeden z těchto čtyř parametrů nebo jejich kombinace bude asi pro aplikaci m-bank nějak problematická). Obecně to ale máte určitě správně a samotný obecný generátor QR kódu, už s tím nic nenadělá. Já jsem přešel na ofline řešení z důvodu nespolehlivosti online free systémů - to musí člověk furt hlídat, zda to ještě funguje, nebo je to pomalé a nebo jr potřeba si zaplatit.

ještě zkuste odmazat hvězdičku na konci

SPD*1.0*ACC:SK9183300000002702561821+FIOZSKBAXXX*AM:120.50*CC:EUR*RN:LUGESA PLUS*DT:20241030*X-VS:202410036*X-KS:308

dokumentace k QR oplatbě je zde: https://qr-platba.cz/pro-vyvojare/specifikace-formatu/
Já používám pouze základní parametry a IBAN pouze v základní formě. Neplatný kód mi lidi hlásili jen když jsem neměl dobře ošetřené zakázané znaky ve zprávě, jinak to vždy funguje. Ale nevím jak je to se zahraničními platbami, zda tam není potřeba něco navíc. Každopádně žádné kódování není potřeba, základní texttový řetězec je tak jak jste ho napsal SPD*1.0 .. atd. to je obsahem QR kódu, není potřeba žádné šifrování.

Používám makro pro generování platebního QR kódu na faktury za použití externího programu SimpleCodeGenerator. Pokud potřebujete generovat QR kód v cyklu tak Vám mohu toto poskytnout. Jednorázově je asi lepší použít vestavěný nástroj (možná to jde i makrem v cyklu - nevím). Vygenerovaný obrázek je pak potřeba umístit pomocí "com.sun.star.drawing.GraphicObjectShape"

Sub GenQrCode (qrkod as string, adresa as string, AdresaProgramu as string)

REM makro vytváří QR kód generovaný programem SimpleCodeGenerator.exe,
REM který je zdarma ke stažení zde: https://www.nirsoft.net/utils/qr_code_generator.html
REM obrázek s QR kódem je uložen do počítače a poté umístěn do Listu v přesné velikosti a na přesné souřadnice
REM qrkod-obsahuje text pro zakódování, adresa - umístění budoucího souboru obrázku, AdresaProgramu - umístění simplecodegenerátoru

 shell(AdresaProgramu, 0, "/Save '" & qrkod & "' '" & adresa & "' 10", True) 
  
end sub

Při otvírání CSV může dojít k určité "nevratné" deformaci dat. Proto je potřeba nejdříve zjistit formáty dat v původním souboru, poté nastavit stejné pro jednotlivé sloupce v dialogu při otvírání. Po této operaci by při následném ukládání mělo být vše v pořádku. Původní a nový soubor lze pak jenoduše srovnat v obyčejném textovém editoru (ve WIN je např. poznámkový blok, který data zobrazí tak jak jsou), v případě rozdílů je zapotřebí přehodnotit nastavené formáty sloupců a nastavit znovu jinak.

"Stahovací seznam" v LO najdete v záložce Data pod odrážkou Platnost. Postavte tedy kurzor na stahovací buňku, klikněte na Data -> Platnost a otevře se dialog, kde byste snad mohl vyčíst odkud se tahají argumenty výběru.

Díky - neutr - nějak jsem to zbastlil. Trochu je tam problém s tím že čárky mohou být i v argumentech, ale dalo se to překonat. Zároveň je riziko že hledané heslo bud součástí i jiných hesel (např. "dic"). Nakonec mám ale pocit že to rozdělování na řádky ani není nutné. Jaké to má výhody? Existuje i jakási novější funkce v novějším LO: =PARSEJSON(JSON,Pattern). Bohužel musím mít z různých důvodů starší office. Tož můj makro bastl:

dIco = list.getCellByPosition(sloupec, radek).value
		
	xmlHtp = CreateObject("MSXML2.XMLHTTP")
	oleService = createUnoService("com.sun.star.bridge.OleObjectFactory") 
	XMLDOC = oleService.createInstance("Msxml.DOMDocument")

	if dIco <> 0 Then
	
		ico = Format(dIco,"00000000")

		sURL = "[url]https://ares.gov.cz/ekonomicke-subjekty-v-be/rest/ekonomicke-subjekty/[/url]" & ico
		'http://wwwinfo.mfcr.cz/cgi-bin/ares/darv_bas.cgi?ico= ' STARÉ XML

		xmlHtp.Open "GET", sURL, False  
		xmlHtp.Send
		XMLDOC.loadXML xmlHtp.responseText
		strResponse = xmlHtp.responseText
		
		strResponse = Replace(strResponse, CHR(34), "") 'Odstranit veškeré uvozovky
		
		Dim Pattern(6) as string
		Pattern = Array("obchodniJmeno","nazevUlice","cisloDomovni","cisloOrientacni","psc","nazevObce","dic") 'hledaná hesla
				
		strResponse = Replace(strResponse, ", ", "+ZZZ+") 'nahradím čárku s mezerou nějakým jedinečným znakem
		
		For i = 0 to 6
				
			izacatek = InStr(1, strResponse, Pattern(i)) + LEN(Pattern(i)) + 1
			ikonec =  InStr(izacatek, strResponse,",")
			Hodnota(i) = MID(strResponse, izacatek, ikonec - izacatek)
			Hodnota(i) = Replace(Hodnota(i), "+ZZZ+", ", ")  'nahradím jedinečný znak za čárku s mezerou
		
			print Hodnota(i)
		
		Next i
		
	else
		msgbox ("Je zapotřebí nechat kurzor na ič",0,"Repete")

	end if

Pokud budou data uspořádány naopak - tzn. ne v řádcích ale ve sloupcích pak lze použít kontingenční tabulku s filtrem nebo rozšířený filtr (zadání je rozdíl <0).
Pokud by bylo nutné použít vzorce pak je možné ve stávajícím uspořádání přidat nahoru řádek se vzorcem: IF(B4<0;MAX($A$1:A1)+1;0) (v buňce B1 a roztáhnout do řádku) tím se označí všechny záporné položky na vzestupné řadě.
Potom se výsledná tabulka vytvoří pomocí vyhledávání položek v prvním řádku tabulky pomocí vzorce: =HLOOKUP(1;$B$1:$H$4;2;0) přičemž na dalším řádku bude vyhledávaná hodnota 2 atd. a ve sloupcích se zase mění index na 3 a 4. No snad je to pochopitelné.

Edit: Pro snadnější rozšíření vzorce lze vyhledávanou hodnotu nahradit číslem řádku ROW($A1); =HLOOKUP(ROW($A1);$B$1:$H$4;2;0)

Taky přispěju se svou troškou do mlejna :-)

Sub skoc_na_konec
  Dim oSh As Object
  Dim oSloupec as Object
  Dim oOblasti as Object
  Dim oBunka as Object
	
  oSh = ThisComponent.Sheets.GetByName("vstup_z_banky")
  oSloupec = oSh.GetCellRangeByName("G2:G10000")
  oOblasti = oSloupec.queryContentCells(1+2+4+16).RangeAddresses

  If Ubound(oOblasti) < 0 Then   ' Nenalezeno, vybereme začátek
     radek = 2
  Else   
    radek = oOblasti(Ubound(oOblasti)).EndRow + 2
  End If 
  presun ( "G" & radek )
End Sub


sub presun (pozice as string) 'metoda pro ulození poslední hodnoty
	dim dokument   as object
	dim dispatcher as object
	dokument   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	dim args1(0) as new com.sun.star.beans.PropertyValue
	args1(0).Name = "ToPoint"
	args1(0).Value = pozice
	dispatcher.executeDispatch(dokument, ".uno:GoToCell", "", 0, args1())
end sub