Partial Class Admin_supplier_reports
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("AdminID") Is Nothing Then
            Response.Redirect("AdminLogin.aspx?sesn=expire")
            Exit Sub
        End If
        If Not IsPostBack Then
            If Session("AdminID") = Nothing Then
                Response.Redirect("AdminLogin.aspx")
            End If
            g_User = Session("g_User").ToString
            g_Company = Session("g_Company").ToString
            g_FinYear = Session("g_FinYear").ToString()
        End If
        lblError.Text = ""
    End Sub


    Protected Sub btnReport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReport.Click
        If rblReports.SelectedIndex < 0 Then
            lblError.Text = "Select Report Type."
        ElseIf rblReports.SelectedValue = "0" Then
            lblError.Text = ""
            Response.Redirect("supplierwiseproducts.aspx")
        ElseIf rblReports.SelectedValue = "1" Then
            lblError.Text = ""
            Response.Redirect("categorywisesupplier.aspx")
        ElseIf rblReports.SelectedValue = "2" Then
            lblError.Text = ""
            Response.Redirect("category-wise-product.aspx")
        ElseIf rblReports.SelectedValue = "3" Then
            lblError.Text = ""
            Response.Redirect("supplierwiseproductinfo.aspx")
        ElseIf rblReports.SelectedValue = "4" Then
            lblError.Text = ""
            Response.Redirect("productupdatehistory.aspx")
        ElseIf rblReports.SelectedValue = "5" Then
            lblError.Text = ""
            Response.Redirect("registeredcategorywisesuppliers.aspx")
        ElseIf rblReports.SelectedValue = "6" Then
            lblError.Text = ""
            Response.Redirect("SupplierUpdateHistory.aspx")
        End If
    End Sub

  
End Class