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.
Informationen finden Sie hier: http://www.bezahlcode.de/
Banking-Apps finden Sie hier: Banking-Apps
Die Spezifikation finden Sie hier: http://www.bezahlcode.de/wp-content/uploads/BezahlCode_TechDok.pdf
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