Updaet Version 1.6 - 20121221

BEA/Utils/Globals.vb

@@ -6,7 +6,7 @@ Module Globals
     ''' Applikationsversion
     ''' </summary>
     ''' <remarks></remarks>
-    ''' 
+    ''' Test GitUpdate
     'Enum Struktur_Selectiontype
     '    Berechtigung = 0
     '    Organisation = 1

BEA/bin/Debug/BEA.cfg

@@ -1 +1 @@
-¹µÈ¦rȽ¹¿¸ª‰¿­Çx…½³»É·¥¹u¨­À¦¾·¼‘–Š“´¾¶¼¹€¼µ¾±¸µÈ®ÁÃn’®Âª‰ŽŠ“ƒÅ¹Æ¸»ÈÂdÀº¨Á¾®ÆÁu½Â«Á’”¥¹Èª‡Ã´Ä³Èȵ¹»Ä¼d¶¹‚Ÿ”š¸¶·¿ªÆuÁ­Çº‚€|~ˆƒÊǹ·r¾²À¶€¼­¸Å¿ÄƸ‚|ȶ¹Ž€
+¹µÈ¦rȽ¹¿¸ª‰¿­Çx…½³»É·¥¹u¨­À¦¾·¼‘–Š“´€t†u„u‰ÅÄÀ®µ¶Â­¼Ãeš­²·…—™•€ÂºÀ·¶È¹l¿ªµ½Ç½È¾r¾¼ª¼’‹­¸¸·ƒÌÃÆ°Åɯ¸¶Ä³lµ©›©µ³¸¹©Áu¸µÆª|…Š€Çȳ¶m¾©‰¿¦¸¶ÇǼÁDzwÈ­Á~~

_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")

_MyBeziehungen/Beziehungen.vb

@@ -5,6 +5,16 @@ Imports C1.Win.C1TrueDBGrid
 Public Class Beziehungen
 
 #Region "Properties"
+    Dim m_IsRefreshed As Boolean = False
+    Property IsRefreshed As Boolean
+        Get
+            Return m_IsRefreshed
+        End Get
+        Set(value As Boolean)
+            m_IsRefreshed = value
+        End Set
+    End Property
+
     Dim m_ConnectionString As String
     Dim FilterDoubleClicked As Boolean = True
     <DefaultValue(""), Description("ConnectionString"), Category("Options")> _
@@ -123,6 +133,7 @@ Public Class Beziehungen
 
     End Sub
     Public Function Refresh_Details(Optional Position As Integer = 0) As Boolean
+        If Me.IsRefreshed Then Exit Function
         Dim cid As Boolean = False
         Try
             Me.C1Beziehungen.Enabled = False
@@ -191,6 +202,7 @@ Public Class Beziehungen
         Catch
         End Try
         Me.C1Beziehungen.Enabled = True
+        Me.IsRefreshed = True
         Return cid
     End Function