Imports System.Collections.Generic
Imports CharterDotCom.CommonEntities.Library
Imports CharterDotCom.CommonEntities.Library.Enumerations
Imports CharterDotCom.CommonEntities.Library.EntityMemberServices
'Imports CharterDotCom.CommonEntities.Library.EntityEBSServices
Imports CharterDotCom.CommonEntities.Library.EntitySupport
Imports CharterDotCom.CommonEntities.Library.EntitySearch
Imports CharterDotCom.CommonEntities.Library.EntityWebConfig
'Imports CharterDotCom.CommonEntities.Library.EntityG2BServices
Imports CharterDotCom.CommonEntities.Library.Common
Imports CharterDotCom.WebSite.Library

Namespace Charter.Website.UI
  Partial Class Controls_BillSummary
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
			Dim _account As IAccount
			Dim _bills As List(Of IAccount.IBill)

			pnlCsg.Visible = False
			pnlIcoms.Visible = False

			_account = AccountManager.Instance.GetAccount()
			_bills = AccountManager.Instance.GetAccount().Bill

			'If _account.BillingVendorType = BillingVendorType.CSG Then
			'	rprCsg.DataSource = _bills
			'	rprCsg.DataBind()
			'	pnlCsg.Visible = True
			'ElseIf _account.BillingVendorType = BillingVendorType.ICOM Then
			'	rprIcom.DataSource = _bills
			'	rprIcom.DataBind()
			'	pnlIcoms.Visible = True
			'End If
		End Sub

		'Protected Sub rprCsg_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs) Handles rprCsg.ItemCommand
		'	If e.CommandName = "Select" Then

		'	End If
		'End Sub

		'Protected Sub rprIcom_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs) Handles rprIcom.ItemCommand
		'	If e.CommandName = "Select" Then

		'	End If
		'End Sub

		'Protected Sub btnPayBillCsg_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPayBillCsg.Click
		'	Dim Params As String = PrepareParams(QuickPayMode.Csg)
		'	Response.Redirect("QuickPay.aspx" + "?" + Params)
		'End Sub

		'Protected Sub btnPayBillIcoms11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPayBillIcoms11.Click
		'	Dim Params As String = PrepareParams(QuickPayMode.Icoms1)
		'	Response.Redirect("QuickPay.aspx" + "?" + Params)
		'End Sub

		'Protected Sub btnPayBillIcoms2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPayBillIcoms2.Click
		'	Dim Params As String = PrepareParams(QuickPayMode.Icoms2)
		'	Response.Redirect("QuickPay.aspx" + "?" + Params)
		'End Sub

		'Protected Sub btnPayBoth_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPayBoth.Click
		'	Dim Params As String = PrepareParams(QuickPayMode.IcomsBoth)
		'	Response.Redirect("QuickPay.aspx" + "?" + Params)
		'End Sub

		'Private Function PrepareParams(ByVal Mode As QuickPayMode) As String
		'	Dim _membership As New Membership()
		'	Dim _billSummary As BillSummary
		'	Dim Balance As String
		'	Dim DueDate As String
		'	_membership = New Membership()
		'	_billSummary = _membership.GetBillSummary(MemberID)
		'	DueDate = _billSummary.DueDate.ToString("d")
		'	Balance = ""
		'	Select Case Mode
		'		Case QuickPayMode.Csg
		'			Balance = _billSummary.Balance1.ToString()
		'		Case QuickPayMode.Icoms1
		'			Balance = _billSummary.Balance1.ToString()
		'		Case QuickPayMode.Icoms2
		'			Balance = _billSummary.Balance2.ToString()
		'		Case QuickPayMode.IcomsBoth
		'			Balance = (_billSummary.Balance1 + _billSummary.Balance2).ToString()
		'	End Select
		'	Return QueryStringName.AmountDue + "=" + Balance + "&" + QueryStringName.DueDate + "=" + DueDate
		'End Function
	End Class
End Namespace