Rechnungsprogramm OfficeSI - SE-CS erstellt Software für Handwerker und alle Gewerbetreibende

QRCode, BezahlCode integrieren

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:

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.
//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: QRCode-BezahlCode-integrieren.html