Wen nervt das nicht? IBANs und Rechnungsnummern in den Verwendungszweck einzutippen ist einfach eine unnötige Arbeit. Zum Glück gibt es mittlerweile Onlinebanking-Apps, mit denen man die QR-Codes, die auf manchen Rechnungen bereits vorhanden sind, einlesen kann – und damit gleichzeitig alle Informationen in die Überweisungsfelder einträgt.

Das ist übrigens nicht nur für einen selbst praktisch. Wenn Du Rechnungen an Deine Kunden verschickst, bietest Du Deinen Kunden dann bereits diesen Service? Oder hast Du mal daran gedacht, das in die Anwendungen einzubauen, die Du für Kunden programmierst? Wenn Du das machst, haben nicht nur die Rechnungsempfänger etwas davon! Nein, Du und Deine Kunden auch: Wenn die Rechnungsempfänger den QR-Code nutzen, landet nämlich auch genau der Text, den Du im QR-Code angegeben hast, im Verwendungszweck. Manche Kunden neigen nämlich dazu, alles mögliche in den Verwendungszweck zu schreiben ... nur nicht die Rechnungsnummer, mit der Du nachher Deine Eingänge abgleichen möchtest.

In der Beispieldatenbank zu diesem Produkt findest Du diesen Bericht, in dem Du genau siehst, wie der QR-Code integriert wird:

Dazu sind nur einige wenige Code-Zeilen nötig, die beim Formatieren des Berichts ausgeführt werden:

Private Sub Berichtskopf_Format(Cancel As Integer, FormatCount As Integer)

Dim objQRCode As amvEPCQRCode.EPCQRCodeGenerator

Dim strErgebnis As String

Dim strQRCodePfad As String

Set objQRCode = New amvEPCQRCode.EPCQRCodeGenerator

With objQRCode

.Betrag = Me!txtSummeGesamt

.BIC = Me!BIC

.Empfaenger = Me!Empfaengername

.IBAN = Me!IBAN

.Verwendungszweck = "Rechnung " & Me!Bestellnummer

strQRCodePfad = CurrentProject.Path & "\qrcode.png"

If .Generate(strQRCodePfad, strErgebnis, True) Then

Me!picQRCode.Picture = strQRCodePfad

End If

End With

End Sub