Dakosy Import try to fix

initATLASAufschubkonten/cWorker_NCTS.vb

@@ -4194,10 +4194,12 @@ Public Class cWorker_NCTS
                     FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
                 End If
 
-                If saveVerwahrung Then
+                'temp ausnehmen!
-                    'saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
+
-                    cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, -1, True, "T1")
+                'If saveVerwahrung Then
-                End If
+                '    'saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
+                '    cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, -1, True, "T1")
+                'End If
 
             End If
 

initATLASAufschubkonten/cWorker_Verwahrung.vb

@@ -254,13 +254,6 @@ Anzeige:
         End Try
     End Function
 
-
-
-
-
-
-
-
     Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean, sendMail As Boolean, testlauf As Boolean) As String
         Try
 
@@ -452,7 +445,6 @@ Anzeige:
         End Try
     End Function
 
-
     Shared Function readNCTS_SumAMassnahmenbekanntgabe(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean) As String
         Try
 
@@ -548,7 +540,6 @@ Anzeige:
     End Function
 
 
-
     Shared Function saveVerwahrungseingang(readVW_SumAVerwahrungsinfo As String, VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp, MRN_SUMA As String, posGestellung As DataTable, VorpapiernummerInput As String, MRN_SUMA_veraltet As String, sendInfoMail As Boolean, testlauf As Boolean, statusid As Integer)
 
         Dim BezugsNr = readVW_SumAVerwahrungsinfo

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.Designer.vb

@@ -26,6 +26,7 @@ Partial Class frmDYNachrichtenVerarbeitung
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDYNachrichtenVerarbeitung))
         Me.btn = New System.Windows.Forms.Button()
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.lblTest = New System.Windows.Forms.Label()
         Me.dgvEinarbeitung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.clmnArt = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -39,9 +40,10 @@ Partial Class frmDYNachrichtenVerarbeitung
         Me.btnOK = New System.Windows.Forms.Button()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
-        Me.lblTest = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.pnl.SuspendLayout()
         CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'btn
@@ -64,6 +66,7 @@ Partial Class frmDYNachrichtenVerarbeitung
         '
         Me.pnl.BackColor = System.Drawing.Color.White
         Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.PictureBox1)
         Me.pnl.Controls.Add(Me.lblTest)
         Me.pnl.Controls.Add(Me.dgvEinarbeitung)
         Me.pnl.Controls.Add(Me.Label9)
@@ -83,6 +86,16 @@ Partial Class frmDYNachrichtenVerarbeitung
         Me.pnl.Size = New System.Drawing.Size(456, 319)
         Me.pnl.TabIndex = 1
         '
+        'lblTest
+        '
+        Me.lblTest.AutoSize = True
+        Me.lblTest.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblTest.ForeColor = System.Drawing.Color.Red
+        Me.lblTest.Location = New System.Drawing.Point(260, 23)
+        Me.lblTest.Name = "lblTest"
+        Me.lblTest.Size = New System.Drawing.Size(0, 13)
+        Me.lblTest.TabIndex = 19
+        '
         'dgvEinarbeitung
         '
         Me.dgvEinarbeitung.AKTUALISIERUNGS_INTERVALL = -1
@@ -213,15 +226,14 @@ Partial Class frmDYNachrichtenVerarbeitung
         Me.Label1.TabIndex = 8
         Me.Label1.Text = "Einarbeitung:"
         '
-        'lblTest
+        'PictureBox1
         '
-        Me.lblTest.AutoSize = True
+        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
-        Me.lblTest.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.PictureBox1.Location = New System.Drawing.Point(269, 7)
-        Me.lblTest.ForeColor = System.Drawing.Color.Red
+        Me.PictureBox1.Name = "PictureBox1"
-        Me.lblTest.Location = New System.Drawing.Point(260, 23)
+        Me.PictureBox1.Size = New System.Drawing.Size(22, 29)
-        Me.lblTest.Name = "lblTest"
+        Me.PictureBox1.TabIndex = 20
-        Me.lblTest.Size = New System.Drawing.Size(0, 13)
+        Me.PictureBox1.TabStop = False
-        Me.lblTest.TabIndex = 19
         '
         'frmDYNachrichtenVerarbeitung
         '
@@ -237,6 +249,7 @@ Partial Class frmDYNachrichtenVerarbeitung
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
         CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -256,4 +269,5 @@ Partial Class frmDYNachrichtenVerarbeitung
     Friend WithEvents clmnArt As System.Windows.Forms.DataGridViewTextBoxColumn
     Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn
     Friend WithEvents lblTest As Label
+    Friend WithEvents PictureBox1 As PictureBox
 End Class

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.resx

@@ -117,13 +117,32 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAyVJREFUOE+d
+        0ntIU1EcwPF792xqS2aaIf1T/VkEQUXZS4kSCoQoKJJwilCmVhqVpb2mZYVROs2z2uZjZW5pj5XdrJaV
+        vZ82dYnORKHU5bw+zl7u3l/cpf+MRo8vHDh//PjAOfwIYiIej8cPC4uYmijfnakppwavXjPReXlFSTJZ
+        WCifzycn534XTdO/LkKhUBS9Ii5ZrTONX79vHi+lBuwllJ2+1dA83tLR50lIkMdGREQG+wOT+SCS5PEX
+        LVmTpNS3Dpc8GRx8Pwy4AwPudQK2OgDf7WL6OgcctFpdne4PTOaDpFKZNDe/xrNfP9B/oxvwExtgDvs8
+        CvjjCODndsA17V7bs6YPPQsXLlnuj3D5oJWrNmUePFvvPtMEWNMCmMMe9AFutAF+NADY2Au4osU7mnfF
+        +rWgoFjvj3D5oO3yUz+is8wtMYXOh8nVnqZzL5nuojdsq+IxY8qmvA9Vzay98AU7steAu1SqCsof4fJB
+        WxNODC3d86lt/pExtPGS+/KBeqZG0cjqjjxgUaaRQZlG780tGvftbarRptJSbWAoJna7PD6pzLahxI2y
+        jF6kfMcivRVQXTeg8lZAChOL5Dr3ZcUV6/fs7ILAkEQSHJp+sHwopdqpvfCaRQ19gMwuQBYPoJfDgKos
+        gI7eZ9SNT9+0iUTiIH+Ea2KPSGLevOiYfOXdTm2zS/N2aPzSIMOiURZQh4tR1/d4NUrldSgsrPy2bu36
+        eLGAEAeACEIgEEkWL16XkrH7dE9JJfW5o9+u77XRNXdMn/pr6+61ZWWdaasoN3bVFh96dHHHrCpZMBn+
+        W2iymTPnLIuLk1cnJu6jUlIOUJs3p1ECgTBIJBSKT6YlGyy6eHBYjkPxrjlVkdPIqIBQoAQ8Qpy6MkTX
+        qZoPXksuYHMOnN85VztjAvtriCtETEzPiJVUtaMF4LUchjFzDhSlzq6UBZPT/wniCp1CRqWtDtK2l3FY
+        DjgsJ6AsdZbBOUZP8Z/9Y6ESMiojRlJp5Z755Sj0vtIC43FJ/ef+qhAxEZ6xOshguHAIFMcugtPpkvo+
+        6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII=
+</value>
+  </data>
   <metadata name="clmnArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
   <metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -1194,7 +1194,7 @@ Public Class frmDYNachrichtenVerarbeitung
             ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
 
         Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
             readNCTS_GenerellesEreignis = False
         End Try
     End Function
@@ -1336,7 +1336,7 @@ Public Class frmDYNachrichtenVerarbeitung
             ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
 
         Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
             readNCTS_GenerellesEreignis_005 = False
         End Try
     End Function
@@ -1478,7 +1478,7 @@ Public Class frmDYNachrichtenVerarbeitung
             ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
 
         Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
             readNCTS_GenerellesEreignis_006 = False
         End Try
     End Function
@@ -1592,7 +1592,7 @@ Public Class frmDYNachrichtenVerarbeitung
             ' NCTS.LOADByBezugsNr(bezugsNr, False) ' Falls schon ein DS mit dieser Bezugsnummer vorhanden ist.
 
         Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
             readNCTS_QuittungEingangsverarbeitung_005 = False
         End Try
     End Function
@@ -2079,7 +2079,7 @@ Public Class frmDYNachrichtenVerarbeitung
                     Try
                         System.IO.File.Delete(p)
                     Catch ex As Exception
-                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
                     End Try
 
                     addDGVEinarbeitung("AES: AnmeldungAusfuhr", readAES_DEXPDD)
@@ -2089,7 +2089,7 @@ Public Class frmDYNachrichtenVerarbeitung
             End If
 
         Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
             readAES_DEXPDD = ""
         End Try
     End Function
@@ -2522,7 +2522,7 @@ Public Class frmDYNachrichtenVerarbeitung
             End If
 
         Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, Path.GetTempFileName & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, Path.GetTempFileName & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
             readAES_DEXPDE = ""
         End Try
     End Function
@@ -11198,5 +11198,11 @@ Public Class frmDYNachrichtenVerarbeitung
         Return atez
 
     End Function
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        If VERARBEITUNGS_PFAD <> "" AndAlso System.IO.Directory.Exists(VERARBEITUNGS_PFAD) Then
+            Process.Start(VERARBEITUNGS_PFAD)
+        End If
+    End Sub
 End Class
 

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.Designer.vb

@@ -42,8 +42,10 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
         Me.btnOK = New System.Windows.Forms.Button()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.pnl.SuspendLayout()
         CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'btn
@@ -66,6 +68,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
         '
         Me.pnl.BackColor = System.Drawing.Color.White
         Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.PictureBox1)
         Me.pnl.Controls.Add(Me.lblFTP)
         Me.pnl.Controls.Add(Me.lblTestsystem)
         Me.pnl.Controls.Add(Me.lblDatenCnt)
@@ -250,6 +253,15 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
         Me.Label1.TabIndex = 8
         Me.Label1.Text = "Einarbeitung:"
         '
+        'PictureBox1
+        '
+        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+        Me.PictureBox1.Location = New System.Drawing.Point(207, 4)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(22, 21)
+        Me.PictureBox1.TabIndex = 23
+        Me.PictureBox1.TabStop = False
+        '
         'frmNachrichtenVerarbeitung_MDM_divers
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -264,6 +276,7 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
         CType(Me.dgvEinarbeitung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -285,4 +298,5 @@ Partial Class frmNachrichtenVerarbeitung_MDM_divers
     Friend WithEvents Column1 As DataGridViewTextBoxColumn
     Friend WithEvents lblTestsystem As Label
     Friend WithEvents lblFTP As Label
+    Friend WithEvents PictureBox1 As PictureBox
 End Class

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.resx

@@ -117,13 +117,32 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAyVJREFUOE+d
+        0ntIU1EcwPF792xqS2aaIf1T/VkEQUXZS4kSCoQoKJJwilCmVhqVpb2mZYVROs2z2uZjZW5pj5XdrJaV
+        vZ82dYnORKHU5bw+zl7u3l/cpf+MRo8vHDh//PjAOfwIYiIej8cPC4uYmijfnakppwavXjPReXlFSTJZ
+        WCifzycn534XTdO/LkKhUBS9Ii5ZrTONX79vHi+lBuwllJ2+1dA83tLR50lIkMdGREQG+wOT+SCS5PEX
+        LVmTpNS3Dpc8GRx8Pwy4AwPudQK2OgDf7WL6OgcctFpdne4PTOaDpFKZNDe/xrNfP9B/oxvwExtgDvs8
+        CvjjCODndsA17V7bs6YPPQsXLlnuj3D5oJWrNmUePFvvPtMEWNMCmMMe9AFutAF+NADY2Au4osU7mnfF
+        +rWgoFjvj3D5oO3yUz+is8wtMYXOh8nVnqZzL5nuojdsq+IxY8qmvA9Vzay98AU7steAu1SqCsof4fJB
+        WxNODC3d86lt/pExtPGS+/KBeqZG0cjqjjxgUaaRQZlG780tGvftbarRptJSbWAoJna7PD6pzLahxI2y
+        jF6kfMcivRVQXTeg8lZAChOL5Dr3ZcUV6/fs7ILAkEQSHJp+sHwopdqpvfCaRQ19gMwuQBYPoJfDgKos
+        gI7eZ9SNT9+0iUTiIH+Ea2KPSGLevOiYfOXdTm2zS/N2aPzSIMOiURZQh4tR1/d4NUrldSgsrPy2bu36
+        eLGAEAeACEIgEEkWL16XkrH7dE9JJfW5o9+u77XRNXdMn/pr6+61ZWWdaasoN3bVFh96dHHHrCpZMBn+
+        W2iymTPnLIuLk1cnJu6jUlIOUJs3p1ECgTBIJBSKT6YlGyy6eHBYjkPxrjlVkdPIqIBQoAQ8Qpy6MkTX
+        qZoPXksuYHMOnN85VztjAvtriCtETEzPiJVUtaMF4LUchjFzDhSlzq6UBZPT/wniCp1CRqWtDtK2l3FY
+        DjgsJ6AsdZbBOUZP8Z/9Y6ESMiojRlJp5Z755Sj0vtIC43FJ/ef+qhAxEZ6xOshguHAIFMcugtPpkvo+
+        6n8OHqElbqdT6nC4pCzLEj8BSDXvdo3uV48AAAAASUVORK5CYII=
+</value>
+  </data>
   <metadata name="clmnArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
   <metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -25,6 +25,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
     Public year As Integer
     Public UtaTestkunden As Boolean = False
     Public RMCNewFormat As Boolean = True
+    Dim Einarbeitungspfad As String = ""
 
 
     Sub New(programName As String)
@@ -64,6 +65,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
             setButtons(Not rmc.ZIEL_PFAD = "")
             If rmc.VERARBEITUNG_PFAD = "" Then Exit Sub
             If rmc.ZIEL_PFAD = "" Then Exit Sub
+            Einarbeitungspfad = rmc.VERARBEITUNG_PFAD
             For Each d In System.IO.Directory.GetFiles(rmc.VERARBEITUNG_PFAD)
                 ListBox3.Items.Add(frmStartOptions.cut_file(d))
                 Me.Refresh()
@@ -74,6 +76,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
             setButtons(Not uta.ZIEL_PFAD = "")
             If uta.VERARBEITUNG_PFAD = "" Then Exit Sub
             If uta.ZIEL_PFAD = "" Then Exit Sub
+            Einarbeitungspfad = uta.VERARBEITUNG_PFAD
             For Each d In System.IO.Directory.GetFiles(uta.VERARBEITUNG_PFAD)
                 ListBox3.Items.Add(frmStartOptions.cut_file(d))
                 Me.Refresh()
@@ -84,6 +87,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
             setButtons(Not ids.ZIEL_PFAD = "")
             If ids.VERARBEITUNG_PFAD = "" Then Exit Sub
             If ids.ZIEL_PFAD = "" Then Exit Sub
+            Einarbeitungspfad = ids.VERARBEITUNG_PFAD
             For Each d In System.IO.Directory.GetFiles(ids.VERARBEITUNG_PFAD)
                 ListBox3.Items.Add(frmStartOptions.cut_file(d))
                 Me.Refresh()
@@ -91,6 +95,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
         ElseIf programName.Contains("MSE") Then
             If mse.PDFRECHNUNGENPFAD_VERARBEITUNG = "" Then Exit Sub
+            Einarbeitungspfad = mse.PDFRECHNUNGENPFAD_VERARBEITUNG
             For Each d In System.IO.Directory.GetFiles(mse.PDFRECHNUNGENPFAD_VERARBEITUNG)
                 ListBox3.Items.Add(frmStartOptions.cut_file(d))
                 Me.Refresh()
@@ -1442,5 +1447,10 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
 
     End Sub
 
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
+        If Einarbeitungspfad <> "" AndAlso System.IO.Directory.Exists(Einarbeitungspfad) Then
+            Process.Start(Einarbeitungspfad)
+        End If
+    End Sub
 End Class