Mahlzeit zusammen,
kurz und schmerzlos: Die Funktion JTL_QR_SWISSCODE kann nicht funktionieren. Die IBAN wird immer als "normale" IBAN und die Referenz immer als QR-Referenz in den Generator geworfen. Diese Kombination ist nicht zulässig, denn wenn eine "normale" IBAN genommen wird, darf man nur die Creditor oder gar keine Referenz angeben.
Workaround: Alles selber machen...
Einmal vier Benutzervariablen anlegen:
@EsrKonto: "XXXXXX" (5 Zahlen, wie in der bisherigen ESR-Nummer)
@RefIBAN: Hier kommt die QR-IBAN rein. Wenn keine QR-IBAN ausgestellt, bitte nur "" für ein leeres Feld angebenen! Es wird dann die IBAN aus der Firma genommen, die als "normale" IBAN interpretiert wird und die Referenz bleibt leer.
@RefNr:
Code:
Cond(Len(LTrim$(RTrim$(@RefIban)))=0, "", @EsrKonto +
Rep$('0', 20-Len(Report.Customer.CustomerNumber) - 8) + Report.Customer.CustomerNumber +
Rep$('0', 8-Len(Report.InvoiceNumber)) + Report.InvoiceNumber +
Fstr$(CheckMod10 (@EsrKonto +
Rep$('0', 20-Len(Report.Customer.CustomerNumber) - 8) + Report.Customer.CustomerNumber +
Rep$('0', 8-Len(Report.InvoiceNumber)) + Report.InvoiceNumber), '#', 1)
+ JTL_SavePaymentReference(Report.InternalId, @EsrKonto +
Rep$('0', 20-Len(Report.Customer.CustomerNumber) - 8) + Report.Customer.CustomerNumber +
Rep$('0', 8-Len(Report.InvoiceNumber)) + Report.InvoiceNumber +
Fstr$(CheckMod10 (@EsrKonto +
Rep$('0', 20-Len(Report.Customer.CustomerNumber) - 8) + Report.Customer.CustomerNumber +
Rep$('0', 8-Len(Report.InvoiceNumber)) + Report.InvoiceNumber), '#', 1)))
@RefTyp: Cond(Len(@RefNr) = 0, "NON", "QRR")
Als nächstes erstellen wir den QR-Code. Dafür einfach einen Barcode einfügen. Diesen füllen wir aus einer Formel:
Den Anhang 54218 betrachten
Die Formel lautet:
Code:
Barcode ("SPC¶" +
"0200¶" +
"1¶" +
Cond(Len(Ltrim$(Rtrim$(@RefIban))) = 0, Report.Company.IBAN, @RefIban) +"¶" +
"K¶" +
Report.Company.CompanyName +"¶" +
Report.Company.Address +"¶" +
Report.Company.PostalCode +" " + Report.Company.City + "¶" +
"¶" +
"¶" +
Report.Company.CountryISO +"¶" +
"¶" +
"¶" +
"¶" +
"¶" +
"¶" +
"¶" +
"¶" +
CStr$(Report.TotalGrossPrice, '%.2f') + "¶" +
Report.CurrencyISO + "¶" +
"K¶" +
Cond(Len(Ltrim$(Rtrim$(Report.Address.Company))) = 0, Report.Address.FirstName + " " + Report.Address.LastName, Report.Address.Company) + "¶" +
Report.Address.Address + "¶" +
Ltrim$(Rtrim$(Report.Address.AddressSupplement +" " +Report.Address.PostalCode +" " + Report.Address.City)) + "¶" +
"¶" +
"¶" +
Report.Address.CountryISO + "¶" +
@RefTyp + "¶" +
@RefNr + "¶" +
"Invoice " + Report.InvoiceNumber + "¶" +
"EPD","QRCode")