Update Version 2.3

_DataClass/DB/clsPersonal.vb

@@ -9,10 +9,10 @@ Namespace DB
 
 #Region " Class Member Declarations "
 
-		Private 		m_bAktiv As SqlBoolean
+		Private m_bAktiv As SqlBoolean
 		Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
 		Private m_iSequenz, m_iMutierer, m_iPersonalnr, m_iParentID As SqlInt32
-		Private m_sNextControlDate, m_sVerantwTKBMA, m_sTGNummer, m_sName, m_sBezeichnung, m_sBeschreibung As SqlString
+		Private m_sNextControlDate, m_sVerantwTKBMA, m_sEMail, m_sBeschreibung, m_sTGNummer, m_sName, m_sBezeichnung As SqlString
 
 #End Region
 
@@ -44,6 +44,7 @@ Namespace DB
 				scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
 				scmCmdToExecute.Parameters.Add(New SqlParameter("@sVerantwTKBMA", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVerantwTKBMA))
 				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNextControlDate", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNextControlDate))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail))
 				scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
 
 				If m_bMainConnectionIsCreatedLocal Then
@@ -100,6 +101,7 @@ Namespace DB
 				scmCmdToExecute.Parameters.Add(New SqlParameter("@iMutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
 				scmCmdToExecute.Parameters.Add(New SqlParameter("@sVerantwTKBMA", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVerantwTKBMA))
 				scmCmdToExecute.Parameters.Add(New SqlParameter("@sNextControlDate", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNextControlDate))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sEMail", SqlDbType.VarChar, -1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEMail))
 				scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
 
 				If m_bMainConnectionIsCreatedLocal Then
@@ -272,6 +274,11 @@ Namespace DB
 					Else
 						m_sNextControlDate = New SqlString(CType(dtToReturn.Rows(0)("NextControlDate"), String))
 					End If
+					If dtToReturn.Rows(0)("EMail") Is System.DBNull.Value Then
+						m_sEMail = SqlString.Null
+					Else
+						m_sEMail = New SqlString(CType(dtToReturn.Rows(0)("EMail"), String))
+					End If
 				End If
 				Return dtToReturn
 			Catch ex As Exception
@@ -469,6 +476,16 @@ Namespace DB
 			End Set
 		End Property
 
+
+		Public Property [sEMail]() As SqlString
+			Get
+				Return m_sEMail
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sEMail = Value
+			End Set
+		End Property
+
 #End Region
 
 	End Class

_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)
+    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)
         Dim selectcommand As New SqlCommand
         Dim connection As New SqlConnection()
         Dim da As New SqlDataAdapter("", connection)
@@ -285,6 +285,8 @@ Public Class DataClass
         selectcommand.Parameters.Add("@KeyValue", SqlDbType.Int, 4)
         selectcommand.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
         selectcommand.Parameters.Add("@Datatype", SqlDbType.Int, 4)
+        selectcommand.Parameters.Add("@Kontaktid", SqlDbType.Int, 4)
+
         selectcommand.Parameters(0).Value = beschreibung
         selectcommand.Parameters(1).Value = unterlagen
         selectcommand.Parameters(2).Value = bearbeiter
@@ -293,6 +295,7 @@ Public Class DataClass
         selectcommand.Parameters(5).Value = keyvalue
         selectcommand.Parameters(6).Value = Globals.Mitarbeiternr
         selectcommand.Parameters(7).Value = Datatype
+        selectcommand.Parameters(8).Value = kontaktid
 
         selectcommand.CommandType = CommandType.StoredProcedure
         selectcommand.Connection = connection

_DataClass/obj/Debug/_DataClass.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-d341cecee8c1a4f049ef9330273216c242dc4490
+e8e40c6467e64051916291f66037b940a5b6d021