USTVA, Mahnungen,etc.

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb

@@ -351,6 +351,8 @@ Public Class cUStVPositionen
     Property UStVPo_Nettobetrag As Object = Nothing
     Property UStVPo_NettobetragEUR As Object = Nothing
 
+    Public hasEntry = False
+
     Dim SQL As New SQL
 
     Sub New(UStVAn_ID, UStVPo_ID)
@@ -372,6 +374,8 @@ Public Class cUStVPositionen
     Public Sub LOAD(UStVAn_ID, UStVPo_ID)
         Try
 
+            hasEntry = False
+
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                 Using cmd As New SqlCommand("SELECT * FROM [tblUStVPositionen] WHERE UStVAn_ID=@UStVAn_ID AND UStVPo_ID=@UStVPo_ID ", conn)
                     cmd.Parameters.AddWithValue("@UStVAn_ID", UStVAn_ID)
@@ -387,7 +391,7 @@ Public Class cUStVPositionen
                                 propInfo.SetValue(Me, dr.Item(i.Text))
                             End If
                         Next
-
+                        hasEntry = True
                     End If
                     dr.Close()
                 End Using