Imports CAMS_BL
Imports System.Globalization

Public Class frmPrintExportCases
    Inherits System.Web.UI.Page

#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 lblYearIni As System.Web.UI.WebControls.Label
    Protected WithEvents lblYearEnd As System.Web.UI.WebControls.Label
    Protected WithEvents lblQuarter As System.Web.UI.WebControls.Label
    Protected WithEvents lblStatus As System.Web.UI.WebControls.Label
    Protected WithEvents lblDatetime As System.Web.UI.WebControls.Label
    Protected WithEvents dgResults As System.Web.UI.WebControls.DataGrid

    '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"


    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.lblDatetime.Text = Now.ToString
        Me.lblYearIni.Text = Request.QueryString("yearini").ToString
        Me.lblYearEnd.Text = Request.QueryString("yearend").ToString
        Me.lblStatus.Text = Request.QueryString("status").ToString
        Me.lblQuarter.Text = Request.QueryString("quarter").ToString

        GetExportCases()

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

    Private Sub GetExportCases()
        Dim oCC_Case As New CC_Case
        Dim dsResults As DataSet
        Dim i As Integer
        Dim DateIni, DateEnd As String

        If (Request.QueryString("quarter").ToString = "Q1") Then
            DateIni = "01/04/" & Request.QueryString("yearini").ToString
            DateEnd = "30/06/" & Request.QueryString("yearini").ToString
        ElseIf (Request.QueryString("quarter").ToString = "Q2") Then
            DateIni = "01/07/" & Request.QueryString("yearini").ToString
            DateEnd = "30/09/" & Request.QueryString("yearini").ToString
        ElseIf (Request.QueryString("quarter").ToString = "Q3") Then
            DateIni = "01/10/" & Request.QueryString("yearini").ToString
            DateEnd = "31/12/" & Request.QueryString("yearini").ToString
        ElseIf (Request.QueryString("quarter").ToString = "Q4") Then
            DateIni = "01/01/" & Request.QueryString("yearend").ToString
            DateEnd = "31/03/" & Request.QueryString("yearend").ToString
        Else
            DateIni = "01/04/" & Request.QueryString("yearini").ToString
            DateEnd = "31/03/" & Request.QueryString("yearend").ToString
        End If

        Try
            dsResults = oCC_Case.GetCasestoExport(DateIni, DateEnd, Request.QueryString("status"))
        Catch ex As Exception
            dsResults = Nothing
        Finally
            dgResults.DataSource = dsResults
            dgResults.DataBind()

            If (Request.QueryString("remid").ToString = "true") Then
                Me.dgResults.Columns(0).Visible = False
            End If

            If (Request.QueryString("perinfo").ToString = "true") Then
                For i = 1 To 7
                    Me.dgResults.Columns(i).Visible = False
                    i = i + 1
                Next
            End If

        End Try


    End Sub
    Private Sub dgResults_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dgResults.ItemDataBound

        Dim drv As DataRowView = e.Item.DataItem
        If Request.QueryString("remid").ToString = "false" Then
            If e.Item.ItemType <> ListItemType.Header Then
                If Not drv Is Nothing Then
                    e.Item.Cells(0).Text = "&nbsp;" & drv("CaseID")
                End If
            End If
        Else
            e.Item.Cells(0).Visible = False
        End If

        If (Request.QueryString("perinfo").ToString = "true") Then
            e.Item.Cells(1).Visible = False
            e.Item.Cells(2).Visible = False
            e.Item.Cells(3).Visible = False
            e.Item.Cells(4).Visible = False
            e.Item.Cells(5).Visible = False
            e.Item.Cells(6).Visible = False
            e.Item.Cells(7).Visible = False
        End If
    End Sub

End Class