MergeCommit

This commit is contained in:
Digital Data - Marlon Schreiber 2019-08-23 10:38:37 +02:00
commit 825d273ed5
2 changed files with 8 additions and 2 deletions

View File

@ -116,7 +116,8 @@ Public Class ClassControlCreator
.AutoSize = True,
.Text = DEFAULT_TEXT,
.Cursor = Cursors.Hand,
.Location = location
.Location = location,
.CheckState = CheckState.Indeterminate
}
Return control
@ -278,6 +279,7 @@ Public Class ClassControlCreator
control.AutoSize = True
control.Text = row.Item("CTRL_TEXT")
control.CheckState = CheckState.Indeterminate
If Not designMode Then
control.Enabled = Not row.Item("READ_ONLY")

View File

@ -1543,12 +1543,16 @@ Public Class frmMassValidator
Dim chk As CheckBox = oControl
oMyControlInput = chk.Checked.ToString
If chk.Checked = False And _MUSSEINGABE = True Then
If chk.CheckState = CheckState.Indeterminate And _MUSSEINGABE = True Then
oMissing = True
oErrorMessage = "Option '" & chk.Name & "' is required."
Exit For
End If
If chk.CheckState = CheckState.Indeterminate Then
LOGGER.Debug("Checkbox {0} is indeterminate. Skipping indexing.", chk.Name)
Exit For
End If
Dim result() As String
ReDim Preserve result(0)