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

MS AdminGlobix

Browse Source
This commit is contained in:
SchreiberM
2022-03-16 11:07:27 +01:00
parent 08a55c599c
commit 7b6b3c9289
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
View File

@@ -376,10 +376,10 @@ Public Class frmAdmin_Globix
Case XtraTabPageDynamicFolder.Name
cmbAllAttributes.Items.Clear()
For Each oRowMan As DataRow In Me.GlobixDataset.TBDD_INDEX_MAN.Rows
cmbAllAttributes.Items.Add(oRowMan.Item("WD_INDEX"))
cmbAllAttributes.Items.Add(oRowMan.Item("WD_INDEX") + " - M")
Next
For Each oRowMan As DataRow In Me.GlobixDataset.TBDD_INDEX_AUTOM.Rows
cmbAllAttributes.Items.Add(oRowMan.Item("INDEXNAME"))
cmbAllAttributes.Items.Add(oRowMan.Item("INDEXNAME") + " - A")
Next
End Select
'Else
@@ -512,9 +512,9 @@ Public Class frmAdmin_Globix
If cmbAllAttributes.SelectedIndex <> -1 Then
Dim oPattern As String
If cmbAllAttributes.Text.EndsWith("#M") Then
If cmbAllAttributes.Text.EndsWith("M") Then
oPattern = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_MAN, cmbAllAttributes.Text)
Else
ElseIf cmbAllAttributes.Text.EndsWith("A") Then
oPattern = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_AUTO, cmbAllAttributes.Text)
End If
Me.FOLDER_FOR_INDEXTextEdit.Text = str & oPattern