Gesamtsicherheiten Bugfix

Aviso/frmGesamtsicherheitenNEU.vb

@@ -1186,6 +1186,8 @@ Public Class frmGesamtsicherheitenNEU
         If dataTable.Select("gs_isOpen = True").Any Then
             onlyOpenDT = dataTable.Select("gs_isOpen = True").CopyToDataTable
         Else
+            prevGessicherheitID = -1
+            nextGessicherheitID = -1
             MsgBox("keine offenen Gesamtsicherheiten gefunden!")
             Exit Sub
 
@@ -1309,8 +1311,10 @@ Public Class frmGesamtsicherheitenNEU
         If Me.prevGessicherheitID = -1 Then
             initPrevNextButtons()
             Exit Sub
+        ElseIf Me.prevGessicherheitID > 0 Then
+            Me.gessicherheitID = Me.prevGessicherheitID
         End If
-        Me.gessicherheitID = Me.prevGessicherheitID
+
 
         LoadDGVSicherheiten()
     End Sub
@@ -1325,13 +1329,12 @@ Public Class frmGesamtsicherheitenNEU
             setPrevAndNextGesAll()
         End If
 
-
-
         If Me.nextGessicherheitID = -1 Then
             initPrevNextButtons()
             Exit Sub
+        ElseIf Me.nextGessicherheitID > 0 Then
+            Me.gessicherheitID = Me.nextGessicherheitID
         End If
-        Me.gessicherheitID = Me.nextGessicherheitID
 
         LoadDGVSicherheiten()
     End Sub