shu/BEA
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update Version 2.3

Browse Source
This commit is contained in:
Stefan Hutter
2021-05-25 21:01:12 +02:00
parent 1cc7ed8893
commit 97ef665fd1
183 changed files with 86758 additions and 197 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
_DataClass/_DataClass.vb
View File

@@ -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