Gesamtsicherheiten Bugfix beim Weiterschalten

Aviso/frmGesamtsicherheitenNEU.vb

@@ -1,4 +1,5 @@
 
+Imports System.Web.UI.WebControls.Expressions
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmGesamtsicherheitenNEU
@@ -1176,12 +1177,20 @@ Public Class frmGesamtsicherheitenNEU
 
     Private Sub setPrevAndNextGesIDAllOpen()
 
+
         Dim isInList As Boolean = False
 
         Dim onlyOpenDT As DataTable
         dataTable.DefaultView.Sort = "gs_gsnr ASC"
         dataTable = dataTable.DefaultView.ToTable
-        onlyOpenDT = dataTable.Select("gs_isOpen = True").CopyToDataTable
+        If dataTable.Select("gs_isOpen = True").Any Then
+            onlyOpenDT = dataTable.Select("gs_isOpen = True").CopyToDataTable
+        Else
+            MsgBox("keine offenen Gesamtsicherheiten gefunden!")
+            Exit Sub
+
+        End If
+
 
 
         For i As Integer = 0 To onlyOpenDT.Rows.Count - 1
@@ -1265,16 +1274,20 @@ Public Class frmGesamtsicherheitenNEU
         For i As Integer = 0 To dataTable.Rows.Count - 1
             If dataTable.Rows(i).Item("gs_gsnr") = Me.gessicherheitID Then
 
-                prevGessicherheitID = dataTable.Rows(i).Item("gs_gsnr") - 1
+                If i = 0 Then
+                    prevGessicherheitID = -1 ' no prev Sicherheit
+                Else
+                    prevGessicherheitID = dataTable.Rows(i - 1).Item("gs_gsnr")
+                End If
 
-                nextGessicherheitID = dataTable.Rows(i).Item("gs_gsnr") + 1
+                If i = dataTable.Rows.Count - 1 Then
+                    nextGessicherheitID = -1 ' ' no next Sicherheit
+                Else
+                    nextGessicherheitID = dataTable.Rows(i + 1).Item("gs_gsnr")
+                End If
 
-
-                If i = 0 Then prevGessicherheitID = -1 ' no prev Sicherheit
-                If i = dataTable.Rows.Count - 1 Then nextGessicherheitID = -1 ' ' no next Sicherheit
-
-                'MsgBox("prevGessicherheitID " & prevGessicherheitID)
-                'MsgBox("nextGessicherheitID " & nextGessicherheitID)
+                MsgBox("prevGessicherheitID " & prevGessicherheitID)
+                MsgBox("nextGessicherheitID " & nextGessicherheitID)
                 Return i
             End If