Monitoring Anpassung, MDM Plose Einarbeitung Consortio, Update SND DY Anm

initATLASAufschubkonten/frmStartOptions.vb

@@ -70,6 +70,8 @@ Public Class frmStartOptions
         cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG 360 GmbH", "19"))
         cboSYSKAFirma.changeItem("")
 
+        txtGJ_UNISPED.Text = Now.Year
+
         txtEZOLLAnhDat._value = Now.ToShortDateString
 
         Dim PARAM = "" 'INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS
@@ -81,6 +83,9 @@ Public Class frmStartOptions
             ' Next
         End If
 
+        'doIDSPlatts()
+        'Exit Sub
+
 
         'Standart-Errorverhalten ist MAIL
         VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
@@ -1170,6 +1175,10 @@ Public Class frmStartOptions
                     ' EXCEL AUSLESEN:::::::
                     ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 
+
+
+                    If Not IO.Directory.Exists(ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\")) Then IO.Directory.CreateDirectory(ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\"))
+
                     Dim FILE_NEW = IDS_FILE.Replace("\NEW\", "\" & Now.Year & "\").Replace(".xls", "_ORIG.xls")
 
                     While IO.File.Exists(FILE_NEW)
@@ -1533,6 +1542,7 @@ Public Class frmStartOptions
                 End Try
 
                 Try
+                    If Not IO.Directory.Exists(ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\")) Then IO.Directory.CreateDirectory(ZIEL_PFAD.Replace("\NEW\", "\" & Now.Year & "\"))
 
                     Dim newFile = MIC_FILE.Replace("\NEW\", "\" & Now.Year & "\")
 
@@ -3010,10 +3020,12 @@ Public Class frmStartOptions
 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox5.Checked 'False
+        If Not IsNumeric(txtGJ_UNISPED.Text) Then MsgBox("GJ: Falsches Fomat!")
+
         If cboBMDUnispedFirma._value = "" Then
-            VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(CheckBox4.Checked, False)
+            VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(CheckBox4.Checked, False,, txtGJ_UNISPED.Text)
         Else
-            VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_Buchungen(cboBMDUnispedFirma._value, CheckBox4.Checked)
+            VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_Buchungen(cboBMDUnispedFirma._value, CheckBox4.Checked, txtGJ_UNISPED.Text)
         End If
     End Sub