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

fix memoedit loading and saving

Browse Source
This commit is contained in:
Jonathan Jenne 2023-07-18 14:21:50 +02:00
parent b03e11937b
commit 352805d0b7
5 changed files with 191 additions and 174 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/TaskFlow/Changelog.md
View File

@ -6,3 +6,7 @@
- Modernisierung von verschiedenen Elementen (Validator, Startseite)
- Format Strings für Textboxen (Währung, Fließkommazahlen, Datum & Uhrzeit)
### Bugfixes
- Anzeige-/Indexierungsfehler bei Mehrzeiligen Textboxen

4
app/TaskFlow/My Project/AssemblyInfo.vb
View File

@ -14,7 +14,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("TaskFlow")>
<Assembly: AssemblyCopyright("Copyright © Digital Data 2023")>
<Assembly: AssemblyTrademark("2.4.6.0")>
<Assembly: AssemblyTrademark("2.4.6.2")>
<Assembly: ComVisible(False)>
@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.6.0")>
<Assembly: AssemblyVersion("2.4.6.2")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguage("")>

232
app/TaskFlow/Validator/Validator.vb
View File

@ -12,7 +12,7 @@ Public Class Validator
Public Class ControlRow
Public Id As Integer
Public IndexName As String
Public Validation As Boolean
Public IsRequired As Boolean
Public [ReadOnly] As Boolean
Public ValidationSql As String
Public RegexMatch As String
@ -25,7 +25,7 @@ Public Class Validator
Return New ControlRow With {
.Id = pDataRow.ItemEx("GUID", 0),
.IndexName = pDataRow.ItemEx("INDEX_NAME", ""),
.Validation = pDataRow.ItemEx("VALIDATION", False),
.IsRequired = pDataRow.ItemEx("VALIDATION", False),
.[ReadOnly] = pDataRow.ItemEx("READ_ONLY", False),
.ValidationSql = pDataRow.ItemEx("SQL_UEBERPRUEFUNG", ""),
.RegexMatch = pDataRow.ItemEx("REGEX_MATCH", ""),
@ -35,130 +35,136 @@ Public Class Validator
}
End Function
Public Function CheckTextbox(oControl As Control, pControlRow As DataRow)
Try
Dim oControlRow = ConvertToControlRow(pControlRow)
'Public Function CheckTextbox(oControl As Control, pControlRow As DataRow)
'Try
' Dim oMissing = False
' Dim oErrMsgMissingInput = ""
' Dim oControlRow = ConvertToControlRow(pControlRow)
'Dim oWrongInputMessage = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.WrongInputControl")
Dim oWrongInputMessage = S.Falsche_Eingabe
' 'Dim oWrongInputMessage = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.WrongInputControl")
' Dim oWrongInputMessage = S.Falsche_Eingabe
If oControlRow.RegexMatch <> String.Empty AndAlso Not Regex.IsMatch(oControl.Text, oControlRow.RegexMatch) Then
oMissing = True
' If oControlRow.RegexMatch <> String.Empty AndAlso Not Regex.IsMatch(oControl.Text, oControlRow.RegexMatch) Then
' oMissing = True
oErrMsgMissingInput = oWrongInputMessage & " textbox '" & oControl.Name & "'"
' oErrMsgMissingInput = oWrongInputMessage & " textbox '" & oControl.Name & "'"
Logger.Warn(oErrMsgMissingInput)
If oControlRow.RegexMessage <> String.Empty Then
oErrMsgMissingInput &= ":" & vbCrLf & oControlRow.RegexMessage
End If
' Logger.Warn(oErrMsgMissingInput)
' If oControlRow.RegexMessage <> String.Empty Then
' oErrMsgMissingInput &= ":" & vbCrLf & oControlRow.RegexMessage
' End If
oControl.BackColor = Color.Red
Exit For
End If
' oControl.BackColor = Color.Red
'as erstes überprüfen ob überhaupt etwas eingetragen worden ist
If Check_Missing_Control_Value(oControl, "txt") = True And oIsRequired = True Then 'NICHTS EINGETRAGEN
oMissing = True
oErrMsgMissingInput = oWrongInputMessage & " textbox '" & oControl.Name & "'"
Logger.Warn(oErrMsgMissingInput)
oControl.BackColor = Color.Red
Exit For
Else
Dim oTextEdit As TextEdit = DirectCast(oControl, TextEdit)
oMyInput = ClassFormat.GetStringValue(oTextEdit.EditValue)
' 'TODO
' 'Exit For
' End If
'den aktuellen Wert in windream auslesen
Dim oSourceValue = GetVariableValuefromSource(oIndexName, oIDBTyp)
' 'as erstes überprüfen ob überhaupt etwas eingetragen worden ist
' If Check_Missing_Control_Value(oControl, "txt") = True And oControlRow.IsRequired = True Then 'NICHTS EINGETRAGEN
' oMissing = True
' oErrMsgMissingInput = oWrongInputMessage & " textbox '" & oControl.Name & "'"
' Logger.Warn(oErrMsgMissingInput)
' oControl.BackColor = Color.Red
If oIndexName.StartsWith("[%VKT") Then
oSourceValue = ReturnVektor_IndexValue(oIndexName)
Else
'wertWD = CURRENT_WMFILE.GetVariableValue(oIndexName)
If Not IsNothing(oSourceValue) Then
If oSourceValue.ToString = "System.Object[]" Then
If oSourceValue.Length = 1 Then
oSourceValue = oSourceValue(0)
Else '
Logger.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used")
oSourceValue = oSourceValue(0)
End If
End If
Else
oSourceValue = ""
End If
End If
Dim oSetValue As Boolean = False
If IsDBNull(oSourceValue) Then
oSetValue = True
End If
If oSetValue = False Then
If IsNothing(oSourceValue) Then
oSetValue = True
End If
End If
If oSetValue = False Then
Try
If oSourceValue <> oMyInput Then
oSetValue = True
End If
Catch ex As Exception
oSetValue = True
End Try
End If
'wenn Wert in Windream <> der Eingabe darf indexiert werden
If oSetValue = True Then
'Wenn der Wert in ein Vektorfeld geschrieben wird
If oIndexName.StartsWith("[%VKT") Then
oMyInput = Return_PM_VEKTOR(oMyInput, oIndexName)
'Hier muss nun separat as Vektorfeld indexiert werden
If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then
oMissing = True
oErrMsgMissingInput = "Error while indexing textbox as VEKTOR - ERROR: " & idxerr_message
Logger.Warn(oErrMsgMissingInput)
Exit For
End If
Else
If IDB_ACTIVE = False Then
Dim result() As String
ReDim Preserve result(0)
result(0) = oMyInput
If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then
oMissing = True
oErrMsgMissingInput = "Error while indexing Textbox - ERROR: " & idxerr_message
Logger.Warn(oErrMsgMissingInput)
Exit For
End If
Else
If IDBData.SetVariableValue(oIndexName, oMyInput) = False Then
Exit For
End If
End If
If IDB_ACTIVE = False Then
If PROFIL_LOGINDEX <> "" Then
Dim oMyLogString = Return_LOGString(oMyInput, oSourceValue, oIndexName)
WMIndexVectofield(oMyLogString, PROFIL_LOGINDEX)
' 'TODO
' 'Exit For
' Else
'IDBData.SetVariableValue(PROFIL_LOGINDEX, oMyLogString)
' Dim oTextEdit As TextEdit = DirectCast(oControl, TextEdit)
' oMyInput = ClassFormat.GetStringValue(oTextEdit.EditValue)
' 'den aktuellen Wert in windream auslesen
' Dim oSourceValue = GetVariableValuefromSource(oIndexName, oIDBTyp)
End If
End If
' If oIndexName.StartsWith("[%VKT") Then
' oSourceValue = ReturnVektor_IndexValue(oIndexName)
' Else
' 'wertWD = CURRENT_WMFILE.GetVariableValue(oIndexName)
' If Not IsNothing(oSourceValue) Then
' If oSourceValue.ToString = "System.Object[]" Then
' If oSourceValue.Length = 1 Then
' oSourceValue = oSourceValue(0)
' Else '
' Logger.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used")
' oSourceValue = oSourceValue(0)
' End If
' End If
' Else
' oSourceValue = ""
' End If
' End If
' Dim oSetValue As Boolean = False
' If IsDBNull(oSourceValue) Then
' oSetValue = True
' End If
' If oSetValue = False Then
' If IsNothing(oSourceValue) Then
' oSetValue = True
' End If
' End If
' If oSetValue = False Then
' Try
' If oSourceValue <> oMyInput Then
' oSetValue = True
' End If
' Catch ex As Exception
' oSetValue = True
' End Try
End If
' End If
' 'wenn Wert in Windream <> der Eingabe darf indexiert werden
' If oSetValue = True Then
' 'Wenn der Wert in ein Vektorfeld geschrieben wird
' If oIndexName.StartsWith("[%VKT") Then
' oMyInput = Return_PM_VEKTOR(oMyInput, oIndexName)
' 'Hier muss nun separat as Vektorfeld indexiert werden
' If WMIndexVectofield(oMyInput, PROFIL_VEKTORINDEX) = True Then
' oMissing = True
' oErrMsgMissingInput = "Error while indexing textbox as VEKTOR - ERROR: " & idxerr_message
' Logger.Warn(oErrMsgMissingInput)
' Exit For
' End If
' Else
' If IDB_ACTIVE = False Then
' Dim result() As String
' ReDim Preserve result(0)
' result(0) = oMyInput
' If Indexiere_File(CURRENT_WMFILE, oIndexName, result) = False Then
' oMissing = True
' oErrMsgMissingInput = "Error while indexing Textbox - ERROR: " & idxerr_message
' Logger.Warn(oErrMsgMissingInput)
' Exit For
' End If
' Else
' If IDBData.SetVariableValue(oIndexName, oMyInput) = False Then
' Exit For
' End If
' End If
' If IDB_ACTIVE = False Then
' If PROFIL_LOGINDEX <> "" Then
' Dim oMyLogString = Return_LOGString(oMyInput, oSourceValue, oIndexName)
' WMIndexVectofield(oMyLogString, PROFIL_LOGINDEX)
' 'Else
' 'IDBData.SetVariableValue(PROFIL_LOGINDEX, oMyLogString)
' End If
' End If
' End If
End If
End If
Catch ex As Exception
oErrMsgMissingInput = "Unexpected error in Check_UpdateIndexe TextBox '" & oControl.Name & "' - Check the log"
Logger.Error(ex)
Dim st As New StackTrace(True)
st = New StackTrace(ex, True)
Logger.Warn("Unexpected error in Check_UpdateIndexe TextBox :" & ex.Message, True)
Return False
End Try
End Function
' End If
' End If
' Catch ex As Exception
' oErrMsgMissingInput = "Unexpected error in Check_UpdateIndexe TextBox '" & oControl.Name & "' - Check the log"
' Logger.Error(ex)
' Dim st As New StackTrace(True)
' st = New StackTrace(ex, True)
' Logger.Warn("Unexpected error in Check_UpdateIndexe TextBox :" & ex.Message, True)
' Return False
' End Try
'End Function
End Class

3
app/TaskFlow/clsPatterns.vb
View File

@ -214,6 +214,9 @@ Public Class clsPatterns
Case GetType(TextEdit)
oReplaceValue = Utils.NotNull(DirectCast(oControl, TextEdit).EditValue, String.Empty)
Case GetType(MemoEdit)
oReplaceValue = Utils.NotNull(DirectCast(oControl, MemoEdit).EditValue, String.Empty)
Case GetType(LookupControl3)
Dim oLookupControl3 As LookupControl3 = oControl
If oLookupControl3.Properties.SelectedValues.Count = 1 Then

122
app/TaskFlow/frmValidator.vb
View File

@ -619,13 +619,13 @@ Public Class frmValidator
Logger.Warn("Error in LookUpLoadSQLData: " & ex.Message)
End Try
ElseIf TypeOf control Is TextEdit Then
ElseIf TypeOf control Is TextEdit Or TypeOf control Is memoedit Then
Try
Dim firstRow As DataRow = oDTContent.Rows(0)
Dim value = firstRow.Item(0)
control.Text = value
DirectCast(control, BaseEdit).EditValue = value
oValue = value
Catch ex As Exception
Logger.Warn("Error in TextBoxLoadSQLData: " & ex.Message)
@ -769,7 +769,7 @@ Public Class frmValidator
oControlInfo = ClassControlCreator.PREFIX_TEXTBOX & "#" & oControlInfo
Logger.Debug($"[{oControlInfo}] - TXT Try to create control...")
Dim txt As TextEdit = ControlCreator.CreateExistingTextbox(oControlRow, False)
Dim txt As BaseEdit = ControlCreator.CreateExistingTextbox(oControlRow, False)
AddHandler txt.GotFocus, AddressOf OnTextBoxFocus
AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus
AddHandler txt.KeyUp, AddressOf OnTextBoxKeyUp
@ -1033,21 +1033,19 @@ Public Class frmValidator
End Sub
Sub Clear_all_Input()
For Each inctrl As Control In Me.PanelValidatorControl.Controls
Dim Type As String = inctrl.GetType.ToString
Select Case inctrl.GetType
Case GetType(DevExpress.XtraEditors.TextEdit)
Dim Type As Type = inctrl.GetType
Select Case True
Case Type = GetType(TextEdit) Or Type = GetType(MemoEdit)
'inctrl.Text = ""
DirectCast(inctrl, TextEdit).EditValue = Nothing
Case GetType(System.Windows.Forms.ComboBox)
DirectCast(inctrl, BaseEdit).EditValue = Nothing
Case Type = GetType(Windows.Forms.ComboBox)
Dim cmb As Windows.Forms.ComboBox = inctrl
cmb.SelectedIndex = -1
Case GetType(System.Windows.Forms.DataGridView)
Case Type = GetType(DataGridView)
Dim dgv As DataGridView = inctrl
If dgv.Rows.Count > 0 Then
dgv.Rows.Clear()
End If
Case GetType(System.Windows.Forms.CheckBox)
End Select
Next
@ -1055,11 +1053,10 @@ Public Class frmValidator
If first_control Is Nothing = False Then
first_control.Focus()
End If
End Sub
Public Sub OnTextBoxFocus(sender As Object, e As EventArgs)
Dim oTextbox As TextEdit = sender
Dim oTextbox As BaseEdit = sender
Dim oMeta As ClassControlCreator.ControlMetadata = oTextbox.Tag
If oMeta.ReadOnly = False Then
@ -1070,7 +1067,7 @@ Public Class frmValidator
End Sub
Public Sub OnTextBoxLostFocus(sender As System.Object, e As System.EventArgs)
Dim oTextbox As TextEdit = sender
Dim oTextbox As BaseEdit = sender
Dim oMeta As ClassControlCreator.ControlMetadata = oTextbox.Tag
If oMeta.ReadOnly = False Then
@ -1096,7 +1093,7 @@ Public Class frmValidator
Exit Sub
End If
Dim oTextBox As TextEdit = sender
Dim oTextBox As BaseEdit = sender
If oTextBox.Text <> String.Empty And _FormClosing = False And _Indexe_Loaded = True And oTextBox.Height < 25 Then
If (e.KeyCode = Keys.Return) Or (e.KeyCode = Keys.Tab) Or (e.KeyCode = Keys.Enter) Then
@ -1497,8 +1494,8 @@ Public Class frmValidator
Logger.Debug($"Got the Control22Set: {oControlId2Set}..Setting the values..")
Select Case oControl.GetType()
Case GetType(TextEdit)
Select Case True
Case oControl.GetType() = GetType(TextEdit) Or oControl.GetType() = GetType(MemoEdit)
If oControlTextOption = "Replace" Then
oControl.Text = oControlCaption
Else
@ -1508,7 +1505,7 @@ Public Class frmValidator
btnSave.BackColor = oControlBackColor
btnSave.ForeColor = oControlFontColor
Case GetType(LookupControl3)
Case oControl.GetType() = GetType(LookupControl3)
Dim oDependingLookup As LookupControl3 = oControl
If oDependingLookup.Properties.MultiSelect = True Then
If oControlTextOption = "Replace" Then
@ -1576,8 +1573,8 @@ Public Class frmValidator
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then
oFound = True
Logger.Debug($"Got the depending control ID:{oDEPENDING_GUID}..Setting the values..")
Select Case oControl.GetType.ToString
Case GetType(TextEdit).ToString
Select Case True
Case oControl.GetType() = GetType(TextEdit) Or oControl.GetType() = GetType(MemoEdit)
Try
Dim oValue As Object = oDTDEPENDING_RESULT.Rows(0).Item(0)
oValue = ObjectEx.NotNull(Of Object)(oValue, Nothing)
@ -1612,14 +1609,14 @@ Public Class frmValidator
Catch ex As Exception
btnSave.BackColor = Color.Transparent
End Try
Case GetType(LookupControl3).ToString
Case oControl.GetType() = GetType(LookupControl3)
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
Case oControl.GetType() = GetType(GridControl)
'ClassControlCreator.GridTables
Case GetType(CheckBox).ToString
Case oControl.GetType() = GetType(CheckBox)
Try
Dim oCheckState = CBool(oDTDEPENDING_RESULT.Rows(0).Item(0))
Dim oDependingChk As CheckBox = oControl
@ -1699,8 +1696,8 @@ Public Class frmValidator
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then
oFound = True
Logger.Debug($"Got the depending control ID:{oDEPENDING_GUID}..Setting the values..")
Select Case oControl.GetType.ToString
Case GetType(TextEdit).ToString
Select Case True
Case oControl.GetType = GetType(TextEdit) Or oControl.GetType = GetType(MemoEdit)
Try
Dim oValue As Object = oDTDEPENDING_RESULT.Rows(0).Item(0)
oValue = ObjectEx.NotNull(Of Object)(oValue, Nothing)
@ -1734,14 +1731,14 @@ Public Class frmValidator
Catch ex As Exception
btnSave.BackColor = Color.Transparent
End Try
Case GetType(LookupControl3).ToString
Case oControl.GetType = GetType(LookupControl3)
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
Case oControl.GetType = GetType(GridControl)
'ClassControlCreator.GridTables
Case GetType(CheckBox).ToString
Case oControl.GetType = GetType(CheckBox)
Try
Dim oCheckState = CBool(oDTDEPENDING_RESULT.Rows(0).Item(0))
Dim oDependingChk As CheckBox = oControl
@ -2872,8 +2869,10 @@ Public Class frmValidator
Dim oLoadIndex As Boolean = oControlRow.Item("LOAD_IDX_VALUE")
Logger.Debug("INDEX: " & oSourceIndexName & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & oLoadIndex.ToString)
Select Case oControl.GetType()
Case GetType(DevExpress.XtraEditors.TextEdit)
Select Case True
Case oControl.GetType = GetType(TextEdit) Or oControl.GetType = GetType(MemoEdit)
If LOG_PERF Then PerformanceLogger.Info("FillIndexValues/TextEdit")
Try
@ -2922,15 +2921,19 @@ Public Class frmValidator
End If
End If
Logger.Debug("Value from Source: [{0}]", oValueFromSource)
Try
'Dim oFormatString As String = oControlRow.ItemEx("CTRL_FORMAT_STRING", "")
'oFormattedValue = ClassFormat.GetFormattedValue(oControl.Name, oValueFromSource, oFormatString)
If Not IsNothing(oFormattedValue) And oFormattedValue <> String.Empty Then
oTextBox.EditValue = ObjectEx.NotNull(oFormattedValue, oDefaultValue)
Else
'If Not IsNothing(oFormattedValue) And oFormattedValue <> String.Empty Then
' oTextBox.EditValue = ObjectEx.NotNull(oFormattedValue, oDefaultValue)
'Else
' oTextBox.EditValue = ObjectEx.NotNull(oValueFromSource, oDefaultValue)
'End If
oTextBox.EditValue = ObjectEx.NotNull(oValueFromSource, oDefaultValue)
End If
Try
Dim oBackColor As String = oControlRow.Item("CTRL_BACKCOLOR_IF")
@ -2959,10 +2962,8 @@ Public Class frmValidator
Logger.Error(ex)
End Try
ControlCreator.GridTables_HandleControlValueChange(PanelValidatorControl, DT_COLUMNS_GRID_WITH_SQL_WITH_CTRL_PLACEHOLDER)
Catch ex As Exception
Logger.Info("Error While converting defaultValue [" & oDefaultValue & "]: " & ex.Message)
oTextBox.EditValue = ""
@ -2981,7 +2982,7 @@ Public Class frmValidator
Exit Sub
End Try
Case GetType(System.Windows.Forms.ComboBox)
Case oControl.GetType = GetType(Windows.Forms.ComboBox)
If LOG_PERF Then PerformanceLogger.Info("FillIndexValues/ComboBox")
oControlType = "ComboBox"
@ -3064,7 +3065,7 @@ Public Class frmValidator
End Try
Case GetType(DevExpress.XtraGrid.GridControl)
Case oControl.GetType = GetType(GridControl)
If LOG_PERF Then PerformanceLogger.Info("FillIndexValues/GridControl")
oControlType = "DevExpress.XtraGrid.GridControl"
@ -3228,7 +3229,8 @@ Public Class frmValidator
Logger.Error(ex)
End Try
End If
Case GetType(System.Windows.Forms.CheckBox)
Case oControl.GetType = GetType(CheckBox)
Logger.Debug("Loading checkbox...")
oControlType = "CheckBox"
If oSourceIndexName = "" Then
@ -3332,7 +3334,7 @@ Public Class frmValidator
End If
End If
Case GetType(DigitalData.Controls.LookupGrid.LookupControl3)
Case oControl.GetType = GetType(LookupControl3)
If LOG_PERF Then PerformanceLogger.Info("FillIndexValues/LookupControl")
Try
@ -3383,7 +3385,7 @@ Public Class frmValidator
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Add LookupControl3:")
End Try
Case GetType(System.Windows.Forms.DateTimePicker)
Case oControl.GetType = GetType(DateTimePicker)
oControlType = "DateTimePicker"
Dim DTP As DateTimePicker = oControl
If oSourceIndexName = "" Then
@ -3430,7 +3432,8 @@ Public Class frmValidator
End Select
oCount += 1
Next
' set_foreground()
If first_control Is Nothing = False Then first_control.Focus()
Try
Dim oDataTable As DataTable = DT_COLUMNS_GRID_WITH_SQL.Clone()
@ -3993,16 +3996,17 @@ Public Class frmValidator
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = CTRL_ID Then
'######
Select Case oControl.GetType
Case GetType(DevExpress.XtraEditors.TextEdit)
Select Case True
Case oControl.GetType() = GetType(TextEdit) Or oControl.GetType() = GetType(MemoEdit)
Try
value_from_control = oControl.Text
Dim oBaseEdit As BaseEdit = oControl
value_from_control = oBaseEdit.EditValue
Catch ex As Exception
Logger.Error(ex)
value_from_control = String.Empty
End Try
Case GetType(System.Windows.Forms.ComboBox)
Case oControl.GetType() = GetType(System.Windows.Forms.ComboBox)
Dim cmb As Windows.Forms.ComboBox = oControl
Try
value_from_control = cmb.Text
@ -4010,7 +4014,7 @@ Public Class frmValidator
Logger.Error(ex)
value_from_control = String.Empty
End Try
Case GetType(System.Windows.Forms.DateTimePicker)
Case oControl.GetType() = GetType(System.Windows.Forms.DateTimePicker)
Dim dtp As DateTimePicker = oControl
Try
value_from_control = dtp.Value.ToString
@ -4019,7 +4023,7 @@ Public Class frmValidator
value_from_control = String.Empty
End Try
Case GetType(System.Windows.Forms.CheckBox)
Case oControl.GetType() = GetType(System.Windows.Forms.CheckBox)
Dim chk As CheckBox = oControl
Try
value_from_control = chk.Checked
@ -4154,7 +4158,7 @@ Public Class frmValidator
Function Check_Missing_Control_Value(control As Control, typ As String) As Boolean
Select Case typ
Case "txt"
Dim oTextBox As TextEdit = control
Dim oTextBox As BaseEdit = control
If IsNothing(oTextBox.EditValue) Then
Return True
@ -4297,8 +4301,8 @@ Public Class frmValidator
Logger.Info(" >> Indexname is unexpected empty.")
Continue For
End If
Select Case oControl.GetType
Case GetType(DigitalData.Controls.LookupGrid.LookupControl3)
Select Case True
Case oControl.GetType = GetType(LookupControl3)
Try
Dim lookup As LookupControl3 = oControl
If lookup.Properties.SelectedValues.Count = 0 And oIsRequired = True Then
@ -4483,7 +4487,7 @@ Public Class frmValidator
End Try
Case GetType(DevExpress.XtraEditors.TextEdit)
Case oControl.GetType = GetType(TextEdit) Or oControl.GetType = GetType(MemoEdit)
Try
'Dim oWrongInputMessage = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.WrongInputControl")
Dim oWrongInputMessage = S.Falsche_Eingabe
@ -4514,7 +4518,7 @@ Public Class frmValidator
Else
Logger.Debug("Reading current value from Textbox")
Dim oTextEdit As TextEdit = DirectCast(oControl, TextEdit)
Dim oTextEdit As BaseEdit = DirectCast(oControl, BaseEdit)
oMyInput = ClassFormat.GetStringValue(oTextEdit.EditValue)
Logger.Debug("Form Value: [{0}]", oMyInput)
@ -4613,7 +4617,7 @@ Public Class frmValidator
Return False
End Try
Case GetType(System.Windows.Forms.ComboBox)
Case oControl.GetType = GetType(System.Windows.Forms.ComboBox)
Try
Logger.Debug($"Working on Combobox...")
Dim cmb As Windows.Forms.ComboBox = oControl
@ -4730,7 +4734,7 @@ Public Class frmValidator
Return False
End Try
Case GetType(System.Windows.Forms.DateTimePicker)
Case oControl.GetType = GetType(DateTimePicker)
Try
Dim dtp As DateTimePicker = oControl
'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
@ -4804,7 +4808,7 @@ Public Class frmValidator
Logger.Error(ex)
End Try
Case GetType(System.Windows.Forms.CheckBox)
Case oControl.GetType = GetType(CheckBox)
Try
Dim chk As CheckBox = oControl
oMyInput = chk.Checked.ToString
@ -4900,7 +4904,7 @@ Public Class frmValidator
Logger.Error(ex)
End Try
Case GetType(System.Windows.Forms.DataGridView)
Case oControl.GetType = GetType(DataGridView)
Try
Dim dgv As DataGridView = oControl
@ -4981,11 +4985,11 @@ Public Class frmValidator
Logger.Error(ex)
End Try
Case GetType(DevExpress.XtraGrid.GridControl)
Case oControl.GetType = GetType(GridControl)
Dim oGrid As GridControl = oControl
Dim oSettings = New ControlSettings() With {
.IndexName = oIndexName,
.ControlType = GetType(DevExpress.XtraGrid.GridControl).ToString,
.ControlType = GetType(GridControl).ToString,
.Name = oControlName,
.IsRequired = oIsRequired,
.IDBAttributeType = oIDBTyp