Imports System
Imports System.Data
Imports System.Data.SqlClient
Partial Class Admin_PEBackward
    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
            fillgrid()
            tblBackWardDetails.Visible = False
        End If
    End Sub
    Public Sub fillgrid()
        Try
            Dim dt As New DataTable
            Dim sqlCmd As New SqlCommand
            Dim sqlCon As SqlConnection
            Dim adp As SqlDataAdapter
            sqlCon = New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
            sqlCon.Open()
            With sqlCmd
                .CommandText = "Sp_QualityCheck"
                .CommandType = Data.CommandType.StoredProcedure
                .Connection = sqlCon
                .Parameters.AddWithValue("@Mode", "Select_PEBackwardProduct")
                .Parameters.AddWithValue("@CompanyId", Session("g_Company").ToString)
                .Parameters.AddWithValue("@QC_Flag", "B")
                .Parameters.AddWithValue("@PEId", Session("AdminID").ToString)
            End With
            adp = New SqlDataAdapter(sqlCmd)
            adp.Fill(dt)
            gvProduct.DataSource = dt
            gvProduct.DataBind()
        Catch ex As Exception
        End Try
    End Sub
    Protected Sub gvProduct_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvProduct.SelectedIndexChanged
        Dim strQCKID As String
        strQCKID = gvProduct.SelectedDataKey.Value
        tblBackWardDetails.Visible = True
        Dim dt As New DataTable
        Dim sqlCmd As New SqlCommand
        Dim sqlCon As SqlConnection
        Dim adp As SqlDataAdapter
        sqlCon = New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
        sqlCon.Open()
        With sqlCmd
            .CommandText = "Sp_QualityCheck"
            .CommandType = Data.CommandType.StoredProcedure
            .Connection = sqlCon
            .Parameters.AddWithValue("@Mode", "Select_QCMaster")
            .Parameters.AddWithValue("@CompanyId", Session("g_Company").ToString)
            .Parameters.AddWithValue("@QC_KID", RemoveLiterals(strQCKID.ToString))
        End With
        adp = New SqlDataAdapter(sqlCmd)
        adp.Fill(dt)
        lblSupplierName.Text = dt.Rows(0).Item("Supplier_Name").ToString
        lblProductName.Text = dt.Rows(0).Item("Product_Name").ToString
        lblRemarks.Text = dt.Rows(0).Item("QC_Remarks").ToString
        rblStatus.SelectedValue = dt.Rows(0).Item("QC_Status").ToString
        If dt.Rows(0).Item("QC_Status").ToString = "Pending" Then
            BtnSave.Visible = True
            BtnMakeCorrection.Visible = True
        Else
            BtnSave.Visible = False
            BtnMakeCorrection.Visible = False
        End If
        'Dim dtBackDetails As DataTable
        'dtBackDetails = ReturnDataTable("Select * from QC_Master where QC_KID='" & RemoveLiterals(strQCKID.ToString) & "'")
        'lblSupplierName.Text=ReturnValue("Select Supplier_Name from Supplier_Master where Supplier_KId='"& dtBackDetails.Rows(0).Item("") &"'")
        BtnMakeCorrection.Attributes.Add("onclick", "return OpenForm('" & RemoveLiterals(dt.Rows(0).Item("Product_KId")) & "');")

        strQCKID = ""
    End Sub
    Protected Sub BtnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSave.Click
        tblBackWardDetails.Visible = False
        If rblStatus.SelectedValue = "Solved" Then
            ExecuteQuery("update QC_Master set QC_Status='Solved', QC_SolvedDate='" & DateTime.Now.ToString & "' where QC_KID='" & RemoveLiterals(gvProduct.SelectedDataKey.Value.ToString) & "'")
            fillgrid()
            CreateMessageAlert(Me, "Status Changed Successfully.!!", "strkeyval")

        Else
        End If
    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
        fillgrid()
    End Sub
End Class