AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fix the problem

Browse Source
This commit is contained in:
Jonathan Jenne
2021-09-23 16:59:45 +02:00
parent 99aee80c6b
commit dcf8339c2d
2 changed files with 42 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@@ -888,38 +888,52 @@ Public Class frmMassValidator
End Sub End Sub
Private Sub Depending_Control_Set_Result(displayboxname As String, sqlCommand As String, sqlConnection As String) Private Sub Depending_Control_Set_Result(displayboxname As String, sqlCommand As String, sqlConnection As String)
Try Try
LOGGER.Debug("Setting Values for Control [{0}]", displayboxname)
Dim oResultTable As DataTable = ClassDatabase.Return_Datatable_ConId(sqlCommand, sqlConnection) Dim oResultTable As DataTable = ClassDatabase.Return_Datatable_ConId(sqlCommand, sqlConnection)
If Not IsNothing(oResultTable) Then If Not IsNothing(oResultTable) Then
LOGGER.Debug("Result Table has [{0}] rows", oResultTable.Rows.Count)
LOGGER.Debug("Result Table has [{0}] columns", oResultTable.Columns.Count)
'Ist das Control ein Control was mehrfachwerte enthalten kann 'Ist das Control ein Control was mehrfachwerte enthalten kann
If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_LOOKUP) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_LOOKUP) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then
LOGGER.Debug("Control is Multivalue")
If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Then If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Then
LOGGER.Debug("Filling Combobox with Results")
Dim oCombobox As ComboBox = pnldesigner.Controls(displayboxname) Dim oCombobox As ComboBox = pnldesigner.Controls(displayboxname)
If IsNothing(oCombobox) Then If IsNothing(oCombobox) Then
Exit Sub Exit Sub
End If End If
LOGGER.Debug("Control exists, setting results.")
oCombobox.DataSource = Nothing oCombobox.DataSource = Nothing
oCombobox.DataSource = oResultTable oCombobox.DataSource = oResultTable
oCombobox.DisplayMember = oResultTable.Columns(0).ColumnName oCombobox.DisplayMember = oResultTable.Columns(0).ColumnName
oCombobox.ValueMember = oResultTable.Columns(0).ColumnName oCombobox.ValueMember = oResultTable.Columns(0).ColumnName
ElseIf displayboxname.StartsWith(ClassControlCreator.PREFIX_LOOKUP) Then ElseIf displayboxname.StartsWith(ClassControlCreator.PREFIX_LOOKUP) Then
LOGGER.Debug("Filling Lookup Control with Results")
Dim oLookup As LookupControl3 = pnldesigner.Controls(displayboxname) Dim oLookup As LookupControl3 = pnldesigner.Controls(displayboxname)
If IsNothing(oLookup) Then If IsNothing(oLookup) Then
Exit Sub Exit Sub
End If End If
LOGGER.Debug("Control exists, setting results.")
oLookup.Properties.DataSource = Nothing oLookup.Properties.DataSource = Nothing
oLookup.Properties.DataSource = oResultTable oLookup.Properties.DataSource = oResultTable
ElseIf displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then Else
LOGGER.Warn("Depending_Control_Set_Result for Table NOT IMPLEMENTED") 'not implemented
'not implemented LOGGER.Warn("Depending_Control_Set_Result for [{0}] NOT IMPLEMENTED", displayboxname)
End If End If
Else Else
If oResultTable.Rows.Count = 1 Then If oResultTable.Rows.Count = 1 Then
pnldesigner.Controls(displayboxname).Text = oResultTable.Rows(0).Item(0).ToString pnldesigner.Controls(displayboxname).Text = oResultTable.Rows(0).Item(0).ToString
@@ -928,6 +942,8 @@ Public Class frmMassValidator
LOGGER.Info(">> Datatable-SQL: " & sqlCommand) LOGGER.Info(">> Datatable-SQL: " & sqlCommand)
End If End If
End If End If
Else
LOGGER.Warn("Result Table is nothing!")
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Info("Unexpected Ersror in Depending_Control_Set_Result - ERROR: " & ex.Message) LOGGER.Info("Unexpected Ersror in Depending_Control_Set_Result - ERROR: " & ex.Message)

25
app/DD_PM_WINDREAM/frmValidator.vb
View File

@@ -2187,37 +2187,52 @@ Public Class frmValidator
End Sub End Sub
Private Sub Depending_Control_Set_Result(displayboxname As String, sqlCommand As String, sqlConnection As String) Private Sub Depending_Control_Set_Result(displayboxname As String, sqlCommand As String, sqlConnection As String)
Try Try
LOGGER.Debug("Setting Values for Control [{0}]", displayboxname)
Dim oResultTable As DataTable = ClassDatabase.Return_Datatable_ConId(sqlCommand, sqlConnection) Dim oResultTable As DataTable = ClassDatabase.Return_Datatable_ConId(sqlCommand, sqlConnection)
If Not IsNothing(oResultTable) Then If Not IsNothing(oResultTable) Then
LOGGER.Debug("Result Table has [{0}] rows", oResultTable.Rows.Count)
LOGGER.Debug("Result Table has [{0}] columns", oResultTable.Columns.Count)
'Ist das Control ein Control was mehrfachwerte enthalten kann 'Ist das Control ein Control was mehrfachwerte enthalten kann
If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_LOOKUP) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_LOOKUP) Or displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then
LOGGER.Debug("Control is Multivalue")
If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Then If displayboxname.StartsWith(ClassControlCreator.PREFIX_COMBOBOX) Then
LOGGER.Debug("Filling Combobox with Results")
Dim oCombobox As ComboBox = pnldesigner.Controls(displayboxname) Dim oCombobox As ComboBox = pnldesigner.Controls(displayboxname)
If IsNothing(oCombobox) Then If IsNothing(oCombobox) Then
Exit Sub Exit Sub
End If End If
LOGGER.Debug("Control exists, setting results.")
oCombobox.DataSource = Nothing oCombobox.DataSource = Nothing
oCombobox.DataSource = oResultTable oCombobox.DataSource = oResultTable
oCombobox.DisplayMember = oResultTable.Columns(0).ColumnName oCombobox.DisplayMember = oResultTable.Columns(0).ColumnName
oCombobox.ValueMember = oResultTable.Columns(0).ColumnName oCombobox.ValueMember = oResultTable.Columns(0).ColumnName
ElseIf displayboxname.StartsWith(ClassControlCreator.PREFIX_LOOKUP) Then ElseIf displayboxname.StartsWith(ClassControlCreator.PREFIX_LOOKUP) Then
LOGGER.Debug("Filling Lookup Control with Results")
Dim oLookup As LookupControl3 = pnldesigner.Controls(displayboxname) Dim oLookup As LookupControl3 = pnldesigner.Controls(displayboxname)
If IsNothing(oLookup) Then If IsNothing(oLookup) Then
Exit Sub Exit Sub
End If End If
LOGGER.Debug("Control exists, setting results.")
oLookup.Properties.DataSource = Nothing oLookup.Properties.DataSource = Nothing
oLookup.Properties.DataSource = oResultTable oLookup.Properties.DataSource = oResultTable
ElseIf displayboxname.StartsWith(ClassControlCreator.PREFIX_TABLE) Then Else
LOGGER.Warn("Depending_Control_Set_Result for Table NOT IMPLEMENTED") 'not implemented
'not implemented LOGGER.Warn("Depending_Control_Set_Result for [{0}] NOT IMPLEMENTED", displayboxname)
End If End If
Else Else
If oResultTable.Rows.Count = 1 Then If oResultTable.Rows.Count = 1 Then
pnldesigner.Controls(displayboxname).Text = oResultTable.Rows(0).Item(0).ToString pnldesigner.Controls(displayboxname).Text = oResultTable.Rows(0).Item(0).ToString
@@ -2226,6 +2241,8 @@ Public Class frmValidator
LOGGER.Info(">> Datatable-SQL: " & sqlCommand) LOGGER.Info(">> Datatable-SQL: " & sqlCommand)
End If End If
End If End If
Else
LOGGER.Warn("Result Table is nothing!")
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Info("Unexpected Ersror in Depending_Control_Set_Result - ERROR: " & ex.Message) LOGGER.Info("Unexpected Ersror in Depending_Control_Set_Result - ERROR: " & ex.Message)