MS19042016

app/DD-Record-Organiser/ClassControlLoader.vb

@@ -15,9 +15,13 @@
         'End Function
 
         Public Shared Function LoadAutoValue(control As Windows.Forms.Control, RecordId As Integer, ParentRecordId As Integer, entity_ID As Integer)
+            Dim ControlId As Integer
             Try
+                If ControlId = 810 Then
+                    Console.WriteLine("Obacht")
+                End If
                 Dim AutoValue As String = String.Empty
-                Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
+                ControlId = DirectCast(control.Tag, ClassControlMetadata).Id
                 Dim CONNID = ClassDatabase.Execute_Scalar(String.Format("SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
                 Dim SQL As String = ClassDatabase.Execute_Scalar(String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId))
                 SQL = ClassControlValues.ReplaceSqlCommandPlaceholders(SQL, RecordId, ParentRecordId, entity_ID)
@@ -39,7 +43,7 @@
 
                 Return AutoValue
             Catch ex As Exception
-                ClassLogger.Add("Unexpected Error in LoadAutoValue: " & ex.Message, True)
+                ClassLogger.Add("Unexpected Error in LoadAutoValue - Control-ID: " & ControlId.ToString & " - ERROR: " & ex.Message, True)
                 Return Nothing
             End Try
 
@@ -52,7 +56,9 @@
 
         Public Shared Function GetDynamicValue(controlId As Integer, formId As Integer, connID As Object, sqlCommand As String) As DynamicValue
             Dim returnValue As DynamicValue
-
+            If controlId = 810 Then
+                Console.WriteLine("Obacht")
+            End If
             returnValue.StaticList = CheckForStaticList(controlId)
             returnValue.DataTable = GetSqlList(controlId, formId, connID, sqlCommand)
 
@@ -79,6 +85,9 @@
 
         Public Shared Function GetSqlList(controlId As Integer, formId As Integer, connection_Id As Object, sqlCommand As String) As DataTable
             Try
+                If controlId = 810 Then
+                    Console.WriteLine("Obacht")
+                End If
                 If sqlCommand Is Nothing Or sqlCommand = String.Empty Then
                     Return Nothing
                 End If
@@ -108,81 +117,132 @@
         End Function
 
         Overloads Shared Sub SetDataSource(control As CustomComboBox, dt As DataTable)
-            Dim sw As Stopwatch = Stopwatch.StartNew()
-            Dim columnCount As Integer = dt.Columns.Count
+            Try
+                If control.Name = "cmbverantwortlich" Then
+                    Console.WriteLine("Obacht")
+                End If
+                Dim Name1 = dt.Columns(0).ColumnName.ToString
+                Dim Name2
+                Try
+                    Name2 = dt.Columns(1).ColumnName.ToString
+                Catch ex As Exception
+                    Name2 = dt.Columns(0).ColumnName.ToString
+                End Try
+                Dim columnCount As Integer = dt.Columns.Count
+                control.BeginUpdate()
+                ' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt, 
+                ' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
+                control.DataSource = Nothing
+                control.SelectedIndex = -1
+                ClassControlValues.ClearControlValue(control)
 
-            control.BeginUpdate()
+                ' Es ist wichtig, dass DisplayMember und ValueMember VOR der DataSource festgelegt werden,
+                ' Dadurch ist das Laden der Datasource um einiges SCHNELLER
+                If columnCount = 1 Then
+                    For Each row As DataRow In dt.Rows
+                        control.Items.Add(row.Item(0).ToString)
+                    Next
+                    'control.ValueMember = Name1
+                    'control.DisplayMember = Name1
+                ElseIf columnCount = 2 Then
+                    'If control.Name = "cmbverantwortlich" Then
+                    '    control.ValueMember = Name1
+                    '    control.DisplayMember = Name2
+                    'Else
+                    For Each row As DataRow In dt.Rows
+                        control.Items.Add(row.Item(1).ToString)
+                    Next
+                    'End If
 
-            ' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt, 
-            ' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
-            control.DataSource = Nothing
-            control.SelectedIndex = -1
+                    'If control.Name = "cmbverantwortlich" Then
 
-            ' Es ist wichtig, dass DisplayMember und ValueMember VOR der DataSource festgelegt werden,
-            ' Dadurch ist das Laden der Datasource um einiges SCHNELLER
-            If columnCount = 1 Then
-                control.DisplayMember = dt.Columns(0).ColumnName
-                control.ValueMember = dt.Columns(0).ColumnName
-            ElseIf columnCount = 2 Then
-                control.DisplayMember = dt.Columns(1).ColumnName
-                control.ValueMember = dt.Columns(0).ColumnName
-            End If
+                    'Else
+                    '    control.ValueMember = Name1
+                    '    control.DisplayMember = Name2
+                    'End If
+                End If
+                ' Als Erstes setzen wir die DataSource
+                'If control.Name = "cmbverantwortlich" Then
+                '    control.DataSource = dt
+                'End If
 
-            ' Als letztes setzen wir die DataSource
-            control.DataSource = dt
+                'control.DataSource = dt
+                control.EndUpdate()
+            Catch ex As Exception
+                ClassLogger.Add("unexpected Error in SetDataSource for ControlName: " & control.Name & " - Error: " & ex.Message)
+            End Try
 
-            control.EndUpdate()
-
-            sw.Stop()
-            Console.WriteLine("SetDataSource for {0} took {1}ms", control.Name, sw.ElapsedMilliseconds)
         End Sub
 
         Overloads Shared Sub SetDataSource(control As DevExpress.XtraEditors.CheckedListBoxControl, dt As DataTable)
-            Dim columnCount As Integer = dt.Columns.Count
+            Try
+                If control.Name = "cmbverantwortlich" Then
+                    Console.WriteLine("Obacht")
+                End If
+                Dim columnCount As Integer = dt.Columns.Count
 
-            ' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt, 
-            ' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
-            control.DataSource = Nothing
-            control.SelectedIndex = -1
+                ' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt, 
+                ' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
+                control.DataSource = Nothing
+                control.SelectedIndex = -1
+               
 
-            ' Es ist wichtig, dass DisplayMember und ValueMember VOR der DataSource festgelegt werden,
-            ' Dadurch ist das Laden der Datasource um einiges SCHNELLER
-            If columnCount = 1 Then
-                control.DisplayMember = dt.Columns(0).ColumnName
-                control.ValueMember = dt.Columns(0).ColumnName
-            ElseIf columnCount = 2 Then
-                control.DisplayMember = dt.Columns(1).ColumnName
-                control.ValueMember = dt.Columns(0).ColumnName
-            End If
+                ' Es ist wichtig, dass DisplayMember und ValueMember VOR der DataSource festgelegt werden,
+                ' Dadurch ist das Laden der Datasource um einiges SCHNELLER
+                If columnCount = 1 Then
+                    control.DisplayMember = dt.Columns(0).ColumnName
+                    control.ValueMember = dt.Columns(0).ColumnName
+                ElseIf columnCount = 2 Then
+                    control.DisplayMember = dt.Columns(1).ColumnName
+                    control.ValueMember = dt.Columns(0).ColumnName
+                End If
+                ' Als letztes setzen wir die DataSource
+                control.DataSource = dt
+                control.EndUpdate()
+            Catch ex As Exception
+                ClassLogger.Add("unexpected Error in SetDataSource2 for ControlName: " & control.Name & " - Error: " & ex.Message)
+            End Try
 
-            ' Als letztes setzen wir die DataSource
-            control.DataSource = dt
         End Sub
 
         Overloads Shared Sub SetDataSource(control As DevExpress.XtraEditors.ListBoxControl, dt As DataTable)
-            Dim columnCount As Integer = dt.Columns.Count
+            Try
+                If control.Name = "cmbverantwortlich" Then
+                    Console.WriteLine("Obacht")
+                End If
+                Dim columnCount As Integer = dt.Columns.Count
 
-            ' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt, 
-            ' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
-            control.DataSource = Nothing
-            control.SelectedIndex = -1
+                ' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt, 
+                ' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
+                control.DataSource = Nothing
+                control.SelectedIndex = -1
 
-            ' Es ist wichtig, dass DisplayMember und ValueMember VOR der DataSource festgelegt werden,
-            ' Dadurch ist das Laden der Datasource um einiges SCHNELLER
-            If columnCount = 1 Then
-                control.DisplayMember = dt.Columns(0).ColumnName
-                control.ValueMember = dt.Columns(0).ColumnName
-            ElseIf columnCount = 2 Then
-                control.DisplayMember = dt.Columns(1).ColumnName
-                control.ValueMember = dt.Columns(0).ColumnName
-            End If
+                ' Es ist wichtig, dass DisplayMember und ValueMember VOR der DataSource festgelegt werden,
+                ' Dadurch ist das Laden der Datasource um einiges SCHNELLER
+                If columnCount = 1 Then
+                    control.DisplayMember = dt.Columns(0).ColumnName
+                    'control.ValueMember = dt.Columns(0).ColumnName
+                ElseIf columnCount = 2 Then
+                    control.DisplayMember = dt.Columns(1).ColumnName
+                    control.ValueMember = dt.Columns(0).ColumnName
+                End If
 
-            ' Als letztes setzen wir die DataSource
-            control.DataSource = dt
+                ' Als letztes setzen wir die DataSource
+                control.DataSource = dt
+            Catch ex As Exception
+                ClassLogger.Add("unexpected Error in SetDataSource3 for ControlName: " & control.Name & " - Error: " & ex.Message)
+            End Try
         End Sub
 
         Overloads Shared Sub SetDataSource(control As Windows.Forms.DataGridView, dt As DataTable)
-            control.DataSource = dt
+            Try
+                If control.Name = "cmbverantwortlich" Then
+                    Console.WriteLine("Obacht")
+                End If
+                control.DataSource = dt
+            Catch ex As Exception
+                ClassLogger.Add("unexpected Error in SetDataSource4 for ControlName: " & control.Name & " - Error: " & ex.Message)
+            End Try
         End Sub
 
     End Class
@@ -297,11 +357,17 @@
     Public Class Combobox : Inherits _ListControl
 
         Public Shared Sub LoadValue(control As CustomComboBox, recordId As Integer, parentRecordId As Integer, value As String)
+            If control.Name = "cmbverantwortlich" Then
+                Console.WriteLine("Obacht")
+            End If
             control.Text = value
         End Sub
 
         Public Shared Sub LoadList(control As CustomComboBox, formId As Integer, connID As Object, SQLCommand As String)
             Try
+                If control.Name = "cmbverantwortlich" Then
+                    Console.WriteLine("Obacht")
+                End If
                 Dim dynamic As DynamicValue = GetDynamicValue(DirectCast(control.Tag, ClassControlMetadata).Id, formId, connID, SQLCommand)
 
                 If dynamic.StaticList IsNot Nothing Then
@@ -319,6 +385,9 @@
 
         Private Shared Sub CalculateDropdownWidth(control As CustomComboBox, dt As DataTable)
             Try
+                If control.Name = "cmbverantwortlich" Then
+                    Console.WriteLine("Obacht")
+                End If
                 Const WIDEST_WIDTH As Integer = 300
                 Dim FinalWidth As Integer = WIDEST_WIDTH
                 Dim index As Integer = 1
@@ -359,6 +428,8 @@
                     control.SetItemCheckState(pos, CheckState.Checked)
                 End If
             Next
+            control.Refresh()
+            ' control.Invoke(control)
         End Sub
 
         Public Shared Sub LoadList(control As DevExpress.XtraEditors.CheckedListBoxControl, formId As Integer, conn_Id As Object, SQLCommand As String)
@@ -390,7 +461,9 @@
             If IsNothing(value) Then
                 Exit Sub
             End If
-
+            If control.Name = "cmbverantwortlich" Then
+                Console.WriteLine("Obacht")
+            End If
             control.SelectedIndex = control.FindStringExact(value)
         End Sub