diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index f7faa7b..bba1652 100644 --- 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 diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index 57b9a81..cd13ecd 100644 --- 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 diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.Designer.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.Designer.vb index fc1807f..8c0bf23 100644 --- 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 diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.resx b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.resx index 25e30ca..8217ab8 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.resx +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.resx @@ -117,13 +117,32 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + 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= + + True True - AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 4586303..37b2d31 100644 --- 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 diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.Designer.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.Designer.vb index 253ce2f..93f71c4 100644 --- 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 diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.resx b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.resx index 25e30ca..8217ab8 100644 --- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.resx +++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.resx @@ -117,13 +117,32 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + 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= + + True True - AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb index 2e9208d..a72416a 100644 --- 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