Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb

@@ -187,7 +187,7 @@ Public Class cUIDPruefung
 
                             counter += 1
 
-                            Dim errorCode = 0
+                            Dim errorCode = -99
                             Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(r("KdNr"),, SaveErgInAdressen, showErr,, errorCode)
                             If UID_TMP IsNot Nothing Then
                                 If UID_TMP.uid_valid Then

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)