From 88efed316e870457d65282185cf012a7ffca7605 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 19 Dec 2025 16:29:40 +0100 Subject: [PATCH 1/3] gesamtsicherheiten --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmGesamtsicherheitenNEU.vb | 11 +++++++++-- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 97355a0..298c40e 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 d45033c..9c2d95c 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -1780,11 +1780,18 @@ Public Class frmGesamtsicherheitenNEU End If If dgvGesamtsicherheit.SelectedRows.Count > 0 Then - For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows + For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(r) + Dim v = r.Cells("gs_posNr").Value + Return If(IsNumeric(v), CInt(v), 0) + End Function) Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value) sicherh.gs_MRNNr = txtATBNraendern.Text + If sicherh.gs_MRNNr <> "" Then + sicherh.gs_posSubNr = IIf(Integer.Parse(setNullToZero(txtSPosNr.Text)) <> 0, Integer.Parse(setNullToZero(txtSPosNr.Text)), Me.getLatestSubPosNr(sicherh.gs_gsNr, sicherh.gs_ATBNr, sicherh.gs_MRNNr) + 1) + Else + sicherh.gs_posSubNr = Nothing + End If sicherh.SAVE() - Next End If From 4081e59579f3a8f66acef88ffea994506697ff40 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 23 Dec 2025 08:47:21 +0100 Subject: [PATCH 2/3] Typo --- Aviso/frmSendungsdetailsNEU.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 4add279..4115b93 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -4011,7 +4011,7 @@ Public Class frmSendungsdetailsNEU Dim frmBeleg As New SDL.frmFremdbeleg(PERSONAL, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat) frmBeleg.ShowDialog(Me) Case "L" - If B.storniert Then MsgBox("Der Beleg wurde bereits storiniert!") : Exit Sub + If B.storniert Then MsgBox("Der Beleg wurde bereits storniert!") : Exit Sub Dim frmBeleg As New SDL.frmNacherfassungLeihgeld(PERSONAL, Nothing, PERSONAL.Mandant, PERSONAL.Niederlassung, B.Benutzer, B.BelegNr, B.BelegDat) frmBeleg.ShowDialog(Me) Case Else From 14d00c458d388ff20572e3fbc12390e78ed6c600 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 23 Dec 2025 08:51:58 +0100 Subject: [PATCH 3/3] version --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 298c40e..b5798b0 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: ' - - + +