Update Version 2.3

_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.vb

@@ -1,7 +1,9 @@
 Public Class frmBeziehungEdit
-
+    Dim kontaktfb 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
 
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
         Me.DialogResult = Windows.Forms.DialogResult.OK
@@ -14,6 +16,11 @@
     End Sub
 
     Private Sub frmBeziehungEdit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
+        Me.cbboxKontaktFB.DataSource = kontaktfb
+        Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
+        Me.cbboxKontaktFB.ValueMember = "Keyvalue"
+        Me.cbboxKontaktFB.SelectedValue = Me.Kontaktid
         sec.Set_Form_Security(Me)
     End Sub