Gestellugnsgarantien und Certräge -> UsrCntl gebaut; Anhangsarten, Vermerke entgültig löschen

VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb

@@ -55,6 +55,19 @@ Public Class cKundenVertraege
         Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
     End Function
 
+    Public Function SAVEOBJECT() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM tblKundenVertraege With(updlock, serializable) WHERE kv_Id=@kv_Id) " &
+                       " BEGIN " & getUpdateCmd() & " End " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " End " &
+                       " commit tran "
+
+        kv_Id = SQL.doSQLVarListID(kv_Id, sqlstr, "FMZOLL", , list)
+        Return kv_Id
+    End Function
+
     Public Sub LOAD()
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()