Kundendatenblatt, ustva, IDS, UTA, MSE

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb

@@ -1,6 +1,7 @@
 
 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports Org.BouncyCastle.Ocsp
 
 Public Class cUSTVAntrag
 
@@ -201,6 +202,24 @@ Public Class cUSTVAntrag
         Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
     End Function
 
+    Public Function SAVEID() As Integer
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVAntrag WITH(updlock,serializable) WHERE UStVAn_ID=@UStVAn_ID ) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        UStVAn_ID = SQL.doSQLVarListID(UStVAn_ID, sqlstr, "FMZOLL", , list)
+
+        Return UStVAn_ID
+
+    End Function
+
+
+
+
 
     Public Function getInsertCmd() As String
         Try
@@ -255,6 +274,13 @@ Public Class cUSTVAntrag
         Return -1
     End Function
 
+    Public Function DELETE() As Boolean
+
+        Dim sqlstr = " DELETE FROM tblUStVAntrag WITH(updlock,serializable) WHERE UStVAn_ID=" & Me.UStVAn_ID
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+
+    End Function
+
 
 End Class