Site menu:

QRCode, BezahlCode integrieren

QRCode, BezahlCode integrieren

Kontakt und Support:

Per Email: md5@se-cs.de
Per Telefon: +49 (0)36071 81204

QRCode, BezahlCode auf den Ausdruck oder in das PDF einbauen


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:

QRCode,-BezahlCode-integrieren



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:
QRCode,-BezahlCode-integrieren



Neben Zahlungsinformationen können Sie auch beliebige andere Information als QRCode verbauen, z.B. Ihre Konatktdaten als VCard (Letzter Abschnitt im Beispiel). 


VCard Beispiel: QRCode,-BezahlCode-integrieren

Diese Funktion ist ab Release 12518 möglich.

So gehts:

//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