Imports System.Data
Partial Class Basket
Inherits System.Web.UI.Page
Private m_QuantitySubTotal As Byte
Private m_PriceSubTotal As Double
Private WithEvents gvBasket As GridView
Private m_ActiveGridCounter As Byte
Private m_QuantityTotal As Byte
Private m_PriceTotal As Double
Private ReadOnly Property colBasketItems() As helperclasses.BasketItems
Get
If Session("colBasketItems") Is Nothing Then
Return Nothing
Else
Return CType(Session("colBasketItems"), helperclasses.BasketItems)
End If
End Get
End Property
Protected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Master.BasketControl.Visible = False
If Me.IsPostBack Then Exit Sub
LoadMasterData()
End Sub
Private Sub LoadMasterData()
If colBasketItems Is Nothing OrElse (Not CBool(colBasketItems.Count)) Then
If Session("EventId") Is Nothing OrElse (Not
IsNumeric(Session("EventId"))) Then Exit Sub
Response.Redirect("~/BookingSteps/EventBookStep1.aspx?id=" &
Session("EventId").ToString)
Exit Sub
End If
Dim dsBasketItems As New DataSet
With dsBasketItems
.Tables.Add("BasketItems")
With .Tables(0).Columns
.Add("EventName", GetType(String))
.Add("VenueName", GetType(String))
.Add("EventDate", GetType(String))
.Add("EventID", GetType(Integer))
.Add("D13_D05_IDs", GetType(String))
End With
End With
For Each colTickets As helperclasses.Tickets In colBasketItems
Dim dr As DataRow = dsBasketItems.Tables(0).NewRow
With colTickets
dr("EventName") = .EventName
dr("VenueName") = .VenueName
dr("EventDate") = String.Format("{0:dd\/MM\/yyyy - HH:mm}",
..EventDate)
dr("EventID") = .EventID
dr("D13_D05_IDs") = .D13_D05_IDs
End With
dsBasketItems.Tables(0).Rows.Add(dr)
Next
If Not CBool(dsBasketItems.Tables(0).Rows.Count) Then
InfoLabel1.InnerHtml = "Δεν βÏÎθηκαν δεδομÎνα."
Exit Sub
End If
lstTicketsInfo.DataSource = dsBasketItems
lstTicketsInfo.DataBind()
txtQuantityTotal.Value = m_QuantityTotal.ToString
txtPriceTotal.Value = String.Format("{0:##,##0.00;(##,##0.00);0}",
m_PriceTotal)
End Sub
Protected Sub lstTicketsInfo_ItemDataBound(ByVal sender As Object, ByVal e
As System.Web.UI.WebControls.DataListItemEventArgs) Handles
lstTicketsInfo.ItemDataBound
gvBasket = CType(e.Item.FindControl("gvBasket"),
System.Web.UI.WebControls.GridView)
LoadDetailData(gvBasket, _
CType(CType(e.Item.FindControl("lblEventID"),
Label).Text, Integer), _
CType(e.Item.FindControl("lblD13_D05_IDs"), Label).Text)
End Sub
Protected Sub lstTicketsInfo_ItemCreated(ByVal sender As Object, ByVal e
As System.Web.UI.WebControls.DataListItemEventArgs) Handles
lstTicketsInfo.ItemCreated
Dim gvInnerBasket As GridView = CType(e.Item.FindControl("gvBasket"),
GridView)
AddHandler gvInnerBasket.RowCommand, AddressOf gvBasket_RowCommand
End Sub
Private Sub LoadDetailData(ByRef gvBasket As GridView, ByVal nEventId As
Integer, ByVal sD13_D05_IDs As String)
Dim dsTickets As New DataSet
With dsTickets
.Tables.Add("Tickets")
With .Tables(0).Columns
.Add("Quantity", GetType(String))
.Add("Price", GetType(String))
.Add("Total", GetType(String))
.Add("EventID", GetType(Integer))
.Add("D13_D05_IDs", GetType(String))
.Add("E01_i03_id", GetType(Integer))
.Add("E01_index", GetType(Integer))
End With
End With
For Each ticket As helperclasses.Ticket In
colBasketItems(nEventId.ToString & "~" & sD13_D05_IDs)
Dim dr As DataRow = dsTickets.Tables(0).NewRow()
With ticket
dr("Price") = String.Format("{0:##,##0.00;(##,##0.00);0}", .Price +
..ServiceCharge)
If .Section = "" Then
dr("Quantity") = .E01_index.ToString
Else
dr("Quantity") = colBasketItems(nEventId.ToString & "~" &
sD13_D05_IDs).Count
End If
dr("Total") = String.Format("{0:##,##0.00;(##,##0.00);0}", (.Price +
..ServiceCharge) * .E01_index)
dr("EventID") = nEventId.ToString
dr("D13_D05_IDs") = sD13_D05_IDs
dr("E01_i03_id") = .E01_i03_id
dr("E01_index") = .E01_index
End With
dsTickets.Tables(0).Rows.Add(dr)
Next
If Not CBool(dsTickets.Tables(0).Rows.Count) Then
Exit Sub
End If
m_QuantitySubTotal = 0
m_PriceSubTotal = 0
gvBasket.DataSource = dsTickets
gvBasket.DataBind()
m_QuantityTotal += m_QuantitySubTotal
m_PriceTotal += m_PriceSubTotal
End Sub
Protected Sub gvBasket_RowDataBound(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.GridViewRowEventArgs) Handles gvBasket.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
m_QuantitySubTotal +=
CType(Val(CType(e.Row().FindControl("txtQuantity"), HtmlInputText).Value),
Integer)
m_PriceSubTotal +=
CType(Val(CType(e.Row().FindControl("lblTotalSingle"), Label).Text), Double)
ElseIf e.Row.RowType = DataControlRowType.Footer Then
CType(e.Row.FindControl("txtQuantityTotal"), HtmlInputText).Value =
m_QuantitySubTotal.ToString
CType(e.Row.FindControl("txtPriceTotal"), HtmlInputText).Value =
String.Format("{0:##,##0.00;(##,##0.00);0}", m_PriceSubTotal)
End If
End Sub
Protected Sub gvBasket_RowCommand(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.GridViewCommandEventArgs) Handles
gvBasket.RowCommand
If e.CommandName = "Delete" Then
colBasketItems(Split(e.CommandArgument.ToString,
"|")(0)).Remove(Split(e.CommandArgument.ToString, "|")(1))
LoadMasterData()
End If
End Sub
Protected Sub DeleteTicket(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.CommandEventArgs)
colBasketItems(Split(e.CommandArgument.ToString,
"|")(0)).Remove(Split(e.CommandArgument.ToString, "|")(1))
LoadMasterData()
End Sub
End Class
ataGrid ID="dgMyGrid" runat="server" AutoGenerateColumns="false"