FAktabr, UstAntrag, etc.

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb

@@ -1,7 +1,6 @@
 
 Imports System.Data.SqlClient
 Imports System.Reflection
-Imports Org.BouncyCastle.Ocsp
 
 Public Class cUSTVAntrag
 
@@ -475,6 +474,8 @@ Public Class cUStVErstattungPositionen
     Property UStVEr_Zeitstempel As Object = Nothing
     Property UStVEr_daId As Object = Nothing
 
+    Public hasEntry = False
+
     Dim SQL As New SQL
 
 
@@ -514,6 +515,8 @@ Public Class cUStVErstattungPositionen
     Public Sub LOAD(UStVAn_ID, UStVEr_ID)
         Try
 
+            hasEntry = False
+
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                 Using cmd As New SqlCommand("SELECT * FROM tblUStVErstattung WHERE UStVAn_ID=@UStVAn_ID AND UStVEr_ID=@UStVEr_ID ", conn)
                     cmd.Parameters.AddWithValue("@UStVAn_ID", UStVAn_ID)
@@ -529,7 +532,7 @@ Public Class cUStVErstattungPositionen
                                 propInfo.SetValue(Me, dr.Item(i.Text))
                             End If
                         Next
-
+                        hasEntry = True
                     End If
                     dr.Close()
                 End Using