Imports System
Imports System.Data
Partial Class Admin_supplierwiseproducts
    Inherits System.Web.UI.Page
    Shared kid As String
    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")
            g_FinYear = Session("g_FinYear")
            Dim dt As New DataTable
            dt = ReturnDataTable("SELECT Supplier_Master.* FROM Supplier_Master WHERE supplier_Approved = 'Y' AND Supplier_IsDeleted = '0' order by supplier_name")
            gvSpplier.Columns(0).Visible = True
            gvSpplier.DataSource = dt
            gvSpplier.DataBind()
            gvSpplier.Columns(0).Visible = False
            gvProduct.Visible = False
            lblProduct.Visible = False
        End If
    End Sub
    Protected Sub btnDetails_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim b As Button
        b = sender
        kid = b.CommandArgument
        Dim dt As DataTable
        dt = ReturnDataTable("Select * From Product_Master Where Product_SupplierId = '" & RemoveLiterals(kid.ToString.Trim) & "'and Product_IsDeleted = '0' and Product_Approved = 'Y' order by Product_name")
        If dt.Rows.Count <> 0 Then
            gvProduct.Visible = True
            lblProduct.Visible = True
            gvProduct.Columns(0).Visible = True
            gvProduct.DataSource = dt
            gvProduct.DataBind()
            gvProduct.Columns(0).Visible = False
            lblProduct.Text = ReturnValue("Select Supplier_Name from Supplier_Master where Supplier_Kid = '" & RemoveLiterals(kid.ToString.Trim) & "'and Supplier_IsDeleted = '0'") & " has " & dt.Rows.Count & " Products. "
        Else
            gvProduct.Visible = False
            lblProduct.Visible = True
            lblProduct.Text = ReturnValue("Select Supplier_Name from Supplier_Master where Supplier_Kid = '" & RemoveLiterals(kid.ToString.Trim) & "'and Supplier_IsDeleted = '0'") & " Has No Any Approved Products."
        End If
    End Sub

    
    Protected Sub gvSpplier_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvSpplier.PageIndexChanging
        gvSpplier.PageIndex = e.NewPageIndex
        Dim dt As New DataTable
        dt = ReturnDataTable("SELECT Supplier_Master.* FROM Supplier_Master WHERE supplier_Approved = 'Y' AND Supplier_IsDeleted = '0'")
        gvSpplier.Columns(0).Visible = True
        gvSpplier.DataSource = dt
        gvSpplier.DataBind()
        gvSpplier.Columns(0).Visible = False
        gvProduct.Visible = False
        lblProduct.Visible = False
    End Sub

    Protected Sub gvProduct_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvProduct.PageIndexChanging
        gvProduct.PageIndex = e.NewPageIndex
        Dim dt As DataTable
        dt = ReturnDataTable("Select * From Product_Master Where Product_SupplierId = '" & RemoveLiterals(kid.ToString.Trim) & "'and Product_IsDeleted = '0' and Product_Approved = 'Y'")
        gvProduct.Columns(0).Visible = True
        gvProduct.DataSource = dt
        gvProduct.DataBind()
        gvProduct.Columns(0).Visible = False
    End Sub
End Class