WIP

ImporterShared/Winline/Data.vb

@@ -522,7 +522,7 @@ Namespace Winline
 
         Public Function LoadTemplateConfiguration() As Boolean
             Try
-                Dim oSql = $"SELECT XML_NAME, XML_ROOT, TEMPLATE_NAME, DATA_TYPE, IS_HEAD, FUNCTION_ID, READ_ONLY FROM [DD_ECM].[dbo].[VWEDI_XML_ITEMS]"
+                Dim oSql = $"SELECT * FROM [DD_ECM].[dbo].[VWEDI_XML_ITEMS]"
                 Dim oTable As DataTable = Database.GetDatatable(oSql)
                 Dim oItems As New List(Of TemplateColumn)
 
@@ -533,7 +533,8 @@ Namespace Winline
                         .Type = oRow.Item("XML_TYPE"),
                         .Template = oRow.Item("TEMPLATE_NAME"),
                         .[Function] = oRow.Item("FUNCTION_ID"),
-                        .[ReadOnly] = oRow.Item("READ_ONLY")
+                        .[ReadOnly] = oRow.Item("IS_READ_ONLY"),
+                        .[Visible] = oRow.Item("IS_VISIBLE")
                     }
 
                     oItems.Add(oColumn)