divers layout, etc

Aviso/usrCntlHauptfenster_Suche_AVISO.vb

@@ -160,7 +160,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO
 
         pnlSearch.Visible = False
         'initPnlSearch()
-        '  Grid_aktiv = True
+        Grid_aktiv = True
+        Aviso_anzeigen("")
     End Sub
 
 
@@ -901,6 +902,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO
         lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "")
 
         initEAviso()
+        avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID,  , False)
+
 
         'lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms"
     End Sub
@@ -1246,6 +1249,23 @@ Public Class usrCntlHauptfenster_Suche_AVISO
 
     End Sub
 
+    Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) Handles gridAviso.KeyUp
+        Try
+
+            If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
+                If sender.selectedRows.count = 0 Then Exit Sub
+                Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
+                'Dim tmpSndId = CInt(sender.selectedRows(0).Cells("tblSnd_SendungID").Value)
+                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
+                'VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpSndId
+                frmHauptfensterNew.REFRESH_AVISO_MAIN(,, Me.GetType().Name)
+            End If
+
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
 
     Private Sub TimerAkte_Tick(sender As Object, e As EventArgs) Handles TimerAkte.Tick
         ' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
@@ -1420,7 +1440,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
 
 
 
-    Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True)
+    Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True, Optional refreshPnlRight As Boolean = True)
 
         PARENT_FRMHAUPTFENSTER.pic.Visible = False
         Try
@@ -1434,54 +1454,47 @@ Public Class usrCntlHauptfenster_Suche_AVISO
             '  If Aviso_anzeigenBool Then PARENT_FRMHAUPTFENSTER.initsearch("", False)
 
 
-            If AVISO_TYP = "LKW" Then
-                gridAviso.ClearSelection()
-                For Each r As DataGridViewRow In gridAviso.Rows
+            gridAviso.ClearSelection()
+            For Each r As DataGridViewRow In gridAviso.Rows
                     If CInt(r.Cells("AvisoId").Value) = tmpid Then
                         ' gridMyAviso.ClearSelection()
                         gridAviso.CurrentCell = r.Cells("Status")
                         r.Selected = True : Exit For
                     End If
                 Next
-            Else
-                gridAviso.ClearSelection()
-                If gridAviso.Rows.Count > 0 Then
-                    For Each r As DataGridViewRow In gridAviso.Rows
-                        If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then
-                            gridAviso.CurrentCell = r.Cells("Status")
-                            r.Selected = True : Exit For
-                        End If
-                    Next
-                End If
-            End If
 
 
             VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid
             Details_aktiv = True
 
-            If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls.Count > 0 Then
 
-                Dim usrcntlAvisoID = -1
-                Dim usrcntlAktiv As DateTime
-                If Not PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
-                    If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
-                        usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
-                        usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
-                    Else
-                        usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
-                        usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
-                    End If
+            'If refreshPnlRight Then
 
-                    If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
-                        PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-                    Else
-                        If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
-                            PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-                        End If
-                    End If
-                End If
+            '    If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls.Count > 0 Then
+
+            '        Dim usrcntlAvisoID = -1
+            '        Dim usrcntlAktiv As DateTime
+            '        If Not PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
+            '            If PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
+            '                usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
+            '                usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
+            '            Else
+            '                usrcntlAvisoID = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
+            '                usrcntlAktiv = DirectCast(PARENT_FRMHAUPTFENSTER.pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
+            '            End If
+
+            '            If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
+            '                PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            '            Else
+            '                If DateDiff(DateInterval.Second, usrcntlAktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
+            '                    PARENT_FRMHAUPTFENSTER.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            '                End If
+            '            End If
+            '        End If
+
+            '    End If
+            'End If
 
-            End If
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
         End Try
@@ -1489,6 +1502,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
 
 
 
+
     Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridAviso.CellMouseClick
 
         If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
@@ -1519,7 +1533,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO
                 '    End If
                 'Else
                 setAkive_AuswahlID()
-                avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
+                '    avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
+                frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId,, Me.GetType().Name)
                 Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status
                 If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
                     'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation)
@@ -1538,8 +1553,9 @@ Public Class usrCntlHauptfenster_Suche_AVISO
 
             End If
         ElseIf e.Button = MouseButtons.Left Then
-            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
-            avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
+            frmHauptfensterNew.REFRESH_AVISO_MAIN(tmpId,, Me.GetType().Name)
+            'VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
+            'avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
         End If
     End Sub