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

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

Stává se mi to, je to dost nepříjemné, bohužel řešení nemám.

to kabi: jj, s volbou "USA" to opravdu funguje jak pro apostrofy tak pro desetinné tečky - ale na to člověk fakt sám nepřijde. Díky.

A ještě tedy jeden dotaz: píšete, že je volba stejná jako při vkládání pomocí Ctrl-Shift-Alt-V. Tohle mi žádný příkaz nespouští, možná jste měl namysli Ctrl+Shift+V, což ale stejnou volbu neumožňuje, resp. nepodařilo se mi takto převést ani desetinné tečky ani apostrofy na standardní čísla. Nějaký návod?

Už tomu asi rozumím - jde zřejmě o import (vložení) neformátovaného textu, sice ta klávesová zkratka mi fakt nefunguje, spouštím to přes "roletku" pod tlačítkem "vložit" na toolbaru a tady je nabídka stejná to je jasné, je to vlastně stejná funkce. Takže ano, jsou minimálně dvě cesty jak se k této funkci dostat. Asi jste měl namysli toto.

to imcon: možná byste měl přečíst pár příspěvků v této dikuzi opravdu pořádně než učiníte takový definitivní závěr.