Gesamtsicherheiten Bugfix

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.8.5.8")>
-<Assembly: AssemblyFileVersion("3.8.5.8")>
+<Assembly: AssemblyVersion("3.8.5.9")>
+<Assembly: AssemblyFileVersion("3.8.5.9")>

Aviso/frmGesamtsicherheitenNEU.vb

@@ -60,6 +60,7 @@ Public Class frmGesamtsicherheitenNEU
             cbxRundPosanzeigen.Visible = False
         End If
 
+
         currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
         SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
         lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
@@ -85,7 +86,7 @@ Public Class frmGesamtsicherheitenNEU
             txtlkwIdSearch.initSearchBox(Me.FindForm, "  LKW_Nr, AvisoID, CAST(Datum as Date) as Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoID", "AVISO",, 250, 200)
 
         Else
-            LoadDGVSicherheiten()
+            LoadDGVSicherheiten(True)
         End If
         LoadStandort()
         cboSicherheitATR.Enabled = currentGesSichRef.brgakto_gs_ATR
@@ -94,6 +95,7 @@ Public Class frmGesamtsicherheitenNEU
         initPrevNextButtons()
         changeLabel()
 
+
         Me.Text = "Gesamtsicherheit " & Standort
         frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)
 
@@ -182,6 +184,8 @@ Public Class frmGesamtsicherheitenNEU
 
     Public Sub LoadDataTableSicherheitenForExport(list As List(Of Integer), datumVon As String, datumBis As String)
 
+        Me.Cursor = Cursors.WaitCursor
+
         Dim gsnr As String
         Dim counter = 0
         For Each n In list
@@ -239,6 +243,7 @@ Public Class frmGesamtsicherheitenNEU
 
         dtSicherheiten.Columns.Remove("Saldo")
 
+        Me.Cursor = Cursors.Default
 
     End Sub
 
@@ -1168,7 +1173,7 @@ Public Class frmGesamtsicherheitenNEU
     End Sub
 
 
-    Private Function setPrevAndNextGesIDAllOpen()
+    Private Sub setPrevAndNextGesIDAllOpen()
 
         Dim isInList As Boolean = False
 
@@ -1211,10 +1216,10 @@ Public Class frmGesamtsicherheitenNEU
 
         End If
 
-    End Function
+    End Sub
 
 
-    Private Function setPrevAndNextGesIDAllOpenIfNotInList(ByRef isInList As Boolean)
+    Private Sub setPrevAndNextGesIDAllOpenIfNotInList(ByRef isInList As Boolean)
 
         For i As Integer = 0 To dataTable.Rows.Count - 1
             If dataTable.Rows(i).Item("gs_gsnr") = Me.gessicherheitID Then
@@ -1251,10 +1256,10 @@ Public Class frmGesamtsicherheitenNEU
 
         Next
 
-    End Function
+    End Sub
 
 
-    Private Function setPrevAndNextGesAll()
+    Private Function setPrevAndNextGesAll() As Integer
 
         For i As Integer = 0 To dataTable.Rows.Count - 1
             If dataTable.Rows(i).Item("gs_gsnr") = Me.gessicherheitID Then
@@ -1279,6 +1284,8 @@ Public Class frmGesamtsicherheitenNEU
 
     Private Sub btnPrev_Click(sender As Object, e As EventArgs) Handles btnPrev.Click
 
+        If dataTable.Rows.Count < 2 Then Exit Sub
+
         If (cbx_offene.Checked) Then
             setPrevAndNextGesIDAllOpen()
         Else
@@ -1296,6 +1303,8 @@ Public Class frmGesamtsicherheitenNEU
 
     Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
 
+        If dataTable.Rows.Count < 2 Then Exit Sub
+
         If (cbx_offene.Checked) Then
             setPrevAndNextGesIDAllOpen()
         Else