Imports System
Imports System.Data
Imports System.Data.SqlClient
Partial Class SupplierSummaryStatement
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("SupplierID") = Nothing Then
            Response.Redirect("supplier-transaction-login.aspx")
        End If

        If Not IsPostBack Then
            'Session("SupplierID") = "0000JJ["
            fillprdouctgrid()
        End If
    End Sub


    Function fillprdouctgrid()
        Dim str As String = "SELECT     SupplierInv.SupplierInv_SupplierDispatchProdDetailId as SupIv_Spdpd, SupplierProductInvoice.SupplierProductInvoice_ProductId as productid,  SupplierProductInvoice.SupplierProductInvoice_UnitPrice as price, SupplierProductInvoice.SupplierProductInvoice_Quantity as qty, SupplierInv.SupplierInv_NetAmount as netamt, SupplierInv.SupplierInv_No, convert(varchar(25),SupplierInv.SupplierInv_GenrateDate,103) as SupplierInv_GenrateDate , SupplierInv.SupplierInv_Kid,SupplierInv.SupplierInv_code , Product_Master.Product_Name as PName,SupplierProductInvoice.SupplierProductInvoice_Status as Status FROM  SupplierInv INNER JOIN   SupplierProductInvoice ON SupplierInv.SupplierInv_Kid = SupplierProductInvoice.SupplierProductInvoice_SupplierInvId INNER JOIN  Product_Master ON SupplierProductInvoice.SupplierProductInvoice_ProductId = Product_Master.Product_Kid where  Product_Master.Product_SupplierId='" & Session("SupplierID") & "'"
        gvProductDetails.Columns(1).Visible = True
        gvProductDetails.Columns(2).Visible = True
        gvProductDetails.Columns(0).Visible = True
        fillgridview(gvProductDetails, str)
        gvProductDetails.Columns(1).Visible = False
        gvProductDetails.Columns(2).Visible = False
        gvProductDetails.Columns(0).Visible = False
    End Function


    Function fillgridview(ByVal gv As GridView, ByVal str As String)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Dim da As New SqlDataAdapter(str, con)
        Dim ds As New DataSet
        da.Fill(ds)
        gv.DataSource = ds.Tables(0)
        gv.DataBind()
        con.Close()

    End Function

    Protected Sub gvProductDetails_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvProductDetails.PageIndexChanging
        gvProductDetails.PageIndex = e.NewPageIndex
        fillprdouctgrid()
    End Sub





  

End Class