MIC, etc.

initATLASAufschubkonten/frmStartOptions.vb

@@ -1430,7 +1430,7 @@ Public Class frmStartOptions
                                 For Each l In ANH_LIST
                                     Select Case l.anh_Art.ToString.ToUpper
                                         ' Case "EXPORT_DOCS"
-                                        Case "RECHNUNG", "CMR", "ATR", "EUR1", "COO", "PACKLISTE"
+                                        Case "RECHNUNG", "CMR", "ATR", "EUR1", "COO", "PACKLISTE", "ATR-EUR1"
                                             Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False)
                                             If PathTmpANH <> "" Then pfadList.Add(PathTmpANH)
                                     End Select
@@ -8995,4 +8995,20 @@ repeatRequest:
         End If
 
     End Sub
+
+    Private Sub LinkLabel48_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles ll_MIC_Einarbeitung_TEST.LinkClicked
+        Me.Visible = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+        Dim f As New frmMICNachrichtenVerarbeitung
+        f.ShowDialog()
+        Me.Visible = True
+    End Sub
+
+    Private Sub ll_MIC_Einarbeitung_PROD_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles ll_MIC_Einarbeitung_PROD.LinkClicked
+        Me.Visible = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        Dim f As New frmMICNachrichtenVerarbeitung
+        f.ShowDialog()
+        Me.Visible = True
+    End Sub
 End Class