Mini Kabibi Habibi

Current Path : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/MoneyMonkey/Mobile/
Upload File :
Current File : C:/Users/Public/Documents/DXperience 13.1 Demos/ASP.NET/VB/MoneyMonkey/Mobile/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

Partial Public Class Mobile_Default
	Inherits System.Web.UI.Page
	Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
		ReadOnlyNotification.Visible = DataProvider.IsReadOnly
		DateContainer.InnerHtml = DateTime.Now.ToString("dddd, MMMM dd, yyyy")
		TimeContainer.InnerHtml = DateTime.Now.ToString("hh:mm tt")
	End Sub

	Public Sub MainCallbackPanel_Callback(ByVal sender As Object, ByVal e As DevExpress.Web.ASPxClasses.CallbackEventArgsBase)
		If DataProvider.IsReadOnly Then
			Return
		End If
		Select Case e.Parameter
			Case "ModifyBudget"
				Budget.SubmitChanges()
			Case "TransactionsGrid"
				Transactions.AddTransaction()
		End Select
	End Sub
End Class