Update Version 1.6

BEA/Utils/Globals.vb

@@ -18,7 +18,7 @@ Module Globals
     'End Enum
 
     Public Version As String = "2.3"
-    Public Versionsdatum As String = "25. Mai 2021"
+    Public Versionsdatum As String = "06. Juni 2021"
 
 
     ''' <summary>

BEA/bin/Debug/_Generic_Event_Handler.xml

@@ -6,19 +6,21 @@ _Generic_Event_Handler
 </name>
 </assembly>
 <members>
+<member name="T:_Generic_Event_Handler.My.Resources.Resources">
+<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member>
 <member name="P:_Generic_Event_Handler.My.Resources.Resources.ResourceManager">
-	<summary>
+<summary>
   Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
 </summary>
-</member><member name="P:_Generic_Event_Handler.My.Resources.Resources.Culture">
-	<summary>
+</member>
+<member name="P:_Generic_Event_Handler.My.Resources.Resources.Culture">
+<summary>
   Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
   Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
 </summary>
-</member><member name="T:_Generic_Event_Handler.My.Resources.Resources">
-	<summary>
-  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
-</summary>
 </member>
 </members>
 </doc>

BEA/obj/Debug/BEA.vbproj.FileListAbsolute.txt

@@ -4,7 +4,6 @@ E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\BEA.xml
 E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\BEA.pdb
 E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\BEA.exe.config
 E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\bin\Debug\BEA.exe.config
-E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.vbprojAssemblyReference.cache
 E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\BEA.exe.config
 E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\BEA.exe
 E:\Software-Projekte\TKBDiverse\BEA\BEA\bin\Debug\BEA.pdb
@@ -131,3 +130,4 @@ I:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.vbproj.CopyComplete
 I:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.exe
 I:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.xml
 I:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.pdb
+E:\Software-Projekte\TKBDiverse\BEA\BEA\obj\Debug\BEA.vbproj.AssemblyReference.cache

_AllgMainObjekte/AllgMainObjekte.vb

@@ -463,7 +463,9 @@ Public Class AllgMainObjekte
 
                     'Case 3 'PLATTFORM
                 Case 2 'PERSONAL
-                    VerantwTKBMa = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
+                    If Globals.VerantwTKBMA_Data.Rows.Count = 0 Then VerantwTKBMA_Data = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
+                    VerantwTKBMa = VerantwTKBMA_Data.Copy
+                    'VerantwTKBMa = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
                     Me.lblEmail.Visible = True
                     Me.txtMail.Visible = True
                     Me.tsbtncopy1.Visible = True
@@ -662,13 +664,13 @@ Public Class AllgMainObjekte
 
         If f.cbTemporaer.Checked = True Then
             If DBObjektname = "_DataClass.db.Personal_FunktionStelle" Then
-                Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 0, f.cbboxKontaktFB.SelectedValue)
+                Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 0, f.cbboxKontaktFB.SelectedValue, f.cbboxKontaktSD.SelectedValue)
             End If
             If DBObjektname = "_DataClass.db.Personal_Berechtigung" Then
-                Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 1, f.cbboxKontaktFB.SelectedValue)
+                Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 1, f.cbboxKontaktFB.SelectedValue, f.cbboxKontaktSD.SelectedValue)
             End If
             If DBObjektname = "_DataClass.db.Personal_Plattform" Then
-                Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 2, f.cbboxKontaktFB.SelectedValue)
+                Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, i, 2, f.cbboxKontaktFB.SelectedValue, f.cbboxKontaktSD.SelectedValue)
             End If
         End If
 
@@ -972,6 +974,12 @@ Public Class AllgMainObjekte
                 Catch
                     f.Kontaktid = 0
                 End Try
+                Try
+                    f.KontaktidSD = dt.Rows(0).Item("KontaktIDSD")
+                Catch ex As Exception
+                    f.KontaktidSD = 0
+
+                End Try
 
                 f.DateTimePicker1.Value = dt.Rows(0).Item("termin")
             Else
@@ -988,7 +996,7 @@ Public Class AllgMainObjekte
                 DBObjekt.ibeziehungstypnr = New SqlInt32(CType(f.cbbeziehungstyp.SelectedValue, Int32))
                 DBObjekt.save_data()
                 If is_temporaer = True And f.cbAktiv.Checked = True Then
-                    Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, Keyvalue, 0, f.cbboxKontaktFB.SelectedValue)
+                    Datenklasse.Update_Temporaer_Berechtigung(f.TextBox1.Text, f.TextBox2.Text, f.TextBox3.Text, f.TextBox4.Text, f.DateTimePicker1.Value, Keyvalue, 0, f.cbboxKontaktFB.SelectedValue, f.cbboxKontaktSD.SelectedValue)
                 End If
             End If
             DBObjekt.dispose()

_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.Designer.vb

@@ -36,6 +36,7 @@ Partial Class frmBeziehungEdit
         Me.lblBeziehungstyp = New System.Windows.Forms.Label()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.cbboxKontaktSD = New DevComponents.DotNetBar.Controls.ComboBoxEx()
         Me.cbboxKontaktFB = New DevComponents.DotNetBar.Controls.ComboBoxEx()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
@@ -63,7 +64,7 @@ Partial Class frmBeziehungEdit
         Me.txtSeqeunz.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
         Me.txtSeqeunz.Name = "txtSeqeunz"
         Me.txtSeqeunz.Size = New System.Drawing.Size(120, 20)
-        Me.txtSeqeunz.TabIndex = 15
+        Me.txtSeqeunz.TabIndex = 2
         '
         'lblSequenz
         '
@@ -98,7 +99,7 @@ Partial Class frmBeziehungEdit
         Me.txtBemerkung.Multiline = True
         Me.txtBemerkung.Name = "txtBemerkung"
         Me.txtBemerkung.Size = New System.Drawing.Size(244, 69)
-        Me.txtBemerkung.TabIndex = 11
+        Me.txtBemerkung.TabIndex = 0
         '
         'lblBemerkung
         '
@@ -134,7 +135,7 @@ Partial Class frmBeziehungEdit
         Me.cbbeziehungstyp.Location = New System.Drawing.Point(73, 84)
         Me.cbbeziehungstyp.Name = "cbbeziehungstyp"
         Me.cbbeziehungstyp.Size = New System.Drawing.Size(244, 21)
-        Me.cbbeziehungstyp.TabIndex = 34
+        Me.cbbeziehungstyp.TabIndex = 1
         '
         'lblBeziehungstyp
         '
@@ -163,6 +164,7 @@ Partial Class frmBeziehungEdit
         '
         'Panel2
         '
+        Me.Panel2.Controls.Add(Me.cbboxKontaktSD)
         Me.Panel2.Controls.Add(Me.cbboxKontaktFB)
         Me.Panel2.Controls.Add(Me.Label5)
         Me.Panel2.Controls.Add(Me.DateTimePicker1)
@@ -180,6 +182,18 @@ Partial Class frmBeziehungEdit
         Me.Panel2.Size = New System.Drawing.Size(336, 227)
         Me.Panel2.TabIndex = 36
         '
+        'cbboxKontaktSD
+        '
+        Me.cbboxKontaktSD.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cbboxKontaktSD.DisplayMember = "Text"
+        Me.cbboxKontaktSD.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.cbboxKontaktSD.FormattingEnabled = True
+        Me.cbboxKontaktSD.ItemHeight = 14
+        Me.cbboxKontaktSD.Location = New System.Drawing.Point(84, 130)
+        Me.cbboxKontaktSD.Name = "cbboxKontaktSD"
+        Me.cbboxKontaktSD.Size = New System.Drawing.Size(230, 20)
+        Me.cbboxKontaktSD.TabIndex = 2
+        '
         'cbboxKontaktFB
         '
         Me.cbboxKontaktFB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
@@ -187,10 +201,10 @@ Partial Class frmBeziehungEdit
         Me.cbboxKontaktFB.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
         Me.cbboxKontaktFB.FormattingEnabled = True
         Me.cbboxKontaktFB.ItemHeight = 14
-        Me.cbboxKontaktFB.Location = New System.Drawing.Point(85, 156)
+        Me.cbboxKontaktFB.Location = New System.Drawing.Point(84, 156)
         Me.cbboxKontaktFB.Name = "cbboxKontaktFB"
         Me.cbboxKontaktFB.Size = New System.Drawing.Size(230, 20)
-        Me.cbboxKontaktFB.TabIndex = 49
+        Me.cbboxKontaktFB.TabIndex = 3
         '
         'Label5
         '
@@ -207,7 +221,7 @@ Partial Class frmBeziehungEdit
         Me.DateTimePicker1.Location = New System.Drawing.Point(85, 183)
         Me.DateTimePicker1.Name = "DateTimePicker1"
         Me.DateTimePicker1.Size = New System.Drawing.Size(99, 20)
-        Me.DateTimePicker1.TabIndex = 20
+        Me.DateTimePicker1.TabIndex = 4
         '
         'Label4
         '
@@ -224,6 +238,7 @@ Partial Class frmBeziehungEdit
         Me.TextBox4.Name = "TextBox4"
         Me.TextBox4.Size = New System.Drawing.Size(231, 20)
         Me.TextBox4.TabIndex = 18
+        Me.TextBox4.TabStop = False
         '
         'Label3
         '
@@ -240,6 +255,7 @@ Partial Class frmBeziehungEdit
         Me.TextBox3.Name = "TextBox3"
         Me.TextBox3.Size = New System.Drawing.Size(100, 20)
         Me.TextBox3.TabIndex = 16
+        Me.TextBox3.TabStop = False
         '
         'Label2
         '
@@ -256,7 +272,7 @@ Partial Class frmBeziehungEdit
         Me.TextBox2.Multiline = True
         Me.TextBox2.Name = "TextBox2"
         Me.TextBox2.Size = New System.Drawing.Size(230, 57)
-        Me.TextBox2.TabIndex = 14
+        Me.TextBox2.TabIndex = 1
         '
         'Label1
         '
@@ -273,7 +289,7 @@ Partial Class frmBeziehungEdit
         Me.TextBox1.Multiline = True
         Me.TextBox1.Name = "TextBox1"
         Me.TextBox1.Size = New System.Drawing.Size(230, 57)
-        Me.TextBox1.TabIndex = 13
+        Me.TextBox1.TabIndex = 0
         '
         'Panel3
         '
@@ -346,4 +362,5 @@ Partial Class frmBeziehungEdit
     Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
     Friend WithEvents tsmnuSecurityObjekte As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents cbboxKontaktFB As DevComponents.DotNetBar.Controls.ComboBoxEx
+    Friend WithEvents cbboxKontaktSD As DevComponents.DotNetBar.Controls.ComboBoxEx
 End Class

_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.vb

@@ -1,9 +1,11 @@
 Public Class frmBeziehungEdit
     Dim kontaktfb As New DataTable
+    Dim kontaktsd As New DataTable
     Dim dc As New _DataClass.DataClass
     Dim sec As New Utils.MySecurity
     Dim Datenklasse As New _DataClass.DataClass
     Public Kontaktid As Integer = 0
+    Public KontaktidSD As Integer = 0
 
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
         Me.DialogResult = Windows.Forms.DialogResult.OK
@@ -22,6 +24,11 @@
             Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
             Me.cbboxKontaktFB.ValueMember = "Keyvalue"
             Me.cbboxKontaktFB.SelectedValue = Me.Kontaktid
+            kontaktsd = Datenklasse.Get_Stammdaten("SERVICEDESK", "Bezeichnung")
+            Me.cbboxKontaktSD.DataSource = kontaktsd
+            Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
+            Me.cbboxKontaktSD.ValueMember = "Keyvalue"
+            Me.cbboxKontaktSD.SelectedValue = Me.KontaktidSD
         End If
 
         sec.Set_Form_Security(Me)

_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.Designer.vb

@@ -53,6 +53,7 @@ Partial Class frmNeueBeziehung
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.SecurityObjekte = New System.Windows.Forms.ToolStripMenuItem()
+        Me.cbboxKontaktSD = New DevComponents.DotNetBar.Controls.ComboBoxEx()
         CType(Me.txtSeqeunz, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -75,7 +76,7 @@ Partial Class frmNeueBeziehung
         Me.txtObjekt1.Name = "txtObjekt1"
         Me.txtObjekt1.ReadOnly = True
         Me.txtObjekt1.Size = New System.Drawing.Size(244, 20)
-        Me.txtObjekt1.TabIndex = 1
+        Me.txtObjekt1.TabIndex = 0
         '
         'lblObjekt2
         '
@@ -92,7 +93,7 @@ Partial Class frmNeueBeziehung
         Me.txtObjekt2.Name = "txtObjekt2"
         Me.txtObjekt2.ReadOnly = True
         Me.txtObjekt2.Size = New System.Drawing.Size(244, 20)
-        Me.txtObjekt2.TabIndex = 3
+        Me.txtObjekt2.TabIndex = 1
         '
         'lblBemerkung
         '
@@ -109,7 +110,7 @@ Partial Class frmNeueBeziehung
         Me.txtBemerkung.Multiline = True
         Me.txtBemerkung.Name = "txtBemerkung"
         Me.txtBemerkung.Size = New System.Drawing.Size(244, 69)
-        Me.txtBemerkung.TabIndex = 5
+        Me.txtBemerkung.TabIndex = 2
         '
         'btnOK
         '
@@ -144,7 +145,7 @@ Partial Class frmNeueBeziehung
         Me.txtSeqeunz.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
         Me.txtSeqeunz.Name = "txtSeqeunz"
         Me.txtSeqeunz.Size = New System.Drawing.Size(120, 20)
-        Me.txtSeqeunz.TabIndex = 9
+        Me.txtSeqeunz.TabIndex = 4
         '
         'lblBeziehungstyp
         '
@@ -161,7 +162,7 @@ Partial Class frmNeueBeziehung
         Me.cbbeziehungstyp.Location = New System.Drawing.Point(71, 147)
         Me.cbbeziehungstyp.Name = "cbbeziehungstyp"
         Me.cbbeziehungstyp.Size = New System.Drawing.Size(244, 21)
-        Me.cbbeziehungstyp.TabIndex = 11
+        Me.cbbeziehungstyp.TabIndex = 3
         '
         'cbTemporaer
         '
@@ -169,7 +170,7 @@ Partial Class frmNeueBeziehung
         Me.cbTemporaer.Location = New System.Drawing.Point(200, 178)
         Me.cbTemporaer.Name = "cbTemporaer"
         Me.cbTemporaer.Size = New System.Drawing.Size(115, 17)
-        Me.cbTemporaer.TabIndex = 12
+        Me.cbTemporaer.TabIndex = 5
         Me.cbTemporaer.Text = "Temporär-Funktion"
         Me.cbTemporaer.UseVisualStyleBackColor = True
         '
@@ -194,6 +195,7 @@ Partial Class frmNeueBeziehung
         '
         'Panel2
         '
+        Me.Panel2.Controls.Add(Me.cbboxKontaktSD)
         Me.Panel2.Controls.Add(Me.cbboxKontaktFB)
         Me.Panel2.Controls.Add(Me.Label5)
         Me.Panel2.Controls.Add(Me.DateTimePicker1)
@@ -218,10 +220,10 @@ Partial Class frmNeueBeziehung
         Me.cbboxKontaktFB.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
         Me.cbboxKontaktFB.FormattingEnabled = True
         Me.cbboxKontaktFB.ItemHeight = 14
-        Me.cbboxKontaktFB.Location = New System.Drawing.Point(85, 156)
+        Me.cbboxKontaktFB.Location = New System.Drawing.Point(84, 156)
         Me.cbboxKontaktFB.Name = "cbboxKontaktFB"
         Me.cbboxKontaktFB.Size = New System.Drawing.Size(230, 20)
-        Me.cbboxKontaktFB.TabIndex = 48
+        Me.cbboxKontaktFB.TabIndex = 3
         '
         'Label5
         '
@@ -238,7 +240,7 @@ Partial Class frmNeueBeziehung
         Me.DateTimePicker1.Location = New System.Drawing.Point(85, 183)
         Me.DateTimePicker1.Name = "DateTimePicker1"
         Me.DateTimePicker1.Size = New System.Drawing.Size(99, 20)
-        Me.DateTimePicker1.TabIndex = 20
+        Me.DateTimePicker1.TabIndex = 4
         '
         'Label4
         '
@@ -255,6 +257,7 @@ Partial Class frmNeueBeziehung
         Me.TextBox4.Name = "TextBox4"
         Me.TextBox4.Size = New System.Drawing.Size(231, 20)
         Me.TextBox4.TabIndex = 18
+        Me.TextBox4.TabStop = False
         '
         'Label3
         '
@@ -271,6 +274,7 @@ Partial Class frmNeueBeziehung
         Me.TextBox3.Name = "TextBox3"
         Me.TextBox3.Size = New System.Drawing.Size(100, 20)
         Me.TextBox3.TabIndex = 16
+        Me.TextBox3.TabStop = False
         '
         'Label2
         '
@@ -287,7 +291,7 @@ Partial Class frmNeueBeziehung
         Me.TextBox2.Multiline = True
         Me.TextBox2.Name = "TextBox2"
         Me.TextBox2.Size = New System.Drawing.Size(230, 57)
-        Me.TextBox2.TabIndex = 14
+        Me.TextBox2.TabIndex = 1
         '
         'Label1
         '
@@ -304,7 +308,7 @@ Partial Class frmNeueBeziehung
         Me.TextBox1.Multiline = True
         Me.TextBox1.Name = "TextBox1"
         Me.TextBox1.Size = New System.Drawing.Size(230, 57)
-        Me.TextBox1.TabIndex = 13
+        Me.TextBox1.TabIndex = 0
         '
         'Panel3
         '
@@ -328,11 +332,23 @@ Partial Class frmNeueBeziehung
         Me.SecurityObjekte.Size = New System.Drawing.Size(162, 22)
         Me.SecurityObjekte.Text = "Secuirty-Objekte"
         '
+        'cbboxKontaktSD
+        '
+        Me.cbboxKontaktSD.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
+        Me.cbboxKontaktSD.DisplayMember = "Text"
+        Me.cbboxKontaktSD.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        Me.cbboxKontaktSD.FormattingEnabled = True
+        Me.cbboxKontaktSD.ItemHeight = 14
+        Me.cbboxKontaktSD.Location = New System.Drawing.Point(84, 130)
+        Me.cbboxKontaktSD.Name = "cbboxKontaktSD"
+        Me.cbboxKontaktSD.Size = New System.Drawing.Size(230, 20)
+        Me.cbboxKontaktSD.TabIndex = 2
+        '
         'frmNeueBeziehung
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(337, 263)
+        Me.ClientSize = New System.Drawing.Size(337, 245)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
         Me.Controls.Add(Me.Panel3)
         Me.Controls.Add(Me.Panel2)
@@ -379,4 +395,5 @@ Partial Class frmNeueBeziehung
     Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
     Friend WithEvents SecurityObjekte As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents cbboxKontaktFB As DevComponents.DotNetBar.Controls.ComboBoxEx
+    Friend WithEvents cbboxKontaktSD As DevComponents.DotNetBar.Controls.ComboBoxEx
 End Class

_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.vb

@@ -5,6 +5,7 @@
     Dim m_temporaer As Boolean
     Dim Datenklasse As New _DataClass.DataClass
     Dim kontaktfb As New DataTable
+    Dim Kontaktsd As New DataTable
     Property Temporaer As Boolean
         Get
             Return m_temporaer
@@ -52,14 +53,27 @@
             Cursor = Cursors.WaitCursor
             Me.Panel2.Height = 227
             Me.Height = Me.Height + 227
-            kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
-            Me.cbboxKontaktFB.DataSource = kontaktfb
+            Me.cbboxKontaktFB.BeginUpdate()
+            Me.cbboxKontaktSD.BeginUpdate()
+            If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
+            'kontaktfb = VerantwTKBMA_Data
+            'kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
+            Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data
+
+            'Me.cbboxKontaktFB.DataSource = kontaktfb
             Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
-            Me.cbboxKontaktFB.ValueMember = "Keyvalue"
-            Cursor = Cursors.Default
-        Else
-            Me.Panel2.Height = 1
+                Me.cbboxKontaktFB.ValueMember = "Keyvalue"
+            If KontaktSD_Data.Rows.Count = 0 Then KontaktSD_Data = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
+            'Kontaktsd = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
+            Me.cbboxKontaktSD.DataSource = Kontaktsd_data
+            Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
+                Me.cbboxKontaktSD.ValueMember = "KeyValue"
+                Cursor = Cursors.Default
+            Else
+                Me.Panel2.Height = 1
             Me.Height = Me.Height - 227
+            Me.cbboxKontaktSD.EndUpdate()
+            Me.cbboxKontaktFB.EndUpdate()
         End If
 
     End Sub

_AllgMainObjekte/Klassen/Globals.vb

@@ -8,6 +8,8 @@
     Public Objekt As New DataTable
     Public Objekt_Beziehung As New DataTable
     Public SecurityDaten As New DataSet
+    Public VerantwTKBMA_Data As New DataTable
+    Public KontaktSD_Data As New DataTable
 
     Public WithEvents Generic_Event_Handler As New _Generic_Event_Handler.Generic_Event_Handler
 

_AllgMainObjekte/bin/Debug/_Generic_Event_Handler.xml

@@ -6,19 +6,21 @@ _Generic_Event_Handler
 </name>
 </assembly>
 <members>
+<member name="T:_Generic_Event_Handler.My.Resources.Resources">
+<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member>
 <member name="P:_Generic_Event_Handler.My.Resources.Resources.ResourceManager">
-	<summary>
+<summary>
   Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
 </summary>
-</member><member name="P:_Generic_Event_Handler.My.Resources.Resources.Culture">
-	<summary>
+</member>
+<member name="P:_Generic_Event_Handler.My.Resources.Resources.Culture">
+<summary>
   Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
   Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
 </summary>
-</member><member name="T:_Generic_Event_Handler.My.Resources.Resources">
-	<summary>
-  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
-</summary>
 </member>
 </members>
 </doc>

_AllgMainObjekte/obj/Debug/_AllgMainObjekte.vbproj.FileListAbsolute.txt

@@ -16,10 +16,7 @@ E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\bin\Debug\Aga.Controls.pdb
 E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\bin\Debug\_DataClass.pdb
 E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\bin\Debug\_DataClass.xml
 E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\bin\Debug\_FRReporting.pdb
-E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\bin\Debug\_FRReporting.xml
 E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\bin\Debug\_Generic_Event_Handler.pdb
-E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\bin\Debug\_Generic_Event_Handler.xml
-E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\obj\Debug\_AllgMainObjekte.vbprojAssemblyReference.cache
 E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\obj\Debug\_AllgMainObjekte.frmBeziehungEdit.resources
 E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\obj\Debug\_AllgMainObjekte.frmMsgBox.resources
 E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\obj\Debug\_AllgMainObjekte.frmNeueBeziehung.resources
@@ -71,3 +68,6 @@ I:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\obj\Debug\_AllgMainObjekte.
 I:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\obj\Debug\_AllgMainObjekte.dll
 I:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\obj\Debug\_AllgMainObjekte.xml
 I:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\obj\Debug\_AllgMainObjekte.pdb
+E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\obj\Debug\_AllgMainObjekte.vbproj.AssemblyReference.cache
+E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\bin\Debug\_FRReporting.xml
+E:\Software-Projekte\TKBDiverse\BEA\_AllgMainObjekte\bin\Debug\_Generic_Event_Handler.xml

_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

_FRReporting/obj/Debug/_FRReporting.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-2740bf21729c15a81420ee8b2077da16fdb54bf0
+b75dcece93512cec1ad27259f44c075536cca318

_FRReporting/obj/Debug/_FRReporting.vbproj.FileListAbsolute.txt

@@ -17,11 +17,11 @@ E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\FastReport.Bars.dll
 E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\FastReport.dll
 E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\FastReport.Editor.dll
 E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\FlexCel.dll
-E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\System.Windows.Forms.DataVisualization.dll
 E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\XLSLib.dll
 E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
 E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.dll
 E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.xml
 E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.pdb
 E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.vbproj.CopyComplete
-E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.vbprojAssemblyReference.cache
+E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.vbproj.AssemblyReference.cache
+E:\Software-Projekte\TKBDiverse\BEA\_FRReporting\obj\Debug\_FRReporting.vbproj.CoreCompileInputs.cache

_FunktionDetail/bin/Debug/_Generic_Event_Handler.xml

@@ -6,19 +6,21 @@ _Generic_Event_Handler
 </name>
 </assembly>
 <members>
+<member name="T:_Generic_Event_Handler.My.Resources.Resources">
+<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member>
 <member name="P:_Generic_Event_Handler.My.Resources.Resources.ResourceManager">
-	<summary>
+<summary>
   Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
 </summary>
-</member><member name="P:_Generic_Event_Handler.My.Resources.Resources.Culture">
-	<summary>
+</member>
+<member name="P:_Generic_Event_Handler.My.Resources.Resources.Culture">
+<summary>
   Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
   Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
 </summary>
-</member><member name="T:_Generic_Event_Handler.My.Resources.Resources">
-	<summary>
-  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
-</summary>
 </member>
 </members>
 </doc>

_FunktionDetail/obj/Debug/_FunktionDetail.vbproj.FileListAbsolute.txt

@@ -10,7 +10,6 @@ E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\bin\Debug\_Generic_Event_Han
 E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\bin\Debug\_Generic_Event_Handler.xml
 E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\bin\Debug\_DataClass.pdb
 E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\bin\Debug\_DataClass.xml
-E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\_FunktionDetail.vbprojAssemblyReference.cache
 E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\_FunktionDetail.Resources.resources
 E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\_FunktionDetail.BEA_FunktionDetail.resources
 E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\_FunktionDetail.vbproj.GenerateResource.cache
@@ -44,3 +43,4 @@ I:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\_FunktionDetail.vb
 I:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\_FunktionDetail.dll
 I:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\_FunktionDetail.xml
 I:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\_FunktionDetail.pdb
+E:\Software-Projekte\TKBDiverse\BEA\_FunktionDetail\obj\Debug\_FunktionDetail.vbproj.AssemblyReference.cache

_Generic_Event_Handler/bin/Debug/_Generic_Event_Handler.xml

@@ -6,19 +6,21 @@ _Generic_Event_Handler
 </name>
 </assembly>
 <members>
+<member name="T:_Generic_Event_Handler.My.Resources.Resources">
+<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member>
 <member name="P:_Generic_Event_Handler.My.Resources.Resources.ResourceManager">
-	<summary>
+<summary>
   Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
 </summary>
-</member><member name="P:_Generic_Event_Handler.My.Resources.Resources.Culture">
-	<summary>
+</member>
+<member name="P:_Generic_Event_Handler.My.Resources.Resources.Culture">
+<summary>
   Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
   Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
 </summary>
-</member><member name="T:_Generic_Event_Handler.My.Resources.Resources">
-	<summary>
-  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
-</summary>
 </member>
 </members>
 </doc>