MDM, USTVA, MDMFunctions,

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb

@@ -392,4 +392,12 @@ Public Class cUStVPositionen
         End Try
         Return ""
     End Function
+
+
+    Public Function DELETE(UStVAn_ID, UStVPo_ID) As Boolean
+
+        Dim sqlstr = " DELETE FROM tblUStVPositionen WITH(updlock,serializable) WHERE UStVAn_ID=" & Me.UStVAn_ID & " AND UStVPo_ID=" & Me.UStVPo_ID
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+
+    End Function
 End Class