Update Version 2.3

_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.vb

@@ -3,6 +3,8 @@
     Dim dc As New _DataClass.DataClass
     Dim sec As New Utils.MySecurity
     Dim m_temporaer As Boolean
+    Dim Datenklasse As New _DataClass.DataClass
+    Dim kontaktfb As New DataTable
     Property Temporaer As Boolean
         Get
             Return m_temporaer
@@ -14,6 +16,11 @@
 
     Private Sub frmNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.Panel2.Height = 1
+
+        kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
+        Me.cbboxKontaktFB.DataSource = kontaktfb
+        Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
+        Me.cbboxKontaktFB.ValueMember = "Keyvalue"
         sec.Set_Form_Security(Me)
     End Sub