Imports CAMS_ADMIN
Imports CAMS_BL
Imports System.Data
Imports System.Text

Public Class frmPrintSClient
    Inherits CAMSBasePage

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents lblPrintDate As System.Web.UI.WebControls.Label
    Protected WithEvents dgResults As System.Web.UI.WebControls.DataGrid
    Protected WithEvents lblUser As System.Web.UI.WebControls.Label
    Protected WithEvents lblSurname As System.Web.UI.WebControls.Label
    Protected WithEvents lblName As System.Web.UI.WebControls.Label
    Protected WithEvents lblApplNIN As System.Web.UI.WebControls.Label
    Protected WithEvents lblAddress As System.Web.UI.WebControls.Label
    Protected WithEvents lblPostcode As System.Web.UI.WebControls.Label
    Protected WithEvents lblGender As System.Web.UI.WebControls.Label
    Protected WithEvents lblReligion As System.Web.UI.WebControls.Label
    Protected WithEvents lblAge As System.Web.UI.WebControls.Label
    Protected WithEvents lblVisitedIni As System.Web.UI.WebControls.Label
    Protected WithEvents lblVisitedFin As System.Web.UI.WebControls.Label
    Protected WithEvents lblOYThan As System.Web.UI.WebControls.Label
    Protected WithEvents lblMoreLessThan As System.Web.UI.WebControls.Label
    Protected WithEvents lblSavingAmount As System.Web.UI.WebControls.Label
    Protected WithEvents lblWPension As System.Web.UI.WebControls.Label
    Protected WithEvents lblWPensioCredit As System.Web.UI.WebControls.Label
    Protected WithEvents lblWOP As System.Web.UI.WebControls.Label
    Protected WithEvents lblWOI As System.Web.UI.WebControls.Label
    Protected WithEvents lblWIS As System.Web.UI.WebControls.Label

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private strDateFormat As String = "dd/MM/yyyy HH:mm"
    Private strSymbol As String

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dgResults.Columns(13).HeaderText = "S&gt;Amount"
        dgResults.Columns(14).HeaderText = "S&lt;Amount"

        FillReport()

        Response.ContentType = "application/vnd.ms-excel"
        Response.Charset = ""
        Response.AppendHeader("content-disposition", "attachment; filename=ClientListing.xls")
        Me.EnableViewState = False
    End Sub

    Private Sub FillReport()
        Dim oCC_Client As New CC_Client
        Dim dsResults As DataSet
        Dim oUser As EC_User = Me.GetUserFromSession
        Dim oParams As SearchClientParameters = CType(Session("SClientParams"), SearchClientParameters)

        If Not oUser Is Nothing Then
            lblUser.Text = oUser.Name & " " & oUser.Surname
        End If

        lblPrintDate.Text = Now.ToString(strDateFormat)
        strSymbol = ConfigurationSettings.AppSettings("Symbol")

        If Not oParams Is Nothing Then
            lblSurname.Text = oParams.Surname
            lblName.Text = oParams.Name
            lblApplNIN.Text = oParams.ApplNin
            lblAddress.Text = oParams.Address
            lblPostcode.Text = oParams.Postcode
            lblGender.Text = oParams.GenderLabel
            lblReligion.Text = oParams.ReligionLabel
            lblOYThan.Text = oParams.OYThanLabel
            lblAge.Text = oParams.Age
            lblVisitedIni.Text = oParams.IniDVisited
            lblVisitedFin.Text = oParams.FinDVisited
            lblMoreLessThan.Text = oParams.SavingLabel
            lblSavingAmount.Text = oParams.SavAmount
            lblWPension.Text = oParams.WPension
            lblWPensioCredit.Text = oParams.WPenCred
            lblWOP.Text = oParams.WOCCPen
            lblWOI.Text = oParams.WOthInc
            lblWIS.Text = oParams.WIncSup

            Try
                With oParams
                    dsResults = oCC_Client.GetClients(0, 0, .Surname, .Name, .ApplNin, .Address, _
                                                    .Postcode, .Gender, .Religion, .OYThan, .Age, .IniDVisited, _
                                                    .FinDVisited, .Saving, .SavAmount, .WPension, .WOCCPen, .WIncSup, _
                                                    .WPenCred, .WOthInc)
                End With
            Catch ex As Exception
                dsResults = Nothing
            Finally
                dgResults.DataSource = dsResults
                dgResults.DataBind()
            End Try

        End If

    End Sub

    Private Sub dgResults_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dgResults.ItemDataBound
        If e.Item.ItemType <> ListItemType.Header Then
            Dim drv As DataRowView = e.Item.DataItem

            If Not drv Is Nothing Then
                e.Item.Cells(2).Text = "&nbsp;" & drv("APPLIDN")
                e.Item.Cells(13).Text = String.Format("{0:#,###.00}", drv("MOREAMOUNT"))
                e.Item.Cells(14).Text = String.Format("{0:#,###.00}", drv("LESSAMOUNT"))
            End If

        End If

    End Sub

End Class