Imports System.Data
Imports System.Data.SqlClient
Imports ModCommon

Partial Class Admin_suppwisetotalreport
    Inherits System.Web.UI.Page

#Region "Events"

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Try
            If Session("AdminID") Is Nothing Then
                Response.Redirect("AdminLogin.aspx?sesn=expire")
                Exit Sub
            End If
            If Page.IsPostBack = False Then

                If Session("AdminID") = Nothing Then
                    Response.Redirect("AdminLogin.aspx")
                End If

                GridData()

            End If
        Catch ex As Exception

        End Try

    End Sub

    'Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
    '    Try
    '        GridView1.PageIndex = e.NewPageIndex
    '        GridData()
    '    Catch
    '    End Try

    'End Sub

    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim lnkButton As LinkButton
        lnkButton = CType(sender, LinkButton)

        Response.Redirect("../suppliers/List_Product.aspx?Kid=" & lnkButton.CommandArgument.ToString)
    End Sub

#End Region

#Region "Methods"

    Public Sub GridData()
        Try
            Dim con As New SqlConnection
            con.ConnectionString = ConfigurationManager.AppSettings("ConnectionString")
            con.Open()

            'Dim commandString As String = "SELECT Supplier_Master.Supplier_Name, COUNT(Product_Master.Product_Name) AS 'Total Product' FROM Product_Master INNER JOIN Supplier_Master ON Product_Master.Product_SupplierId = Supplier_Master.Supplier_Kid GROUP BY Supplier_Master.Supplier_Name"

            Dim myCommand As New SqlCommand
            myCommand.CommandType = CommandType.StoredProcedure
            myCommand.CommandText = "SupplierProductTotal"
            myCommand.Connection = con
            'myCommand = New SqlCommand(commandString, con)

            Dim myAdapter As New SqlDataAdapter
            myAdapter.SelectCommand = myCommand

            Dim myDataSet As New DataSet
            myAdapter.Fill(myDataSet, "ProdTotal")

            Dim dt As DataTable = myDataSet.Tables("ProdTotal")
            'Dim Id As DataColumn = dt.Columns.Add("SrNo", GetType(Integer))

            'dt.PrimaryKey = New DataColumn() {Id}
            'dt.Columns("SrNo").AutoIncrement = True
            'dt.Columns("SrNo").AutoIncrementSeed = 1
            'Dim i As Integer = 1
            'For Each dr As DataRow In dt.Rows
            '    dr("SrNo") = i
            '    i = i + 1
            'Next
            Dim j As Integer = dt.Rows.Count
            If j > 0 Then
                Label1.Visible = True
                Label1.Text = j & " Supplier's Found."
            Else
                Label1.Text = ""
                Label1.Visible = False
            End If
            Dim dt1 As DataTable = dt

            'dt.Columns.Add(SrNo)

            GridView1.DataSource = dt
            GridView1.DataBind()

            con.Close()
        Catch
        End Try
    End Sub

#End Region

    'Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    '    Dim lnkButton As LinkButton
    '    lnkButton = CType(sender, LinkButton)

    '    Dim path As String = "suppwiseviewreport.aspx?Kid=" & lnkButton.CommandArgument.ToString
    '    'Dim strScript As String = "<script language='javascript'>window.open('" & path & "');</script>"
    '    'RegisterClientScriptBlock("runScript", strScript)
    '    ' Response.Redirect("suppwiseviewreport.aspx?Kid=" & lnkButton.CommandArgument.ToString)
    '    If (Not ClientScript.IsStartupScriptRegistered("strkey")) Then
    '        ScriptManager.RegisterStartupScript(Me, Me.GetType, "strkey", "window.open('" & path & "')", True)
    '    End If
    'End Sub

End Class