20200108

SDL/cSqlDb.vb

@@ -1782,6 +1782,25 @@ Public Class kundenSQL
         Return False
     End Function
 
+    Public Function setVollmacht_DSId(ByVal kdvm_KundenNr As Integer, ByVal kdvm_kdvmaId As Integer, ByVal kdvm_datenarchivId As Integer) As Boolean
+        Try
+            Dim d As String = ""
+            Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("UPDATE [tblKundenVollmachten] SET [kdvm_datenarchivId]=@kdvm_datenarchivId  WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_kdvmaId =@kdvm_kdvmaId  ", conn)
+
+                    cmd.Parameters.AddWithValue("@kdvm_KundenNr", kdvm_KundenNr)
+                    cmd.Parameters.AddWithValue("@kdvm_kdvmaId", kdvm_kdvmaId)
+                    cmd.Parameters.AddWithValue("@kdvm_datenarchivId", kdvm_datenarchivId)
+                    cmd.ExecuteNonQuery()
+                    Return True
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+        End Try
+        Return False
+
+    End Function
     Public Function setPartnerKdNrFromFMZOLL(ByVal columnName As String, ByVal value As Object, ByVal AdressenNr As String) As Boolean
         Dim sql = "UPDATE Adressen " &
                        " SET [" & columnName & "]=@value " &