Feature_Gesamtsicherheiten

VERAG_PROG_ALLGEMEIN/cSicherheiten.vb

@@ -78,6 +78,21 @@ Public Class cSicherheiten
         Return SQL.doSQLVarList(sqlstr, "AVISO", , list)
     End Function
 
+    Public Function SAVEOBJECT() As Integer
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblGesamtsicherheit]  WHERE gs_gsId=@gs_gsId) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+        gs_gsId = SQL.doSQLVarListID(gs_gsId, sqlstr, "AVISO", , list)
+        Return gs_gsId
+    End Function
+
+
+
     Public Sub LOAD()
         Try
             hasEntry = False