Imports System.Data
Imports OakLeaf.MMTemplate
Imports OakLeaf.MM.Main.Business
Imports OakLeaf.MM.Main.Web.UI
Imports OakLeaf.MM.Main.Web.UI.WebControls

''' <summary>
''' Summary description for Order
''' </summary>
Partial Class Order
    Inherits mmBusinessWebPage

    Protected order As Orders

    ''' <summary>
    ''' Page Load handler
    ''' </summary>
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' Instantiate order object
        Me.order = CType(Me.RegisterBizObj(New Orders), Orders)

        If Page.IsPostBack Then
            ' Retrieve the previous Vxlve DataSet
            Me.order.DataSet = CType(Session("Order"), Data.DataSet)
        Else
            ' Add new record
            Me.order.NewRow()
            Session("Order") = Me.order.DataSet
        End If
    End Sub

    ' Save the Order header data
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim dsOrder As DataSet = CType(Session("Order"), Data.DataSet)
        Dim result As mmSaveDataResult

        Me.order.Entity.OrderDate = Now.Date
        result = Me.Save(Me.order, dsOrder, Me.order.TableName)
        If result = mmSaveDataResult.RulesPassed Then
            MsgBox("Save")
        End If
    End Sub

Me.order.Entity.OrderDate = Now.Date