PAY by square QR generator pre MS Office

Ahoj luke1988.

Dobrú vec si vytvoril - gratulujem :slight_smile:

Existuje niečo čo by sa dalo priamo aplikovať do Excelu - cez VBA si viem naprogramovať QR generátor , avšak Pay by square to má nesmierne zložité :frowning:
A ešte jedna prosba , na QRGeneratore - nedalo by sa tam doplniť aby vracalo aj Beneficiary Name ?
Písal som Ti aj mail .

Ďakujem za pomoc.

Zdravim.

Ano, uz som doplnil aj podporu pre Excel.

Ano, uz som dioplnil aj podporu pre Excel, vid moj prispevok vyssie.

Novu verziu som uploadol na stranku.

1 Like

Pozdravujem , žiaľ po nainštalovaní, keď chcem zapnúť doplnok PayBySquare Vyhlasuje mi chybovú hlášku : paybysquare_Nedá_sa_spustiť

Zdravim,

pridavam do public domeny Scala libku

Taktiez v dohladnej dobe pridam standalone commandline appku (JVM based). Appka ako taka uz v podstate je, JARko sa da stiahnut z Releases, musim ju len zadokumentovat a chcem tiez urobit EXE wrapper pre Windows, takze sa to bude dat pouzit vsade tam, kde viete spustit externy program s parametrami (akurat bude potrebne mat nainstalovanu Javu, nativnu Win appku ci DLL zial nedavam, ale ak by tu bol niekto kto by to chcel urobit pre akukolvek inu platformu, len sa nevie vysomarit z tej ich komplikovanej specky, tak s tym viem pomoct)

1 Like

Appka pridana do releasu, v README tiez pribudla dokumentacia o nej

Toto mi pomohlo. Len som to použil v google tabuľkách.
funkcia IMAGE mi generuje priamo qr kód do tabuliek
Ďakujem :slight_smile:

Pri elektronickej komunikácii som začal používať namiesto QR kódu payme.sk link. Ak to otvorí v PC má QR kód, ak to otvorí v mobile tak priamo vyplní platobný príkaz v smartbankingu alebo zobrazí QR kód.
Mohli by to postupne akceptovať aj ostatné smarbankingy a hlavne čo najskôr spustiť okamžité platby.

1 Like

Excel som este doplnil o tlacitko, ktore spusti makro, ktore QR kod (podla url v zadanej bunke) stiahne z internetu a vlozi do Excelu na miesto vymedzene cielovymi bunkami… Tu je kod:

Sub InsertQR()
Dim productImageUrlRng As Range 'Declare range object to contain image URL
Dim productImageUrl As String

Set productImageUrlRng = Range(“M18”) 'Cell containing image URL
productImageUrl = productImageUrlRng

Dim xHttp: Set xHttp = CreateObject(“MSXML2.ServerXMLHTTP.6.0”)
xHttp.setOption 2, 13056

Dim bStrm: Set bStrm = CreateObject(“Adodb.Stream”)
xHttp.Open “GET”, productImageUrl, False

xHttp.Send

With bStrm
.Type = 1 '//binary
.Open
.write xHttp.responseBody
.savetofile “c:\tmp\qr.png”, 2 '//overwrite
End With

Dim productImage As Picture 'Declare image picture object

Dim productImageRng As Range 'Location image will be placed

Set productImageRng = ActiveSheet.Range(“H42:I44”) 'Where I want to put the image

productImageUrl = “c:\tmp\qr.png”

productImageRng.Select
Set productImage = ActiveSheet.Pictures.Insert(productImageUrl)

With productImage
.ShapeRange.LockAspectRatio = msoTrue
.ShapeRange.ZOrder msoSendToBack
.Width = productImageRng.Width * 0.9
'.Height = productImageRng.Height
.Top = Rows(productImageRng.Row).Top + 5
.Left = Columns(productImageRng.Column).Left + 15
End With

End Sub

3 Likes

Prosim ta, vies ma nasmerovat? …funguje ti to este v tych google tabulkach?

Skúsil som to len predvčerom.
Funguje to. Ešte je tam možnosť doplniť popis resp. správa pre prijímateľa.
Ak pomôže, tak prikladám link.
https://docs.google.com/spreadsheets/d/1q_HtmUHQ81BICqF7OH6AMRN11VNqL9j6QcZHa29Zp9I/edit

Ahoj, toto vyzera super. Tiez by ma zaujimalo, preco si to nehodil open source na Github ak to API aj tak poskytujes bezplatne :). Mohli by sme to spravit sucastou slovensko.digital platformy.

Rad by som API pouzival na jednom projekte, kde generujme kazdy kvartal asi 500 faktur, bolo by to ok?

Ak faktúry idú elektronicky a nie tlačené papierovo, by som už používal
https://payme.sk/

1 Like

Našiel som toto:

pay-by-square Python module:

1 Like

Zdravím,
Link na vytvorenie QR kódu stále funguje na tejto stránke a korektne vráti správny QR kód. Skúšal som v Exceli 2016 vyššie uvedený skript, no vyhadzuje mi chyby so .savetofile (adresár som vyvoril/zmenil). Neovládam VBA, preto sa chcem opýtať, či toto makro ešte stále funguje. Slappyho Add-In pre Excel mi už vypršal a neviem sa dopracovať k aktualizovanej verzii.