Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/MoneyMonkey/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/MoneyMonkey/Default.aspx.vb

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports DevExpress.Web.ASPxClasses.Internal

Partial Public Class _Default
	Inherits System.Web.UI.Page
	Protected Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs)
		If RenderUtils.Browser.Platform.IsTouchUI Then
			Response.Redirect("~/mobile/default.aspx")
		End If
	End Sub
	Protected Sub MainCallbackPanel_Callback(ByVal sender As Object, ByVal e As DevExpress.Web.ASPxClasses.CallbackEventArgsBase)
		Dim parameters = e.Parameter.Split(New Char() { ";"c }, StringSplitOptions.RemoveEmptyEntries)
		If parameters.Length = 0 Then
			Return
		End If
		If DataProvider.IsReadOnly Then
			Return
		End If
		Select Case parameters(0)
			Case "ModifyBudget"
				BudgetsDialog.SubmitModifyBudgetChanges()
				Budgets.Update()
			Case "ModifyOverviewBudget"
				BudgetsDialog.SubmitModifyOverviewBudgetChanges()
				Overview.Update()
			Case "AddBudget"
				DataProvider.Instance.AddCategoryToBudget(Convert.ToInt32(parameters(1)))
				Budgets.Update()
			Case "TransactionsGrid"
				Transactions.AddTransaction()
		End Select
	End Sub
End Class