Imports CAMS_BL
Imports System.Globalization

Public Class frmPrintQuery
    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"))
            dsResults = oCC_Case.GetQuerytoExport(DateIni, DateEnd, Request.QueryString("field"))
        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