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

Validation, More Lookup Grid Control Tweaks

Browse Source
This commit is contained in:
Jonathan Jenne 2021-03-15 13:36:07 +01:00
parent 56106732c7
commit ab382c7fd0
3 changed files with 50 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
app/DD_PM_WINDREAM/ClassControlCreator.vb
View File

@ -547,37 +547,37 @@ Public Class ClassControlCreator
Next
End Sub
'AddHandler oView.CellValueChanged, Sub(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs)
' Console.WriteLine("")
' End Sub
AddHandler oView.ValidateRow, Sub(sender As Object, e As ValidateRowEventArgs)
Dim oRow As DataRowView = oView.GetRow(oView.FocusedRowHandle)
'AddHandler oView.ValidateRow, Sub(sender As Object, e As ValidateRowEventArgs)
' Console.WriteLine("")
' End Sub
For Each oCol As DataColumn In oRow.DataView.Table.Columns
Dim oColumn As DataRow = (From r As DataRow In DT_MY_COLUMNS.Rows
Where r.Item("SPALTENNAME") = oCol.ColumnName
Select r).FirstOrDefault()
'AddHandler oView.ValidatingEditor, Sub(sender As Object, e As BaseContainerValidateEditorEventArgs)
' Dim oRow As DataRowView = oView.GetRow(oView.FocusedRowHandle)
Dim oIsRequired = oColumn.Item("VALIDATION")
Dim oValue = NotNull(oView.GetRowCellValue(e.RowHandle, oCol.ColumnName), "")
' For Each oCol As DataColumn In oRow.DataView.Table.Columns
' Dim oColumn As DataRow = (From r As DataRow In DT_MY_COLUMNS.Rows
' Where r.Item("SPALTENNAME") = oCol.ColumnName
' Select r).FirstOrDefault()
If oIsRequired And oValue = "" Then
e.Valid = False
e.ErrorText = $"Spalte {oColumn.Item("SPALTEN_HEADER")} muss ausgefüllt werden!"
Exit For
End If
Next
End Sub
' Dim oIsRequired = oColumn.Item("VALIDATION")
' Dim oValue As String = NotNull(e.Value, "")
AddHandler oView.InvalidRowException, Sub(sender As Object, e As InvalidRowExceptionEventArgs)
e.ExceptionMode = ExceptionMode.DisplayError
End Sub
' If oValue.contains(" | ") Then
' oValue = oValue.Split(" | ").ToList().First()
' e.Value = oValue
' End If
AddHandler oView.ValidatingEditor, Sub(sender As Object, e As BaseContainerValidateEditorEventArgs)
Dim oValue As String = NotNull(e.Value, "")
' If oIsRequired And oValue = "" Then
' e.Valid = False
' e.ErrorText = $"Spalte {oColumn.Item("SPALTEN_HEADER")} muss ausgefüllt werden!"
' Exit For
' End If
' Next
' End Sub
If oValue.Contains(" | ") Then
oValue = oValue.Split(" | ").ToList().First()
e.Value = oValue
End If
End Sub
Return oControl
End Function

3
app/DD_PM_WINDREAM/frmControl_Detail.resx
View File

@ -529,9 +529,6 @@
<data name="&gt;&gt;LOAD_IDX_VALUECheckBox.ZOrder" xml:space="preserve">
<value>18</value>
</data>
<data name="VALIDATIONCheckbox.Enabled" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="VALIDATIONCheckbox.Location" type="System.Drawing.Point, System.Drawing">
<value>24, 455</value>
</data>

37
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -3665,23 +3665,36 @@ Public Class frmValidator
btnSave.Enabled = False
' TODO: Use when working on Validation
'Dim oGrids = (From oControl In pnldesigner.Controls
' Where TypeOf oControl Is GridControl
' Select oControl).ToList()
Dim oValidation As Boolean = True
Dim oGrids = (From oControl In pnldesigner.Controls
Where TypeOf oControl Is GridControl
Select oControl).ToList()
'For Each oGrid As GridControl In oGrids
' Dim oView As GridView = oGrid.MainView
For Each oGrid As GridControl In oGrids
Dim oView As GridView = oGrid.MainView
' For index = 0 To oView.RowCount - 1
' oView.FocusedRowHandle = index
' oView.UpdateCurrentRow()
' Next
If oView.RowCount = 0 Then
Continue For
End If
'Next
For index = 0 To oView.RowCount - 1
oView.FocusedRowHandle = index
'Return
If oView.UpdateCurrentRow() = False Then
oValidation = False
Exit For
End If
Next
If oValidation = False Then
Exit For
End If
Next
If oValidation = True Then
Finish_WFStep()
End If
Finish_WFStep()
btnSave.Enabled = True
End Sub
Private Function btnFinish_continue()