MDM, IDS

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -17,6 +17,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
     Dim allowClose = False
     Dim deleteFilesAfterDownload = False
     Dim renameFilesAfterDownload = False
+    Dim enableEinlesen = True
     Dim rmc As New cRMC
     Dim uta As New cUTA
     Dim ids As New cIDS
@@ -32,7 +33,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
     End Sub
-    Sub New(programName As String, allowClose As Boolean, deleteFilesAfterDownload As Boolean, renameFilesAfterDownload As Boolean) 'autostart
+    Sub New(programName As String, allowClose As Boolean, deleteFilesAfterDownload As Boolean, renameFilesAfterDownload As Boolean, Optional enableEinlesen As Boolean = True) 'autostart
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -40,6 +41,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
         Me.allowClose = allowClose
         Me.deleteFilesAfterDownload = deleteFilesAfterDownload
         Me.renameFilesAfterDownload = renameFilesAfterDownload
+        Me.enableEinlesen = enableEinlesen
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
 
     End Sub
@@ -49,6 +51,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
         ListBox3.Items.Clear()
         Me.Refresh()
 
+        Button2.Enabled = enableEinlesen
 
         lblFTP.Text = programName