From 339398478d1561ee4189d54548ff51c1a1778961 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 31 Jan 2023 11:09:37 +0100 Subject: [PATCH] Gesamtsicherheiten Bugfix --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmGesamtsicherheitenNEU.vb | 21 +++++++++++++++------ 2 files changed, 17 insertions(+), 8 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 68c82c4..440246c 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index efd6b05..fdc13ab 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/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