IMEX MySnd, RKSV DE Storno, Div.Bugfix

Aviso/frmHauptfenster.vb

@@ -2535,8 +2535,7 @@ Public Class frmHauptfenster
 
             If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
                 tabVorbereitet.Text = "2. VERIMEX"
-            Else
-                tbcntrAviso.TabPages.RemoveAt(2)
+                '  tbcntrAviso.TabPages.RemoveAt(2)
             End If
 
             btnWichtigeStandort.Visible = False
@@ -2596,6 +2595,8 @@ Public Class frmHauptfenster
             '  tabVorgeschrieben.Text = "VORGESCHR."
 
         End If
+
+
         tbcntrAviso.Width = Panel1.Width
         VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
 
@@ -2778,6 +2779,23 @@ Public Class frmHauptfenster
 
     End Function
     Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+        Dim process As Process
+        Dim ProgrammID As Integer
+        Dim Programmname As String = "AVISO"
+
+        For Each process In System.Diagnostics.Process.GetProcesses
+            If (InStr(process.ProcessName, Programmname)) Then
+                ProgrammID = process.Id
+            End If
+        Next
+        AppActivate(ProgrammID)
+        Exit Sub
+
+
+        VERAG_PROG_ALLGEMEIN.cTranslateAuto_LIST.DoToAllControls(Me, "TR")
+        'VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle("What you deserve, is what you get  World!!", "DE", "")
+
+        Exit Sub
         Try