Vermerke

Aviso/frmHauptfensterNew.vb

@@ -64,7 +64,7 @@ Public Class frmHauptfensterNew
 
 
 
-    Dim SEARCH_AVISO As New usrCntlHauptfenster_Suche_AVISO
+    Dim SEARCH_AVISO As usrCntlHauptfenster_Suche_AVISO = Nothing
     Dim SEARCH_AVISO_AKTIV As String = "AVISO"
 
     Public Sub New()
@@ -104,11 +104,29 @@ Public Class frmHauptfensterNew
         SEARCH_AVISO_AKTIV = switchTO
 
         Select Case SEARCH_AVISO_AKTIV
-            Case "AVISO"
-                pnlMain.Controls.Add(SEARCH_AVISO)
-                SEARCH_AVISO.Dock = DockStyle.Fill
-                '  SEARCH_AVISO.init(Me)
+            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.Visible = True
+                SEARCH_AVISO.BringToFront()
+                SEARCH_AVISO.Width = pnlMain.Width
+                SEARCH_AVISO.Height = pnlMain.Height
+
+                pnlMain.PerformLayout()
+                SEARCH_AVISO.PerformLayout()
+                Application.DoEvents()
+
+
+                MsgBox(pnlMain.Width & " / " & pnlMain.Height)
+                MsgBox(SEARCH_AVISO.Width & " / " & SEARCH_AVISO.Height)
         End Select
 
     End Sub
@@ -322,30 +340,6 @@ Public Class frmHauptfensterNew
                 ' lblErweitereSuche.Visible = False
                 MDMParkplatzkartenToolStripMenuItem.Visible = False
 
-                '  SplitContainer3.Panel1Collapsed = True
-                '  Button10.Visible = False
-
-                'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
-                '    Button10.Visible = True
-                '    SplitContainer3.Panel1Collapsed = True
-                'End If
-            Case Else
-
-                'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
-                '    SplitContainer3.Panel1Collapsed = True
-                'End If
-
-                'AVISO vom PC übernehmen
-                Dim zeilen As Integer = OptionenDAL.setAVISOFromPcName()
-                Select Case zeilen
-                    Case 0 : SEARCH_AVISO.lblAkte.Visible = False
-                    Case 1 : SEARCH_AVISO.lblAkte.Text = zeilen & " Akt vom Arbeitsplatz übernommen"
-                    Case Else : SEARCH_AVISO.lblAkte.Text = zeilen & " Akte vom Arbeitsplatz übernommen"
-                End Select
-
-                If Not (VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then
-                    SEARCH_AVISO.cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
-                End If
         End Select
 
 
@@ -393,7 +387,6 @@ Public Class frmHauptfensterNew
         End If
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
             BREXITToolStripMenuItem.Visible = True
-            SEARCH_AVISO.cbx_My_Brexit.Checked = True
         End If
 
         'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
@@ -3827,4 +3820,12 @@ ELSE_ATILLA:
         SEARCH_AVISO.RESET()
         Grid_aktiv = True
     End Sub
+
+    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
+        Grid_aktiv = False
+        SWITCH_SEARCH("SND")
+
+        ' SEARCH_AVISO.RESET()
+        Grid_aktiv = True
+    End Sub
 End Class