edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix verwahrungen (sehr seltener fehler)!

Browse Source
This commit is contained in:
d.breimaier
2026-10-16 10:43:56 +02:00
parent de6939c518
commit 14a3b46c0c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/cSicherheiten.vb
View File

@@ -422,7 +422,7 @@ Public Class cSicherheiten
Dim dt As New DataTable Dim dt As New DataTable
dt = (New SQL).loadDgvBySql(sqlq, "AVISO", 100, True) 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) posNr = dt.Rows(0).Item(0)
@@ -441,7 +441,7 @@ Public Class cSicherheiten
Dim dt As New DataTable Dim dt As New DataTable
dt = (New SQL).loadDgvBySql(sqlq, "AVISO", 100, True) 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) posNr = dt.Rows(0).Item(0)