PosNr bei Gesamtsicherheiten, FO-Webservice

VERAG_PROG_ALLGEMEIN/cSicherheiten.vb

@@ -98,6 +98,19 @@ Public Class cSicherheiten
 
 
 
+    Public Function UPDATEWithNewPosNr() As Integer
+
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN " & getUpdateCmd() & " END "
+
+        gs_gsId = SQL.doSQLVarListID(gs_gsId, sqlstr, "AVISO", , List)
+        Return gs_gsId
+    End Function
+
+
+
+
     Public Sub LOAD()
         Try
             hasEntry = False
@@ -170,7 +183,7 @@ Public Class cSicherheiten
                 End If
             Next
             str = str.Substring(0, str.Length - 1) 'wg. ','
-            Return (" UPDATE [tblGesamtsicherheit] SET " & str & " WHERE gs_gsId=@gs_gsId AND gs_posNr=@gs_posNr ")
+            Return (" UPDATE [tblGesamtsicherheit] SET " & str & " WHERE gs_gsId=@gs_gsId") ' AND gs_posNr=@gs_posNr ")
 
         Catch ex As Exception
             MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)