Dakosy Import try to fix

2026-08-20 10:23:04 +02:00
parent cca8d471af
commit cdc881a643
8 changed files with 106 additions and 31 deletions
--- a/initATLASAufschubkonten/cWorker_NCTS.vb
+++ b/initATLASAufschubkonten/cWorker_NCTS.vb
@@ -4194,10 +4194,12 @@ Public Class cWorker_NCTS
                    FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
                End If

-                If saveVerwahrung Then
-                    'saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
-                    cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, -1, True, "T1")
-                End If
+                'temp ausnehmen!
+
+                'If saveVerwahrung Then
+                '    'saveVerwahrungsAusgang(MRN, posErledigung, NCTS, sendMail, testlauf)
+                '    cWorker_Verwahrung.saveVerwahrungsAusgang(MRN, posErledigung, "", zp, sendMail, testlauf, -1, True, "T1")
+                'End If

            End If

--- a/initATLASAufschubkonten/cWorker_Verwahrung.vb
+++ b/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
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.Designer.vb
+++ b/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.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
+        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
+        Me.PictureBox1.Location = New System.Drawing.Point(269, 7)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(22, 29)
+        Me.PictureBox1.TabIndex = 20
+        Me.PictureBox1.TabStop = False
        '
        '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
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.resx
+++ b/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
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
+++ b/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

--- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.Designer.vb
+++ b/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
--- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.resx
+++ b/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
--- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
+++ b/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