Imports SysDataNet.Store
Imports System.Data.SqlClient

Public Class PaymentPage1
    Inherits System.Web.UI.Page
    Protected langId As Integer = 0
    Protected cartId As String = ""
    Protected strItemName As String = ""
    Protected strItemNumber As String = ""
    Protected intQuantity As Integer = 0
    Protected strFirstName As String = ""
    Protected strLastName As String = ""
    Protected strAddr1 As String = ""
    Protected strAddr2 As String = ""
    Protected strCity As String = ""
    Protected strPALState As String = ""
    Protected strZIP As String = ""
    Protected decGrandTotal As String = ""
    Protected strCurrencyCode As String = ""
    Protected strPALReturn As String = ""
    Protected strPALCancel As String = ""
    Protected PortalID As Integer = 0


    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        '---------------------
        ' Get CartID - BEGIN
        '---------------------
        Dim cart As StoreCartDB = New StoreCartDB
        cartId = cart.GetShoppingCartId()
        '---------------------
        ' Get CartID - END
        '---------------------

        '----------------------------------------
        ' Get the PortalID from CartID - Begin
        '----------------------------------------
        Dim LogDB As StoreDB = New StoreDB
        Dim drUploadDirectory As SqlDataReader = LogDB.GetPortalIDUploadDirectory(cartId, 0)
        While drUploadDirectory.Read
            PortalID = drUploadDirectory("PortalID")
        End While
        drUploadDirectory.Close()
        '----------------------------------------
        ' Get the PortalID from CartID - End
        '----------------------------------------


        '------------------------------------------------------------
        ' Get the TabID for CheckoutOK and Checkout Cancel - Begin
        '------------------------------------------------------------
        Dim SDN As StoreAdmin = New StoreAdmin
        Dim TabIDCheckoutOK As Integer = SDN.GetTabIDFromControlSRC(PortalID, "DesktopModules/SysDataNetStore/StoreCheckoutOK.ascx", 0)
        Dim TabIDCheckoutCancel As Integer = SDN.GetTabIDFromControlSRC(PortalID, "DesktopModules/SysDataNetStore/StoreCheckoutCancel.ascx", 0)
        '------------------------------------------------------------
        ' Get the TabID for CheckoutOK and Checkout Cancel - End
        '------------------------------------------------------------




        'Get the LangID
        If Not (Request.Params("langId") Is Nothing) Then
            langId = CInt(Request.Params("langId"))
        End If



        '---------------------------------
        ' Get the Items in Cart - Begin
        '---------------------------------
        Dim drItemCart As SqlDataReader = cart.GetItems(langId, cartId, 0)
        While drItemCart.Read
            strItemName = strItemName & CType(drItemCart("ModelName"), String) & " " & Trim(CType(drItemCart("Attributes"), String)) & " (" & CType(drItemCart("Quantity"), String) & ")" & "; "
        End While
        drItemCart.Close()
        '---------------------------------
        ' Get the Items in Cart - End
        '---------------------------------




        '---------------------------------------------------
        ' Need the Total and the Customer Details - Begin
        '---------------------------------------------------
        Dim CustDetails As StoreDB = New StoreDB
        Dim drCustDetails As SqlDataReader = CustDetails.GetTempCustDetails(cartId, 0)

        While drCustDetails.Read

            strFirstName = drCustDetails("BName")
            strLastName = drCustDetails("BSurname")
            strAddr1 = drCustDetails("BAddr1")
            strAddr2 = drCustDetails("BAddr2")
            strCity = drCustDetails("BCity")
            strPALState = drCustDetails("BStateCode")
            strZIP = drCustDetails("BZIP")
            decGrandTotal = Format(CType(drCustDetails("GrandTotal"), Decimal), "###,###,##0.00")

            strCurrencyCode = drCustDetails("Currency")

        End While
        drCustDetails.Close()
        '---------------------------------------------------
        ' Need the Total and the Customer Details - Begin
        '---------------------------------------------------


        '----------------------------------------------------
        ' Set the url for Return Page OK and Cancel - Begin
        '----------------------------------------------------
        Dim Setting As StoreDB = New StoreDB
        Dim strURLHome As String = Setting.GetSettingString(PortalID, "url_home", 0)
        strPALReturn = strURLHome & "/Default.aspx?TabID=" & TabIDCheckoutOK & "&langID=" & langId
        strPALCancel = strURLHome & "/Default.aspx?TabID=" & TabIDCheckoutCancel & "&langID=" & langId
        '----------------------------------------------------
        ' Set the url for Return Page OK and Cancel - End
        '----------------------------------------------------



    End Sub

End Class