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

small fixes to final indicies

Browse Source
This commit is contained in:
Jonathan Jenne
2019-04-25 13:38:07 +02:00
parent 0ceb91667c
commit 7edb2b6037
3 changed files with 60 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@@ -25,6 +25,7 @@ Public Class frmFormDesigner
Private Windream_AllIndicies As List(Of String)
Private Windream_VectorIndicies As List(Of String)
Private Windream_SimpleIndicies As List(Of String)
Private Windream_LookupIndicies As List(Of String)
Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -48,6 +49,14 @@ Public Class frmFormDesigner
Windream_AllIndicies = sortedIndicies
Windream_VectorIndicies = Windream_AllIndicies.FindAll(AddressOf IsVectorIndex)
Windream_SimpleIndicies = Windream_AllIndicies.Except(Windream_VectorIndicies).ToList()
Windream_LookupIndicies = Windream_AllIndicies.
Where(AddressOf IsNotVectorBooleanIndex).
Where(AddressOf IsNotVectorDateIndex).
Where(AddressOf IsNotVectorDatetimeIndex).
Where(AddressOf IsNotBooleanIndex).
Where(AddressOf IsNotDateIndex).
ToList()
Windream_ChoiceLists = New List(Of String)
Windream_ChoiceLists.Add(String.Empty)
@@ -109,11 +118,40 @@ Public Class frmFormDesigner
''' <summary>
''' Filtert aus der Liste von Indexen die Vektor Indexe heraus
''' </summary>
Private Function IsVectorIndex(index As String) As Boolean
Dim type As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(index)
Private Function IsVectorIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
'Vektor Zahl Oder Vektor String
Return (type = 4107 Or type = 4097)
Return ClassFinalIndex.IsVectorIndex(oType)
End Function
Private Function IsNotBooleanIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Return oType <> ClassFinalIndex.INDEX_TYPE_BOOLEAN
End Function
Private Function IsNotDateIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Return oType <> ClassFinalIndex.INDEX_TYPE_DATE
End Function
Private Function IsNotVectorBooleanIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Return oType <> ClassFinalIndex.INDEX_TYPE_VECTOR_BOOLEAN
End Function
Private Function IsNotVectorDateIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Return oType <> ClassFinalIndex.INDEX_TYPE_VECTOR_DATE
End Function
Private Function IsNotVectorDatetimeIndex(IndexName As String) As Boolean
Dim oType As Integer = clsWD_GET.GetTypeOfIndexAsIntByName(IndexName)
Return oType <> ClassFinalIndex.INDEX_TYPE_VECTOR_DATETIME
End Function
Sub LoadControls()
@@ -388,6 +426,8 @@ Public Class frmFormDesigner
inctrl.BackColor = Color.Transparent
Case "DD_PM_WINDREAM.ClassControlCreator+LineLabel"
inctrl.BackColor = inctrl.ForeColor
Case "DigitalData.Controls.LookupGrid.LookupControl2"
inctrl.BackColor = Color.White
End Select
End If
Next
@@ -754,7 +794,7 @@ Public Class frmFormDesigner
ElseIf TypeOf sender Is LookupControl2 Then
Dim grid As LookupControl2 = sender
Dim lookupProps As LookupControlProperties = CreatePropsObjectWithIndicies(New LookupControlProperties, row, Windream_VectorIndicies)
Dim lookupProps As LookupControlProperties = CreatePropsObjectWithIndicies(New LookupControlProperties, row, Windream_LookupIndicies)
lookupProps.MultiSelect = StrToBool(row.Item("MULTISELECT"))
lookupProps.PreventDuplicates = StrToBool(row.Item("VKT_PREVENT_MULTIPLE_VALUES"))
lookupProps.AllowAddNewValues = StrToBool(row.Item("VKT_ADD_ITEM"))