Reconfigure for GIT

SISBusiness.Web.CRM/DefaultHorizontal.aspx.vb

@@ -0,0 +1,31 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Collections.Generic
+Imports System.Web.UI
+Imports DevExpress.ExpressApp.Templates
+Imports DevExpress.ExpressApp.Web
+Imports DevExpress.ExpressApp.Web.Templates
+Imports DevExpress.ExpressApp.Web.Templates.ActionContainers
+Imports SISBusiness.Module
+Imports DevExpress.Data.Filtering
+
+Partial Public Class [Default]
+    Inherits BaseXafPage
+    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
+        WebApplication.Instance.CreateControls(Me)
+
+    End Sub
+    Protected Overrides Function CreateContextActionsMenu() As ContextActionsMenu
+        Return New ContextActionsMenu(Me, "Edit", "RecordEdit", "ObjectsCreation", "ListView", "Reports")
+    End Function
+    Protected Overrides Function GetDefaultContainer() As IActionContainer
+        Return TB.FindActionContainerById("View")
+    End Function
+    Public Overrides Sub SetStatus(ByVal statusMessages As System.Collections.Generic.ICollection(Of String))
+        InfoMessagesPanel.Text = String.Join("<br>", New List(Of String)(statusMessages).ToArray())
+    End Sub
+    Protected Overrides Sub OnViewChanged(ByVal view As DevExpress.ExpressApp.View)
+        ViewSiteControl = VSC
+        MyBase.OnViewChanged(view)
+    End Sub
+End Class