41-134-104-147.dsl.mweb.co.za/41-134-104-147.dsl.mweb.co.za.tar/41-134-104-147.dsl.mweb.co.za/transHistory.aspx.vb

Text File | 2010-08-24 | 5KB | 127 lines

Imports Microsoft.Web.Services3.Messaging
Imports Microsoft.Web.Services3
Imports Microsoft.Web.Services3.Addressing
Imports System.Net
Imports System.IO
Imports System.Xml
Imports Mercantile.PrimeServices

Partial Class transHistory
    Inherits System.Web.UI.Page
    Dim myFunctions As New Functions

    Protected Sub imgSubmit_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgSubmit.Click
        Dim fromYr As Integer = cmbFromYr.SelectedValue
        Dim fromMt As Integer = cmbFromMt.SelectedValue
        Dim fromDt As Integer = cmbFromDt.SelectedValue
        Dim toYr As Integer = cmbToYr.SelectedValue
        Dim toMt As Integer = cmbToMt.SelectedValue
        Dim toDt As Integer = cmbToDt.SelectedValue
        If fromDt > Date.DaysInMonth(fromYr, fromMt) Then fromDt = Date.DaysInMonth(fromYr, fromMt)
        If toDt > Date.DaysInMonth(toYr, toMt) Then toDt = Date.DaysInMonth(toYr, toMt)
        Dim fromDate As Date = New Date(fromYr, fromMt, fromDt)
        Dim toDate As Date = New Date(toYr, toMt, toDt)
        If Not fromDate > toDate Then
            Dim dFrom As String = fromDate.ToString("yyyy-MM-dd")
            Dim dTo As String = toDate.ToString("yyyy-MM-dd")
            'testMe()
            getTransHistory(dFrom, dTo)
        End If
    End Sub


    Private Sub getTransHistory(Optional ByVal dFrom As String = Nothing, Optional ByVal dTo As String = Nothing)
        Dim cardNumber As String = Request.Cookies("hcCNum").Value
        Dim failMe As Boolean = False
        Dim trxResponse As StatementInquiryResponse
        Try
            Dim prmServices As New PrimeServices
            Dim trxRequest As New StatementInquiryRequest()
            trxRequest.Header = New Header
            trxRequest.Header.MessageID = "trnTest"
            trxRequest.Content = Global.ContentType.Card
            trxRequest.DateFrom = dFrom
            trxRequest.DateTo = dTo
            trxRequest.Number = cardNumber
            trxRequest.Paging = New Paging
            trxRequest.Paging.Key = ""
            trxRequest.Paging.Size = 0
            trxRequest.Period = PeriodType.FromTo
            trxRequest.Reference = "C"

            trxresponse = prmServices.StatementInquiry(trxRequest)
            Dim stmtHeader As StatementHeaderEntity = trxResponse.StatementHeader
            Dim address As AddressEntity = stmtHeader.Address
            Dim transactions As New ArrayList
            For Each trx As TrxnEntity In trxResponse.Transaction
                For Each trxDet As TransactionDetailsEntity In trx.Details
                    transactions.Add(trxDet)
                Next
            Next
            lblError.Text = ""


            Dim myPaging As StatementHeaderEntity = trxResponse.StatementHeader
            If Not myPaging Is Nothing Then
                lblError.Text = myPaging.AccountNo
            Else
                lblError.Text = "No paging"
            End If
            If transactions.Count > 0 Then
                GridView1.DataSource = transactions
            Else
                GridView1.DataSource = Nothing
            End If
            GridView1.DataBind()
        Catch ex As Exception
            lblError.Text = trxResponse.Result.Description
            failMe = True
        End Try

    End Sub

    Protected Sub imgHome_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgHome.Click
        Response.Redirect("~/enquiries.aspx", True)
    End Sub

    Protected Sub imgLogout_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgLogout.Click
        If myFunctions.logout(Me.Context) Then Response.Redirect("~/Default.aspx", True)
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not myFunctions.testLogin(Me.Context) Then
            Response.Redirect("~/Default.aspx", True)
        Else
            myFunctions.logMe(Request.Cookies("hcUid").Value, "Transaction history")
        End If
        Dim startYear As Integer = Now.Year - 5
        While startYear <= Now.Year
            cmbFromYr.Items.Add(startYear)
            cmbToYr.Items.Add(startYear)
            startYear += 1
        End While
    End Sub

    Private Function buildXML() As String
        Dim xmlString As String = "<?xml version=""1.0"" encoding=""utf-8""?>"
        xmlString &= "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">"
        xmlString &= "<soap:Body>"
        xmlString &= "<EntityInquiry xmlns=""http://CTL.COM.SERVICES.PRIME.WebServices/PrimeServices"">"
        xmlString &= "<XMLRequest>"
        xmlString &= "<Paging>"
        xmlString &= "<Size>0</Size>"
        xmlString &= "<Key></Key>"
        xmlString &= "</Paging>"
        xmlString &= "<Entity>Card</Entity>"
        xmlString &= "<Reference>C</Reference>"
        xmlString &= "<Numbers>"
        xmlString &= "<Number>4503400000099388</Number>"
        xmlString &= "</Numbers>"
        xmlString &= "</XMLRequest>"
        xmlString &= "</EntityInquiry>"
        xmlString &= "</soap:Body>"
        xmlString &= "</soap:Envelope>"
        Return xmlString
    End Function
End Class