<\/p>\n
Um Daten Ihrer eigenen Software so zu exportieren, dass Ihr Steuerberater diese in das DATEV-System einlesen kann, benötigen Sie gar nicht mal so viel Know-how. Die wesentlichen Informationen finden wir auf der Webseite von DATEV. Dieser Beitrag zeigt, wie Sie Daten im DATEV-Format exportieren und was dabei zu beachten ist. Die so entstandene Datei kann der Steuerberater dann per Importfunktion in das DATEV Rechnungswesen einlesen.<\/b><\/p>\n
Die grundlegenden Informationen finden Sie in der öffentlich verfügbaren Webseite unter folgender Adresse:<\/p>\n
https:\/\/developer.datev.de\/portal\/de\/dtvf<\/pre>\nDieser Beitrag beschränkt sich auf die Zusammenstellung einer Datei mit den Header<\/b>-Daten und Daten im Format Buchungsstapel<\/b>.<\/p>\n
Grundlegender Aufbau einer DATEV-Datei<\/h2>\n
Die DATEV-Datei enthält immer eine Zeile mit Daten im Format Header<\/b>. Danach folgt eine Zeile mit den Spaltenüberschriften für die Buchungsdaten und schließlich eine oder mehrere Zeilen mit den eigentlichen Buchungsdaten.<\/p>\n
Verschiedene Formate<\/h2>\n
Das DATEV-Format besteht aus verschiedenen Formatbeschreibungen. Verschiedene deshalb, weil es verschiedenartige Informationen gibt, die Sie damit beschreiben können. Wir wollen uns auf die wesentlichen Elemente beschränken – die übrigen können Sie mit dem Know-how aus diesem Beitrag und der Dokumentation dann leicht selbst realisieren.<\/p>\n
Es gibt die folgenden Formatsätze:<\/p>\n
Die Beschreibung des Satzaufbaus für die Header-Zeile finden Sie hier:<\/p>\n
https:\/\/developer.datev.de\/portal\/de\/dtvf\/formate\/header<\/pre>\nDie Tabelle auf dieser Seite enthält die Überschriften und die Beschreibung der möglichen Werte als regulärer Ausdruck.<\/p>\n
Eine Header-Zeile sieht beispielsweise wie folgt aus:<\/p>\n
\"EXTF\";700;21;\"Buchungsstapel\";12;20211007000000000;4;\"Bu-\r\nchungen_Konto1\";1;\"EUR\"<\/pre>\nDabei entsprechen die einzelnen Elemente diesen Feldern:<\/p>\n
Es gibt noch einige weitere Felder, die wir weiter unten berücksichtigen.<\/p>\n
Wie speichern wir die Headerdaten am einfachsten Wenn sie aus ihrer selbstprogrammierten Buchhaltungsdatenbank die Buchungsdaten für den Import in die DATEV-Software Ihres Steuerberaters exportieren wollen, werden Sie das regelmäßig erledigen – beispielsweise monatlich oder einmal je Quartal.<\/p>\n
Die Felder des Headers enthalten Daten, die wir über eine Tabelle namens tblHeader <\/b>erfassen (Entwurf siehe Bild 1). Diese enthält nicht genau die Felder, die in der Header-Datei gespeichert werden sollen. Die Felder ID <\/b>und Referenzbezeichnung <\/b>sind das Primärschüsselfeld sowie ein Feld für eine interne Bezeichnung, zum Beispiel Export 12\/2021<\/b>. Die übrigen Felder nehmen meist direkt die benötigten Daten auf, einige jedoch sind Fremdschlüsselfelder, welche zur Auswahl von Daten aus Lookuptabellen dienen.<\/p>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2022_01\/pic_1356_001.png\")
<\/p>\n
Bild 1: Entwurf der Tabelle tblHeader<\/span><\/b><\/p>\n Diese Lookuptabellen stellen wir in Bild 2 übersichtlich dar.<\/p>\n Bild 2: Übersicht des Datenmodells<\/span><\/b><\/p>\n Die Beziehungen zwischen der Tabelle tblHeader <\/b>und den übrigen Tabellen haben wir jeweils als Nachschlage-feld definiert.<\/p>\n Damit der Benutzer die Headerdaten einfach eingeben kann, haben wir dazu ein eigenes Formular bereitgestellt. Dieses heißt frmHeader <\/b>und verwendet die Tabelle tblHeader <\/b>als Datensatzquelle. Wir haben alle Felder der Tabelle aus der Feldliste in den Formularentwurf gezogen, die in der Dokumentation nicht als Leerfeld gekennzeichnet sind (siehe Bild 3).<\/p>\n Bild 3: Entwurf des Formulars zum Eingeben der Headerdaten<\/span><\/b><\/p>\n Hier sehen Sie bereits, dass die Felder, für die wir Lookuptabellen angelegt haben, auch im Formularentwurf als Nachschlagefelder angelegt werden.<\/p>\n Nach dem Wechsel in die Formularansicht können Sie die Daten direkt in das Formular eingeben beziehungsweise mit den Nachschlagefeldern auswählen (siehe Bild 4).<\/p>\n Bild 4: Eingabe der Headerdaten<\/span><\/b><\/p>\n Nachdem wir diese Eingabemöglichkeit geschaffen haben, wollen wir daraus noch die Headerdatei exportieren. Dazu sehen wir eine Schaltfläche namens cmdHeaderdateiErzeugen <\/b>vor, die wir unten im Formular platzieren.<\/p>\n Diese Schaltfläche ruft die Prozedur aus Listing 1 auf.<\/p>\n Listing 1: Prozedur zum Erzeugen der Headerdatei<\/span><\/b><\/p>\n Die Prozedur deklariert zwei Variablen, von denen eine die zu speichernde Headerzeile aufnimmt und die andere den Dateinamen.<\/p>\n Den Dateinamen setzt die Prozedur aus dem Pfad der aktuellen Datenbankdatei, dem Präfix DTVF_<\/b>, dem Inhalt des Feldes Dateiname <\/b>und der Dateiendung .csv <\/b>zusammen. <\/p>\n Bevor wir richtig loslegen, löscht die Prozedur eine eventuell bereits vorhandene Datei mit dem Namen aus strDateiname<\/b>. Dabei deaktivieren wir die eingebaute Fehlerbehandlung, da die Kill<\/b>-Anweisung beim Fehlen der angegebenen Datei einen Fehler auslöst.<\/p>\n Die folgenden Zeilen setzen den Inhalt der Headerdatei zusammen.<\/p>\n Dabei sind folgende Besonderheiten zu beachten (in allen anderen Fällen landet einfach der eingegebene Wert zwischen zwei Semikola):<\/p>\n Anschließend öffnen wir mit Open <\/b>eine Datei mit dem Namen aus strDateiname <\/b>und schreiben mit der Print<\/b>-Anweisung den Inhalt der Variablen strHeader <\/b>in die Datei, bevor wir diese mit der Close<\/b>-Anweisung wieder schließen.<\/p>\n Das Ergebnis sieht für unser Beispiel wie folgt aus:<\/p>\n Damit können wir nun einen Schritt weitergehen – und das Ergebnis mit einem speziell für diesen Zweck vorgesehenen Tool prüfen. Wie das gelingt, erfahren Sie im nächsten Schritt.<\/p>\n Unter dem folgenden Link finden Sie ein Tool zum Prüfen der Daten im DATEV-Format:<\/p>\n Mit diesem können Sie die erstellte Datei öffnen und prüfen. Das Tool zeigt dann an, welche Elemente fehlen oder das falsche Format haben. Es ist daher sehr hilfreich, den Export initial auf Basis von Daten aus der Datenbank zu programmieren und gleich zu testen.<\/p>\n Um die soeben erstellte Headerdatei zu prüfen, wählen Sie im Prüfprogramm den Menübefehl Datei|Öffnen <\/b>aus.<\/p>\n Im nun erscheinenden Dialog Datev Format Datei öffnen <\/b>wählen Sie die soeben erstellte Datei aus und bestätigen die Auswahl mit der Schaltfläche Öffnen<\/b>.<\/p>\n Bild 5 zeigt das Ergebnis für die Eingaben aus dem Beispiel von oben. Hier sehen Sie, dass alle Eingaben korrekt sind. Wäre dies nicht der Fall, würden Sie in der Spalte Meldung <\/b>hilfreiche Informationen finden, mit denen Sie den Export schnell anpassen und funktionstüchtig machen könnten.<\/p>\n Bild 5: Prüfung des Headers<\/span><\/b><\/p>\n Der Export der Buchungsdaten ist grundsätzlich aufwändiger, weil eine Zeile viel mehr Informationen enthalten kann als die Headerzeile, aber wir reduzieren die auszugebenden Daten auf einige wenige Pflichtdaten.<\/p>\n Als Erstes legen wir wieder eine Tabelle an, welche die zu exportierenden Daten enthält. Diese nennen wir tblBuchungsstapel<\/b>. Die Tabelle sieht im Entwurf wie in Bild 6 aus.<\/p>\n Bild 6: Entwurf der Tabelle zum Speichern der Buchungsdaten<\/span><\/b><\/p>\n In der Datenblattansicht zeigt die Tabelle tblBuchungsstapel<\/b> ihre Daten wie in Bild 7 an. Diese wollen wir nun in geeigneten Formularen anzeigen.<\/p>\n Bild 7: Beispieldaten in der Tabelle tblBuchungsstapel<\/span><\/b><\/p>\n Die Headerdaten und die Buchungsdaten sind nicht miteinander verknüpft. Die Buchungsdaten werden aber über das Datum der jeweiligen Headerdatei zugeordnet, sprich: Mit einem Header werden alle Buchungen exportiert, die innerhalb der Datumsangaben der Felder DatumVon <\/b>und DatumBis <\/b>liegen.<\/p>\n Wir wollen in dem Formular, mit dem wir den Export steuern wollen, ein Kombinationsfeld zur Auswahl eines Headers anbieten, über das der Benutzer die zu exportierenden Buchungsdatensätze filtern kann.<\/p>\n <\/p>\n Ein Unterformular soll die Datensätze der Tabelle tblBuchungsstapel <\/b>anzeigen, die zu dem Datumsbereich des selektierten Headers passen. Der Entwurf dieser beiden Formulare sieht wie in Bild 8 aus.<\/p>\n Bild 8: Entwurf des Formulars zum Steuern des Datev-Exports<\/span><\/b><\/p>\n Das Kombinationsfeld cboHeader <\/b>verwendet die folgende UNION<\/b>-Abfrage als Datensatzherkunft:<\/p>\n Dadurch zeigt das Kombinationsfeld den Eintrag Alle anzeigen <\/b>sowie die Werte des Feldes Dateiname <\/b>der Tabelle tblHeader <\/b>an (siehe Bild 9).<\/p>\n Bild 9: Auswahl des Headers<\/span><\/b><\/p>\n Damit das Kombinationsfeld gleich beim Laden des Formulars den Eintrag Alle anzeigen <\/b>liefert, fügen wir für dieses die folgende Ereignisprozedur hinzu:<\/p>\n Das Unterformular verwendet die Tabelle tblBuchungsstapel <\/b>als Datensatzquelle. Es zeigt alle Felder dieser Tabelle in der Datenblattansicht an.<\/p>\n Damit das Unterformular sich in der Größe dem Hauptformular anpasst, haben wir die Eigenschaften Horizontaler Anker <\/b>und Vertikaler Anker <\/b>auf den Wert Beide <\/b>eingestellt.<\/p>\n Damit nach der Auswahl eines der Einträge des Kombinationsfeldes cboHeader <\/b>die richtigen Daten angezeigt werden, wird nach dem Aktualisieren die Ereignisprozedur aus Listing 2 aufgerufen.<\/p>\n Listing 2: Prozedur zum Aktualisieren der Buchungsdatensätze <\/span><\/b><\/p>\n Diese prüft zuerst, ob aktuell der Eintrag Alle anzeigen <\/b>ausgewählt ist. Hier hat cboHeader <\/b>den Wert 0<\/b>. In diesem Fall wird der Filter für das Unterformular geleert, damit dieses alle Datensätze der Tabelle tblBuchungsstapel <\/b>anzeigt. Außerdem stellen wir die Eigenschaft Enabled <\/b>der Schaltfläche cmdDatevExport <\/b>auf False <\/b>ein, da aktuell mangels gewählter Headerdaten kein Export vorgenommen werden kann.<\/p>\n In allen anderen Fällen liest die Prozedur durch Aufrufen der DLookup<\/b>-Funktion die Werte der Felder DatumVon <\/b>und DatumBis <\/b>der Tabelle tblHeader <\/b>für den aktuell im Kombinationsfeld ausgewählten Datensatz aus und stellt in der Variablen strFilter <\/b>einen Ausdruck zusammen, der beispielsweise wie folgt aussieht:<\/p>\n Dann stellt die die Eigenschaft Filter <\/b>des Unterformulars auf diesen Filterausdruck ein und aktiviert den Filter durch Setzen der Eigenschaft FilterOn <\/b>auf den Wert True<\/b>.<\/p>\n Dies sorgt dafür, dass das Unterformular nur solche Buchungen anzeigt, die in dem für den Header festgelegten Datumsbereich liegen.<\/p>\n Außerdem aktiviert die Prozedur in diesem Fall die Schaltfläche cmdDatevExport<\/b>. Damit kann der Benutzer nun den Export durch Betätigen der Schaltfläche cmdDatevExport <\/b>anstoßen, die folgende Prozedur auslöst:<\/p>\n Der eigentliche Export erfolgt nun in der Prozedur Datev-Export<\/b>, welche den Primärschüsselwert des Header-Datensatzes der Tabelle tblHeader <\/b>enthält, für den die Daten exportiert werden sollen (siehe Listing 3).<\/p>\n Listing 3: Prozedur zum Exportieren der Datev-Daten<\/span><\/b><\/p>\n Diese Prozedur ermittelt aus der Tabelle tblHeader <\/b>zunächst den Datumsbereich für die zu exportierenden Buchungssätze und speichert die beiden Datumsangaben in den Variablen datVon <\/b>und datBis<\/b>. Dann liest sie den Wert des Feldes Dateiname <\/b>aus der Tabelle tblHeader <\/b>aus.<\/p>\n Mit dem Datumsbereich stellt die Prozedur einen Filter zusammen, der dem Filterausdruck entspricht, den wir bereits weiter oben zum Filtern der anzuzeigenden Buchungsdatensätze im Unterformular genutzt haben.<\/p>\n Diesen übergeben wir dann an die Funktion BuchungenErstellen<\/b>, die uns den Teil des Datev-Exports mit den Buchungsdaten zurückliefert.<\/p>\n Eine zweite Funktion namens HeaderErstellen <\/b>stellt den Header zusammen.<\/p>\n Diese Funktion entspricht weitestgehend der Prozedur, die wir weiter oben bereits vorgestellt haben. Wir haben den Code allerdings in eine eigene Funktion ausgelagert. Die Funktion HeaderErstellen <\/b>erwartet den Wert des Primärschüsselfeldes des Datensatzes der Tabelle tblHeader<\/b>, für den wir die Daten zusammenstellen wollen.<\/p>\n Die Buchungen stellt die Funktion BuchungenErstellen <\/b>zusammen (siehe Listing 4). Diese erwartet einen Filterausdruck, mit dem die Buchungssätze in der Tabelle tblBuchungsstapel <\/b>nach dem Datum für den Export gefiltert werden. Die Prozedur erstellt ein Recordset auf Basis der Tabelle tblBuchungsstapel<\/b>, das genau dieses Kriterium zum Filtern der Datensätze nutzt.<\/p>\n Listing 4: Prozedur zum Zusammenstellen der Buchungsdaten<\/span><\/b><\/p>\n Die Prozedur stellt im Recordset rstBuchungen <\/b>alle Buchungen aus der Tabelle tblBuchungsstapel <\/b>zusammen, die mit dem Filterkriterium übereinstimmen. Dann stellt es eine Überschrift zusammen, die aber bei einer späteren Prüfung nicht im Detail ausgewertet wird, sondern nur als Überschriftenzeile erkannt wird.<\/p>\n Danach durchläuft die Prozedur die Datensätze des Recordsets rstBuchungen <\/b>in einer Do While<\/b>-Schleife.<\/p>\n Dabei stellt sie alle in der Formatbeschreibung definierten Elemente zusammen. Viele davon berücksichtigen wir nicht, sondern übergeben nur leere Werte beziehungsweise Zeichenketten („“<\/b>). Bei einigen jedoch werden die Werte gefüllt, zum Beispiel für Umsatz, SollHabenKennzeichen et cetera.<\/p>\n Bei den Angaben zu Konto und Gegenkonto verwenden wir in den Beispieldaten nur die beiden Konten 1371 und 1400 – die genaue Zuweisung an die Konten erledigt der Steuerberater (sonst könnten wir ja gleich alles selbst machen).<\/p>\n Die Funktion HeaderErstellen <\/b>erwartet den Wert des Primärschlüsselfeldes der Tabelle tblHeader <\/b>des Datensatzes, den der Benutzer mit dem Kombinationsfeld cboHeader <\/b>ausgewählt hat und der von der Prozedur DatevExport <\/b>an die Funktion HeaderErstellen<\/b> übergeben wird (siehe Listing 5).<\/p>\n Listing 5: Funktion zum Zusammenstellen der Headerdaten<\/span><\/b><\/p>\n Die Funktion ist ähnlich aufgebaut wie die eingangs beschriebene Prozedur cmdHeaderdateiErzeugen_Click<\/b>. Allerdings öffnet diese ein Recordset namens rstHeader <\/b>auf Basis der Tabelle tblHeader <\/b>mit dem als Parameter übergebenen Wert aus lngHeaderID <\/b>als Vergleichswert in der WHERE<\/b>-Klausel.<\/p>\n Da dieses Recordset nur einen Datensatz zurückgeben kann, greifen wir in den folgenden Anweisungen direkt auf diese Werte zu – zum Beispiel auf rstHeader!Kennzeichen<\/b>. Die in der Funktion zusammengestellte Header-Zeichenkette wird als Ergebnis zurückgeliefert.<\/p>\n Die Exportdatei erstellt schließlich die Prozedur DateiErstellen<\/b>. Diese nimmt mit strDateiname <\/b>den Ausdruck entgegen, den der Benutzer im Feld Dateiname <\/b>des Formulars frmHeader <\/b>eingetragen hat. Der zweite Parameter erwartet den in der Datei zu speichernden Text.<\/p>\n Die Prozedur ersetzt einige Sonderzeichen in strDateiname <\/b>(Leerzeichen und Schrägstrich) durch den Unterstrich. Weitere Ersetzungen können Sie noch durch Ergänzen weiterer Replace<\/b>-Anweisungen hinzufügen.<\/p>\n Danach fügt sie den Pfad zusammen, indem sie das Verzeichnis der aktuellen Datenbank nutzt und den Inhalt aus strDateiname <\/b>mit führendem DTVF_ <\/b>und folgendem .csv <\/b>ergänzt. Bevor sie die Datei neu erstellt, wird eine eventuell bereits vorhandene Datei gleichen Namens gelöscht. Dann öffnet die Prozedur die Datei zum Anhängen von Text und fügt den Text mit der Print<\/b>-Anweisung hinzu. Schließlich schließt sie die Datei mit der Close<\/b>-Anweisung:<\/p>\n Damit erstellt die Prozedur eine Datei wie in Bild 10.<\/p>\n Bild 10: Resultierende Export-Datei mit einigen Beispieldaten<\/span><\/b><\/p>\n Um zu prüfen, ob der Export von DATEV lesbar ist, können Sie wieder das Prüfprogramm von DATEV nutzen. Mit diesem lesen wir erneut die erstellte Exportdatei ein und wechseln dann zur Registerseite Datensätze<\/b>. Hier werden dann die Datensätze des Buchungsstapels angezeigt, die wir per Export in die Exportdatei geschrieben haben (siehe Bild 11).<\/p>\n Bild 11: Prüfung des Buchungsstapels<\/span><\/b><\/p>\n Das Ergebnis ist in diesem Fall perfekt – wenn Sie selbst erstmalig mit dem Tool experimentieren, wird dies möglicherweise nicht so aussehen, aber das Prüfprogramm liefert dann recht hilfreiche Informationen zur Optimierung.<\/p>\n Schließlich führen wir noch einige Anpassungen durch, um die beiden Formulare besser bedienbar zu machen. Als Erstes wollen wir dem Formular frmDatevExport <\/b>neben dem Kombinationsfeld cboHeader <\/b>eine Schaltfläche hinzufügen, welche die Daten zum aktuell ausgewählten Header im Formular frmHeader <\/b>anzeigt (siehe Bild 12).<\/p>\n Bild 12: Schaltfläche zum Anzeigen der Header-Details<\/span><\/b><\/p>\n Diese öffnet das Formular frmHeader <\/b>als modalen Dialog und übergibt den aktuellen Wert von cboHeader <\/b>als Öffnungsargument.<\/p>\n Da das Formular als modaler Dialog geöffnet wird, läuft diese Prozedur weiter, wenn der Benutzer dieses schließt oder unsichtbar macht.<\/p>\n Dann prüft die Prozedur, ob das Formular noch geöffnet ist und falls ja, liest es die ID des aktuell ausgewählten Header-Datensatzes aus und stellt das Kombinationsfeld cboHeader <\/b>darauf ein.<\/p>\n Außerdem aktualisiert die Prozedur durch einen Aufruf der Prozedur cboHeader_After-Update<\/b> die Anzeige der Daten im Unterformular und schließt das Formular frmHeader<\/b>:<\/p>\n Im Formular frmHeader <\/b>haben wir ebenfalls Änderungen durchgeführt. Als Erstes haben wir dort noch eine weitere Schaltfläche namens cmdHeaderUebernehmen <\/b>hinzugefügt (siehe Bild 13).<\/p>\n Bild 13: Schaltfläche zum Übernehmen des Header-Satzes<\/span><\/b><\/p>\n Dieses soll das Formular unsichtbar machen:<\/p>\n Diese Schaltfläche soll allerdings nicht standardmäßig angezeigt werden, sondern nur, wenn das Formular frmHeader <\/b>vom Formular frmDatevExport <\/b>aus aufgerufen wurde.<\/p>\n Ob das der Fall ist, prüfen wir in der Prozedur, die durch das Ereignis Beim Öffnen <\/b>des Formulars frmHeader <\/b>ausgelöst wird und den folgenden Code enthält:<\/p>\n![\"Übersicht](\"..\/fileadmin\/_temp_\/2022_01\/pic_1356_002.png\")
<\/p>\nFormular zur Eingabe der Headerdaten<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2022_01\/pic_1356_004.png\")
<\/p>\n![\"Eingabe](\"..\/fileadmin\/_temp_\/2022_01\/pic_1356_003.png\")
<\/p>\nPrivate Sub <\/span>cmdHeaderdateiErzeugen_Click()\r\n Dim <\/span>strHeader As String<\/span>\r\n Dim <\/span>strDateiname As String<\/span>\r\n strDateiname = CurrentProject.Path & \"\\DTVF_\" & Me!Dateiname & \".csv\"\r\n On Error Resume Next<\/span>\r\n Kill strDateiname\r\n On Error GoTo<\/span> 0\r\n strHeader = strHeader & \"\"\"\" & Me!Kennzeichen & \"\"\";\"\r\n strHeader = strHeader & Me!Versionsnummer & \";\"\r\n strHeader = strHeader & Me!FormatkategorieID & \";\"\r\n strHeader = strHeader & DLookup(\"Formatversion\", \"tblFormatversionen\", \"FormatversionID = \" & Me!Formatversion) & \";\"\r\n strHeader = strHeader & Me!Formatversion & \";\"\r\n strHeader = strHeader & Format(Me!ErzeugtAm, \"YYYYMMDDHHNNSS000\") & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & Me!Beraternummer & \";\"\r\n strHeader = strHeader & Me!Mandantennummer & \";\"\r\n strHeader = strHeader & Format(Me!Wirtschaftsjahresbeginn, \"YYYYMMDD\") & \";\"\r\n strHeader = strHeader & Me!Sachkontenlaenge & \";\"\r\n strHeader = strHeader & Format(Me!DatumVon, \"YYYYMMDD\") & \";\"\r\n strHeader = strHeader & Format(Me!DatumBis, \"YYYYMMDD\") & \";\"\r\n strHeader = strHeader & Me!Bezeichnung & \";\"\r\n strHeader = strHeader & Me!Diktatkuerzel & \";\"\r\n strHeader = strHeader & Me!Buchungstyp & \";\"\r\n strHeader = strHeader & Me!Rechnungslegungszweck & \";\"\r\n strHeader = strHeader & Me!Festschreibung & \";\"\r\n strHeader = strHeader & Me!Waehrungskennzeichen & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & Me!Sachkontenrahmen & \";\"\r\n strHeader = strHeader & Me!IDDerBranchenLoesung & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & Me!Anwendungsinformationen\r\n Open strDateiname For Append As <\/span>#1\r\n Print #1, strHeader\r\n Close #1\r\nEnd Sub<\/span><\/pre>\n\n
\"EXTF\";700;21;Buchungsstapel;12;20211206000000000;;;;;1234567;12345;20210101;4;20211101;20211130;Export 11\/2021;AM;1;0;1;EUR;;;;;03;;;;<\/pre>\n
Datei im DATEV-Format prüfen<\/h2>\n
https:\/\/developer.datev.de\/portal\/de\/dtvf\/tools<\/pre>\n
![\"Prüfung](\"..\/fileadmin\/_temp_\/2022_01\/pic_1356_005.png\")
<\/p>\nExport der Buchungsdaten programmieren<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2022_01\/pic_1356_006.png\")
<\/p>\n![\"Beispieldaten](\"..\/fileadmin\/_temp_\/2022_01\/pic_1356_007.png\")
<\/p>\nFormulare für die Eingabe und den Export der Buchungssätze<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2022_01\/pic_1356_008.png\")
<\/p>\nSELECT 0 AS ID, ''Alle anzeigen'' AS Dateiname \r\nFROM tblHeader\r\nUNION\r\nSELECT tblHeader.ID, tblHeader.Dateiname\r\nFROM tblHeader;<\/pre>\n
![\"Auswahl](\"..\/fileadmin\/_temp_\/2022_01\/pic_1356_009.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Me!cboHeader = Me!cboHeader.ItemData(0)\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboHeader_AfterUpdate()\r\n Dim <\/span>strFilter As String<\/span>\r\n Dim <\/span>datVon As Date<\/span>\r\n Dim <\/span>datbis As Date<\/span>\r\n If <\/span>Me!cboHeader = 0 Then<\/span>\r\n Me!sfmBuchungsstapel.Form.Filter = \"\"\r\n Me!cmdDatevExport.Enabled = False \r\n Else<\/span>\r\n datVon = DLookup(\"DatumVon\", \"tblHeader\", \"ID = \" & Me!cboHeader)\r\n datbis = DLookup(\"DatumBis\", \"tblHeader\", \"ID = \" & Me!cboHeader)\r\n strFilter = \"Belegdatum >= \" & ISODatum(datVon) & \" AND Belegdatum < \" & ISODatum(datbis + 1)\r\n With<\/span> Me!sfmBuchungsstapel.Form\r\n .Filter = strFilter\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\n Me!cmdDatevExport.Enabled = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nBelegdatum >= #2021\/11\/01 00:00:00# AND Belegdatum < #2021\/12\/01 00:00:00#<\/pre>\n
Private Sub <\/span>cmdDatevExport_Click()\r\n DatevExport Me!cboHeader\r\nEnd Sub<\/span><\/pre>\nProgrammieren des Exports<\/h2>\n
Public Sub <\/span>DatevExport(lngHeaderID As Long<\/span>)\r\n Dim <\/span>strHeader As String<\/span>\r\n Dim <\/span>strBuchungen As String<\/span>\r\n Dim <\/span>strFilter As String<\/span>\r\n Dim <\/span>strDateiname As String<\/span>\r\n Dim <\/span>datVon As Date<\/span>\r\n Dim <\/span>datbis As Date<\/span>\r\n datVon = DLookup(\"DatumVon\", \"tblHeader\", \"ID = \" & lngHeaderID)\r\n datbis = DLookup(\"DatumBis\", \"tblHeader\", \"ID = \" & lngHeaderID)\r\n strDateiname = DLookup(\"Dateiname\", \"tblHeader\", \"ID = \" & lngHeaderID)\r\n strFilter = \"Belegdatum >= \" & ISODatum(datVon) & \" AND Belegdatum < \" & ISODatum(datbis + 1)\r\n strBuchungen = BuchungenErstellen(strFilter)\r\n strHeader = HeaderErstellen(lngHeaderID)\r\n DateiErstellen strDateiname, strHeader & strBuchungen\r\nEnd Sub<\/span><\/pre>\nBuchungen zusammenstellen<\/h2>\n
Public Function <\/span>BuchungenErstellen(strFilter As String<\/span>) As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rstBuchungen As <\/span>DAO.Recordset\r\n Dim <\/span>strBuchungen As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rstBuchungen = db.OpenRecordset(\"SELECT * FROM tblBuchungsstapel WHERE \" & strFilter, dbOpenDynaset)\r\n strBuchungen = \"Umsatz;Soll-\/Haben-Kennzeichen;WKZ Umsatz;...)\" & vbCrLf<\/span>\r\n Do While<\/span> Not<\/span> rstBuchungen.EOF\r\n strBuchungen = strBuchungen & rstBuchungen!Umsatz & \";\" ''Umsatz\r\n strBuchungen = strBuchungen & \"\"\"\" & rstBuchungen!SollHabenKennzeichen & \"\"\";\" ''Soll\/Haben-Kennzeichen\r\n strBuchungen = strBuchungen & \"\"\"\" & rstBuchungen!WKZUmsatz & \"\"\";\" ''WKZ Umsatz\r\n strBuchungen = strBuchungen & \";\" ''Kurs\r\n strBuchungen = strBuchungen & \";\" ''Basis-Umsatz\r\n strBuchungen = strBuchungen & \"\"\"\"\";\" ''WKZ Basis-Umsatz\r\n strBuchungen = strBuchungen & rstBuchungen!Konto & \";\" ''Konto\r\n strBuchungen = strBuchungen & rstBuchungen!Gegenkonto & \";\" ''Gegenkonto\r\n strBuchungen = strBuchungen & \"\"\"\"\";\" ''BU-Schlüssel\r\n strBuchungen = strBuchungen & Format(rstBuchungen!Belegdatum, \"DDMM\") & \";\" ''Belegdatum\r\n strBuchungen = strBuchungen & \"\"\"\" & rstBuchungen!Belegfeld1 & \"\"\";\" ''Belegfeld1\r\n strBuchungen = strBuchungen & \"\"\"\" & rstBuchungen!Belegfeld2 & \"\"\";\" ''Belegfeld2\r\n strBuchungen = strBuchungen & \";\" ''Skonto\r\n strBuchungen = strBuchungen & \"\"\"\" & rstBuchungen!Buchungstext & \"\"\";\" ''Buchungstext\r\n strBuchungen = strBuchungen & \";\" ''Postensperre\r\n strBuchungen = strBuchungen & \"\"\"\"\";\" ''Diverse Adressnummer\r\n strBuchungen = strBuchungen & \";\" ''Geschäftspartnerbank\r\n strBuchungen = strBuchungen & \";\" ''Sachverhalt\r\n strBuchungen = strBuchungen & \";\" ''Zinssperre\r\n strBuchungen = strBuchungen & \"\"\"\"\";\" ''Beleglink\r\n strBuchungen = strBuchungen & \"\"\"\"\";\" ''Beleginfo - Art 1\r\n strBuchungen = strBuchungen & \"\"\"\"\";\" ''Beleginfo - Inhalt 1\r\n ...\r\n strBuchungen = strBuchungen & \"\"\"\"\";\" ''Kost1 - Kostenstelle\r\n strBuchungen = strBuchungen & \"\"\"\"\";\" ''Kost2 - Kostenstelle\r\n strBuchungen = strBuchungen & \";\" ''Kost-Menge\r\n strBuchungen = strBuchungen & \"\"\"\"\";\" ''EU-Land u. UstID (Bestimmung)\r\n strBuchungen = strBuchungen & \";\" ''EU-Steuersatz\r\n strBuchungen = strBuchungen & \"\"\"\"\";\" ''Abw. Versteuerungsart\r\n ...\r\n strBuchungen = strBuchungen & \"\"\"\"\";\" ''EU-Land u. UstID (Ursprung)\r\n strBuchungen = strBuchungen ''EU-Steuersatz (Ursprung)\r\n strBuchungen = strBuchungen & vbCrLf<\/span>\r\n rstBuchungen.MoveNext<\/span>\r\n Loop<\/span>\r\n If <\/span>Not<\/span> Len<\/span>(strBuchungen) = 0 Then<\/span>\r\n strBuchungen = Left<\/span>(strBuchungen, Len<\/span>(strBuchungen) - 2)\r\n End If<\/span>\r\n BuchungenErstellen = strBuchungen\r\nEnd Function<\/span><\/pre>\nZusammenstellung der Headerdaten per Funktion<\/h2>\n
Public Function <\/span>HeaderErstellen(lngHeaderID As Long<\/span>) As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rstHeader As <\/span>DAO.Recordset\r\n Dim <\/span>strHeader As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rstHeader = db.OpenRecordset(\"SELECT * FROM tblHeader WHERE ID = \" & lngHeaderID, dbOpenDynaset)\r\n strHeader = strHeader & \"\"\"\" & rstHeader!Kennzeichen & \"\"\";\"\r\n strHeader = strHeader & rstHeader!Versionsnummer & \";\"\r\n strHeader = strHeader & rstHeader!FormatkategorieID & \";\"\r\n strHeader = strHeader & DLookup(\"Formatversion\", \"tblFormatversionen\", \"FormatversionID = \" _\r\n & rstHeader!Formatversion) & \";\"\r\n strHeader = strHeader & rstHeader!Formatversion & \";\"\r\n strHeader = strHeader & Format(rstHeader!ErzeugtAm, \"YYYYMMDDHHNNSS000\") & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & rstHeader!Beraternummer & \";\"\r\n strHeader = strHeader & rstHeader!Mandantennummer & \";\"\r\n strHeader = strHeader & Format(rstHeader!Wirtschaftsjahresbeginn, \"YYYYMMDD\") & \";\"\r\n strHeader = strHeader & rstHeader!Sachkontenlaenge & \";\"\r\n strHeader = strHeader & Format(rstHeader!DatumVon, \"YYYYMMDD\") & \";\"\r\n strHeader = strHeader & Format(rstHeader!DatumBis, \"YYYYMMDD\") & \";\"\r\n strHeader = strHeader & rstHeader!Bezeichnung & \";\"\r\n strHeader = strHeader & rstHeader!Diktatkuerzel & \";\"\r\n strHeader = strHeader & rstHeader!Buchungstyp & \";\"\r\n strHeader = strHeader & rstHeader!Rechnungslegungszweck & \";\"\r\n strHeader = strHeader & rstHeader!Festschreibung & \";\"\r\n strHeader = strHeader & rstHeader!Waehrungskennzeichen & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & rstHeader!Sachkontenrahmen & \";\"\r\n strHeader = strHeader & rstHeader!IDDerBranchenLoesung & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & \";\"\r\n strHeader = strHeader & rstHeader!Anwendungsinformationen\r\n HeaderErstellen = strHeader\r\nEnd Function<\/span><\/pre>\nErstellen der DATEV-Exportdatei<\/h2>\n
Public Sub <\/span>DateiErstellen(strDateiname As String<\/span>, strText As String<\/span>)\r\n Dim <\/span>strPfad As String<\/span>\r\n strDateiname = Replace<\/span>(strDateiname, \" \", \"_\")\r\n strDateiname = Replace<\/span>(strDateiname, \"\/\", \"_\")\r\n strPfad = CurrentProject.Path & \"\\DTVF_\" & strDateiname & \".csv\"\r\n On Error Resume Next<\/span>\r\n Kill strPfad\r\n On Error GoTo<\/span> 0\r\n Open strPfad For Append As <\/span>#1\r\n Print #1, strText\r\n Close #1\r\nEnd Sub<\/span><\/pre>\n![\"Resultierende](\"..\/fileadmin\/_temp_\/2022_01\/pic_1356_010.png\")
<\/p>\nPrüfen der Datei<\/h2>\n
![\"Prüfung](\"..\/fileadmin\/_temp_\/2022_01\/pic_1356_011.png\")
<\/p>\nAnpassungen für bessere Bedienbarkeit<\/h2>\n
![\"Schaltfläche](\"..\/fileadmin\/_temp_\/2022_01\/pic_1356_012.png\")
<\/p>\nPrivate Sub <\/span>cmdHeaderAnzeigen_Click()\r\n DoCmd.OpenForm \"frmHeader\", WindowMode:=acDialog, OpenArgs:=Me!cboHeader\r\n If <\/span>IstFormularGeoeffnet(\"frmHeader\") Then<\/span>\r\n Me!cboHeader = Forms!frmHeader!ID\r\n cboHeader_AfterUpdate\r\n DoCmd.Close acForm, \"frmHeader\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Schaltfläche](\"..\/fileadmin\/_temp_\/2022_01\/pic_1356_013.png\")
<\/p>\nPrivate Sub <\/span>cmdHeaderUebernehmen_Click()\r\n Me.Visible = False<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Open(Cancel As Integer<\/span>)\r\n If <\/span>Not<\/span> IsNull(Me.OpenArgs) Then<\/span>\r\n If <\/span>Me.OpenArgs = 0 Then<\/span>\r\n Me.Recordset.AddNew<\/span>\r\n