AVISO New Layout

Aviso/frmHauptfensterNew.vb

@@ -65,6 +65,7 @@ Public Class frmHauptfensterNew
 
 
     Dim SEARCH_AVISO As usrCntlHauptfenster_Suche_AVISO = Nothing
+    Dim SEARCH_SND As usrCntlHauptfenster_Suche_SND = Nothing
     Dim SEARCH_AVISO_AKTIV As String = "AVISO"
 
     Public Sub New()
@@ -101,34 +102,54 @@ Public Class frmHauptfensterNew
     End Sub
     Sub SWITCH_SEARCH(switchTO)
         pnlMain.Controls.Clear()
+        pnlMain_Bottom.Controls.Clear()
         SEARCH_AVISO_AKTIV = switchTO
 
         Select Case SEARCH_AVISO_AKTIV
             Case "SND"
-                Dim aaaaa As New usrCntlSND_Ausfuhr
-                pnlMain.Controls.Add(aaaaa)
-                initsearch("", False) ': Aviso_anzeigen("")
-
-            Case "AVISO"
-                If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
-
-                pnlMain.Controls.Add(SEARCH_AVISO)
-
-                'SEARCH_AVISO.Dock = DockStyle.Fill
-                SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
-                SEARCH_AVISO.Visible = True
-                SEARCH_AVISO.BringToFront()
-                SEARCH_AVISO.Width = pnlMain.Width
-                SEARCH_AVISO.Height = pnlMain.Height
+                splitMainWorkingView.Panel2Collapsed = True
 
+                If SEARCH_SND Is Nothing Then SEARCH_SND = New usrCntlHauptfenster_Suche_SND
+                SEARCH_SND.PARENT_FRMHAUPTFENSTER = Me
+                pnlMain.Controls.Add(SEARCH_SND)
+                SEARCH_SND.Dock = DockStyle.Fill
                 pnlMain.PerformLayout()
-                SEARCH_AVISO.PerformLayout()
+                SEARCH_SND.PerformLayout()
                 Application.DoEvents()
 
 
 
-                'MsgBox(pnlMain.Width & " / " & pnlMain.Height)
-                'MsgBox(SEARCH_AVISO.Width & " / " & SEARCH_AVISO.Height)
+            Case "AVISO"
+                splitMainWorkingView.Panel2Collapsed = True
+
+                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 "AVISO_SND_KOMBI"
+                splitMainWorkingView.Panel2Collapsed = False
+
+                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()
+                '--------------------------------------------------------------
+                If SEARCH_SND Is Nothing Then SEARCH_SND = New usrCntlHauptfenster_Suche_SND
+                SEARCH_SND.PARENT_FRMHAUPTFENSTER = Me
+                pnlMain_Bottom.Controls.Add(SEARCH_SND)
+                SEARCH_SND.Dock = DockStyle.Fill
+                pnlMain_Bottom.PerformLayout()
+                SEARCH_SND.PerformLayout()
+                Application.DoEvents()
+
+
         End Select
         initsearch(SEARCH_AVISO_AKTIV, False) ': Aviso_anzeigen("")
     End Sub
@@ -142,6 +163,20 @@ Public Class frmHauptfensterNew
         End If
     End Sub
 
+    Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click
+
+        Select Case SEARCH_AVISO_AKTIV
+            Case "SND"
+                If SEARCH_SND IsNot Nothing Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True)
+            Case "AVISO"
+                If SEARCH_AVISO IsNot Nothing Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
+            Case "AVISO_SND_KOMBI"
+                If SEARCH_AVISO IsNot Nothing Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
+                If SEARCH_SND IsNot Nothing Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True)
+        End Select
+        UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
+    End Sub
+
     Private Sub frmMain_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
 
         If e.KeyCode = Keys.F2 Or e.KeyCode = Keys.F5 Then
@@ -510,7 +545,7 @@ Public Class frmHauptfensterNew
         'Grid jetzt aktivieren und befüllen - Standardanzeige ident mit Button Wichtig
         Grid_aktiv = True
         SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
-        If SucheStandort <> "" Then btnWichtigeStandort.Text = "Wichtig " & SucheStandort.Trim.ToUpper
+        ' If SucheStandort <> "" Then btnWichtigeStandort.Text = "Wichtig " & SucheStandort.Trim.ToUpper
         initsearch(" ORDER BY Ankunft")
 
         UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
@@ -1445,15 +1480,8 @@ ELSE_ATILLA:
         End If
     End Sub
 
-    Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click
-        If SEARCH_AVISO IsNot nohing Then
 
 
-            SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
-            UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
-        End If
-    End Sub
-
 
     'Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, btnUmrechnungskurse.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter
     '    Try
@@ -1740,7 +1768,7 @@ ELSE_ATILLA:
             'btnGenerelleGestellungen.Visible = False
             Button6.Visible = False
 
-            btnWichtigeStandort.Visible = False
+            'btnWichtigeStandort.Visible = False
             Panel2.Visible = False
 
         ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
@@ -3059,7 +3087,9 @@ ELSE_ATILLA:
                                 End If
                             End If
                         Next
-                        If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
+                        If cbxInfoChat.Checked Then '# 'Anzeicge Infobox Neuer Chat Ein/Aus
+                            If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
+                        End If
                     Else
                         Me.Icon = My.Resources.Aviso
                     End If
@@ -3858,4 +3888,11 @@ ELSE_ATILLA:
         End Try
     End Sub
 
+    Private Sub Button7_Click_2(sender As Object, e As EventArgs) Handles Button7.Click
+        Grid_aktiv = False
+        SWITCH_SEARCH("AVISO_SND_KOMBI")
+
+        SEARCH_AVISO.RESET()
+        Grid_aktiv = True
+    End Sub
 End Class