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

#Region "Events"

    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
            fillcombo()
            ScriptManager.GetCurrent(Me).SetFocus(txtCode)
        End If
    End Sub

    Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        Try
            Dim dtVal As New DataTable
            Dim sqlCmd As New SqlCommand
            Dim adp As SqlDataAdapter
            Dim sqlCon As SqlConnection
            sqlCon = New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
            sqlCon.Open()
            With sqlCmd
                .CommandText = "Sp_QualityCheck"
                .CommandType = Data.CommandType.StoredProcedure
                .Connection = sqlCon
                .Parameters.AddWithValue("@Mode", "Select_ProductKid_FromCode")
                .Parameters.AddWithValue("@CompanyId", Session("g_Company").ToString)
                .Parameters.AddWithValue("@Product_Code", txtCode.Text.Trim.ToString)
            End With
            adp = New SqlDataAdapter(sqlCmd)
            adp.Fill(dtVal)
            If dtVal.Rows.Count > 0 Then
                sqlCmd = New SqlCommand
                With sqlCmd
                    .CommandText = "Sp_QualityCheck"
                    .CommandType = Data.CommandType.StoredProcedure
                    .Connection = sqlCon
                    .Parameters.AddWithValue("@Mode", "Insert")
                    .Parameters.AddWithValue("@FormName", Me.Title)
                    .Parameters.AddWithValue("@Remarks", "")
                    .Parameters.AddWithValue("@QC_KID", NewPrimaryKey(Me))
                    .Parameters.AddWithValue("@QC_Flag", "C")
                    .Parameters.AddWithValue("@QC_MentorID", Session("g_User").ToString)
                    .Parameters.AddWithValue("@QC_PEID", ddlPE.SelectedValue.ToString)
                    .Parameters.AddWithValue("@QC_ProductId", dtVal.Rows(0).Item("Product_Kid").ToString)
                    .Parameters.AddWithValue("@QC_Remarks", txtRemarks.Text.Trim.ToString)
                    .Parameters.AddWithValue("@QC_Status", "Pending")
                    .Parameters.AddWithValue("@QC_EntryDate", DateTime.Now)
                    .ExecuteNonQuery()
                End With
                CreateMessageAlert(Me, "Product Sent to selected PE For Correction..", "StrKeyVal")
                txtCode.Text = ""
                ddlPE.ClearSelection()
                txtRemarks.Text = ""
                ScriptManager.GetCurrent(Me).SetFocus(txtCode)
            Else
                CreateMessageAlert(Me, "Product Doesnot Exist..", "StrKeyVal")
                txtCode.Text = ""
                ddlPE.ClearSelection()
                txtRemarks.Text = ""
                ScriptManager.GetCurrent(Me).SetFocus(txtCode)
            End If
        Catch ex As Exception

        End Try
    End Sub

#End Region

#Region "Methods"

    Protected Sub fillcombo()
        Try
            Dim dt As DataTable
            dt = ReturnDataTable("SELECT AdminUser_Kid, AdminUser_Name FROM AdminUser WHERE (AdminUser_IsDeleted = N'0') AND (AdminUser_ReportingTo = N'" + Session("g_User").ToString + "') Order By AdminUser_Name")
            ddlPE.DataSource = dt
            ddlPE.DataTextField = "AdminUser_Name"
            ddlPE.DataValueField = "AdminUser_Kid"
            ddlPE.DataBind()
            ddlPE.Items.Insert(0, New ListItem("Select", "0"))
        Catch ex As Exception
        End Try
    End Sub

#End Region

  
   
End Class