Imports System.Data.OleDb
Imports AcggDoc.Acgg.dbClass

Namespace Acgg
    Public Class ClCalendar
        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 Label9 As System.Web.UI.WebControls.Label
        Protected WithEvents lblError As System.Web.UI.WebControls.Label
        Protected WithEvents btnDay As System.Web.UI.WebControls.Button
        Protected WithEvents btnMonth As System.Web.UI.WebControls.Button
        Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
        Protected WithEvents Panel2 As System.Web.UI.WebControls.Panel
        Protected WithEvents lblDev As System.Web.UI.WebControls.Label
        Protected WithEvents cmbDevelopment As System.Web.UI.WebControls.DropDownList
        Protected WithEvents pnlTop As System.Web.UI.WebControls.Panel

        '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
        Dim DevID As Integer
        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'Put user code to initialize the page here
            If Not Page.IsPostBack Then
                BindDevCombo()
                DevID = cmbDevelopment.SelectedValue
                'If Session("DevId") = 0 Then
                'Session("DevId") = cmbDevelopment.SelectedValue
                'End If
            End If

            If (Session("state") = "calender" Or Session("state") = Nothing) And (Request.QueryString("state") <> "dayview") Then
                Me.Panel1.Visible = True
                Me.Panel2.Visible = False
            ElseIf (Session("state") = "dayview") Or (Request.QueryString("state") = "dayview") Then
                Me.Panel2.Visible = True
                Me.Panel1.Visible = False
            End If


            If Session("FromOrder") <> "True" Then
                Session("DevId") = cmbDevelopment.SelectedValue
            ElseIf Session("FromOrder") = "True" Then
                cmbDevelopment.ClearSelection()
                cmbDevelopment.Items.FindByValue(Session("DevId")).Selected = True
            End If
        End Sub
        Private Sub btnMonth_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMonth.Click
            Session("state") = "calender"
            Session("DevId") = cmbDevelopment.SelectedValue
            Me.Panel1.Visible = True
            Me.Panel2.Visible = False
        End Sub

        Private Sub btnDay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDay.Click
            Session("state") = "dayview"
            Session("DevId") = cmbDevelopment.SelectedValue
            Me.Panel1.Visible = False
            Me.Panel2.Visible = True
        End Sub
        Private Sub BindDevCombo()
            Dim objDBClass As New Acgg.dbClass
            Dim strQuery As String = "SELECT DevID,DevName FROM Developments union Select 0 as DevID,'All' as DevName FROM Developments"
            Try
                'objDBClass.strConn = sConnString
                objDBClass.OpenDB()
                cmbDevelopment.DataSource = objDBClass.retReader(strQuery)
                cmbDevelopment.DataMember = "DevId"
                cmbDevelopment.DataTextField = "DevName"
                cmbDevelopment.DataValueField = "DevId"
                cmbDevelopment.DataBind()
                objDBClass.CloseDB()
            Catch Exc As Exception
                'Label4.Text = "Error: " & Exc.Message
            Finally
                objDBClass = Nothing
            End Try
        End Sub

        Private Sub cmbDevelopment_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbDevelopment.SelectedIndexChanged
            DevID = cmbDevelopment.SelectedValue
            Session("DevId") = cmbDevelopment.SelectedValue
            Session("FromOrder") = "False"
        End Sub
    End Class
End Namespace