Update Version 1.6

_DataClass/_DataClass.vb

@@ -271,7 +271,7 @@ Public Class DataClass
         Return fs.Get_aktives_Personal
     End Function
 
-    Public Function Update_Temporaer_Berechtigung(beschreibung As String, unterlagen As String, bearbeiter As String, kontakt As String, termin As String, keyvalue As Integer, ByVal Datatype As Integer, Optional kontaktid As Integer = 0)
+    Public Function Update_Temporaer_Berechtigung(beschreibung As String, unterlagen As String, bearbeiter As String, kontakt As String, termin As String, keyvalue As Integer, ByVal Datatype As Integer, Optional kontaktid As Integer = 0, Optional kontaktidsd As Integer = 0)
         Dim selectcommand As New SqlCommand
         Dim connection As New SqlConnection()
         Dim da As New SqlDataAdapter("", connection)
@@ -286,6 +286,7 @@ Public Class DataClass
         selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
         selectcommand.Parameters.Add("@Datatype", SqlDbType.Int, 4)
         selectcommand.Parameters.Add("@Kontaktid", SqlDbType.Int, 4)
+        selectcommand.Parameters.Add("@KontaktidSD", SqlDbType.Int, 4)
 
         selectcommand.Parameters(0).Value = beschreibung
         selectcommand.Parameters(1).Value = unterlagen
@@ -296,6 +297,7 @@ Public Class DataClass
         selectcommand.Parameters(6).Value = Globals.Mitarbeiternr
         selectcommand.Parameters(7).Value = Datatype
         selectcommand.Parameters(8).Value = kontaktid
+        selectcommand.Parameters(9).Value = kontaktidsd
 
         selectcommand.CommandType = CommandType.StoredProcedure
         selectcommand.Connection = connection