Update Version 1.6

2021-08-01 08:58:37 +02:00
parent 762f2c0032
commit 78bb82c44d
119 changed files with 79548 additions and 115 deletions
--- a/_AllgMainObjekte/AllgMainObjekte.vb
+++ b/_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()
--- a/_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.Designer.vb
+++ b/_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
--- a/_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.vb
+++ b/_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)
--- a/_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.Designer.vb
+++ b/_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
--- a/_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.vb
+++ b/_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
--- a/_AllgMainObjekte/Klassen/Globals.vb
+++ b/_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

--- a/_AllgMainObjekte/bin/Debug/_AllgMainObjekte.dll
+++ b/_AllgMainObjekte/bin/Debug/_AllgMainObjekte.dll
--- a/_AllgMainObjekte/bin/Debug/_AllgMainObjekte.pdb
+++ b/_AllgMainObjekte/bin/Debug/_AllgMainObjekte.pdb
--- a/_AllgMainObjekte/bin/Debug/_DataClass.dll
+++ b/_AllgMainObjekte/bin/Debug/_DataClass.dll
--- a/_AllgMainObjekte/bin/Debug/_DataClass.pdb
+++ b/_AllgMainObjekte/bin/Debug/_DataClass.pdb
--- a/_AllgMainObjekte/bin/Debug/_FRReporting.dll
+++ b/_AllgMainObjekte/bin/Debug/_FRReporting.dll
--- a/_AllgMainObjekte/bin/Debug/_FRReporting.pdb
+++ b/_AllgMainObjekte/bin/Debug/_FRReporting.pdb
--- a/_AllgMainObjekte/bin/Debug/_Generic_Event_Handler.dll
+++ b/_AllgMainObjekte/bin/Debug/_Generic_Event_Handler.dll
--- a/_AllgMainObjekte/bin/Debug/_Generic_Event_Handler.pdb
+++ b/_AllgMainObjekte/bin/Debug/_Generic_Event_Handler.pdb
--- a/_AllgMainObjekte/bin/Debug/_Generic_Event_Handler.xml
+++ b/_AllgMainObjekte/bin/Debug/_Generic_Event_Handler.xml
@@ -6,19 +6,21 @@ _Generic_Event_Handler
 </name>
 </assembly>
 <members>
-<member name="P:_Generic_Event_Handler.My.Resources.Resources.ResourceManager">
-	<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>
-  Ü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>
+<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>
+  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>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member>
 </members>
-</doc>
+</doc>
--- a/_AllgMainObjekte/bin/Debug/_MyBeziehungen.dll
+++ b/_AllgMainObjekte/bin/Debug/_MyBeziehungen.dll
--- a/_AllgMainObjekte/bin/Debug/_MyBeziehungen.pdb
+++ b/_AllgMainObjekte/bin/Debug/_MyBeziehungen.pdb
--- a/_AllgMainObjekte/obj/Debug/DesignTimeResolveAssemblyReferences.cache
+++ b/_AllgMainObjekte/obj/Debug/DesignTimeResolveAssemblyReferences.cache
--- a/_AllgMainObjekte/obj/Debug/_AllgMainObjekte.dll
+++ b/_AllgMainObjekte/obj/Debug/_AllgMainObjekte.dll
--- a/_AllgMainObjekte/obj/Debug/_AllgMainObjekte.pdb
+++ b/_AllgMainObjekte/obj/Debug/_AllgMainObjekte.pdb
--- a/_AllgMainObjekte/obj/Debug/_AllgMainObjekte.vbproj.AssemblyReference.cache
+++ b/_AllgMainObjekte/obj/Debug/_AllgMainObjekte.vbproj.AssemblyReference.cache
--- a/_AllgMainObjekte/obj/Debug/_AllgMainObjekte.vbproj.FileListAbsolute.txt
+++ b/_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
--- a/_AllgMainObjekte/obj/Debug/_AllgMainObjekte.vbproj.GenerateResource.cache
+++ b/_AllgMainObjekte/obj/Debug/_AllgMainObjekte.vbproj.GenerateResource.cache
--- a/_AllgMainObjekte/obj/Debug/_AllgMainObjekte.vbprojAssemblyReference.cache
+++ b/_AllgMainObjekte/obj/Debug/_AllgMainObjekte.vbprojAssemblyReference.cache
--- a/_AllgMainObjekte/obj/Debug/_allgmainobjekte.dll.licenses
+++ b/_AllgMainObjekte/obj/Debug/_allgmainobjekte.dll.licenses