<\/p>\n
Mitgliedsbeiträge in Vereinen, Versicherungsbeiträge und andere regelmäßig anfallende Zahlungen zieht der Begünstigte am einfachsten per Lastschrift ein. Voraussetzung für den Lastschrifteinzug ist die Erteilung einer Einzugsermächtigung durch den Zahlungspflichtigen. Fallen nur wenige Lastschrifteinzüge an, verwendet man der Einfachheit halber ein entsprechendes Papierformular, aber wer etwa Kassenwart eines Vereins mit vielen Mitgliedern ist, möchte vielleicht mit weniger Arbeit auskommen.<\/b><\/p>\n
Abgesehen von den nötigen Einzugsermächtigungen erfordert das Vereinfachen des Lastschrifteinzugs das Vorhandensein einiger Daten der Zahlungspflichtigen, am besten in Tabellenform:<\/p>\n
Damit ausgerüstet widmen Sie sich dann dem sogenannten Datenträgeraustauschverfahren (abgekürzt DTA beziehungsweise DTAUS) und dem damit verbundenen Format. Das Datenträgeraustauschverfahren dient der Ausführung bargeldloser Zahlungen wie etwa von Gutschriften oder der in diesem Beitrag betrachteten Lastschriften.<\/p>\n
Kern dieses Verfahrens ist die Zusammenfassung der Informationen, die normalerweise auf dem Überweisungsträger landen, in einer Textdatei und deren Übermittlung per Speichermedium oder via Internet an die Bank des Begünstigten.<\/p>\n
Das in dieser Textdatei zu verwendende Format wird zum Beispiel im Internet an verschiedenen Stellen beschrieben, etwa bei Wikipedia unter dem Stichwort Datenträgeraustauschverfahren<\/b>. <\/p>\n
Die Textdatei besteht aus drei Teilen:<\/p>\n
Nun stellen sich zwei Fragen: Woher kommen die Daten und wie gelangen diese in die benötigte Textdatei<\/p>\n
Einschränkungen<\/b><\/p>\n
Die hier vorgestellte Lösung zum Erstellen von Datenträgeraustauschdateien hat folgende Einschränkungen, die sich jedoch durch änderung des Codes beheben lassen – im Kontext der Erstellung einer solchen Datei etwa für den Einzug von Mitgliedsbeiträgen ist dies jedoch vermutlich nicht nötig:<\/p>\n
Datenaustauschdatei erstellen<\/p>\n
Das Format der Datenaustauschdatei können Sie für eine eingeschränkte Anzahl von Fällen direkt den nachfolgend vorgestellten Funktionen entnehmen. Die erste Funktion (s. Listing 1) liefert den A-Satz der Datenträgeraustauschdatei und erwartet die folgenden Parameter:<\/p>\n
Listing 1: Diese Funktion liefert den ersten von mindestens drei Teilen der Datenträgeraustauschdatei.<\/p>\n
Public Function ASatz(strBLZAuftraggeber As String, strNameAbsender As String, _\r\n strKontoAuftraggeber As String) As String\r\n Dim str As String\r\n str = str & "0128" ''Satzlänge\r\n str = str & "A" ''Satzart\r\n str = str & "LK" ''Kennzeichen: L = Lastschrift, K = Kundendiskette\r\n str = str & strBLZAuftraggeber\r\n str = str & "00000000"\r\n str = str & Auffuellen(strNameAbsender, " ", 27) ''Name Absender\r\n str = str & Format(Date, "DDMMYY") ''Erstellungsdatum\r\n str = str & " "\r\n str = str & Auffuellen("", "0", 10 - Len(strKontoAuftraggeber)) _\r\n & strKontoAuftraggeber ''Kontonummer Auftraggeber\r\n str = str & Auffuellen("", "0", 10) ''Sammel-Referenznummer, hier Nullen)\r\n str = str & Auffuellen("", " ", 47)\r\n str = str & "1" ''Währung, Euro entspricht 1\r\n Debug.Print Len(str), str\r\n ASatz = str\r\nEnd Function<\/pre>\nDie Prozedur verwendet eine String-Variable namens str<\/b>, um den Inhalt des A-Satzes zusammenzustellen. Den Start macht bei A-, C- und E-Satz jeweils die Satzlänge mit vier Stellen. Diese enthält die Länge der einzulesenden Zeichenkette. Das nächste Zeichen enthält jeweils einen Kennbuchstaben (A <\/b>für A-Satz, C <\/b>für C-Satz und E <\/b>für E-Satz). Die folgenden beiden Zeichen des A-Satzes enthalten die Zeichenkombination LK <\/b>für Lastschrift\/Kundendiskette. Nach der Bankleitzahl des Auftraggebers (immer achtstellig) und einer Reihe Nullen, die keine Bedeutung hat, folgt die Kontonummer des Empfängers. Diese kann maximal zehn Stellen aufweisen, Kontonummern haben aber oft auch weniger Stellen.<\/p>\n
Die fehlenden Stellen sollen vorne mit Nullen aufgefüllt werden. Zu diesem Zweck verwenden wir eine kleine Hilfsfunktion namens Auffuellen<\/b>, die Sie in Listing 2 finden und welche die folgenden Parameter erwartet:<\/p>\n Listing 2: Die Hilfsfunktion Auffuellen füllt eine Zeichenkette bis zur gewünschten Anzahl mit dem angegebenen Zeichen auf – wahlweise vorn oder hinten.<\/p>\n <\/p>\n Kontonummern werden in Datenträgeraustauschdateien immer vorn mit Nullen aufgefüllt, daher wird bei diesem Aufruf der Parameter bolVorne <\/b>auf True <\/b>eingestellt. Wenn Sie keine Sammelreferenznummer verwenden, geben Sie anschließend lauter Nullen an, und nach 47 folgenden Leerzeichen schließt die Zahl 1 stellvertretend für die hier verwendete Währung Euro den ersten Teil ab. <\/p>\n Der C-Satz wird ebenfalls mit einer eigenen Funktion erstellt, die folgende Parameter erwartet:<\/p>\n Nachdem Sie die Auffuellen<\/b>-Funktion und den Ablauf der Funktion zum Erstellen des A-Satzes kennen, verstehen Sie die durch die Funktion CSatz <\/b>aus Listing 3 durchgeführten Schritte sicher ganz leicht.<\/p>\n Listing 3: Der C-Satz enthält die eigentlichen Buchungsinformationen und kann je Datenträgeraustauschdatei mehrmals vorkommen.<\/p>\n Wichtig ist hier, dass die Funktion mehrmals hintereinander aufgerufen werden könnte. Außerdem kann man an der einen oder anderen Stelle weitere Zeichen unterbringen. Aus Gründen der Übersichtlichkeit verzichten wir an dieser Stelle auf die Umsetzung dieser Möglichkeit. Fehlt noch der abschließende E-Satz, der im Wesentlichen einige Prüfsummen enthält. Die zu seiner Erstellung notwendige Funktion finden Sie in Listing 4. Die Parameter wurden sämtlich noch nicht verwendet und sind komplett von Anzahl und Inhalt der in den C-Sätzen enthaltenen Daten abhängig:<\/p>\n Listing 4: Der letzte Satz der Datenträgeraustauschdatei enthält eine Reihe Prüfsummen.<\/p>\n Aufruf der Funktionen und Zusammenstellung der Datei<\/b><\/p>\n Prinzipiell ist die Vorgehensweise zum Zusammenstellen des Inhalts der Datenträgeraustauschdatei ganz einfach: Sie rufen die Funktion ASatz <\/b>auf, dann für jede Lastschrift je einmal die Funktion BSatz<\/b>, wobei Sie mitzählen und die Werte von Bankleitzahl, Kontonummern und Beträgen aufsummieren müssen und schließlich einmal die Funktion CSatz<\/b>. Die Rückgabewerte hängen Sie aneinander und schreiben diese in eine Textdatei – fertig!<\/p>\n In der Praxis müssen Sie natürlich noch den Zugriff auf die benötigten Daten bereitstellen, was dem geneigten Leser von Access im Unternehmen natürlich keine Probleme bereitet. Trotzdem gehen wir im Detail darauf ein.<\/p>\n Grundlage für die einzelnen Lastschriften bildet eine stark reduzierte Mitglieder-Tabelle, deren Entwurf wie in Bild 1 aussieht.<\/p>\n Bild 1: Die Mitglieder-Tabelle enthält alle für das Einziehen von Lastschriften nötigen Daten.<\/span><\/b><\/p>\n Die zweite Tabelle ist die bereits weiter oben erwähnte Optionen-Tabelle, deren Entwurf Sie in Bild 2 finden.<\/p>\n Bild 2: Die Optionen-Tabelle liefert beispielsweise Daten zur Bankverbindung für Lastschrifteinzüge.<\/span><\/b><\/p>\n In beiden Tabellen besitzt das Feld zum Speichern der Bankleitzahl den Datentyp Zahl (Long Integer)<\/b>. Das reicht für die genau acht Stellen große Bankleitzahl aus. Die Kontonummer hingegen kann bis zu zehn Stellen aufweisen, weshalb der Datentyp auf Zahl (Double) <\/b>eingestellt werden muss.<\/p>\n Die Prozedur aus Listing 5 erstellt eine Datenträgeraustauschdatei auf Basis der in den Tabellen tblOptionen <\/b>und tblMitglieder <\/b>enthaltenen Informationen. Sie deklariert und erzeugt zunächst Objektvariablen für den Zugriff auf die in den Tabellen gespeicherten Daten.<\/p>\n Listing 5: Diese Prozedur erwartet lediglich die Angabe eines Verwendungszwecks und erstellt auf Basis von in Tabellen gespeicherten Daten eine Datenträgeraustauschdatei.<\/p>\n Name, Bankleitzahl und Kontonummer des Empfängers beziehungsweise Auftraggebers aus der Tabelle tblOptionen <\/b>werden gleich in den Variablen strNameEmpfaenger<\/b>, lngBLZEmpfaenger <\/b>und lngKontoEmpfaenger <\/b>gespeichert, da diese mehrfach verwendet werden. Die Inhalte dieser Variablen dienen auch gleich als Parameter des Aufrufs der Funktion ASatz<\/b>.<\/p>\n Der C-Satz wird, wie bereits erwähnt, für jede Lastschrift je einmal erzeugt. Dementsprechend durchläuft die Prozedur in einer Do While<\/b>-Schleife alle Datensätze der Tabelle tblMitglieder<\/b>.<\/p>\n Innerhalb dieser Schleife liest sie die benötigten Informationen ein, ruft jeweils die Funktion CSatz <\/b>auf, um den entsprechenden C-Satz je Mitglied an die Zeichenkette anzuhängen, und bildet gleichzeitig die für den E-Satz nötigen Anzahlen und Summen.<\/p>\n Diese landen in den Variablen intAnzahl<\/b>, curSummeBetraege<\/b>, lngSummeKontonummern <\/b>und lngSummeBLZ<\/b>, die gegen Ende der Prozedur zum Erstellen des E-Satzes zum Einsatz kommen.<\/p>\n Schließlich sorgen die letzten drei Zeilen der Prozedur dafür, dass die zusammengesetzte Zeichenkette in einer Datei namens DTAUS.txt <\/b>landet.<\/p>\n Die Datei wird im gleichen Verzeichnis wie die aktuelle Datenbank gespeichert.<\/p>\n Datenträgeraustauschdatei testen<\/b><\/p>\n Praktischerweise gibt es im Internet einen kostenlosen Service der Firma xpecto<\/b>, der die Datenträgeraustauschdatei auf ihre Gültigkeit hin prüft, und zwar unter folgender Adresse: https:\/\/www.xpecto.de\/index.phpid=148,7<\/b><\/p>\n Dort können Sie die frisch erzeugte Datei hochladen und testen lassen. Der Service prüft im Wesentlichen die Syntax und Lesbarkeit der enthaltenen Informationen, gleicht aber auch die Bankleitzahlen ab.<\/p>\n Und sonst<\/b><\/p>\n Es bleibt zu erwähnen, dass der Versand einer Datenträgeraustauschdatei gewissen Regeln unterliegt. So sollten Sie sicherstellen, dass Ihr Kreditinstitut Lastschriften in Form einer Datenträgeraustauschdatei entgegennimmt und welche Voraussetzungen hierfür gelten.<\/p>\n So müssen Sie neben dem Medium mit der Datenträgeraustauschdatei ein Schriftstück erstellen, das die wesentlichen Informationen über den Inhalt der Datenträgeraustauschdatei enthält und dieses unterschreiben.<\/p>\n Die zum Download bereitstehende Beispieldatenbank enthält eine erweiterte Fassung der Funktion aus Listing 5, die gleichzeitig eine Datei mit dem benötigten Schriftstück als Textdatei speichert. Diese drucken Sie aus und fügen sie dem Datenträger hinzu, bevor Sie diesen Ihrem Kreditinstitut zukommen lassen.<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Wer bereits viele Stunden mit dem Ausfüllen von Lastschrift-Formularen verbracht hat, weil er etwa Kassenwart eines Sportvereins mit einigen hundert Mitgliedern ist, wird es möglicherweise bedauern, nicht früher auf diesen Beitrag gestoßen zu sein.<\/p>\n Sobald die wesentlichen Daten für den Lastschrifteinzug wie Kontoinhaber, Bankleitzahl, Kontonummer und der einzuziehende Betrag bekannt und in einer Tabelle gespeichert sind, können Sie loslegen: Entweder Sie importieren die Daten aus der zugrunde liegenden Tabelle in geeigneter Form in die Tabelle tblMitglieder <\/b>der Beispieldatenbank, oder Sie passen gleich Ihre eigene Access-Anwendung zur Verwaltung von Mitgliedern an und bauen die hier vorgestellten Funktionen so um, dass sie mit Ihrer Mitgliederverwaltung zusammenarbeiten.<\/p>\n Die Mitgliederverwaltung selbst könnte hier mit einigen Tücken aufwarten: So ist es keinesfalls sichergestellt, dass jedes Mitglied einen der Art seiner Mitgliedschaft entsprechenden Beitrag leisten muss. Manche Mitglieder stammen aus einer Familie und erhalten deshalb gegebenenfalls einen Rabatt, andere bekommen sonstige Vergünstigungen, etwa weil sie sich besonders in den Verein einbringen. Doch dies ist eine andere Geschichte …<\/p>\n Enthaltene Beispieldateien:<\/p>\n Datentraegeraustausch.mdb<\/p>\n\n
Public Function Auffuellen(strOriginal As String, strFuellzeichen As String, _\r\n intLaenge As Integer, Optional bolVorne As Boolean = True) As String\r\n Dim str As String\r\n str = strOriginal\r\n If bolVorne Then\r\n If Len(str) < intLaenge Then\r\n str = str & String(strFuellzeichen, intLaenge - Len(str))\r\n Loop\r\n Else\r\n If Len(str) < intLaenge Then\r\n str = String(strFuellzeichen, intLaenge - Len(str)) & str\r\n Loop\r\n End If\r\n Auffuellen = str\r\nEnd Function<\/pre>\n
\n
Public Function CSatz(strBLZEmpfaenger As String, _\r\n strKontoZahler As String, _\r\n strKontoEmpfaenger As String, _\r\n curBetrag As Currency, _\r\n strNameZahler As String, _\r\n strVerwendungszweck As String, _\r\n strNameEmpfaenger As String, _\r\n strBLZZahler As String)\r\n Dim str As String\r\n Dim strBetrag As String\r\n str = str & "0187" ''Satzlänge\r\n str = str & "C" ''Satzart\r\n str = str & Auffuellen("", "0", 8) ''BLZ erstbeteiligte Bank, optional\r\n str = str & strBLZZahler ''BLZ Begünstigter\r\n str = str & Auffuellen(strKontoZahler, "0", 10, False) ''Kontonummer Zahlungsverpflichteter\r\n str = str & Auffuellen("", "0", 13) ''interne Kundennummer\r\n str = str & "05" ''Textschlüssel: 04 - Abbuchung, 05 - Einzug, 51 - Überweisung, 53 - Gehalt,\r\n ''54 - Vermögenswirksame Leistungen, 56 - Öffentliche Kassen\r\n str = str & "000" ''Ergänzung\r\n str = str & " "\r\n str = str & Auffuellen("", "0", 11)\r\n str = str & strBLZEmpfaenger\r\n str = str & Auffuellen(strKontoEmpfaenger, "0", 10, False)\r\n strBetrag = CStr(CLng(curBetrag * 100))\r\n str = str & Auffuellen(strBetrag, "0", 11, False) ''Betrag\r\n str = str & Auffuellen("", " ", 3)\r\n str = str & Auffuellen(strNameZahler, " ", 27)\r\n str = str & Auffuellen("", " ", 8)\r\n str = str & Auffuellen(strNameEmpfaenger, " ", 27)\r\n str = str & Auffuellen(strVerwendungszweck, " ", 27)\r\n str = str & "1" ''Währung\r\n str = str & " "\r\n str = str & "00"\r\n CSatz = str\r\nEnd Function<\/pre>\n\n
Public Function ESatz(intAnzahl As Integer, lngSummeKontonummern As Long, lngSummeBLZ As Long, _\r\n curSummeBetraege As Currency)\r\n Dim str As String\r\n Dim strSummeBetraege As String\r\n str = str & "0128" ''Satzlänge\r\n str = str & "E" ''Satzart\r\n str = str & Auffuellen("", " ", 5)\r\n str = str & Auffuellen(CStr(intAnzahl), "0", 7, False)\r\n str = str & Auffuellen("", "0", 13)\r\n str = str & Auffuellen(CStr(lngSummeKontonummern), "0", 17, False)\r\n str = str & Auffuellen(CStr(lngSummeBLZ), "0", 17, False)\r\n strSummeBetraege = CStr(CLng(curSummeBetraege * 100))\r\n str = str & Auffuellen(strSummeBetraege, "0", 13, False)\r\n str = str & Auffuellen("", " ", 51)\r\n ESatz = str\r\nEnd Function<\/pre>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Datentraegeraustausch-web-images\/pic004.png\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2010_01\/Datentraegeraustausch-web-images\/pic005.png\")
<\/p>\nPublic Sub DTAUSDateiErstellen(strVerwendungszweck As String)\r\n Dim db As DAO.Database\r\n Dim rstEmpfaenger As DAO.Recordset\r\n Dim rstZahler As DAO.Recordset\r\n Dim lngBLZEmpfaenger As Long\r\n Dim strNameEmpfaenger As String\r\n Dim lngKontoEmpfaenger As Long\r\n Dim intAnzahl As Integer\r\n Dim lngSummeKontonummern As Long\r\n Dim lngSummeBLZ As Long\r\n Dim curSummeBetraege As Currency\r\n Dim lngKontoZahler As Long\r\n Dim lngBLZZahler As Long\r\n Dim curBetrag As Currency\r\n Dim strNameZahler As String\r\n Dim str As String\r\n Set db = CurrentDb\r\n Set rstEmpfaenger = db.OpenRecordset("SELECT * FROM tblOptionen", dbOpenDynaset)\r\n lngBLZEmpfaenger = rstEmpfaenger!Lastschriften_Bankleitzahl\r\n strNameEmpfaenger = rstEmpfaenger!Lastschriften_Kontoinhaber\r\n lngKontoEmpfaenger = rstEmpfaenger!Lastschriften_Kontonummer\r\n rstEmpfaenger.Close\r\n Set rstEmpfaenger = Nothing\r\n ''A-Satz\r\n str = str & ASatz(lngBLZEmpfaenger, strNameEmpfaenger, lngKontoEmpfaenger)\r\n Set rstZahler = db.OpenRecordset("SELECT * FROM tblMitglieder", dbOpenDynaset)\r\n Do While Not rstZahler.EOF\r\n ''C-Satz\r\n lngKontoZahler = rstZahler!Kontonummer\r\n lngBLZZahler = rstZahler!Bankleitzahl\r\n curBetrag = rstZahler!Mitgliedsbeitrag\r\n strNameZahler = rstZahler!Vorname & " " & rstZahler!Nachname\r\n str = str & Auffuellen(CSatz(lngBLZEmpfaenger, lngKontoZahler, lngKontoEmpfaenger, curBetrag, _\r\n strNameZahler, strVerwendungszweck, strNameEmpfaenger, lngBLZZahler), " ", 256)\r\n intAnzahl = intAnzahl + 1\r\n lngSummeKontonummern = lngSummeKontonummern + lngKontoZahler\r\n lngSummeBLZ = lngSummeBLZ + lngBLZZahler\r\n curSummeBetraege = curSummeBetraege + curBetrag\r\n rstZahler.MoveNext\r\n Loop\r\n rstZahler.Close\r\n Set rstZahler = Nothing\r\n Set db = Nothing\r\n ''E-Satz\r\n str = str & ESatz(intAnzahl, lngSummeKontonummern, lngSummeBLZ, curSummeBetraege)\r\n Open CurrentProject.Path & "\\DTAUS.txt" For Output As #1\r\n Print #1, str\r\n Close #1\r\nEnd Sub<\/pre>\nDownloads zu diesem Beitrag<\/h3>\n