Reset Vermerke

Aviso/frmHauptfensterNew.vb

@@ -105,10 +105,21 @@ Public Class frmHauptfensterNew
         pnlMain_Bottom.Controls.Clear()
         SEARCH_AVISO_AKTIV = switchTO
 
+
+        ' toggle_Buttons_Main(sender)
+        For Each button In FlowLayoutPanel1.Controls
+            With button
+                .BackColor = btnDEFAULT_UnSelected.BackColor
+                .ForeColor = btnDEFAULT_UnSelected.ForeColor
+                .Font = btnDEFAULT_UnSelected.Font
+            End With
+        Next
+
+        Dim SelectedBtn As Button = Nothing
         Select Case SEARCH_AVISO_AKTIV
             Case "SND"
                 splitMainWorkingView.Panel2Collapsed = True
-
+                SelectedBtn = btnVIEW_SND
                 If SEARCH_SND Is Nothing Then SEARCH_SND = New usrCntlHauptfenster_Suche_SND
                 SEARCH_SND.PARENT_FRMHAUPTFENSTER = Me
                 pnlMain.Controls.Add(SEARCH_SND)
@@ -116,12 +127,9 @@ Public Class frmHauptfensterNew
                 pnlMain.PerformLayout()
                 SEARCH_SND.PerformLayout()
                 Application.DoEvents()
-
-
-
             Case "AVISO"
                 splitMainWorkingView.Panel2Collapsed = True
-
+                SelectedBtn = btnVIEW_LKW
                 If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
                 SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
                 pnlMain.Controls.Add(SEARCH_AVISO)
@@ -132,7 +140,7 @@ Public Class frmHauptfensterNew
 
             Case "AVISO_SND_KOMBI"
                 splitMainWorkingView.Panel2Collapsed = False
-
+                SelectedBtn = btnVIEW_KOMBI
                 If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
                 SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
                 pnlMain.Controls.Add(SEARCH_AVISO)
@@ -149,9 +157,40 @@ Public Class frmHauptfensterNew
                 SEARCH_SND.PerformLayout()
                 Application.DoEvents()
 
+            Case "COMPLIANCE"
+                splitMainWorkingView.Panel2Collapsed = True
+                SelectedBtn = btnVIEW_Compliance
+                'If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
+                'SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
+                'pnlMain.Controls.Add(SEARCH_AVISO)
+                'SEARCH_AVISO.Dock = DockStyle.Fill
+                pnlMain.PerformLayout()
+                SEARCH_AVISO.PerformLayout()
+                Application.DoEvents()
+
+            Case "CUSTOMS_CONTROLLING"
+                splitMainWorkingView.Panel2Collapsed = True
+                SelectedBtn = btnVIEW_CustControling
+                'If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
+                'SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
+                'pnlMain.Controls.Add(SEARCH_AVISO)
+                'SEARCH_AVISO.Dock = DockStyle.Fill
+                pnlMain.PerformLayout()
+                SEARCH_AVISO.PerformLayout()
+                Application.DoEvents()
 
         End Select
+
         initsearch(SEARCH_AVISO_AKTIV, False) ': Aviso_anzeigen("")
+
+
+        With SelectedBtn
+            .BackColor = btnDEFAULT_Selected.BackColor
+            .ForeColor = btnDEFAULT_Selected.ForeColor
+            .Font = btnDEFAULT_Selected.Font
+        End With
+
+
     End Sub
 
     Sub initsearch(hSort As String, Optional showDetails As Boolean = True)
@@ -3853,7 +3892,7 @@ ELSE_ATILLA:
         detailForm.Show()
     End Sub
 
-    Private Sub btnWichtigeStandort_Click(sender As Object, e As EventArgs) Handles btnWichtigeStandort.Click
+    Private Sub btnWichtigeStandort_Click(sender As Object, e As EventArgs) Handles btnVIEW_LKW.Click
         Grid_aktiv = False
         SWITCH_SEARCH("AVISO")
 
@@ -3861,7 +3900,7 @@ ELSE_ATILLA:
         Grid_aktiv = True
     End Sub
 
-    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
+    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles btnVIEW_SND.Click
         Grid_aktiv = False
         SWITCH_SEARCH("SND")
 
@@ -3888,10 +3927,23 @@ ELSE_ATILLA:
         End Try
     End Sub
 
-    Private Sub Button7_Click_2(sender As Object, e As EventArgs) Handles Button7.Click
+    Private Sub Button7_Click_2(sender As Object, e As EventArgs) Handles btnVIEW_KOMBI.Click
         Grid_aktiv = False
         SWITCH_SEARCH("AVISO_SND_KOMBI")
+        SEARCH_AVISO.RESET()
+        Grid_aktiv = True
+    End Sub
 
+    Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles btnVIEW_Compliance.Click
+        Grid_aktiv = False
+        SWITCH_SEARCH("COMPLIANCE")
+        SEARCH_AVISO.RESET()
+        Grid_aktiv = True
+    End Sub
+
+    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles btnVIEW_CustControling.Click
+        Grid_aktiv = False
+        SWITCH_SEARCH("CUSTOMS_CONTROLLING")
         SEARCH_AVISO.RESET()
         Grid_aktiv = True
     End Sub