ustva, fakt, etc.

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb

@@ -62,6 +62,7 @@ Public Class cUSTVAntrag
     Property UStVAn_Sicherheit As Object = Nothing
     Property UStVAn_MWSTEingang_offen As Object = Nothing
     Property POSITIONEN As New List(Of cUStVPositionen) '= Nothing
+    Property UStVAn_letzteAenderung As Object = Nothing
 
     Public hasEntry = False
 
@@ -133,6 +134,7 @@ Public Class cUSTVAntrag
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_VZoffen", UStVAn_VZoffen)) '
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Sicherheit", UStVAn_Sicherheit))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_MWSTEingang_offen", UStVAn_MWSTEingang_offen))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_letzteAenderung", UStVAn_letzteAenderung))
 
 
         Return list
@@ -322,6 +324,18 @@ Public Class cUSTVAntrag
         Return -1
     End Function
 
+    Public Function hasVZalreadyBilled() As Boolean
+        Try
+
+
+            Return SQL.getValueTxtBySql("SELECT count(*) FROM tblUStVPositionen where UStVAn_ID=" & UStVAn_ID & " and UStVPo_VZ = 1 and UStVPo_VZ_RKID is not null", "FMZOLL",,, "0") > 0
+
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return False
+    End Function
+
 
 
     Public Function DELETE() As Boolean