From 5fa8a3ff4147cc2c0ab4dd60b847d57ca9c4333d Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 8 Nov 2022 10:56:14 +0100 Subject: [PATCH] Message bei Gesamtsicherheiten ausgeblendet. --- Aviso/frmGesamtsicherheitenNEU.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Aviso/frmGesamtsicherheitenNEU.vb b/Aviso/frmGesamtsicherheitenNEU.vb index 1cd1c9b..d1c2f70 100644 --- a/Aviso/frmGesamtsicherheitenNEU.vb +++ b/Aviso/frmGesamtsicherheitenNEU.vb @@ -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