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

Public Class frmExportCases
    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

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object
    Protected WithEvents txtYearEnd As System.Web.UI.WebControls.TextBox
    Protected WithEvents chkRemPerInfo As System.Web.UI.WebControls.CheckBox
    Protected WithEvents chkRemIDNumber As System.Web.UI.WebControls.CheckBox
    Protected WithEvents btnCancel As System.Web.UI.WebControls.Button
    Protected WithEvents txtYearIni As System.Web.UI.WebControls.TextBox
    Protected WithEvents ddlQuarter As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ddlStatus As System.Web.UI.WebControls.DropDownList
    Protected WithEvents btnExport As System.Web.UI.HtmlControls.HtmlInputButton
    Protected WithEvents mnuCams As Menu

    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 Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Access Validation to page
        If Not Me.IsPostBack Then
            Dim oEC_User As EC_User = Me.GetUserFromSession

            If Not oEC_User Is Nothing Then
                If Me.HasAccessTo(Me.GetControlID("frmExportCases.aspx"), oEC_User.AccessGroup) = False Then
                    Me.RedirectToMsgPage(Constants.CONST_ERROR_ACCESSDENIED_TOPAGE)
                End If
            End If

        End If
        'End Access Validation

        mnuCams.CurrentGroup = Constants.MENU_SPREADSHEET_ID
        mnuCams.CurrentItem = Constants.MENU_SPREADSHEET_EXPORT_ID
        LoadControls()
        DefaultControlValue()
        Me.txtYearIni.Attributes.Add("onKeyPress", "fnOnlyDigits(event,'decNO')")
        Me.txtYearEnd.Attributes.Add("onKeyPress", "fnOnlyDigits(event,'decNO')")
        txtYearIni.Attributes.Add("onblur", "ValidateYear()")
        txtYearEnd.Attributes.Add("onblur", "ValidateYear()")

        'Added by Raul Callupe
        If Me.IsPostBack = False Then
            Dim stbOutput As New StringBuilder
            stbOutput.Append("<script language='Javascript'>")
            stbOutput.Append("var pag = window.parent.frames(0);")
            stbOutput.Append("pag.document.all.lblPath.innerHTML='Spreadsheet/Export'")
            stbOutput.Append("</script>")
            Response.Write(stbOutput.ToString)
        End If
        'End Added

    End Sub

    Private Sub LoadControls()
        Dim oCC_Case As New CC_Case
        Dim dsData As DataSet
        Try
            dsData = oCC_Case.GetDataForControls
            If Not dsData Is Nothing Then
                Util.FillDropDownList(dsData.Tables("STATUS").DefaultView, ddlStatus, "IDSEQUENCE", "STATUS", True, "All")
                Util.FillDropDownList(dsData.Tables("QUARTERS").DefaultView, ddlQuarter, "IDSEQUENCE", "IDSEQUENCE", True, "All")
            End If
        Catch
        End Try
    End Sub


    Private Sub DefaultControlValue()

        Me.txtYearIni.Text = Date.Today.Year
        Me.txtYearEnd.Text = Date.Today.Year + 1

        If ddlQuarter.Items.Count > 0 Then
            If Date.Today.Month.ToString >= 4 And Date.Today.Month.ToString <= 6 Then
                Util.SelectValueFromDropDown(ddlQuarter, "Q1")
            ElseIf Date.Today.Month.ToString >= 7 And Date.Today.Month.ToString <= 9 Then
                Util.SelectValueFromDropDown(ddlQuarter, "Q2")
            ElseIf Date.Today.Month.ToString >= 8 And Date.Today.Month.ToString <= 12 Then
                Util.SelectValueFromDropDown(ddlQuarter, "Q3")
            ElseIf Date.Today.Month.ToString >= 1 And Date.Today.Month.ToString <= 3 Then
                Util.SelectValueFromDropDown(ddlQuarter, "Q4")
                Me.txtYearIni.Text = Date.Today.Year - 1
                Me.txtYearEnd.Text = Date.Today.Year
            End If
        End If
    End Sub



    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.RedirectToHome()
    End Sub
End Class