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

miromg

Člen

Registrace: 4. 10. 2024

Příspěvků: 1

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

neutr

Člen

Registrace: 8. 3. 2007

Příspěvků: 3,465

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É

ludviktrnka

Člen

Registrace: 9. 7. 2009

Příspěvků: 700

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.