| |
| Partial Class _Default |
| Inherits System.Web.UI.Page |
| Public MyCulture As WFFCulture |
| Private Sub ResourceAllocation() |
| Me.SysTitleLBL.Text = MyCulture.GetGlobalResource("SonyPanAsiaWorkflow") |
| Me.LeftSlidingPane.Title = MyCulture.GetGlobalResource("ClickHereToOpenMenu") |
| Me.LeftSlidingPane.ToolTip = MyCulture.GetGlobalResource("ClickHereToOpenMenu") |
| Me.LeftSlidingPane.OnClientPaneExpanded = "ChangeTitle('" & MyCulture.GetGlobalResource("SonyPanAsiaWorkflow") & "');" |
| Me.LeftSlidingPane.OnClientPaneDocked = "ChangeTitle('" & MyCulture.GetGlobalResource("SonyPanAsiaWorkflow") & "');" |
| Me.LeftSlidingPane.OnClientPaneUnDocked = "ChangeTitle('" & MyCulture.GetGlobalResource("ClickHereToOpenMenu") & "');" |
| Me.LeftSlidingPane.OnClientPaneCollapsed = "ChangeTitle('" & MyCulture.GetGlobalResource("ClickHereToOpenMenu") & "');" |
| End Sub |
| |
| Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init |
| MyCulture = Application("MyCulture") |
| End Sub |
| |
| Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load |
| 'Check for incoming URL |
| 'If Request.Params("URL") IsNot Nothing Then |
| ' Page.ClientScript.RegisterStartupScript(GetType(String), "NavigateURL", "<script type=""text/javascript"" language=""javascript"">JavaScript:document.all.MainContentIFrame.src = '" & Server.UrlEncode(Request.Params("URL")) & "'; </Script>") |
| 'End If |
| If Not Page.IsPostBack Then |
| Call ResourceAllocation() |
| Call BuildCurrentMainTreeView() |
| MyCulture.Dispose() |
| End If |
| End Sub |
| Private Sub BuildCurrentMainTreeView() |
| |
| Dim MainContentIFrameName As String |
| MainContentIFrameName = "MainContentIFrameName" |
| Dim UserID As String = New WFFCommon().GetUserIDByVisitorID(Session("VisitorID")) |
| Dim UserName As String = New WFFUser(UserID).GetUser().UserName |
| CurrentMainTreeView.AllowNodeEditing = False |
| CurrentMainTreeView.AutoPostBack = False |
| CurrentMainTreeView.DragAndDrop = False |
| |
| 'Workflow Root Node Popuplation |
| Dim WorkflowRootNodeItem As New Telerik.WebControls.RadTreeNode |
| WorkflowRootNodeItem.Text = MyCulture.GetGlobalResource("Workflow") & " - " & UserName |
| WorkflowRootNodeItemWorkflowRootNodeItem.ToolTip = WorkflowRootNodeItem.Text |
| WorkflowRootNodeItem.ImageUrl = "Images/Icons/1Home.gif" |
| CurrentMainTreeView.Nodes.Add(WorkflowRootNodeItem) |
| |
| Dim WorkflowRootNode As Telerik.WebControls.RadTreeNode |
| WorkflowRootNode = CurrentMainTreeView.Nodes(0) |
| |
| Dim RequestNewTreeItem As New Telerik.WebControls.RadTreeNode |
| RequestNewTreeItem.Text = MyCulture.GetGlobalResource("NewRequest") |
| RequestNewTreeItemRequestNewTreeItem.ToolTip = RequestNewTreeItem.Text |
| RequestNewTreeItem.NavigateUrl = "WFF/WFFNewRequest.aspx" |
| RequestNewTreeItem.ImageUrl = "Images/Icons/2New.gif" |
| RequestNewTreeItem.Target = MainContentIFrameName |
| WorkflowRootNode.Nodes.Add(RequestNewTreeItem) |
| |
| |
| |
| Dim MyWFFDML As New WFFDML(System.Configuration.ConfigurationManager.ConnectionStrings("SRWFConString").ConnectionString) |
| Dim MyDataTable As Data.DataTable |
| MyDataTable = MyWFFDML.RetrieveMyItemDetails(UserID) |
| MyWFFDML.Dispose() |
| Dim DraftTreeItem As New Telerik.WebControls.RadTreeNode |
| If MyDataTable.Select("CurrentStatus = 'D'").Length = 1 Then |
| If CInt(MyDataTable.Select("CurrentStatus = 'D'")(0).Item("NoOfItem")) >= 1 Then |
| DraftTreeItem.Text = MyCulture.GetGlobalResource("Draft") & "<B>(" & MyDataTable.Select("CurrentStatus = 'D'")(0).Item("NoOfItem") & ")</B>" |
| Else |
| DraftTreeItem.Text = MyCulture.GetGlobalResource("Draft") & "(0)" |
| End If |
| |
| Else |
| DraftTreeItem.Text = MyCulture.GetGlobalResource("Draft") & "(0)" |
| End If |
| DraftTreeItemDraftTreeItem.ToolTip = DraftTreeItem.Text |
| DraftTreeItem.NavigateUrl = "WFF/WFFViewIncident.aspx?Mode=D" |
| DraftTreeItem.ImageUrl = "Images/Icons/3Drafts.gif" |
| DraftTreeItem.Target = MainContentIFrameName |
| WorkflowRootNode.Nodes.Add(DraftTreeItem) |
| |
| Dim InboxTreeItem As New Telerik.WebControls.RadTreeNode |
| If MyDataTable.Select("CurrentStatus = 'W'").Length = 1 Then |
| If CInt(MyDataTable.Select("CurrentStatus = 'W'")(0).Item("NoOfItem")) >= 1 Then |
| |
| InboxTreeItem.Text = MyCulture.GetGlobalResource("InboxPendingForMyAction") & "<B>(" & MyDataTable.Select("CurrentStatus = 'W'")(0).Item("NoOfItem") & ")</B>" |
| Else |
| InboxTreeItem.Text = MyCulture.GetGlobalResource("InboxPendingForMyAction") & "(0)" |
| End If |
| Else |
| InboxTreeItem.Text = MyCulture.GetGlobalResource("InboxPendingForMyAction") & "(0)" |
| End If |
| InboxTreeItemInboxTreeItem.ToolTip = InboxTreeItem.Text |
| InboxTreeItem.NavigateUrl = "WFF/WFFViewIncident.aspx?Mode=W" |
| InboxTreeItem.ImageUrl = "Images/Icons/4Inbox.gif" |
| InboxTreeItem.Target = MainContentIFrameName |
| WorkflowRootNode.Nodes.Add(InboxTreeItem) |
| |
| |
| Dim PendingTreeItem As New Telerik.WebControls.RadTreeNode |
| PendingTreeItem.Style.Item("color") = "red" |
| If MyDataTable.Select("CurrentStatus = 'P'").Length = 1 Then |
| If CInt(MyDataTable.Select("CurrentStatus = 'P'")(0).Item("NoOfItem")) >= 1 Then |
| PendingTreeItem.Text = MyCulture.GetGlobalResource("PendingForApproval") & "<B>(" & MyDataTable.Select("CurrentStatus = 'P'")(0).Item("NoOfItem") & ")</B>" |
| Else |
| PendingTreeItem.Text = MyCulture.GetGlobalResource("PendingForApproval") & "(0)" |
| End If |
| Else |
| PendingTreeItem.Text = MyCulture.GetGlobalResource("PendingForApproval") & "(0)" |
| End If |
| PendingTreeItemPendingTreeItem.ToolTip = PendingTreeItem.Text |
| PendingTreeItem.NavigateUrl = "WFF/WFFViewIncident.aspx?Mode=P" |
| PendingTreeItem.ImageUrl = "Images/Icons/6Pending.gif" |
| PendingTreeItem.Target = MainContentIFrameName |
| WorkflowRootNode.Nodes.Add(PendingTreeItem) |
| |
| |
| Dim ApprovedTreeItem As New Telerik.WebControls.RadTreeNode |
| If MyDataTable.Select("CurrentStatus = 'C'").Length = 1 Then |
| If CInt(MyDataTable.Select("CurrentStatus = 'C'")(0).Item("NoOfItem")) >= 1 Then |
| ApprovedTreeItem.Text = MyCulture.GetGlobalResource("Approved") & "<B>(" & MyDataTable.Select("CurrentStatus = 'C'")(0).Item("NoOfItem") & ")</B>" |
| Else |
| ApprovedTreeItem.Text = MyCulture.GetGlobalResource("Approved") & "(0)" |
| End If |
| Else |
| ApprovedTreeItem.Text = MyCulture.GetGlobalResource("Approved") & "(0)" |
| End If |
| ApprovedTreeItemApprovedTreeItem.ToolTip = ApprovedTreeItem.Text |
| ApprovedTreeItem.NavigateUrl = "WFF/WFFViewIncident.aspx?Mode=C" |
| ApprovedTreeItem.ImageUrl = "Images/Icons/check.gif" |
| ApprovedTreeItem.Target = MainContentIFrameName |
| WorkflowRootNode.Nodes.Add(ApprovedTreeItem) |
| |
| Dim CancelledTreeItem As New Telerik.WebControls.RadTreeNode |
| If MyDataTable.Select("CurrentStatus = 'X'").Length = 1 Then |
| If CInt(MyDataTable.Select("CurrentStatus = 'X'")(0).Item("NoOfItem")) >= 1 Then |
| CancelledTreeItem.Text = MyCulture.GetGlobalResource("Cancelled") & "<B>(" & MyDataTable.Select("CurrentStatus = 'X'")(0).Item("NoOfItem") & ")</B>" |
| Else |
| CancelledTreeItem.Text = MyCulture.GetGlobalResource("Cancelled") & "(0)" |
| End If |
| Else |
| CancelledTreeItem.Text = MyCulture.GetGlobalResource("Cancelled") & "(0)" |
| End If |
| CancelledTreeItemCancelledTreeItem.ToolTip = CancelledTreeItem.Text |
| CancelledTreeItem.NavigateUrl = "WFF/WFFViewIncident.aspx?Mode=X" |
| CancelledTreeItem.ImageUrl = "Images/Icons/cross.gif" |
| CancelledTreeItem.Target = MainContentIFrameName |
| WorkflowRootNode.Nodes.Add(CancelledTreeItem) |
| |
| Dim MyHistoryItem As New Telerik.WebControls.RadTreeNode |
| MyHistoryItem.Text = MyCulture.GetGlobalResource("SearchMyHistory") |
| MyHistoryItemMyHistoryItem.ToolTip = MyHistoryItem.Text |
| MyHistoryItem.NavigateUrl = "WFF/WFFViewHistory.aspx?Mode=X" |
| MyHistoryItem.ImageUrl = "Images/Icons/history.png" |
| MyHistoryItem.Target = MainContentIFrameName |
| WorkflowRootNode.Nodes.Add(MyHistoryItem) |
| 'End of Workflow Root Node Popuplation |
| |
| 'Utilities Root Node Population |
| Dim UtilitiesRootNodeItem As New Telerik.WebControls.RadTreeNode |
| UtilitiesRootNodeItem.Text = MyCulture.GetGlobalResource("Utilities") |
| UtilitiesRootNodeItemUtilitiesRootNodeItem.ToolTip = UtilitiesRootNodeItem.Text |
| UtilitiesRootNodeItem.ImageUrl = "Images/Icons/utilities.png" |
| CurrentMainTreeView.Nodes.Add(UtilitiesRootNodeItem) |
| |
| Dim UtilitiesRootNode As Telerik.WebControls.RadTreeNode |
| UtilitiesRootNode = CurrentMainTreeView.Nodes(1) |
| |
| Dim MySettingTreeItem As New Telerik.WebControls.RadTreeNode |
| MySettingTreeItem.Text = MyCulture.GetGlobalResource("MySetting") |
| MySettingTreeItemMySettingTreeItem.ToolTip = MySettingTreeItem.Text |
| MySettingTreeItem.NavigateUrl = "MySetting.aspx" |
| MySettingTreeItem.ImageUrl = "Images/Icons/setting.png" |
| MySettingTreeItem.Target = MainContentIFrameName |
| UtilitiesRootNodeItem.Nodes.Add(MySettingTreeItem) |
| |
| |
| 'End of Utilities Root Node Population |
| |
| |
| 'Administration Root Node Population |
| Dim AdministrationRootNodeItem As New Telerik.WebControls.RadTreeNode |
| AdministrationRootNodeItem.Text = MyCulture.GetGlobalResource("Administration") |
| AdministrationRootNodeItemAdministrationRootNodeItem.ToolTip = AdministrationRootNodeItem.Text |
| AdministrationRootNodeItem.ImageUrl = "Images/Icons/admin.png" |
| CurrentMainTreeView.Nodes.Add(AdministrationRootNodeItem) |
| |
| Dim AdministrationRootNode As Telerik.WebControls.RadTreeNode |
| AdministrationRootNode = CurrentMainTreeView.Nodes(2) |
| |
| Dim WorkflowManagementTreeItem As New Telerik.WebControls.RadTreeNode |
| WorkflowManagementTreeItem.Text = MyCulture.GetGlobalResource("WorkflowAdministration") |
| WorkflowManagementTreeItemWorkflowManagementTreeItem.ToolTip = WorkflowManagementTreeItem.Text |
| WorkflowManagementTreeItem.NavigateUrl = "Define/WFManager.aspx" |
| WorkflowManagementTreeItem.ImageUrl = "Images/Icons/WorkflowAdmin.png" |
| WorkflowManagementTreeItem.Target = MainContentIFrameName |
| AdministrationRootNode.Nodes.Add(WorkflowManagementTreeItem) |
| |
| Dim OrgChartManagementTreeItem As New Telerik.WebControls.RadTreeNode |
| OrgChartManagementTreeItem.Text = MyCulture.GetGlobalResource("OrgChartAdministration") |
| OrgChartManagementTreeItemOrgChartManagementTreeItem.ToolTip = OrgChartManagementTreeItem.Text |
| OrgChartManagementTreeItem.NavigateUrl = "Define/WFOrganisationManager.aspx" |
| OrgChartManagementTreeItem.ImageUrl = "Images/Icons/OrgChartAdmin.png" |
| OrgChartManagementTreeItem.Target = MainContentIFrameName |
| AdministrationRootNode.Nodes.Add(OrgChartManagementTreeItem) |
| |
| Dim RoleManagementTreeItem As New Telerik.WebControls.RadTreeNode |
| RoleManagementTreeItem.Text = MyCulture.GetGlobalResource("RoleAdministration") |
| RoleManagementTreeItemRoleManagementTreeItem.ToolTip = RoleManagementTreeItem.Text |
| RoleManagementTreeItem.NavigateUrl = "Define/WFRoleManager.aspx" |
| RoleManagementTreeItem.ImageUrl = "Images/Icons/RoleAdmin.png" |
| RoleManagementTreeItem.Target = MainContentIFrameName |
| AdministrationRootNode.Nodes.Add(RoleManagementTreeItem) |
| |
| Dim UserManagementTreeItem As New Telerik.WebControls.RadTreeNode |
| UserManagementTreeItem.Text = MyCulture.GetGlobalResource("UserAdministration") |
| UserManagementTreeItemUserManagementTreeItem.ToolTip = UserManagementTreeItem.Text |
| UserManagementTreeItem.NavigateUrl = "Define/WFUserManager.aspx" |
| UserManagementTreeItem.ImageUrl = "Images/Icons/UserAdmin.png" |
| UserManagementTreeItem.Target = MainContentIFrameName |
| AdministrationRootNode.Nodes.Add(UserManagementTreeItem) |
| |
| |
| 'End of Administration Root Node Population |
| |
| |
| 'Logout Root Node Population |
| Dim LogoutRootNodeItem As New Telerik.WebControls.RadTreeNode |
| LogoutRootNodeItem.Text = MyCulture.GetGlobalResource("Logout") |
| LogoutRootNodeItemLogoutRootNodeItem.ToolTip = LogoutRootNodeItem.Text |
| MyCulture.GetGlobalResource("Logout") |
| LogoutRootNodeItem.CssClass = "BlackBoldText" |
| LogoutRootNodeItem.CssClassOver = "BlackBoldText" |
| LogoutRootNodeItem.CssClassSelect = "BlackBoldText" |
| LogoutRootNodeItem.NavigateUrl = "logout.aspx" |
| LogoutRootNodeItem.ImageUrl = "Images/Icons/logout.png" |
| CurrentMainTreeView.Nodes.Add(LogoutRootNodeItem) |
| |
| 'End Of Logout Root Node Population |
| 'If this is the first load, expand the first nones |
| If Not Page.IsPostBack Then CurrentMainTreeView.Nodes(0).Expanded = True |
| |
| |
| End Sub |
| End Class |
| |