NCTS5

initATLASAufschubkonten/frmStartOptions.vb

@@ -245,6 +245,9 @@ Public Class frmStartOptions
                                          DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I6010", True)
                                          DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("I6010", False)
                                          Me.Refresh()
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0219", True)
+                                         DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0219", False)
+                                         Me.Refresh()
                                          closeMe()
                                      End Sub
             Case "KD_DATA_DAKOSY"
@@ -3751,4 +3754,14 @@ Public Class frmStartOptions
     Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
         doAASVermerke_Ankunft()
     End Sub
+
+    Private Sub LinkLabel46_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel46.LinkClicked
+        Me.Cursor = Cursors.WaitCursor
+        Try
+            DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0219", True) 'TESTSYSTEM
+            Dim erg = DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0219", False) 'ECHTSYSTEM
+            showPic(erg, PictureBox21)
+        Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name) : End Try
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class