Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 4. 10. 2024 10:42:43

miromg
Člen
Registrace: 4. 10. 2024
Příspěvků: 6

Makro pre platobný QR kód

Ahoj prosil by som o pomoc s makrom.
Nasledovný kód mi otvorí dialóg tak ako by som ho otvoril nasledovne:
Vložiť>OLE objekt>QR a čiarový kód

potreboval by som prevzalo premennú iban do poľa URL/Text, a uložilo QR kód ako by som stlačil OK na dialógovom okne, samozrejme bez toho aby dialógové okno otvorilo.

sub platba

dim document,dispatcher   as object
dokument=stardesktop.currentcomponent
ovladanie.vyberlb ("List1","A11")
list=dokument.sheets(0)
bunka=list.GetCellByPosition(1,1)'B2
iban=trim(bunka.string) 'pozícia záznamu v databáze

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Dim args1(2) as new com.sun.star.beans.PropertyValue

args1(0).Name = "Payload"
args1(0).Value = iban
args1(1).Name = "Border"
args1(1).Value = 1
args1(2).Name = "ErrorCorrection"
args1(2).Value = 2
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertQrCode", "", 0, args1())

end sub

Poprípade ak už niekto má aj štruktúru pre QR platby bol by som veľmi vďačný.
Ďakujem

Editoval miromg (4. 10. 2024 10:46:53)


LibreOffice 7.6.2.1 , na SUSE Leap 15.4

Offline

#2 6. 10. 2024 08:24:53

neutr
Člen
Registrace: 8. 3. 2007
Příspěvků: 3,467

Re: Makro pre platobný QR kód

Řešením je nainstalovat rozšíření LibreOffice GoQr. Po nainstalování jednoduše postavíte kurzor do buňky která obsahuje ve Vašem případě číslo IBAN. Na liště nástrojů vlevo bude po instalaci černý čtvereček v rámečku na který kliknete. Makro přepíše text buňky na QR kód - snadnější to už ani být nemůže.


Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

#3 6. 10. 2024 16:58:42

ludviktrnka
Člen
Registrace: 9. 7. 2009
Příspěvků: 711

Re: Makro pre platobný QR kód

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

LibreOffice 5.4.

Offline

#4 7. 10. 2024 09:45:05

miromg
Člen
Registrace: 4. 10. 2024
Příspěvků: 6

Re: Makro pre platobný QR kód

Ahoj ďakujem za odpovede,
to neutr: rozšírenie pracuje iba online no aj tak to nie je práve to čo som hľadal.
Stiahol som podobné rozšírenie pre openOffice , tam sa mi riešenie vidí lepšie skúsim použiť niečo z neho.
Ak to budem mať vyriešené dám sem vedieť.
to ludviktrnka: ak by ste bol ochotný prosil by som poslať to makro, skúsil by som to s ním. Ďakujem

Editoval miromg (7. 10. 2024 10:06:37)


LibreOffice 7.6.2.1 , na SUSE Leap 15.4

Offline

#5 7. 10. 2024 20:41:01

ludviktrnka
Člen
Registrace: 9. 7. 2009
Příspěvků: 711

Re: Makro pre platobný QR kód

Suubor s makrem pro generování platebního QR kódu jsem nahrál zde: https://www.dropbox.com/scl/fi/5cugtwmq … 947av&dl=0

Nutný je SimpleCodeGenerátor zde: https://www.nirsoft.net/utils/qr_code_generator.html

Jde vlastně jen o sestavení toho kódu, pak se pomocí shell spustí generátor a nakonec se umístí obrázek. Před dalším generováním se staré QR nejdříve smaže.


LibreOffice 5.4.

Offline

#6 8. 10. 2024 10:13:27

miromg
Člen
Registrace: 4. 10. 2024
Příspěvků: 6

Re: Makro pre platobný QR kód

Ďakujem, pozrel som si to,
určite z toho niečo použijem.
Ešte mám jednu otázku.
ako zdroj pre vytvorenie QR kódu som použil nasledovné dáta podľa QR špecifikácie:
SPD*1.0*ACC:SK9183300000002702561821+FIOZSKBAXXX*AM:120.50*CC:EUR*RN:LUGESA PLUS*DT:30.10.2024*X-VS:202410036*X-KS:308*

kód vytvorený z tohto však neprečíta každá banková aplikácia keď som skúšal fio tak v poriadku, ale mbank už nie,tá mi písala hlášku nesprávny QR kód.

Ale po vygenerovaní napríklad na freebysquare.sk, ale jaj pri generovaní z bankovej app. vyzerá zdroj pre QR z tých istých dát nasledovne:
0006A000AGF5L14G9C62MCGVR0BEO3NE6M892VO7EP1OLL0MVSJDCLGD9UL7E97F9628Q39QSETQQNJEQJ9C2Q79OVT2HV7JRDKHED5JSH9GJ7GABB5GUSTFIK8DQOL7UL82JIITRQIQ5OGEVRI26G0

po vytvorení QR z tohto,už aj v libreOffice, to už prečíta každá appka.

Je potrebné zdroj pre QR nejako zakódovať, resp. šifrovať?
Máte s tým skúsenosť?


LibreOffice 7.6.2.1 , na SUSE Leap 15.4

Offline

#7 8. 10. 2024 10:34:50

ludviktrnka
Člen
Registrace: 9. 7. 2009
Příspěvků: 711

Re: Makro pre platobný QR kód

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í.


LibreOffice 5.4.

Offline

#8 8. 10. 2024 10:37:19

ludviktrnka
Člen
Registrace: 9. 7. 2009
Příspěvků: 711

Re: Makro pre platobný QR kód

určitě musíte dodržovat zápis - např DT:30.10.2024 je určitě špatně, což nutně neznamená, že jej některá aplikace nedokáže přečíst,.


EDIT: správně je DT:20241030 --- myslím že to je ten jediný problém vašeho kódu, teď už Vám to bude chodit perfektně :-)

EDIT II: při vší úctě, psát datum splatnosti do platebního QR kódu je poněkud kontraproduktivní, většinou chci aby mi přišly peníze hned a případnou úpravu splatnosti nechávám na klientech

Editoval ludviktrnka (8. 10. 2024 11:18:41)


LibreOffice 5.4.

Offline

#9 8. 10. 2024 11:24:27

miromg
Člen
Registrace: 4. 10. 2024
Příspěvků: 6

Re: Makro pre platobný QR kód

Zaujímavé je že v jednom aj v druhom reťazci som použil tie isté vstupné údaje, výsledné text reťazce sú odlišné ale app ich načíta rovnako. Len tá m bank klasický nechce len ten druhý.
Tú dokumentáciu som mal prečítanú,lepšie je to popísané tu: https://qr-platba.cz/wp-content/uploads … rd_CBA.pdf.
Vďaka za upozornenie na ten dátum. Po zmene mbank stále nechce, "chyba nesprávny QR kód".


LibreOffice 7.6.2.1 , na SUSE Leap 15.4

Offline

#10 8. 10. 2024 11:26:56

ludviktrnka
Člen
Registrace: 9. 7. 2009
Příspěvků: 711

Re: Makro pre platobný QR kód

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

Editoval ludviktrnka (8. 10. 2024 12:05:25)


LibreOffice 5.4.

Offline

#11 8. 10. 2024 12:03:26

miromg
Člen
Registrace: 4. 10. 2024
Příspěvků: 6

Re: Makro pre platobný QR kód

Vďaka no nepomohlo, budem skúmať ďalej.


LibreOffice 7.6.2.1 , na SUSE Leap 15.4

Offline

#12 8. 10. 2024 12:05:15

ludviktrnka
Člen
Registrace: 9. 7. 2009
Příspěvků: 711

Re: Makro pre platobný QR kód

ještě bych zkusil pro m-bank změnit měnu na CZK (možná není kompatibilní uvedení X-VS a X-KS dohromady s měnou EUR jak vyplývá z dokumentace.)


(resp. odmazat X-VS a X-KS a nahradit zprávou, nevím jak to máte na Slovensku, ale obecně Europlatby tuším VS neobsahují - nejsem si jist, ale může to být ten problém)



validátor uvedený zde: https://qr-platba.cz/pro-vyvojare/validator/ označuje váš kód jako v pořádku, takže problém je skutečně někde hluboko

Editoval ludviktrnka (8. 10. 2024 12:15:43)


LibreOffice 5.4.

Offline

#13 8. 10. 2024 14:18:36

miromg
Člen
Registrace: 4. 10. 2024
Příspěvků: 6

Re: Makro pre platobný QR kód

nejedná sa o europlatbu, napísal som do mbank a poslal im QR, tak som zvedavý čo mi odpovedia.
V inej banke to ide, ešte som neskúšal všetky väčšie, uvidím.
Asi to budem riešiť alternatívne pri online pripojení to pôjde cez web api a offline cez interný generátor.


LibreOffice 7.6.2.1 , na SUSE Leap 15.4

Offline

#14 8. 10. 2024 15:13:39

ludviktrnka
Člen
Registrace: 9. 7. 2009
Příspěvků: 711

Re: Makro pre platobný QR kód

... 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.


LibreOffice 5.4.

Offline

Zápatí