From 14a3b46c0c865e86188f7a22464ff4aa6e8a8e5e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 16 Oct 2026 10:43:56 +0200 Subject: [PATCH] fix verwahrungen (sehr seltener fehler)! --- VERAG_PROG_ALLGEMEIN/cSicherheiten.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb index 93c26be6..6734751c 100644 --- a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb +++ b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb @@ -422,7 +422,7 @@ Public Class cSicherheiten Dim dt As New DataTable dt = (New SQL).loadDgvBySql(sqlq, "AVISO", 100, True) - If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then + If dt.Rows.Count > 0 AndAlso (dt.Rows(0).Item(0) IsNot DBNull.Value) Then posNr = dt.Rows(0).Item(0) @@ -441,7 +441,7 @@ Public Class cSicherheiten Dim dt As New DataTable dt = (New SQL).loadDgvBySql(sqlq, "AVISO", 100, True) - If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then + If dt.Rows.Count > 0 AndAlso (dt.Rows(0).Item(0) IsNot DBNull.Value) Then posNr = dt.Rows(0).Item(0)