Message bei Gesamtsicherheiten ausgeblendet.

This commit is contained in:
2022-11-08 10:56:14 +01:00
parent 19c48fd6ea
commit 5fa8a3ff41

View File

@@ -1107,7 +1107,7 @@ Public Class frmGesamtsicherheitenNEU
For i As Integer = 0 To dt.Rows.Count - 1
MsgBox("gs_gsId: " & dt.Rows(i).Item("gs_gsId").ToString & " " & "gs_posNr: " & dt.Rows(i).Item("gs_posNr").ToString)
'MsgBox("gs_gsId: " & dt.Rows(i).Item("gs_gsId").ToString & " " & "gs_posNr: " & dt.Rows(i).Item("gs_posNr").ToString)
Dim sicherheit = New cSicherheiten(dt.Rows(i).Item("gs_gsId"), dt.Rows(i).Item("gs_posNr"))
Dim currentPos = sicherheit.gs_posNr
sicherheit.gs_posNr = currentPos - 1