Thema "VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal" in Betriebliches Rechnungswesen

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Sat, 20 Feb 2021 17:31:32 GMT

Hallo Leute,

heute Nachmittag habe ich nun Zeit gehabt und ein VBScript-Tool erstellt, mit dem man jetzt einen Jahresvorlauf in Monate o. Quartale aufteilen kann. Sollten bei der Aufteilung in einem Vorlauf keine Buchungssätze vorhanden sein, weil in diesem Zeitraum keine Buchungen erfolgten, wird der Vorlauf automatisch gelöscht.

Vorgehensweise:

Mandantendaten

Die von dem Mandanten erhaltenen Daten bzw. den DATEV-Vorlauf auf ein Laufwerk kopieren bzw. exportieren. Hier empfiehlt sich das Zentrale Exportverzeichnis von DATEV zu nutzen (L:\DATEV\...).
Dateiauswahl

Hierzu könnt Ihr per Drag & Drop den zu konvertierenden Vorlauf auf das VBSript-Tool fallen lassen und starten oder Ihr wählt die Datei einfach per Doppelklick. Es wird dann eine Dateiauswahl gestartet.
Start der Konvertierung

Nach der Dateiauswahl wird die Konvertierungsart gewählt. Es handelt sich um eine schlichte Inputbox.

Zur Auswahl stehen m = je Monat oder q = je Quartal.

Die Exportdateien erhalten den Dateinamen mit dem Zusatz "*_MM" für Monat bzw. "*_QQ" für Quartal. Die Originaldatei wird nicht verändert oder gelöscht.

Bei Abbruch oder Falscheingabe wird der Vorgang komplett abgebrochen.
DATEV-Import

Jetzt einfach im Anschluss die konvertierten Dateien wie gewohnt über die Stapelverarbeitung importieren. Es sind keine Änderungen an den Stapelvorlaufdaten notwendig. Sämtliche Zeitraumsangaben wurden entsprechend der getroffenen Auswahl angepasst.

Am Ende der Konvertierung wird folgende Meldungen ausgeworfen.

oder

Das Endergebnis sieht wie folgt aus.

Für Monat:

Für Quartal:

Ich habe den Export mit ca. 1000 Buchungssätzen auf einer WTS-Station getestet. Es hat insgesamt nur wenige Sekunden gedauert. Die Daten konnten von mir einwandfrei eingelesen werden und ich habe keine Fehlermeldungen erhalten. Auch die Belegverknüpfungen sollten einwandfrei funktionieren, da diese als GUID-Wert ja vorliegen.

So damit sollte das Thema wohl endlich endgültig der Vergangenheit angehören. Auch für zukünftige Versionen sollte alles funktionieren, da ich immer die gesamten Zeilen auslese, ohne diese zu verändern.

Und hier der Quellcode:

Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 Const DATEVBelegdatum = 9 Const DATEVFibuVon = 14 Const DATEVFibuBis = 15 Dim fs Dim sFileIn, f Dim sPathOutput Dim i, z, q Dim sFileOut Dim sLine Dim sTemp, tArray Dim sYear, iMonth Dim sOutputFile Dim ReadFibu set fs = createobject("Scripting.FileSystemObject") If WScript.Arguments.length> 0 Then sFileIn = WScript.Arguments(0) Else If sFileIn="" Then sFileIn=ChooseFile() If sFileIn="" Then WScript.Quit End If sPathOutput=GetPathName(sFileIn) sFileOut = GetFileNameWithOutExtension(sFileIn) Dim sChooseExport: sChooseExport=InputBox("Bitte wählen Sie die Exportart aus." & vbNewLine & vbNewLine & " => m = Monat" & vbNewLine & " => q = Quartal","Vorlauf trennen","m") If sChooseExport="" Then WScript.Quit If sChooseExport="q" Then ReDim sOutputFile(3) Else ReDim sOutputFile(11) End If i=0 Set f = fs.OpenTextFile(sFileIn,ForReading) Select Case LCase(sChooseExport) Case "m" 'je Monat For i = 0 To 11 Set sOutputFile(i)=fs.OpenTextFile(fs.BuildPath(sPathOutput, sFileOut &"_" & FormatExt((i+1),2) & ".csv") ,ForWriting,True,0) Next 'First Step 'Write Header, erste Zeile Umwandlung Vorlaufdatum For z = 1 To 2 sLine=f.Readline If z = 1 Then 'Fibu-Vorlaufdatum tArray = Split(sLine,";") sYear = Left(tArray(DATEVFibuVon),4) For i = 0 To 11 tArray(DATEVFibuVon)=sYear & FormatExt((i+1),2) & "01" 'Monatsanfang If i=11 Then tArray(DATEVFibuBis)=sYear & "1231" 'Dezember Else tArray(DATEVFibuBis)=sYear & FormatExt((i+1),2) & Day(DateSerial(sYear,(i+2),0)) 'Monats => 0.03.2020 => 29.02.2020 End If For q=LBound(tArray) To UBound(tArray) sTemp = sTemp & tArray(q) & ";" Next sTemp = Left(sTemp,Len(sTemp)-1) sOutputFile(i).writeline sTemp sTemp="" Next Else For i = 0 To 11 sOutputFile(i).writeline sLine Next End If Next 'End First Step 'Second Step 'Lese Fibu-Daten und verteile auf Einzevorläufe Do Until f.AtEndOfStream sLine = f.ReadLine tArray=Split(sLine,";") iMonth=Right(tArray(DATEVBelegdatum),2) sOutputFile(CInt(iMonth)-1).writeline sLine Loop 'End Second Step 'Last Step 'Schließe alle offenen Dateien For i = 0 To 11 sOutputFile(i).close If GetNumberOfLines(fs.BuildPath(sPathOutput, sFileOut &"_" & FormatExt((i+1),2) & ".csv")) <= 3 Then fs.DeleteFile(fs.BuildPath(sPathOutput, sFileOut &"_" & FormatExt((i+1),2) & ".csv")) Next MsgBox "Alle Buchungssätze wurden monatsweise in einzelne Vorläufe verteilt. Die alle Dateien haben den Zusatz *_MM erhalten und können jetzt importiert werden.",48,"Konvert DATEV-Fibu" Case "q" 'je Quartal For i = 0 To 3 Set sOutputFile(i)=fs.OpenTextFile(fs.BuildPath(sPathOutput, sFileOut &"_" & RomanNumber((i+1)) & ".csv") ,ForWriting,True,0) Next 'First Step 'Write Header, erste Zeile Umwandlung Vorlaufdatum For z = 1 To 2 sLine=f.Readline If z = 1 Then 'Fibu-Vorlaufdatum tArray = Split(sLine,";") sYear = Left(tArray(DATEVFibuVon),4) For i = 0 To 3 tArray(DATEVFibuVon)=sYear & FormatExt(((i+1)*3)-2,2) & "01" 'Anfang Quartal If i=3 Then tArray(DATEVFibuBis)=sYear & "1231" 'Dezember Else tArray(DATEVFibuBis)=sYear & FormatExt(((i+1)*3),2) & Day(DateSerial(sYear,((i+1)*3)+1,0)) 'Ende Quartal => 0.03.2020 => 28.02.2020 End If For q=LBound(tArray) To UBound(tArray) sTemp = sTemp & tArray(q) & ";" Next sTemp = Left(sTemp,Len(sTemp)-1) sOutputFile(i).writeline sTemp sTemp="" Next Else For i = 0 To 3 sOutputFile(i).writeline sLine Next End If Next 'End First Step 'Second Step 'Lese Fibu-Daten und verteile auf Einzevorläufe Do Until f.AtEndOfStream sLine = f.ReadLine tArray=Split(sLine,";") iMonth=Right(tArray(DATEVBelegdatum),2) Select Case True Case iMonth >= 1 And iMonth <= 3 sOutputFile(0).writeline sLine Case iMonth >= 4 And iMonth <= 6 sOutputFile(1).writeline sLine Case iMonth >= 7 And iMonth <= 9 sOutputFile(2).writeline sLine Case iMonth >= 10 And iMonth <= 12 sOutputFile(3).writeline sLine End Select Loop 'End Second Step 'Last Step 'Schließe alle offenen Dateien For i = 0 To 3 sOutputFile(i).close If GetNumberOfLines(fs.BuildPath(sPathOutput, sFileOut &"_" & RomanNumber((i+1)) & ".csv")) <= 3 Then fs.DeleteFile(fs.BuildPath(sPathOutput, sFileOut &"_" & RomanNumber((i+1)) & ".csv")) Next MsgBox "Alle Buchungssätze wurden monatsweise in einzelne Vorläufe verteilt. Die alle Dateien haben den Zusatz *_QQ erhalten und können jetzt importiert werden.",48,"Konvert DATEV-Fibu" Case Else MsgBox "Sie haben eine falsche Auswahl getroffen. Erlaubt ist nur je Monat (m) oder je Quartal (q)." & vbNewLine & vbNewLine & "Bitte wiederholen Sie den Vorgang.",48,"Falsche Auswahl Exportart" WScript.Quit End Select 'Hilfsfunktionen '--------------- Function GetPathName(sFilePath) sFilePath = Replace(sFilePath, "/" , "\") GetPathName = Left(sFilePath, InStrRev(sFilePath, "\")) End Function Function GetFileName(sFilePath) GetFileName = fs.GetFileName(sFilePath) End Function Function GetFileNameWithOutExtension(sFilePath) GetFileNameWithOutExtension = fs.GetBaseName(sFilePath) End Function Function FormatExt(Zahl,Anzahl) FormatExt= Right(String(Anzahl, "0") & zahl,Anzahl) End Function Function GetNumberOfLines(strFile) Dim ts Set ts = fs.OpenTextFile(strFile) ts.ReadAll GetNumberOfLines = ts.Line End Function Function FormatExt(Zahl,Anzahl) FormatExt= Right(String(Anzahl, "0") & zahl,Anzahl) End Function Function RomanNumber(Number) Dim Result Select Case Number Case 1 : Result="I" Case 2 : Result="II" Case 3 : Result="III" Case 4 : Result="IV" End Select RomanNumber=Result End Function Function ChooseFile() Set oExec=CreateObject("WScript.Shell").Exec( "mshta.exe ""about:" & "<" & "input type=file id=FILE>" & "<" & "script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);" & "<" & "/script>""" ) Tst = oExec.StdOut.ReadAll Tst = Replace( Tst, vbCRLF, "" ) ChooseFile= Tst End Function

Den Code einfach kopieren und in eine Textdatei einfügen. Anschließend die Datei umbenennen in z. B. SeparateDATEFibu.vbs, wichtig ist die Extension "VBS".

Ich übernehme keine Verantwortung für Schäden am Datenbestand oder System. Es werden von mir keine Änderungen am System vorgenommen. Anspruch auf Support besteht nicht, stehe aber gerne für Probleme und Fragen hier im Forum zur Verfügung.

Gruß Achilleus

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

vogtsburger — Sat, 20 Feb 2021 18:43:51 GMT

wow @Gelöschter Nutzer ,

ich wusste, dass Ihnen das Thema keine Ruhe lässt.

Ich werde spaßeshalber mal 12 Buchungsstapel, die mir gerade vorliegen, zu einem Jahresstapel zusammenfassen und dann wieder in 12 Monatsstapel aufteilen.

Es werden zusammen wohl so ca 130.000 Buchungssätze sein, wie jedes Jahr.

Also ich habe großen Respekt vor diesem KnowHow.

Ich habe in diesem Bereich das Meiste verlernt durch aktives "unlearning" 😉

*** verneig ***

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

theo — Sat, 20 Feb 2021 21:01:16 GMT

@Gelöschter Nutzer vielen Dank für dieses großartige Stück Software

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

mkolberg — Sun, 21 Feb 2021 05:09:41 GMT

Frage / Erweiterungsvorschlag:

Wie reagiert dieses Tool auf erfaßte Leistungsdatums, also Leistung im Juni und Re- Datum im Juli.
Üblicherweise gibt das beim import, wenn nach Re- Datum gesplittet wird Probleme.

Vorschlag. Vorlauf wird nach Leistungsdatum gesplittet und - sollte dieses nicht vorhanden sein, wird das Buchungsdatum gezogen.

Dann gibt es die Amazon- Vorläufe, die im Januar Leistungen vom Dezember beinhalteten.

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Sun, 21 Feb 2021 06:56:41 GMT

Hallo Hr. @mkolberg,

der Vorlauf wird immer nach dem Belegdatum getrennt.

Ich habe noch nicht ganz verstanden, wo der Sinn nach der Trennung nach dem Leistungsdatum liegen soll? Und was mache ich mit dem Belegdatum? Soll das überschrieben werden?

In DATEV erhält man für eine Buchung mit einem Leistungsdatum einen Warnhinweis. Diesen kann man IMO einfach löschen, dann wird die Leistung dem aktuellen Vorlauf zugewiesen, was unterjährig wohl sowieso der Regelfall ist.

Gruß Achilleus

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

vogtsburger — Sun, 21 Feb 2021 09:31:34 GMT

Hallo @Gelöschter Nutzer ,

habe mal 12 laaange Monats-Stapel zu einem noch lääängeren Jahres-Stapel zusammengefasst (gesamt: 155.667 Zeilen) und anschließend mit Ihrem Script beim ersten Test in 12 Monats-Stapel und beim zweiten Test in 4 Quartals-Stapel aufteilen lassen.

... Die Aufteilung war jeweils eine Sache von nur wenigen Sekunden 😊

An der Formulierung könnte man vielleicht noch etwas feilen, aber die eigentliche Arbeit ist sehr, sehr schnell erledigt.

Da kann man sich viel früher dem Vergnügen widmen 😄

... verprobt habe ich noch nicht, werde ich aber bei Gelegenheit noch tun

Bravo, @Gelöschter Nutzer !

Danke !

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Sun, 21 Feb 2021 09:58:13 GMT

Hallo Hr. @vogtsburger,

vielen Dank für das Feedback. Freut mich zu hören, dass es geklappt hat.

Warum jetzt der Meldetext bei Ihnen verkrüppelt ist, kann ich auf Anhieb gar nicht sagen, bei mir hat es ja geklappt.

Ich werde einmal recherchieren. Ist aber auch "nur ein kleiner" Schönheitsfehler. 😊

Wenn Hr. @mkolberg sich noch einmal meldet, kann ich vielleicht auch sein Anliegen irgendwie lösen.

Gruß Achilleus

PS:

Ich habe auch gerade gesehen, dass der Text für die Aufteilung einer Quartalsbuchhaltung nicht richtig ist.

Es müsste heißen:

MsgBox "Alle Buchungssätze wurden quartalsweise in einzelne Vorläufe verteilt. Alle Dateien haben den Zusatz *_QQ erhalten und können jetzt importiert werden.",48,"Konvert DATEV-Fibu"

Also wer es hier sehr genau nehmen möchte, der möge den Text manuell ändern.

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

vogtsburger — Sun, 21 Feb 2021 11:21:29 GMT

... ich wollte nicht allzu pedantisch sein ...

Die Lehrer und Ingenieure in der Mandantschaft bekommen dieses Script ja nicht zu Gesicht 😄

Übrigens,

dieses Script löst 'im Vorbeigehen' auch noch ein anderes Problem.

Bei ca. 100.000 Buchungssätzen pro Buchungs-Stapel ist nämlich 'Schluss mit lustig' beim Import (Stapelverarbeitung) in REWE.

Auch zu diesem Zweck könnte man mit diesem Script einen überlangen Jahres-Stapel 'mundgerecht' aufteilen.

Ok, falls der Monats-Stapel über 100.000 Buchungssätze hätte, müsste man mit einem Editor 'Hand anlegen' und manuell aufteilen. Im Fall der Fälle wäre das aber auch mit wenigen Handgriffen erledigt.

Man kann es nicht oft genug wiederholen:

Respekt, @Gelöschter Nutzer , dass Sie ein solch schönes Tool mal so eben 'raushauen'. Wow !

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Sun, 21 Feb 2021 12:15:55 GMT

Danke für die Blumen. Ich hatte Ihre Anmerkungen aber auch nicht als Kritik aufgefasst. Von daher, alles gut.

Übrigens zu den kryptischen Zeichensatz.

Ich kann da auch gar nichts machen, da es sich um VBSript handelt, habe ich auf den verwendeten Zeichensatz keinen Einfluss, zumindest wüsste ich jetzt nicht wie. Zu der Formulierung, da gebe ich Ihnen aber unumwunden recht. Ich hatte mehrere Formulierungsversuche gehabt. Da bin ich einfach blind geworden. 😁

Gruß Achilleus

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

vogtsburger — Sun, 21 Feb 2021 12:28:40 GMT

... den 'Umlaute-Hieroglyphen' kann man auch bei anderen Gelegenheiten begegnen, z.B. auch bei Autorespondern, bei Empfang und Beantwortung von E-Mails auf unterschiedlichen Geräten etc.

Ich umgehe diese eigentlich banalen Zeichensatz-Problem(chen) bei Bedarf und aus Bequemlichkeit gern mit ae statt ä, oe statt ö, ss statt ß etc.

... ich kommuniziere ja glücklicherweise nicht oft mit militanten Deutsch-Lehrern 😉

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

shasieber — Sun, 21 Feb 2021 12:42:46 GMT

Hallo Achilleus,

das Tool ist einfach genial und eine unglaubliche Hilfe. Habe es gerade ausprobiert. Salden verglichen, alles da und keine Differenzen oder Fehlermeldungen. Vielen, vielen Dank.

Viele Grüße aus der Pfalz

Sandra Hasieber

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

chrisocki — Mon, 22 Feb 2021 06:54:05 GMT

Mega!

Neben meinem Kudo, auch noch ein herzliches Dankeschön!

Beste Grüße
Christian Ockenfels

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

mkolberg — Mon, 22 Feb 2021 07:07:00 GMT

@Gelöschter Nutzer schrieb:
Hallo Hr. @mkolberg,

der Vorlauf wird immer nach dem Belegdatum getrennt.

Ich habe noch nicht ganz verstanden, wo der Sinn nach der Trennung nach dem Leistungsdatum liegen soll? Und was mache ich mit dem Belegdatum? Soll das überschrieben werden?

Das Buchungsdatum bleibt natürlich bestehen.
Die Trennung nach dem Leistungsdatum hat Umsatzsteuerliche, aber auch betriebswirtschaftliche Gründe.

In DATEV erhält man für eine Buchung mit einem Leistungsdatum einen Warnhinweis. Diesen kann man IMO einfach löschen, dann wird die Leistung dem aktuellen Vorlauf zugewiesen, was unterjährig wohl sowieso der Regelfall ist.

Normalerweise haben Sie Recht.

Wofür benötige ich aber das Tool?

der Mandant sendet im Januar- Vorlauf diverse Zeilen mit Leistungsdatum November, Dezember, usw. (also 16% MwSt- Amazon- Umsätze und GB- Vorfälle)
Da kommt der Wunsch auf, den Vorlauf zum Unfall- freien Import vorab zu splitten, natürlich unter Beibehaltung des Belegdatums..

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Mon, 22 Feb 2021 08:19:50 GMT

Hallo Hr. @kolberg,

machbar ist Ihr Anliegen schon, zumindest für mich 😁! DATEV würde da wohl etwas länger brauchen. 🤣

Zur Lösung:

Wenn ich Sie richtig verstehe, dann möchten Sie bei einem Leistungsdatum, den Buchungssatz in den Monat mit dem Leistungsdatum, unter Beibehaltung des vollständigen Buchungssatzes, verschieben.

Beispiel:

Belegdatum	Leistungsdatum
28.02.2021	31.01.2021	Vorlauf 01/2021
28.02.2021	01.03.2021	Vorlauf 03/2021
31.01.2021	31.12.2020	Vorlauf 12/2020

Habe ich Sie hier richtig verstanden?

Wenn ja, dann ist das nicht weiter schwer.

Umfrage an Alle:

Soll die Erweiterung mit Berücksichtigung Leistungsdatum in das aktuelle Tool integriert werden (ggf. mit Zusatzoption), oder lieber als eigenständiges Tool?

Für eine rege Beteiligung würde ich mich freuen und der Mehrheitsentscheid gilt dann. 😎

Gruß Achilleus

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

vogtsburger — Mon, 22 Feb 2021 08:49:16 GMT

... also ich wäre für einen "Mutanten", also für ein zweites abgewandeltes Tool, aus Gründen der Übersichtlichkeit der Ergebnisse und der 'Lesbarkeit' des Quellcodes.

Es entstehen ja dann evtl. mehrere zusätzliche Buchungs-Stapel ...

Nachtrag:

... und die Reihenfolge der Buchungssätze entspricht nicht mehr der Reihenfolge aus dem Originalstapel.

REWE erwartet ja keinen feste Bezeichnung der CSV-Dateien, außer dem "DTVF_" oder "EXTF_" am Dateianfang. Ein kleiner Zusatz in der Dateibezeichnung (bei der zweiten Variante) wäre hilfreich.

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Mon, 22 Feb 2021 08:41:36 GMT

Hallo Hr. @vogtsburger,

theoretisch, bei einer Jahresbuchhaltung wären es im Extremstfall (aber unrealistisch) dann bis 36 Vorläufe. 12 Vorläufe Vorjahr, 12 Vorläufe lfd. Jahr und 12 Vorläufe für Folgejahr.

Aber wie gesagt, das ist eher nur theoretisch.

Gruß Achilleus

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

mkolberg — Mon, 22 Feb 2021 10:13:16 GMT

Genau so meine ich es, und das darf natürlich ein separates VBS- Script sein.

Wobei sich leider DATEV noch immer damit die Zähne daran ausbeißt, wenn der fleißige Geschäftsinhaber am nächsten Sonntag bereits Rechnungen für seine Leistungen vom Montag vorbereitet druckt und exportiert.
(Rechnungsdatum 28.Feb. für Leistung vom 1. März) Vielleicht liest ja DATEV mit.

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

vogtsburger — Mon, 22 Feb 2021 11:51:43 GMT

Hallo @Gelöschter Nutzer ,

... vielleicht könnten Sie in der Script-Variante "Aufteilung nach Leistungsdatum" ein Protokoll(.txt) mitführen, in dem die Buchungssätze aufgeführt sind, die wegen abweichendem Leistungsdatum in einen anderen Buchungs-Stapel (anderer Monat bzw. anderes Quartal) verschoben wurden.

(... natürlich nur, wenn es nicht zu viele Umstände macht 😉)

Bei Import und Verarbeitung der Buchungs-Stapel in REWE erhält man dann ja keine gelben Hinweis-Symbole mehr.

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Mon, 22 Feb 2021 13:02:32 GMT

Aber bis Samstag gibt ihr mir noch Zeit oder? 😁

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

jafrasch — Mon, 22 Feb 2021 13:09:08 GMT

Danke. Das hier ist Gold und Sie haben mir gerade einen Haufen Arbeit erspart!

Mit freundlichen Grüßen - ein sehr erfreuter Bibu!

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

vogtsburger — Mon, 22 Feb 2021 13:17:02 GMT

... wir wollen ja nicht, dass Sie für 'zu schnelles Programmieren' einen Bußgeld-Bescheid erhalten 😄

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

guenther — Mon, 22 Feb 2021 13:18:06 GMT

@Gelöschter Nutzer

Ich habe Ihr Skript auch mal getestet, funktioniert super, bin echt begeistert.

Damit sparen wir vor allem Zeit beim Import von Fremddaten, z.B. Lexware oder Lexoffice. Dort müssen wir / muss der Mandant sonst 12 x exportieren, damit das bei DATEV in der BWA ordentlich angezeigt wird und nicht alles im Dezember.

Da aus diesen Programmen m.E. kein Leistungsdatum exportiert wird, bin ich mit dem aktuellen Stand zufrieden.

Thomas Günther

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

vogtsburger — Mon, 22 Feb 2021 15:42:27 GMT

@Gelöschter Nutzer ,

... das 'Herauspflücken' der wegen dem Leistungsdatum in andere Buchungsstapel zu verschiebenden Buchungssätze ist ja fast so kompliziert wie das nachträgliche Trennen von Milchkaffee in Kaffee und Milch ...

... was aber aus umsatzsteuerlichen Gründen auch eine hochinteressante Aufgabe wäre 😄

Ich sehe bloß noch ein Problem(chen) bei den Jahres-Stapeln.

Wenn sich das herumspricht, dass Ihr Script so komfortabel ist, kommen plötzlich viel mehr Jahres-Buchungsstapel hereingeflattert ... 😉

... oder die Monats-Stapel werden nochmal zusammengefasst, um sie dann wieder mit Hilfe des Scripts in wenigen Sekunden korrekt aufteilen zu können 😄

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Mon, 22 Feb 2021 16:38:01 GMT

Mist ich habe zu spät reagiert, ich hätte vielleicht Lizenzgebühren nehmen sollen. 😂

Frage zum Logbuch:

Reicht folgender Logbucheintrag aus:

3 | 300,00 | S | 4400 | 10000 | 31.01.2020 | 28.12.2019 | _VJ12

oder soll der ganze Buchungssatz als Eintrag rein? Ich persönlich fände das unnötig.

BS-Nr. wäre dann die Excelzeile in der Originaldatei.

Die Vorlaufdateien würde ich dann wie folgt benennen:

*_LJMM <> *_VJMM <> *_FJMM

lfd. J. <> Vorjahr <> Folgejahr

Für Quartal anlog.

Gruß Achilleus

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

vogtsburger — Mon, 22 Feb 2021 18:18:09 GMT

@Gelöschter Nutzer ,

ja, dieser Logbuch-Eintrag wäre super

... mir geht es in diesem Punkt um die Nachvollziehbarkeit der Änderungen

... ohne ein Logbuch würde ich die Übersicht verlieren

... bin wirklich platt, wie schnell und flexibel Sie beim Programmieren sind ...

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Mon, 22 Feb 2021 18:34:44 GMT

Kleine Fische.

Neues Tool kommt aber erst Samstag.

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

vogtsburger — Mon, 22 Feb 2021 19:18:05 GMT

Vielen Dank !

... am Samstag ? ... 🤔😮

.. bei der Datev müsste man jetzt nachfragen: "in welchem Jahr ?" 🤔

Sorry @Datev, diesen Kalauer konnte ich mir jetzt nicht verkneifen 🤐

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

niels_ommen — Fri, 26 Feb 2021 17:13:31 GMT

Hallo Achilleus,

was mache ich falsch? Bei mir kommt bei Anwendung des Tools folgende Meldung:

Gruß Niels Ommen

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Fri, 26 Feb 2021 17:39:03 GMT

Könnten Sie mir noch ein paar mehr Infos geben?

Haben Sie denn auch einen DATEV-Vorlauf genommen?

Vielleicht stellen Sie einmal ein Screenshot mit den Headerzeilen ein.

So kann ich wenig dazu sagen. 😏

Gruß Achilleus

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

vogtsburger — Fri, 26 Feb 2021 18:57:08 GMT

... ich meine zu wissen, woran das liegt ....

.... an einem 'Rest' mit einer unvollständigen Buchungszeile bzw keiner 'richtigen' Buchungszeile in der CSV-Datei, sondern irgendein 'Nachtröpfeln'

.. zur Klärung am besten mal einen Screenshot vom Ende des Stapels posten

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

niels_ommen — Fri, 26 Feb 2021 19:13:23 GMT

Ich habe eine Primanota ins DATEV-Format exportiert. Der Fehler trat bei 2 unterschiedlichen Mandanten auf. Es war auch in beiden Fällen der selbe Hinweis (gleiche Zeile). Hier die ersten beiden Zeilen der Datei:

Am Ende sieht die Datei wie folgt aus:

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

vogtsburger — Fri, 26 Feb 2021 21:53:44 GMT

... besser wäre es, per Editor, z.B. per notepad.exe in die csv-Dateie zu 'schauen', nicht per Excel

Nach dem letzten vollständigen Buchungssatz soll nichts mehr kommen, "niente", "nada",

... ansonsten diesen 'Rest' entfernen.

... nur eine Vermutung ...

... aber wenn meine Vermutung zutrifft, ist der Stapel bereits aufgeteilt

... die Fehlermeldung kann eigentlich auch ignoriert werden, da 'witzlos'

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Fri, 26 Feb 2021 23:30:55 GMT

Da müsste man noch eine Prüfung auf das Belegdatum einfügen. Muss ich mir mal in Ruhe anschauen.

Ich melde mich wieder.

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Sat, 27 Feb 2021 07:06:21 GMT

@vogtsburgerhat recht mit seinem Hinweis, dass am Ende der Datei keine Daten mehr vorhanden sein sollte.

Eventuell hat sich hier eine Zeilenschaltung eingeschlichen. Die Datei einfach einmal öffnen und an das Dateiende springen und eventuell nicht sichtbare Zeichen mit der Enft-Taste löschen.

Könnten Sie einmal den DATEV-Vorlauf in einem Editor öffnen und schauen, wie die letzte Zeile aussieht?

So müsste eigentlich aufgebaut:

Hatten Sie die Aufteilung direkt nach dem DATEV-Export vorgenommen oder haben Sie die Datei vorher noch einmal geöffnet und angeschaut?

Gruß Achilleus

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Sun, 28 Feb 2021 09:28:32 GMT

Hallo Leute,

ich habe die Prüfung auf Leerzeilen robuster gestaltet. Anscheinend kam es bei einigen Anwender zu einer Fehlermeldung, weil am Ende des exportierten DATEV-Vorlaufs ein nicht druckbares Zeichen angefügt wurde. Nach einer Internetrecherche handelt es sich um ein sog. SUB-Kennzeichen für die Markierung des Dateiendes. Woher und warum das nur bei einige auftaucht, ist mir rätselhaft. Es soll uns aber auch nicht weiter interessieren.

Hinzugekommen ist noch eine Abfrage, ob das Festschreibungskennzeichen aufgehoben werden soll, sollte es sich um ein bereits festgeschriebenen Vorlauf handeln.

Wer noch das Leistungsdatum für die Aufteilung berücksichtigen möchte, der verwende bitte die Separate_DATEVExt.vbs aus dem anderen Beitrag.

Hier nun die überarbeitete Fassung:

Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 Const DATEVBelegdatum = 9 Const DATEVFibuVon = 14 Const DATEVFibuBis = 15 Const DATEVFestschreibung=113 Dim fs Dim sFileIn, f Dim sPathOutput Dim i, z, q Dim sFileOut Dim sLine Dim sTemp, tArray Dim sYear, iMonth Dim sOutputFile Dim ReadFibu Dim blnResetFK Set fs = createobject("Scripting.FileSystemObject") If WScript.Arguments.length> 0 Then sFileIn = WScript.Arguments(0) Else If sFileIn="" Then sFileIn=ChooseFile() If sFileIn="" Then WScript.Quit End If sPathOutput=GetPathName(sFileIn) sFileOut = GetFileNameWithOutExtension(sFileIn) Dim sChooseExport: sChooseExport=InputBox("Bitte wählen Sie die Exportart aus." & vbNewLine & vbNewLine & " => m = Monat" & vbNewLine & " => q = Quartal","Vorlauf trennen","m") If sChooseExport="" Then WScript.Quit If sChooseExport="q" Then ReDim sOutputFile(3) Else ReDim sOutputFile(11) End If Set f = fs.OpenTextFile(sFileIn,ForReading) Select Case LCase(sChooseExport) Case "m" 'je Monat For i = 0 To 11 Set sOutputFile(i)=fs.OpenTextFile(fs.BuildPath(sPathOutput, sFileOut &"_" & FormatExt((i+1),2) & ".csv") ,ForWriting,True,0) Next 'First Step 'Write Header, erste Zeile Umwandlung Vorlaufdatum For z = 1 To 2 sLine=f.Readline If z = 1 Then 'Fibu-Vorlaufdatum tArray = Split(sLine,";") If tArray(20)="1" Then 'Feschreibekennzeichen Header If MsgBox("Der Vorlauf wurde bereits festgeschrieben." & vbNewLine & "Möchten Sie für den späteren Import das Festschreibekennzeichen aufheben?",vbYesNo+vbQuestion+vbDefaultButton2,"Aufhebung Feschreibung")=vbYes Then blnResetFK=True tArray(20)="0" End If End If sYear = Left(tArray(DATEVFibuVon),4) For i = 0 To 11 tArray(DATEVFibuVon)=sYear & FormatExt((i+1),2) & "01" 'Monatsanfang If i=11 Then tArray(DATEVFibuBis)=sYear & "1231" 'Dezember Else tArray(DATEVFibuBis)=sYear & FormatExt((i+1),2) & Day(DateSerial(sYear,(i+2),0)) 'Monats => 0.03.2020 => 29.02.2020 End If For q=LBound(tArray) To UBound(tArray) sTemp = sTemp & tArray(q) & ";" Next sTemp = Left(sTemp,Len(sTemp)-1) sOutputFile(i).writeline sTemp sTemp="" Next Else For i = 0 To 11 sOutputFile(i).writeline sLine Next End If Next 'End First Step 'Second Step 'Lese Fibu-Daten und verteile auf Einzevorläufe Do Until f.AtEndOfStream sLine = f.ReadLine tArray=Split(sLine,";") If UBound(tArray)>0 Then If blnResetFK = True Then sLine="" tArray(DATEVFestschreibung)="0" For i=0 To UBound(tArray) sLine=sLine & tArray(i) & ";" Next sLine=Left(sLine,Len(sLine)-1) End If iMonth=Right(tArray(DATEVBelegdatum),2) sOutputFile(CInt(iMonth)-1).writeline sLine End If Loop 'End Second Step 'Last Step 'Schließe alle offenen Dateien For i = 0 To 11 sOutputFile(i).close If GetNumberOfLines(fs.BuildPath(sPathOutput, sFileOut &"_" & FormatExt((i+1),2) & ".csv")) <= 3 Then fs.DeleteFile(fs.BuildPath(sPathOutput, sFileOut &"_" & FormatExt((i+1),2) & ".csv")) Next MsgBox "Alle Buchungssätze wurden monatsweise in einzelne Vorläufe verteilt. Die Dateien haben den Zusatz *_MM erhalten und können jetzt importiert werden.",48,"Konvert DATEV-Fibu" Case "q" 'je Quartal For i = 0 To 3 Set sOutputFile(i)=fs.OpenTextFile(fs.BuildPath(sPathOutput, sFileOut &"_" & RomanNumber((i+1)) & ".csv") ,ForWriting,True,0) Next 'First Step 'Write Header, erste Zeile Umwandlung Vorlaufdatum For z = 1 To 2 sLine=f.Readline If z = 1 Then 'Fibu-Vorlaufdatum tArray = Split(sLine,";") If tArray(20)="1" Then 'Feschreibekennzeichen Header If MsgBox("Der Vorlauf wurde bereits festgeschrieben." & vbNewLine & "Möchten Sie für den späteren Import das Festschreibekennzeichen aufheben?",vbYesNo+vbQuestion+vbDefaultButton2,"Aufhebung Feschreibung")=vbYes Then blnResetFK=True tArray(20)="0" End If End If sYear = Left(tArray(DATEVFibuVon),4) For i = 0 To 3 tArray(DATEVFibuVon)=sYear & FormatExt(((i+1)*3)-2,2) & "01" 'Anfang Quartal If i=3 Then tArray(DATEVFibuBis)=sYear & "1231" 'Dezember Else tArray(DATEVFibuBis)=sYear & FormatExt(((i+1)*3),2) & Day(DateSerial(sYear,((i+1)*3)+1,0)) 'Ende Quartal => 0.03.2020 => 28.02.2020 End If For q=LBound(tArray) To UBound(tArray) sTemp = sTemp & tArray(q) & ";" Next sTemp = Left(sTemp,Len(sTemp)-1) sOutputFile(i).writeline sTemp sTemp="" Next Else For i = 0 To 3 sOutputFile(i).writeline sLine Next End If Next 'End First Step 'Second Step 'Lese Fibu-Daten und verteile auf Einzevorläufe Do Until f.AtEndOfStream sLine = f.ReadLine tArray=Split(sLine,";") If UBound(tArray)>0 Then If blnResetFK = True Then sLine="" tArray(DATEVFestschreibung)="0" For i=0 To UBound(tArray) sLine=sLine & tArray(i) & ";" Next sLine=Left(sLine,Len(sLine)-1) End If iMonth=Right(tArray(DATEVBelegdatum),2) Select Case True Case iMonth >= 1 And iMonth <= 3 sOutputFile(0).writeline sLine Case iMonth >= 4 And iMonth <= 6 sOutputFile(1).writeline sLine Case iMonth >= 7 And iMonth <= 9 sOutputFile(2).writeline sLine Case iMonth >= 10 And iMonth <= 12 sOutputFile(3).writeline sLine End Select End If Loop 'End Second Step 'Last Step 'Schließe alle offenen Dateien For i = 0 To 3 sOutputFile(i).close If GetNumberOfLines(fs.BuildPath(sPathOutput, sFileOut &"_" & RomanNumber((i+1)) & ".csv")) <= 3 Then fs.DeleteFile(fs.BuildPath(sPathOutput, sFileOut &"_" & RomanNumber((i+1)) & ".csv")) Next MsgBox "Alle Buchungssätze wurden quartalsweise in einzelne Vorläufe verteilt. Die Dateien haben den Zusatz *_QQ erhalten und können jetzt importiert werden.",48,"Konvert DATEV-Fibu" Case Else MsgBox "Sie haben eine falsche Auswahl getroffen. Erlaubt ist nur je Monat (m) oder je Quartal (q)." & vbNewLine & vbNewLine & "Bitte wiederholen Sie den Vorgang.",48,"Falsche Auswahl Exportart" WScript.Quit End Select 'Hilfsfunktionen '--------------- Function GetPathName(sFilePath) sFilePath = Replace(sFilePath, "/" , "\") GetPathName = Left(sFilePath, InStrRev(sFilePath, "\")) End Function Function GetFileName(sFilePath) GetFileName = fs.GetFileName(sFilePath) End Function Function GetFileNameWithOutExtension(sFilePath) GetFileNameWithOutExtension = fs.GetBaseName(sFilePath) End Function Function FormatExt(Zahl,Anzahl) FormatExt= Right(String(Anzahl, "0") & zahl,Anzahl) End Function Function GetNumberOfLines(strFile) Dim ts Dim myArray Dim z Set ts = fs.OpenTextFile(strFile) myArray=Split(ts.ReadAll,vbNewLine) For z=UBound(myArray) To 0 Step -1 If Len(myArray(z))>2 Then GetNumberOfLines=(z+1) Exit For End If Next End Function Function FormatExt(Zahl,Anzahl) FormatExt= Right(String(Anzahl, "0") & zahl,Anzahl) End Function Function RomanNumber(Number) Dim Result Select Case Number Case 1 : Result="I" Case 2 : Result="II" Case 3 : Result="III" Case 4 : Result="IV" End Select RomanNumber=Result End Function Function ChooseFile() Set oExec=CreateObject("WScript.Shell").Exec( "mshta.exe ""about:" & "<" & "input type=file id=FILE>" & "<" & "script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);" & "<" & "/script>""" ) Tst = oExec.StdOut.ReadAll Tst = Replace( Tst, vbCRLF, "" ) ChooseFile= Tst End Function

Den Code einfach kopieren und in eine Textdatei einfügen. Anschließend die Datei umbenennen in z. B. SeparateDATEVFibu.vbs, wichtig ist die Extension "VBS".

Gruß Achilleus

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

susannez — Mon, 01 Mar 2021 06:12:10 GMT

Super, vielen Dank!

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

Gelöschter Nutzer — Mon, 01 Mar 2021 11:55:12 GMT

Sorry Leute,

mir ist leider ein kleiner Fehler gemeldet worden. Wenn ein Vorlauf nur 1 Buchungssatz enthält, wird dieser in der neuen Fassung leider gelöscht. Hintergrund ist der, dass ich die Prüfung in der Hilfsroutine anders gestaltet hatte und vergessen hatte, das auch im eigentlichen Programm zu ändern.

Ich bitte vielmals um Entschuldigung.

Hier nun die neue und endgültige Fassung:

Neu für Monat:

If GetNumberOfLines(fs.BuildPath(sPathOutput, sFileOut &"_" & FormatExt((i+1),2) & ".csv")) <= 2 Then fs.DeleteFile(fs.BuildPath(sPathOutput, sFileOut &"_" & FormatExt((i+1),2) & ".csv"))

Neu für Quartal:

If GetNumberOfLines(fs.BuildPath(sPathOutput, sFileOut &"_" & RomanNumber((i+1)) & ".csv")) <= 2 Then fs.DeleteFile(fs.BuildPath(sPathOutput, sFileOut &"_" & RomanNumber((i+1)) & ".csv"))

Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 Const DATEVBelegdatum = 9 Const DATEVFibuVon = 14 Const DATEVFibuBis = 15 Const DATEVFestschreibung=113 Dim fs Dim sFileIn, f Dim sPathOutput Dim i, z, q Dim sFileOut Dim sLine Dim sTemp, tArray Dim sYear, iMonth Dim sOutputFile Dim ReadFibu Dim blnResetFK Set fs = createobject("Scripting.FileSystemObject") If WScript.Arguments.length> 0 Then sFileIn = WScript.Arguments(0) Else If sFileIn="" Then sFileIn=ChooseFile() If sFileIn="" Then WScript.Quit End If sPathOutput=GetPathName(sFileIn) sFileOut = GetFileNameWithOutExtension(sFileIn) Dim sChooseExport: sChooseExport=InputBox("Bitte wählen Sie die Exportart aus." & vbNewLine & vbNewLine & " => m = Monat" & vbNewLine & " => q = Quartal","Vorlauf trennen","m") If sChooseExport="" Then WScript.Quit If sChooseExport="q" Then ReDim sOutputFile(3) Else ReDim sOutputFile(11) End If Set f = fs.OpenTextFile(sFileIn,ForReading) Select Case LCase(sChooseExport) Case "m" 'je Monat For i = 0 To 11 Set sOutputFile(i)=fs.OpenTextFile(fs.BuildPath(sPathOutput, sFileOut &"_" & FormatExt((i+1),2) & ".csv") ,ForWriting,True,0) Next 'First Step 'Write Header, erste Zeile Umwandlung Vorlaufdatum For z = 1 To 2 sLine=f.Readline If z = 1 Then 'Fibu-Vorlaufdatum tArray = Split(sLine,";") If tArray(20)="1" Then 'Feschreibekennzeichen Header If MsgBox("Der Vorlauf wurde bereits festgeschrieben." & vbNewLine & "Möchten Sie für den späteren Import das Festschreibekennzeichen aufheben?",vbYesNo+vbQuestion+vbDefaultButton2,"Aufhebung Feschreibung")=vbYes Then blnResetFK=True tArray(20)="0" End If End If sYear = Left(tArray(DATEVFibuVon),4) For i = 0 To 11 tArray(DATEVFibuVon)=sYear & FormatExt((i+1),2) & "01" 'Monatsanfang If i=11 Then tArray(DATEVFibuBis)=sYear & "1231" 'Dezember Else tArray(DATEVFibuBis)=sYear & FormatExt((i+1),2) & Day(DateSerial(sYear,(i+2),0)) 'Monats => 0.03.2020 => 29.02.2020 End If For q=LBound(tArray) To UBound(tArray) sTemp = sTemp & tArray(q) & ";" Next sTemp = Left(sTemp,Len(sTemp)-1) sOutputFile(i).writeline sTemp sTemp="" Next Else For i = 0 To 11 sOutputFile(i).writeline sLine Next End If Next 'End First Step 'Second Step 'Lese Fibu-Daten und verteile auf Einzevorläufe Do Until f.AtEndOfStream sLine = f.ReadLine tArray=Split(sLine,";") If UBound(tArray)>0 Then If blnResetFK = True Then sLine="" tArray(DATEVFestschreibung)="0" For i=0 To UBound(tArray) sLine=sLine & tArray(i) & ";" Next sLine=Left(sLine,Len(sLine)-1) End If iMonth=Right(tArray(DATEVBelegdatum),2) sOutputFile(CInt(iMonth)-1).writeline sLine End If Loop 'End Second Step 'Last Step 'Schließe alle offenen Dateien For i = 0 To 11 sOutputFile(i).close If GetNumberOfLines(fs.BuildPath(sPathOutput, sFileOut &"_" & FormatExt((i+1),2) & ".csv")) <= 2 Then fs.DeleteFile(fs.BuildPath(sPathOutput, sFileOut &"_" & FormatExt((i+1),2) & ".csv")) Next MsgBox "Alle Buchungssätze wurden monatsweise in einzelne Vorläufe verteilt. Die Dateien haben den Zusatz *_MM erhalten und können jetzt importiert werden.",48,"Konvert DATEV-Fibu" Case "q" 'je Quartal For i = 0 To 3 Set sOutputFile(i)=fs.OpenTextFile(fs.BuildPath(sPathOutput, sFileOut &"_" & RomanNumber((i+1)) & ".csv") ,ForWriting,True,0) Next 'First Step 'Write Header, erste Zeile Umwandlung Vorlaufdatum For z = 1 To 2 sLine=f.Readline If z = 1 Then 'Fibu-Vorlaufdatum tArray = Split(sLine,";") If tArray(20)="1" Then 'Feschreibekennzeichen Header If MsgBox("Der Vorlauf wurde bereits festgeschrieben." & vbNewLine & "Möchten Sie für den späteren Import das Festschreibekennzeichen aufheben?",vbYesNo+vbQuestion+vbDefaultButton2,"Aufhebung Feschreibung")=vbYes Then blnResetFK=True tArray(20)="0" End If End If sYear = Left(tArray(DATEVFibuVon),4) For i = 0 To 3 tArray(DATEVFibuVon)=sYear & FormatExt(((i+1)*3)-2,2) & "01" 'Anfang Quartal If i=3 Then tArray(DATEVFibuBis)=sYear & "1231" 'Dezember Else tArray(DATEVFibuBis)=sYear & FormatExt(((i+1)*3),2) & Day(DateSerial(sYear,((i+1)*3)+1,0)) 'Ende Quartal => 0.03.2020 => 28.02.2020 End If For q=LBound(tArray) To UBound(tArray) sTemp = sTemp & tArray(q) & ";" Next sTemp = Left(sTemp,Len(sTemp)-1) sOutputFile(i).writeline sTemp sTemp="" Next Else For i = 0 To 3 sOutputFile(i).writeline sLine Next End If Next 'End First Step 'Second Step 'Lese Fibu-Daten und verteile auf Einzevorläufe Do Until f.AtEndOfStream sLine = f.ReadLine tArray=Split(sLine,";") If UBound(tArray)>0 Then If blnResetFK = True Then sLine="" tArray(DATEVFestschreibung)="0" For i=0 To UBound(tArray) sLine=sLine & tArray(i) & ";" Next sLine=Left(sLine,Len(sLine)-1) End If iMonth=Right(tArray(DATEVBelegdatum),2) Select Case True Case iMonth >= 1 And iMonth <= 3 sOutputFile(0).writeline sLine Case iMonth >= 4 And iMonth <= 6 sOutputFile(1).writeline sLine Case iMonth >= 7 And iMonth <= 9 sOutputFile(2).writeline sLine Case iMonth >= 10 And iMonth <= 12 sOutputFile(3).writeline sLine End Select End If Loop 'End Second Step 'Last Step 'Schließe alle offenen Dateien For i = 0 To 3 sOutputFile(i).close If GetNumberOfLines(fs.BuildPath(sPathOutput, sFileOut &"_" & RomanNumber((i+1)) & ".csv")) <= 2 Then fs.DeleteFile(fs.BuildPath(sPathOutput, sFileOut &"_" & RomanNumber((i+1)) & ".csv")) Next MsgBox "Alle Buchungssätze wurden quartalsweise in einzelne Vorläufe verteilt. Die Dateien haben den Zusatz *_QQ erhalten und können jetzt importiert werden.",48,"Konvert DATEV-Fibu" Case Else MsgBox "Sie haben eine falsche Auswahl getroffen. Erlaubt ist nur je Monat (m) oder je Quartal (q)." & vbNewLine & vbNewLine & "Bitte wiederholen Sie den Vorgang.",48,"Falsche Auswahl Exportart" WScript.Quit End Select 'Hilfsfunktionen '--------------- Function GetPathName(sFilePath) sFilePath = Replace(sFilePath, "/" , "\") GetPathName = Left(sFilePath, InStrRev(sFilePath, "\")) End Function Function GetFileName(sFilePath) GetFileName = fs.GetFileName(sFilePath) End Function Function GetFileNameWithOutExtension(sFilePath) GetFileNameWithOutExtension = fs.GetBaseName(sFilePath) End Function Function FormatExt(Zahl,Anzahl) FormatExt= Right(String(Anzahl, "0") & zahl,Anzahl) End Function Function GetNumberOfLines(strFile) Dim ts Dim myArray Dim z Set ts = fs.OpenTextFile(strFile) myArray=Split(ts.ReadAll,vbNewLine) For z=UBound(myArray) To 0 Step -1 If Len(myArray(z))>2 Then GetNumberOfLines=(z+1) Exit For End If Next End Function Function FormatExt(Zahl,Anzahl) FormatExt= Right(String(Anzahl, "0") & zahl,Anzahl) End Function Function RomanNumber(Number) Dim Result Select Case Number Case 1 : Result="I" Case 2 : Result="II" Case 3 : Result="III" Case 4 : Result="IV" End Select RomanNumber=Result End Function Function ChooseFile() Set oExec=CreateObject("WScript.Shell").Exec( "mshta.exe ""about:" & "<" & "input type=file id=FILE>" & "<" & "script>FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);" & "<" & "/script>""" ) Tst = oExec.StdOut.ReadAll Tst = Replace( Tst, vbCRLF, "" ) ChooseFile= Tst End Function

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

crazymike — Sat, 13 Mar 2021 11:03:37 GMT

Danke für Deine Bemühungen und das Du es mit allen teilst. Das spart mir viel Arbeit. Ich wollte heute mit einem eigenen Skript anfangen. Ich werde es gleich mal ausprobieren.👍

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

PS — Tue, 23 Mar 2021 17:03:52 GMT

@Gelöschter Nutzer

Vielen Dank für das tolle Tool. Ich bin leider zu blöd das Programm zu starten.

Doppelklick funktioniert nicht, Vorläufe draufziehen funktioniert auch nicht.

Was mache ich falsch?

Viele Grüße

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

peitzmann — Mon, 03 Jul 2023 11:32:08 GMT

Hallo @gelöschter Nutzer,
Leider funktioniert bei mir dein bisher gelegentlich genutztes Script nicht mehr.
Ich erhalte immer die angehängte Fehlermeldung.
Kannst du helfen?
Gruß

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

theo — Mon, 03 Jul 2023 11:23:17 GMT

Kopier das Skript nochmal aus dem Thread, speicher es als VBS-Datei u. schau, ob die Fehlermeldung dann auch kommt.

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

einmalnoch — Mon, 03 Jul 2023 11:24:27 GMT

@peitzmann

Als Erstes mal den Anhang löschen - Klarnamen sind nicht so gut.

Dann das ungültige Zeichen suchen, findet sich vermutlich im Pfadnamen (Umlaut).

Der Ersteller des Scripts wird sich hier vermutlich nicht mehr melden.

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

peitzmann — Mon, 03 Jul 2023 11:24:32 GMT

Hallo theo,
das habe ich schon ausprobiert. Bringt leider auch nichts.
Gruß

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

peitzmann — Mon, 03 Jul 2023 11:27:32 GMT

Danke, ich finde den Button dafür gerade nicht und habe es an die Moderation weiter gegeben. Danke für den Hinweis

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

theo — Mon, 03 Jul 2023 11:31:12 GMT

Da ist er.

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

peitzmann — Mon, 03 Jul 2023 11:32:47 GMT

Danke!
Da war was mit Wald und Bäumen! 🙂

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

chrisocki — Mon, 03 Jul 2023 11:33:45 GMT

Hallo @peitzmann,

ich habe den Scriptinhalt soeben mal in eine neue Textdatei unter c:\temp\datevexport\vorlauf-trennen.vbs kopiert.

Aufruf --> funktioniert

Textdatei aus dem Musterholz-Bestand --> funktioniert (auch wenn keine Trennung notwendig war.

Ich tippe, wie meine Vorschreiber, mal auf ein Problem im Dateipfad, insbesondere mit den Sonderzeichen. Die PC's sind nun mal aus dem angel-sächsischen und kennen keine Umlaute...

Beste Grüße
Christian Ockenfels

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

peitzmann — Mon, 03 Jul 2023 11:42:15 GMT

Hallo Christian,
vielen Dank für deine Mühe. Bei mir klappt es leider auch ohne Sonderzeichen nicht.
Ich habe das Problem für dieses Mal anders gelöst, da ich nicht mehr viel Zeit zum "spielen" habe.
Danke für eure Hilfe!

VBScript-Tool für Aufteilung Vorlauf in Monat/Quartal

chrisocki — Mon, 03 Jul 2023 11:59:46 GMT

Ok,

bei passender Gelegenheit:

1. Funktioniert der Aufruf des Scriptes

2. Die zu trennende Datei liegt auch in einem Verzeichnis, welche nicht mit Sonderzeichen belegt ist?

Beste Grüße
Christian Ockenfels