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

Replace LookupGrid2 with Version 3

Browse Source
This commit is contained in:
Jonathan Jenne
2021-02-18 16:33:07 +01:00
parent 903e5e5c81
commit 7d054fa053
5 changed files with 109 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@@ -331,14 +331,14 @@ Public Class frmMassValidator
Dim lookupReadonly = ClassControlCreator.CreateExistingTextbox(oControlRow, False)
oControl = lookupReadonly
Else
Dim lookup As LookupControl2 = ClassControlCreator.CreateExistingLookupControl(oControlRow, False)
Dim lookup As LookupControl3 = ClassControlCreator.CreateExistingLookupControl(oControlRow, False)
lookup.PreventDuplicates = oControlRow.Item("VKT_PREVENT_MULTIPLE_VALUES")
lookup.AllowAddNewValues = oControlRow.Item("VKT_ADD_ITEM")
lookup.MultiSelect = oMultiselect
lookup.Properties.PreventDuplicates = oControlRow.Item("VKT_PREVENT_MULTIPLE_VALUES")
lookup.Properties.AllowAddNewValues = oControlRow.Item("VKT_ADD_ITEM")
lookup.Properties.MultiSelect = oMultiselect
If NotNull(oControlRow.Item("DEFAULT_VALUE"), "") <> "" Then
lookup.SelectedValues = New List(Of String) From {oControlRow.Item("DEFAULT_VALUE")}
lookup.Properties.SelectedValues = New List(Of String) From {oControlRow.Item("DEFAULT_VALUE")}
End If
oControl = lookup
@@ -349,7 +349,7 @@ Public Class frmMassValidator
DTCONTROLS.Select(oExpression).CopyToDataTable(filteredData, LoadOption.PreserveChanges)
If filteredData.Rows.Count = 1 Then
'AddHandler lookup.EditValueChanged, AddressOf onLookUp1
AddHandler lookup.SelectedValuesChanged, AddressOf onLookUp1
AddHandler lookup.Properties.SelectedValuesChanged, AddressOf onLookUp1
End If
End If
@@ -395,7 +395,7 @@ Public Class frmMassValidator
If FORM_Shown = False Then
Exit Sub
End If
Dim oLookup As LookupControl2 = sender
Dim oLookup As LookupControl3 = sender
Try
If Not IsNothing(SelectedValues) Then
If SelectedValues.Count = 1 Then
@@ -419,11 +419,11 @@ Public Class frmMassValidator
_dependingControl_in_action = True
Dim oDTDEPENDING_RESULT As DataTable = ClassDatabase.Return_Datatable(oSqlCommand, "MV_OnLookUp1")
Try
Dim oDependingLookup As LookupControl2 = pnldesigner.Controls.Find(oDEPENDING_CtrlName, False).FirstOrDefault()
Dim oDependingLookup As LookupControl3 = pnldesigner.Controls.Find(oDEPENDING_CtrlName, False).FirstOrDefault()
For Each oControl As Control In pnldesigner.Controls
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = oDEPENDING_GUID Then
Dim oDependingLookup1 As LookupControl2 = oControl
oDependingLookup1.DataSource = oDTDEPENDING_RESULT
Dim oDependingLookup1 As LookupControl3 = oControl
oDependingLookup1.Properties.DataSource = oDTDEPENDING_RESULT
_dependingControl_in_action = False
Exit For
End If
@@ -678,9 +678,9 @@ Public Class frmMassValidator
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.LookupControl2"
Case "DigitalData.Controls.LookupGrid.LookupControl3"
Try
Dim oLookup As LookupControl2 = oControl
Dim oLookup As LookupControl3 = oControl
Dim oWindreamValue = GetWM_Value_Multiple_Docs(idxname)
If Not IsNothing(oWindreamValue) Then
@@ -690,20 +690,20 @@ Public Class frmMassValidator
oArrlist.Add(oVectorRow.ToString)
Next
oLookup.SelectedValues = oArrlist
oLookup.Properties.SelectedValues = oArrlist
Else
Dim oArrlist As New List(Of String)
oArrlist.Add(oWindreamValue.ToString)
oLookup.SelectedValues = oArrlist
oLookup.Properties.SelectedValues = oArrlist
'_CURRENT_INDEX_ARRAY(oCount, 1) = oWindreamValue.ToString
End If
Else
If Not IsNothing(oLookup.SelectedValues) Then
If oLookup.SelectedValues.Count = 0 And defaultValue <> String.Empty Then
If Not IsNothing(oLookup.Properties.SelectedValues) Then
If oLookup.Properties.SelectedValues.Count = 0 And defaultValue <> String.Empty Then
Dim oValues As List(Of String) = defaultValue.Split(",").ToList()
oLookup.SelectedValues = oValues
oLookup.Properties.SelectedValues = oValues
End If
End If
End If
@@ -712,7 +712,7 @@ Public Class frmMassValidator
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(" - Unvorhergesehener Unexpected error in AddLookupGrid - Indexname: " & idxname & " - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Add LookupControl2:")
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Unexpected error in Add LookupControl3:")
End Try
End Select
Next
@@ -1081,14 +1081,14 @@ Public Class frmMassValidator
LOGGER.Error(ex)
clsLogger.Add("Error in LoadSimpleData for Combobox: " & ex.Message)
End Try
ElseIf TypeOf control Is LookupControl2 Then
ElseIf TypeOf control Is LookupControl3 Then
Try
Dim lookup As LookupControl2 = control
Dim lookup As LookupControl3 = control
lookup.DataSource = dt
lookup.Properties.DataSource = dt
Catch ex As Exception
LOGGER.Error(ex)
clsLogger.Add("Error in LoadSimpleData for LookupControl2: " & ex.Message)
clsLogger.Add("Error in LoadSimpleData for LookupControl3: " & ex.Message)
End Try
'ElseIf TypeOf control Is GridControl Then
' Try
@@ -1394,26 +1394,26 @@ Public Class frmMassValidator
End If
Dim Type As String = oControl.GetType.ToString
Select Case Type
Case "DigitalData.Controls.LookupGrid.LookupControl2"
Case "DigitalData.Controls.LookupGrid.LookupControl3"
Try
Dim myLookup As LookupControl2 = oControl
Dim myLookup As LookupControl3 = oControl
'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
If myLookup.SelectedValues.Count = 0 And _MUSSEINGABE = True Then
If myLookup.Properties.SelectedValues.Count = 0 And _MUSSEINGABE = True Then
oMissing = True
oErrorMessage = $"No selection in LookUpGrid '{oControl.Name}'"
oControl.BackColor = Color.Red
Exit For
End If
If myLookup.MultiSelect = True Then
Dim Zeilen As Integer = myLookup.SelectedValues.Count
If myLookup.Properties.MultiSelect = True Then
Dim Zeilen As Integer = myLookup.Properties.SelectedValues.Count
'Wenn kein Wert ausgewählt wurde und der Index aber gesetzt werden muss
If Zeilen > 0 Then
Dim ZeilenGrid As Integer = 0
Dim myVektorArr As String()
'Jeden Werte des Datagridviews durchlaufen
For Each value As String In myLookup.SelectedValues
For Each value As String In myLookup.Properties.SelectedValues
If value Is Nothing = False Then
'Das Array anpassen
ReDim Preserve myVektorArr(ZeilenGrid)
@@ -1437,7 +1437,7 @@ Public Class frmMassValidator
End If
End If
Else
oMyControlInput = myLookup.SelectedValues.FirstOrDefault()
oMyControlInput = myLookup.Properties.SelectedValues.FirstOrDefault()
If IsNothing(oMyControlInput) Then
Continue For
End If