Consolidate SetControlData logic into function SetControlValues_FromControl
This commit is contained in:
Jonathan Jenne
parent
326190ad76
commit
b07f5a77bb
@ -1070,13 +1070,7 @@ Public Class frmValidator
|
||||
If DirectCast(oTextbox.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
|
||||
oTextbox.BackColor = Color.White
|
||||
End If
|
||||
Dim oCONTROL_ID = DirectCast(oTextbox.Tag, ClassControlCreator.ControlMetadata).Guid
|
||||
Dim ofilteredData As DataTable = DT_CONTROLS.Clone()
|
||||
Dim oExpression = $"GUID = {oCONTROL_ID} and Len(SET_CONTROL_DATA) > 0"
|
||||
DT_CONTROLS.Select(oExpression).CopyToDataTable(ofilteredData, LoadOption.PreserveChanges)
|
||||
If ofilteredData.Rows.Count = 1 Then
|
||||
Dynamic_SetControlData(oTextbox, ofilteredData.Rows(0))
|
||||
End If
|
||||
SetControlValues_FromControl(oTextbox)
|
||||
|
||||
ClassControlCreator.GridTables_HandleControlValueChange(PanelValidatorControl, DT_COLUMNS_GRID_WITH_SQL_WITH_CTRL_PLACEHOLDER)
|
||||
End Sub
|
||||
@ -1133,9 +1127,7 @@ Public Class frmValidator
|
||||
LOGGER.Error(ex)
|
||||
LOGGER.Info("Unexpected Error in Eventhandler Variable SQL Result - ERROR: " & ex.Message)
|
||||
End Try
|
||||
If oTextBox.Name = last_control.Name Then
|
||||
' Abschluss()
|
||||
Else
|
||||
If oTextBox.Name <> last_control.Name Then
|
||||
SendKeys.Send("{TAB}")
|
||||
ControlHandleStarted = True
|
||||
End If
|
||||
@ -1386,15 +1378,8 @@ Public Class frmValidator
|
||||
CheckBox_DependingControls(oCheckbox)
|
||||
Checkbox_EnablingControls(oCheckbox)
|
||||
CheckBox_DependingColumn(oCheckbox)
|
||||
SetControlValues_FromControl(oCheckbox)
|
||||
ClassControlCreator.GridTables_HandleControlValueChange(PanelValidatorControl, DT_COLUMNS_GRID_WITH_SQL_WITH_CTRL_PLACEHOLDER)
|
||||
|
||||
Dim oCONTROL_ID = DirectCast(oCheckbox.Tag, ClassControlCreator.ControlMetadata).Guid
|
||||
Dim ofilteredData As DataTable = DT_CONTROLS.Clone()
|
||||
Dim oExpression = $"GUID = {oCONTROL_ID} and Len(SET_CONTROL_DATA) > 0"
|
||||
DT_CONTROLS.Select(oExpression).CopyToDataTable(ofilteredData, LoadOption.PreserveChanges)
|
||||
If ofilteredData.Rows.Count = 1 Then
|
||||
Dynamic_SetControlData(oCheckbox, ofilteredData.Rows(0))
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
End Try
|
||||
@ -1407,134 +1392,12 @@ Public Class frmValidator
|
||||
LOGGER.Debug("onLookUpselectedValue_Control2Set")
|
||||
Dim oRepositoryItem As RepositoryItemLookupControl3 = sender
|
||||
Dim oLookup As LookupControl3 = oRepositoryItem.OwnerEdit
|
||||
SetControlValues(oLookup, SelectedValues)
|
||||
SetControlValues_FromControl(oLookup)
|
||||
End Sub
|
||||
|
||||
Private Sub Dynamic_SetControlData(pControl As Control, oDataRow As DataRow)
|
||||
If FormLoaded = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
LOGGER.Debug("onDynamic_SetControlData")
|
||||
Dim oControlID = DirectCast(pControl.Tag, ClassControlCreator.ControlMetadata).Guid
|
||||
|
||||
Dim oControl2Set
|
||||
Dim oControlGUID2Set = oControlID
|
||||
Dim oControlname2Set = oDataRow.Item("NAME")
|
||||
LOGGER.Debug($"Workin on SetControLValue for Control [{oControlID}-{oControlname2Set}] ...")
|
||||
|
||||
If _SetControlValue_in_action = True Then
|
||||
LOGGER.Debug($"..but _SetControlValue_in_action = True ==> Exit Sub!")
|
||||
Exit Sub
|
||||
End If
|
||||
If Not IsDBNull(oDataRow.Item("CONNECTION_ID")) And Not IsDBNull(oDataRow.Item("SET_CONTROL_DATA")) Then
|
||||
Dim oSqlCommand = IIf(IsDBNull(oDataRow.Item("SET_CONTROL_DATA")), "", oDataRow.Item("SET_CONTROL_DATA"))
|
||||
oSqlCommand = clsPatterns.ReplaceAllValues(oSqlCommand, PanelValidatorControl, True)
|
||||
_SetControlValue_in_action = True
|
||||
Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable_ConId(oSqlCommand, oDataRow.Item("CONNECTION_ID"), $"Dynamic_SetControlData-Control [{oControlID}-{oControlname2Set}]")
|
||||
For Each oRowControl2Set As DataRow In oDTDEPENDING_RESULT.Rows
|
||||
Try
|
||||
oControl2Set = oRowControl2Set.Item("Control2Set")
|
||||
If oControl2Set.ToString.ToUpper = "BTN_FINISH".ToUpper Then
|
||||
Try
|
||||
Try
|
||||
Dim btntext = oRowControl2Set.Item("Caption")
|
||||
btnSave.Text = btntext & " (F2)"
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Try
|
||||
Dim oColor1 = System.Drawing.Color.FromName(oRowControl2Set.Item("BackgroundColor"))
|
||||
btnSave.BackColor = oColor1
|
||||
Catch ex As Exception
|
||||
btnSave.BackColor = Color.Transparent
|
||||
End Try
|
||||
Try
|
||||
Dim oColor2 = System.Drawing.Color.FromName(oRowControl2Set.Item("FontColor"))
|
||||
btnSave.ForeColor = oColor2
|
||||
Catch ex As Exception
|
||||
btnSave.ForeColor = Color.Black
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
_SetControlValue_in_action = False
|
||||
Continue For
|
||||
End If
|
||||
Dim oFound As Boolean = False
|
||||
If IsNumeric(oControl2Set) = False Then
|
||||
LOGGER.Warn("Careful: the oControl2Set contains no CONTROL_GUID")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
For Each oControl As Control In PanelValidatorControl.Controls
|
||||
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oControl2Set Then
|
||||
oFound = True
|
||||
LOGGER.Debug($"Got the Control22Set: {oControl2Set}..Setting the values..")
|
||||
'NUR TEXTBOX
|
||||
Select Case oControl.GetType.ToString
|
||||
|
||||
Case GetType(TextBox).ToString
|
||||
Dim oTextOption = "Replace"
|
||||
Try
|
||||
oTextOption = oRowControl2Set.Item("TextOption")
|
||||
Catch ex As Exception
|
||||
oTextOption = "Replace"
|
||||
End Try
|
||||
Try
|
||||
Dim oTEXT = oRowControl2Set.Item("Caption")
|
||||
If oTextOption = "Replace" Then
|
||||
oControl.Text = oTEXT
|
||||
Else
|
||||
oControl.Text = oControl.Text & oTEXT
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Dim oColor
|
||||
Try
|
||||
oColor = System.Drawing.Color.FromName(oRowControl2Set.Item("BackgroundColor"))
|
||||
oControl.BackColor = oColor
|
||||
Catch ex As Exception
|
||||
oControl.BackColor = Color.White
|
||||
End Try
|
||||
Try
|
||||
oColor = System.Drawing.Color.FromName(oRowControl2Set.Item("FontColor"))
|
||||
oControl.ForeColor = oColor
|
||||
Catch ex As Exception
|
||||
oControl.ForeColor = Color.Black
|
||||
End Try
|
||||
|
||||
Case GetType(LookupControl3).ToString
|
||||
Dim oDependingLookup As LookupControl3 = oControl
|
||||
oDependingLookup.Properties.DataSource = oDTDEPENDING_RESULT
|
||||
oDependingLookup.Properties.ValueMember = oDTDEPENDING_RESULT.Columns.Item(0).ColumnName
|
||||
oDependingLookup.Properties.DisplayMember = oDTDEPENDING_RESULT.Columns.Item(0).ColumnName
|
||||
Case GetType(GridControl).ToString
|
||||
'ClassControlCreator.GridTables
|
||||
|
||||
End Select
|
||||
_SetControlValue_in_action = False
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
If oFound = False Then
|
||||
LOGGER.Debug($"Could not find the Control2Set with ID {oControlGUID2Set} on panel!!!")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn($"Error while Dynamic_SetControlData for [{oControlname2Set}]: " & ex.Message)
|
||||
_SetControlValue_in_action = False
|
||||
End Try
|
||||
Next
|
||||
Else
|
||||
LOGGER.Debug($"Error Dynamic_SetControlData: Check ConnID and SQL on NULL VALUES!")
|
||||
End If
|
||||
End Sub
|
||||
Private Sub SetControlValues(pLookupControl As LookupControl3, pSelectedValues As List(Of String))
|
||||
Dim oControlName = pLookupControl.Name
|
||||
Dim oControlMeta = DirectCast(pLookupControl.Tag, ClassControlCreator.ControlMetadata)
|
||||
Private Sub SetControlValues_FromControl(pControl As Control)
|
||||
Dim oControlName = pControl.Name
|
||||
Dim oControlMeta = DirectCast(pControl.Tag, ClassControlCreator.ControlMetadata)
|
||||
Dim oControlID = oControlMeta.Guid
|
||||
|
||||
If _SetControlValue_in_action = True Then
|
||||
@ -1542,19 +1405,6 @@ Public Class frmValidator
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If pSelectedValues Is Nothing Then
|
||||
LOGGER.Warn("Cannot set Control Values from Lookup [{0}], selected values are empty.", oControlName)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If pSelectedValues.Count > 1 Then
|
||||
LOGGER.Warn("Cannot set Control Values from Lookup [{0}], selected values more than one.", oControlName)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim oControlValue = pSelectedValues.First()
|
||||
LOGGER.Debug("Control Value is [{0}]!", oControlValue)
|
||||
|
||||
Dim oFilteredDatatable As DataTable = DT_CONTROLS.Clone()
|
||||
DT_CONTROLS.
|
||||
Select($"GUID = {oControlID} and LEN(SET_CONTROL_DATA) > 0").
|
||||
@ -2079,12 +1929,8 @@ Public Class frmValidator
|
||||
ClassControlCreator.GridTables_HandleControlValueChange(PanelValidatorControl, DT_COLUMNS_GRID_WITH_SQL_WITH_CTRL_PLACEHOLDER)
|
||||
|
||||
Controls2beEnabled(oCombobox.Name)
|
||||
Dim ofilteredData As DataTable = DT_CONTROLS.Clone()
|
||||
Dim oExpression = $"GUID = {CONTROL_ID} and Len(SET_CONTROL_DATA) > 0"
|
||||
DT_CONTROLS.Select(oExpression).CopyToDataTable(ofilteredData, LoadOption.PreserveChanges)
|
||||
If ofilteredData.Rows.Count = 1 Then
|
||||
Dynamic_SetControlData(oCombobox, ofilteredData.Rows(0))
|
||||
End If
|
||||
|
||||
SetControlValues_FromControl(oCombobox)
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
LOGGER.Info("Unexpected Error in Eventhandler Variable SQL Result ComboBox - ERROR: " & ex.Message)
|
||||
@ -5378,19 +5224,11 @@ Public Class frmValidator
|
||||
ToolTip1.Show(oMsg, btnSave)
|
||||
End Sub
|
||||
|
||||
Private Sub frmValidator_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
Sub Reload_Controls(SingleAttribute As String)
|
||||
If IDB_ACTIVE = True Then
|
||||
Load_IDB_DOC_DATA()
|
||||
End If
|
||||
FillIndexValues(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub SetStatusLabel(infotext As String, Optional pColor As String = "")
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user