Bankangaben des Kunden in Auftragsformular integrieren

Aus LexWIKI

Beschreibung:

In den aktuellen Versionen von Lexware faktura+auftrag bzw. warenwirtschaft pro kann man zwar die Bankverbindung des Kunden ausdrucken, aber ein Satz "...den Rechnungsbetrag buchen wir vom Konto ... bei ... ab" lässt sich damit nicht realisieren. Dazu ist ein Eingriff in den Quelltext des Formulars nötig. Zwischen Zahlungsbedingungen und Lieferart sollte folgendes stehen:

Lösung:

'------------Bankangaben Kunde ausgeben-----------------
Dim Kd_BLZ as String
Dim modeFNCustom as Numeric
Dim modeFNDefault as Numeric
 
If is(Auftr_ist_RG) OR is(Auftr_ist_SR) then
   If is (Kd_mit_Einzug) then
       LF
       'Erst mal ändern wir das Zahlenformat, damit wir aus dem Format der BLZ "xx.xxx.xxx" ein "xxxxxxxx" bekommen
       SetFormatNumericOptions(modeFNCustom, ",", "")
       Kd_BLZ = FormatNumeric("%.0f",GetNumeric(Kd_Bankleitzahl))
 
       'Die nachfolgenden drei Zeilen müssen in EINER Zeile stehen, da sonst der Zeilenumbruch nicht funktioniert.
       TL ("Vielen Dank für Ihren Auftrag. Den Gesamtbetrag werden wir auftragsgemäß per Lastschrift von Ihrem Konto " 
       + (Get(Kd_Kto_Nr) + " bei " + Get(Kd_Bankname) + " (BLZ " + StringMid(Kd_BLZ,1,3) + " " + StringMid(Kd_BLZ,4,3) + " "
       + (StringMid(Kd_BLZ,7,2) + ") einziehen. Bitte sorgen Sie für ausreichende Deckung auf Ihrem Konto.")
 
       '...und das Zahlenformat wieder zurückstellen
       SetFormatNumericOptions(modeFNDefault, ",", ".")
   End if
End if