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

Remove Chat Controls, use only DevExpress controls in frmValidator

Browse Source
This commit is contained in:
Jonathan Jenne
2023-05-31 11:10:25 +02:00
parent 9da71349b2
commit 91e90ce76c
13 changed files with 343 additions and 1026 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
app/TaskFlow/frmMassValidator.vb
View File

@@ -473,8 +473,8 @@ Public Class frmMassValidator
Dim LoadIDX As Boolean = controlRow.Item("LOAD_IDX_VALUE")
LOGGER.Debug("INDEX: " & idxname & " - CONTROLNAME: " & oControl.Name & " - LOAD IDXVALUES: " & LoadIDX.ToString)
Dim wertWD
Select Case Type
Case "DevExpress.XtraEditors.TextEdit"
Select Case oControl.GetType
Case GetType(DevExpress.XtraEditors.TextEdit)
Try
controltype = "Textbox"
If idxname = "" Then
@@ -508,7 +508,7 @@ Public Class frmMassValidator
Exit Sub
End Try
Case "System.Windows.Forms.ComboBox"
Case GetType(System.Windows.Forms.ComboBox)
controltype = "ComboBox"
Dim cmb As Windows.Forms.ComboBox = oControl
If idxname = "" Then
@@ -537,7 +537,7 @@ Public Class frmMassValidator
cmb.SelectedIndex = cmb.FindStringExact(wertWD)
End If
End If
Case "System.Windows.Forms.DataGridView"
Case GetType(System.Windows.Forms.DataGridView)
controltype = "DataGridView"
Dim dgv As DataGridView = oControl
If idxname = "" Then
@@ -608,7 +608,7 @@ Public Class frmMassValidator
End If
End If
Case "System.Windows.Forms.CheckBox"
Case GetType(System.Windows.Forms.CheckBox)
controltype = "CheckBox"
If idxname = "" Then
MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
@@ -675,14 +675,14 @@ Public Class frmMassValidator
End If
End If
Case "System.Windows.Forms.DateTimePicker"
Case GetType(System.Windows.Forms.DateTimePicker)
controltype = "DateTimePicker"
Dim DTP As DateTimePicker = oControl
If idxname = "" Then
MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
Exit For
End If
Case "DigitalData.Controls.LookupGrid.LookupControl3"
Case GetType(DigitalData.Controls.LookupGrid.LookupControl3)
Try
Dim oLookup As LookupControl3 = oControl
Dim oWindreamValue = GetWM_Value_Multiple_Docs(idxname)
@@ -727,11 +727,7 @@ Public Class frmMassValidator
LOGGER.Info(">> Unexpected Error in FillIndexValues(MIs: " & ex.Message, True)
LOGGER.Info(">> Controltype: " & controltype)
LOGGER.Info(">> Indexname windream: " & indexname)
End Try
End Sub
Private Function GetWM_Value_Multiple_Docs(idxname As String)
Try
@@ -1222,9 +1218,8 @@ Public Class frmMassValidator
End If
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = CTRL_ID Then
'######
Dim Type As String = oControl.GetType.ToString
Select Case Type
Case "DevExpress.XtraEditors.TextEdit"
Select Case oControl.GetType
Case GetType(DevExpress.XtraEditors.TextEdit)
Try
value_from_control = oControl.Text
Catch ex As Exception
@@ -1232,7 +1227,7 @@ Public Class frmMassValidator
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.ComboBox"
Case GetType(System.Windows.Forms.ComboBox)
Dim cmb As ComboBox = oControl
Try
value_from_control = cmb.Text
@@ -1240,7 +1235,7 @@ Public Class frmMassValidator
LOGGER.Error(ex)
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.DateTimePicker"
Case GetType(System.Windows.Forms.DateTimePicker)
Dim dtp As DateTimePicker = oControl
Try
value_from_control = dtp.Value.ToString
@@ -1249,7 +1244,7 @@ Public Class frmMassValidator
value_from_control = String.Empty
End Try
Case "System.Windows.Forms.CheckBox"
Case GetType(System.Windows.Forms.CheckBox)
Dim chk As CheckBox = oControl
Try
value_from_control = chk.Checked
@@ -1434,9 +1429,8 @@ Public Class frmMassValidator
LOGGER.Info(" >> Indexname is unexpected empty.")
Continue For
End If
Dim Type As String = oControl.GetType.ToString
Select Case Type
Case "DigitalData.Controls.LookupGrid.LookupControl3"
Select Case oControl.GetType
Case GetType(DigitalData.Controls.LookupGrid.LookupControl3)
Try
Dim myLookup As LookupControl3 = oControl
@@ -1522,7 +1516,7 @@ Public Class frmMassValidator
Catch ex As Exception
LOGGER.Error(ex)
End Try
Case "DevExpress.XtraEditors.TextEdit"
Case GetType(DevExpress.XtraEditors.TextEdit)
Try
'Als erstes überprüfen ob überhaupt etwas eingetragen worden ist
If Check_Missing(oControl, "txt") = True And _MUSSEINGABE = True Then 'NICHTS EINGETRAGEN
@@ -1576,7 +1570,7 @@ Public Class frmMassValidator
End Try
Case "System.Windows.Forms.DateTimePicker"
Case GetType(System.Windows.Forms.DateTimePicker)
Dim dtp As DateTimePicker = oControl
'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
If _MUSSEINGABE = True And dtp.Value.ToString = String.Empty Then
@@ -1616,7 +1610,7 @@ Public Class frmMassValidator
Else
LOGGER.Debug("DateValue is 01.01.0001 00:00:00")
End If
Case "System.Windows.Forms.CheckBox"
Case GetType(System.Windows.Forms.CheckBox)
Dim chk As CheckBox = oControl
oMyControlInput = chk.Checked.ToString
@@ -1663,7 +1657,7 @@ Public Class frmMassValidator
End If
End If
Case "System.Windows.Forms.DataGridView"
Case GetType(System.Windows.Forms.DataGridView)
Dim dgv As DataGridView = oControl
Dim Zeilen As Integer = 0
@@ -1953,18 +1947,4 @@ Public Class frmMassValidator
FORM_Shown = True
End Sub
Private Sub frmMassValidator_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
'If Viewer = "docview" Then
' CloseWDDocview()
'End If
'If vpdfviewer = "system" Then
' Kill_PDFAcrobat()
'Else
' If pdfxchange = True Or sumatra = True Then
' Close_PDF_Viewer(Document_Path)
' End If
' KillU_Viewer()
'End If
End Sub
End Class