etvComponent.GetPropertyBag
PageName = etvComponent.getproperty("PageName")
Dim xl As List: xl.initialize
xl = modABMaterial.GetComponentsForPage(PageName,True)
etvTabOrder.SetParentForm(MainForm,False)
etvTabOrder.SetReportViewer
'add the columns
etvTabOrder.AddLabel("ComponentKey",150,"Component Key","")
etvTabOrder.AddLabel("ComponentType",150,"Component Type","")
etvTabOrder.AddComboBox("ActionButton",150,"Parent ID",xl,"")
etvTabOrder.AddComboBox("placement",150,"Placement",modABMaterial.abmplacement,"")
etvTabOrder.AddTextBox("RowID",60,"Row","0")
etvTabOrder.AddTextBox("CellID",60,"Cell","0")
etvTabOrder.AddTextBox("TabIndex",100,"Tab Index","0")
etvTabOrder.AddComboBox("Visibility",200,"Visibility",modABMaterial.ABMVisibility,"")
etvTabOrder.AddCheckBox("Active",100,"Active","0")
etvTabOrder.showmoveup = True
etvTabOrder.ShowMoveDown = True
etvTabOrder.ShowUpdate = False
etvTabOrder.showdelete = False
etvTabOrder.RefreshColumns
what2Save = "taborder"
'get all the components for the page
Dim comps As String = $"select * from components where lower(PageName) = '${PageName.ToLowerCase}' order by TabIndex asc;"$
Dim records As List = DBUtils.ExecuteMaps(jMash.jSQL,comps,Null)
'we need to explode the component properties
Dim recTot As Int = records.Size - 1
Dim recCnt As Int
For recCnt = 0 To recTot
Dim recMap As Map = records.Get(recCnt)
Dim propsJSON As String = recMap.Getdefault("componentproperties","")
Dim props As Map = jMash.Json2Map(propsJSON)
'add the props to the recmap
recMap = jMash.JoinMaps(recMap,props)
records.Set(recCnt,recMap)
Next
etvTabOrder.AddRows(records)
