Updaet Version 1.6 - 20121221

_AllgMainObjekte/AllgMainObjekte.vb

@@ -463,9 +463,9 @@ Public Class AllgMainObjekte
 
                     'Case 3 'PLATTFORM
                 Case 2 'PERSONAL
-                    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")
+                    '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
@@ -549,6 +549,7 @@ Public Class AllgMainObjekte
         Cursor = Cursors.WaitCursor
         Me.Beziehungen1.SuspendLayout()
         'Me.Beziehungen1.Visible = False
+        Me.Beziehungen1.IsRefreshed = False
         Me.Beziehungen1.ConnectionString = Me.ConnectionString
         Me.Beziehungen1.Generic_Event_Handler = Globals.Generic_Event_Handler
         Me.Beziehungen1.Mitarbeiternr = Me.Mitarbeiternr
@@ -558,6 +559,7 @@ Public Class AllgMainObjekte
         Me.lblcid_a.Visible = False
         If Datenklasse.Get_Selectiontype(Me.Type) = 1 Then Me.cbCID.Checked = Me.Beziehungen1.Refresh_Details(Position)
         If Datenklasse.Get_Selectiontype(Me.Type) <> 1 Then
+            Me.Beziehungen1.IsRefreshed = False
             Dim cd As Boolean = Me.Beziehungen1.Refresh_Details(Position)
             If cd = True Then
                 If Me.cbCID.Checked = False Then lblcid_a.Visible = True
@@ -567,6 +569,7 @@ Public Class AllgMainObjekte
         End If
         'Me.Beziehungen1.Visible = True
         Me.Beziehungen1.ResumeLayout()
+        Me.Beziehungen1.IsRefreshed = False
         Cursor = Cursors.Default
     End Sub
 

_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.vb

@@ -55,12 +55,12 @@
             Me.Height = Me.Height + 227
             Me.cbboxKontaktFB.BeginUpdate()
             Me.cbboxKontaktSD.BeginUpdate()
-            If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
+            'If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
             'kontaktfb = VerantwTKBMA_Data
-            'kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
-            Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data
+            kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
+            'Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data
 
-            'Me.cbboxKontaktFB.DataSource = kontaktfb
+            Me.cbboxKontaktFB.DataSource = kontaktfb
             Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
                 Me.cbboxKontaktFB.ValueMember = "Keyvalue"
             If KontaktSD_Data.Rows.Count = 0 Then KontaktSD_Data = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")