MS Config

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -44,6 +44,11 @@ Public Class frmAdmin_Start
             CurrentModule = oNode.Module
             labelTitle.Text = oNode.GridTitle
             btnAddRecord.Caption = oNode.NewRecordTitle
+            If btnAddRecord.Caption = "" Then
+                btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+            Else
+                btnAddRecord.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+            End If
         Else
             MsgBox($"Tag [{Page}] not found! Exiting." & vbNewLine &
                    $"Check the [ENTITY_TITLE] Column in Table [TBZF_ADMIN_SOURCE_SQL]. It must match with the Tag [{Page}] of the corresponding Tree List nodes!", MsgBoxStyle.Critical, Text)
@@ -74,12 +79,13 @@ Public Class frmAdmin_Start
             DetailForm.DetailDataList.Clear()
 
             For Each oRow As DataRow In oTable.Rows
+                Dim oCHeck = oRow.Item("ENTITY_TITLE").ToString
                 Dim oItem As New ClassDetailForm.DetailData With {
                     .Guid = CInt(oRow.Item("GUID")),
                     .ParentId = CInt(oRow.Item("PARENT_ID")),
                     .Entity = oRow.Item("ENTITY_TITLE").ToString,
                     .Scope = oRow.Item("SCOPE").ToString,
-                    .SQLCommand = oRow.Item("SQL_COMMAND").ToString,
+                    .SQLCommand = oRow.Item("SQL_COMMAND").ToString.Replace("@LANG_CODE", My.Application.User.Language),
                     .PrimaryKey = NotNull(oRow.Item("PK_COLUMN"), String.Empty)
                 }
 
@@ -109,13 +115,11 @@ Public Class frmAdmin_Start
                 Exit Sub
             End If
 
-            If Handle_LoadPage(e.Node.Tag.ToString) And e.Node.Tag <> "Relations" Then
+            If Handle_LoadPage(e.Node.Tag.ToString) Then
                 RibbonPageGroup1.Enabled = True
                 CurrentPage = e.Node.Tag.ToString
             End If
-            If e.Node.Tag = "Relations" Then
-                frmAdmin_relations.ShowDialog()
-            End If
+
         Catch ex As Exception
             ShowErrorMessage(ex)
         End Try