QRCode, BezahlCode integrieren
QRCode, BezahlCode auf den Ausdruck oder in das PDF einbauen:Damit erzeugen Sie auf dem Ausdruck oder im PDF eine Grafik, die von Banking-Apps auf Smartphones gelesen werden kann. Damit haben es Ihre Kunden einfacher die Rechnungen zu bezahlen. Das Abtippen der Informationen entfällt.
Das ist eine ältere Variante, die nur von wenigen Anbietern noch unterstützt wird.
Benutzen Sie besser diese Variante:
Https://www.se-cs.de/fts.html?q=EPC-QR-Code
So geht es:
Fügen Sie ein Bild in das Layout ein, und rufen Code auf:
Fügen Sie den untenstehende Code ein, und ändern diesen entsprechend.
Sie müssen mindestens Kontonummer(IBAN) und Bankleitzahl(BIC) ändern.
Der Code erzeugt eine SEPA-Überweisung.
Das Ergebnis können Sie direkt hier scannen:
Neben Zahlungsinformationen können Sie auch beliebige andere Information als QRCode verbauen, z.B. Ihre Konatktdaten als VCard (Letzter Abschnitt im Beispiel).
VCard Beispiel:
Diese Funktion ist ab Release 12518 möglich.
//anfang code Zahlungsinfo
var v, n, s: string;
vl, vr: double;
l, r: string;
p: integer;
begin
if (data <> null) and (data = '') then
begin
v := FloatToStr (brutto);
p := Pos (',', v); //Für Deutschland u.a.
if p = 0 then
p := Pos ('.', v); //Für die Schweiz
if p > 0 then
begin
l := Copy (v, 1, p - 1);
r := Copy (v, p + 1, 2);
end else
begin
l := v;
r := '00';
end;
v := l + '%2C' + r; //Betrag zusammenbauen
n := 'RE '+ DBValue('ID_ORDER') + ' ' + DBValue('KNR') + ' ' + DBValue('AdressName');
n := Copy (n, 1, 50); //auf 50 Zeichen begrenzen
n := EncodeURL(n);
s:=
'bank://singlepaymentsepa?' +
'name=Meine%20Firma' + //Ändern Sie Meine Firma, Hinweis: %20 steht für ein Leerzeichen
'&reason='+ n + //hier erscheint der Betreff (RE Nummer Knr + Name)
'&iban=DEXX' + //Ändern Sie DEXX in Ihre IBAN
'&bic=BICXXX' + //Ändern Sie BICXXX in Ihre BIC
'&amount='+ v ;
Data := GetBitmapImage(s, 1, 1, QualityHigh);
end;
end.
//ende code Zahlungsinfo
//eine etwas andere Variante, um Ihre eigene Adresse als VCard zu erzeugen:
//anfang code VCard
//ändern Sie den Inhalt!
var s: string;
begin
if (data <> null) and (data = '') then
begin
s:=' BEGIN:VCARD'+ #13#10 +
'VERSION:3.0'+ #13#10 +
'PRODID:Office-SI'+ #13#10 +
'N:Engelhardt;Sigbert;;Herr'+ #13#10 +
'FN:Herr Sigbert Engelhardt'+ #13#10 +
'ORG:SE-CS'+ #13#10 +
'EMAIL;TYPE=WORK;TYPE=pref;TYPE=INTERNET:md5@se-cs.de'+ #13#10 +
'TEL;TYPE=WORK;TYPE=pref;TYPE=VOICE:+03607181204'+ #13#10 +
'item1.ADR;TYPE=WORK;TYPE=pref:;;Katzhagen 8;Hundeshagen;;37339;'+ #13#10 +
'END:VCARD';
Data := GetBitmapImage(s, 1, 1, QualityHigh);
end;
end.
//ende code VCard
QR Code Link auf diese Seite: