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

Partial Class Admin_supplier_update_reports
    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
            Fill_Combo("SELECT DISTINCT Supplier_Master.Supplier_Kid, Supplier_Master.Supplier_Name FROM         Supplier_Master INNER JOIN                       UserAccessRights ON Supplier_Master.Supplier_Kid = UserAccessRights.UserAccessRights_AdminUserId WHERE     (UserAccessRights.UserAccessRights_ModifyFlag = N'1')", ddlSupplierName)
            tblOld.Visible = False
            tblNew.Visible = False
            btnDelete.Attributes.Add("onclick", "return confirm('Are you sure you want to delete.?')")
            'Button1.Attributes.Add("onmouseover", "JTest(this)")
            'Button1.Attributes.Add("onmouseout", "JTest1(this)")
            Button1.Style.Add("visibility", "hidden")
        End If
        lblMSG.Visible = False


    End Sub

    Protected Sub ddlSupplierName_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlSupplierName.SelectedIndexChanged
        tblOld.Visible = False
        tblNew.Visible = False
        If ddlSupplierName.SelectedIndex > 0 Then
            Dim dt As New DataTable
            dt = ReturnDataTable("SELECT  Product_Master.Product_Name, Product_Master.Product_Code, Product_Master.Product_Kid, Product_Master.Product_ModelNo,                       Product_Master.Product_SupplierId, Product_Master.Product_IsDeleted, Product_Master.Product_Approved,             Product_Master_Temp.TProduct_SupplierId  FROM         Product_Master_Temp INNER JOIN Product_Master ON Product_Master_Temp.TProduct_ProductKid = Product_Master.Product_Kid WHERE     Product_Master.Product_IsDeleted = N'0' AND Product_Master.Product_Approved = N'N' AND Product_Master_Temp.TProduct_SupplierId = '" & RemoveLiterals(ddlSupplierName.SelectedItem.Value) & "'")
            gvSupplierProduct.DataSource = dt
            gvSupplierProduct.DataBind()
        Else
            gvSupplierProduct.DataSource = Nothing
            gvSupplierProduct.DataBind()
            showmessage("Plese Select Supplier Name.!", lblMSG)
        End If
    End Sub

    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        tblOld.Visible = True
        tblNew.Visible = True
        Dim lnk As LinkButton
        lnk = sender
        btnApprove.CommandArgument = lnk.CommandArgument
        btnDelete.CommandArgument = lnk.CommandArgument
        Dim dtOld As DataTable
        dtOld = ReturnDataTable("SELECT     Product_Master_Temp.*, Product_Master.* FROM Product_Master_Temp INNER JOIN Product_Master ON Product_Master_Temp.TProduct_ProductKid = Product_Master.Product_Kid where Product_Master_Temp.TProduct_ProductKID='" & lnk.CommandArgument & "'")
        If dtOld.Rows.Count > 0 Then
            lblOProductCode.Text = dtOld.Rows(0).Item("Product_Code")
            lblNProductCode.Text = dtOld.Rows(0).Item("Product_Code")
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_Name")) Then
                lblOProductName.ForeColor = Drawing.Color.Blue
                lblOProductName.Text = dtOld.Rows(0).Item("TProduct_Name").ToString
                lblNProductName.ForeColor = Drawing.Color.Red
                lblNProductName.Text = dtOld.Rows(0).Item("Product_Name").ToString
            Else
                lblNProductName.ForeColor = Drawing.Color.Black
                lblNProductName.Text = dtOld.Rows(0).Item("Product_Name").ToString
                lblOProductName.ForeColor = Drawing.Color.Black
                lblOProductName.Text = dtOld.Rows(0).Item("Product_Name").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_ModelNo")) Then
                lblOModelNo.ForeColor = Drawing.Color.Blue
                lblOModelNo.Text = dtOld.Rows(0).Item("TProduct_ModelNo").ToString
                lblNModelNo.ForeColor = Drawing.Color.Red
                lblNModelNo.Text = dtOld.Rows(0).Item("Product_ModelNo").ToString
            Else
                lblNModelNo.ForeColor = Drawing.Color.Black
                lblNModelNo.Text = dtOld.Rows(0).Item("Product_ModelNo").ToString
                lblOModelNo.ForeColor = Drawing.Color.Black
                lblOModelNo.Text = dtOld.Rows(0).Item("Product_ModelNo").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_Image")) Then
                lblOProductImage.ForeColor = Drawing.Color.Blue
                lblOProductImage.Text = dtOld.Rows(0).Item("TProduct_Image").ToString
                lblNProductImage.ForeColor = Drawing.Color.Red
                lblNProductImage.Text = dtOld.Rows(0).Item("Product_Image").ToString
            Else
                lblNProductImage.ForeColor = Drawing.Color.Black
                lblNProductImage.Text = dtOld.Rows(0).Item("Product_Image").ToString
                lblOProductImage.ForeColor = Drawing.Color.Black
                lblOProductImage.Text = dtOld.Rows(0).Item("Product_Image").ToString
            End If
            imgProductImage.ImageUrl = Page.ResolveUrl("../Upload Image\Product Image\UploadImages\" & lblOProductImage.Text)
            imgProductImage1.ImageUrl = Page.ResolveUrl("../Upload Image\Product Image\UploadImages\" & lblNProductImage.Text)
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_MarketPrice")) Then
                lblOMarketPrice.ForeColor = Drawing.Color.Blue
                lblOMarketPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("TProduct_MarketPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("TProduct_MarketPrice").ToString
                lblNMarketPrice.ForeColor = Drawing.Color.Red
                lblNMarketPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_MarketPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_MarketPrice").ToString
            Else
                lblNMarketPrice.ForeColor = Drawing.Color.Black
                lblNMarketPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_MarketPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_MarketPrice").ToString
                lblOMarketPrice.ForeColor = Drawing.Color.Black
                lblOMarketPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_MarketPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_MarketPrice").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_AtcoPrice")) Then
                lblOAtcomaartPrice.ForeColor = Drawing.Color.Blue
                lblOAtcomaartPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("TProduct_AtcoPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("TProduct_AtcoPrice").ToString
                lblNAtcomaartPrice.ForeColor = Drawing.Color.Red
                lblNAtcomaartPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_AtcoPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_AtcoPrice").ToString
            Else
                lblNAtcomaartPrice.ForeColor = Drawing.Color.Black
                lblNAtcomaartPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_AtcoPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_AtcoPrice").ToString
                lblOAtcomaartPrice.ForeColor = Drawing.Color.Black
                lblOAtcomaartPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_AtcoPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_AtcoPrice").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_BrandId")) Then
                lblOBrandName.ForeColor = Drawing.Color.Blue
                lblOBrandName.Text = ReturnValue("Select Brand_Name from Brand_Master where Brand_Kid = '" & dtOld.Rows(0).Item("TProduct_BrandId") & "'").ToString
                lblNBrandName.ForeColor = Drawing.Color.Red
                lblNBrandName.Text = ReturnValue("Select Brand_Name from Brand_Master where Brand_Kid = '" & dtOld.Rows(0).Item("Product_BrandId") & "'").ToString
            Else
                lblNBrandName.ForeColor = Drawing.Color.Black
                lblNBrandName.Text = ReturnValue("Select Brand_Name from Brand_Master where Brand_Kid = '" & dtOld.Rows(0).Item("Product_BrandId") & "'").ToString
                lblOBrandName.ForeColor = Drawing.Color.Black
                lblOBrandName.Text = ReturnValue("Select Brand_Name from Brand_Master where Brand_Kid = '" & dtOld.Rows(0).Item("Product_BrandId") & "'").ToString
            End If

            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_MinOrderQty")) Then
                lblOMinOrderQty.ForeColor = Drawing.Color.Blue
                lblOMinOrderQty.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("TProduct_MinOrderQtyType") & "'").ToString & "  " & dtOld.Rows(0).Item("TProduct_MinOrderQty").ToString
                lblNMinOrderQty.ForeColor = Drawing.Color.Red
                lblNMinOrderQty.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_MinOrderQtyType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_MinOrderQty").ToString
            Else
                lblNMinOrderQty.ForeColor = Drawing.Color.Black
                lblNMinOrderQty.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_MinOrderQtyType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_MinOrderQty").ToString
                lblOMinOrderQty.ForeColor = Drawing.Color.Black
                lblOMinOrderQty.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_MinOrderQtyType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_MinOrderQty").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_ShippingQty")) Then
                lblOMinShipQty.ForeColor = Drawing.Color.Blue
                lblOMinShipQty.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("TProduct_ShippingQtyType") & "'").ToString & "  " & dtOld.Rows(0).Item("TProduct_ShippingQty").ToString
                lblNMinShipQty.ForeColor = Drawing.Color.Red
                lblNMinShipQty.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_ShippingQtyType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_ShippingQty").ToString
            Else
                lblNMinShipQty.ForeColor = Drawing.Color.Black
                lblNMinShipQty.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_ShippingQtyType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_ShippingQty").ToString
                lblOMinShipQty.ForeColor = Drawing.Color.Black
                lblOMinShipQty.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_ShippingQtyType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_ShippingQty").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_ShippingCharges")) Then
                lblOMinShipCharge.ForeColor = Drawing.Color.Blue
                lblOMinShipCharge.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("TProduct_ShippingChargesType") & "'").ToString & "  " & dtOld.Rows(0).Item("TProduct_ShippingCharges").ToString
                lblNMinShipCharge.ForeColor = Drawing.Color.Red
                lblNMinShipCharge.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_ShippingChargesType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_ShippingCharges").ToString
            Else
                lblNMinShipCharge.ForeColor = Drawing.Color.Black
                lblNMinShipCharge.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_ShippingChargesType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_ShippingCharges").ToString
                lblOMinShipCharge.ForeColor = Drawing.Color.Black
                lblOMinShipCharge.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_ShippingChargesType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_ShippingCharges").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_DeliveryPeriod")) Then
                lblODispatchIn.ForeColor = Drawing.Color.Blue
                lblODispatchIn.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("TProduct_DeliveryPeriodType") & "'").ToString & "  " & dtOld.Rows(0).Item("TProduct_DeliveryPeriod").ToString
                lblNDispatchIn.ForeColor = Drawing.Color.Red
                lblNDispatchIn.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_DeliveryPeriodType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_DeliveryPeriod").ToString
            Else
                lblNDispatchIn.ForeColor = Drawing.Color.Black
                lblNDispatchIn.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_DeliveryPeriodType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_DeliveryPeriod").ToString
                lblODispatchIn.ForeColor = Drawing.Color.Black
                lblODispatchIn.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_DeliveryPeriodType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_DeliveryPeriod").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_Weight")) Then
                lblOShipWeight.ForeColor = Drawing.Color.Blue
                lblOShipWeight.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("TProduct_WeightUnitId") & "'").ToString & "  " & dtOld.Rows(0).Item("TProduct_Weight").ToString
                lblNShipWeight.ForeColor = Drawing.Color.Red
                lblNShipWeight.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_WeightUnitId") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_Weight").ToString
            Else
                lblNShipWeight.ForeColor = Drawing.Color.Black
                lblNShipWeight.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_WeightUnitId") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_Weight").ToString
                lblOShipWeight.ForeColor = Drawing.Color.Black
                lblOShipWeight.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_WeightUnitId") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_Weight").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_Dimension")) Then
                lblOShipDimen.ForeColor = Drawing.Color.Blue
                lblOShipDimen.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("TProduct_DimensionUnitId") & "'").ToString & "  " & dtOld.Rows(0).Item("TProduct_Dimension").ToString
                lblNShipDimen.ForeColor = Drawing.Color.Red
                lblNShipDimen.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_DimensionUnitId") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_Dimension").ToString
            Else
                lblNShipDimen.ForeColor = Drawing.Color.Black
                lblNShipDimen.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_DimensionUnitId") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_Dimension").ToString
                lblOShipDimen.ForeColor = Drawing.Color.Black
                lblOShipDimen.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_DimensionUnitId") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_Dimension").ToString
            End If


            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_Description")) Then
                lblODdescription.ForeColor = Drawing.Color.Blue
                lblODdescription.Text = dtOld.Rows(0).Item("TProduct_Description").ToString
                lblNDescription.ForeColor = Drawing.Color.Red
                lblNDescription.Text = dtOld.Rows(0).Item("Product_Description").ToString
            Else
                lblNDescription.ForeColor = Drawing.Color.Black
                lblNDescription.Text = dtOld.Rows(0).Item("Product_Description").ToString
                lblODdescription.ForeColor = Drawing.Color.Black
                lblODdescription.Text = dtOld.Rows(0).Item("Product_Description").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_IsSpareParts")) Then
                lblOIsSpare.ForeColor = Drawing.Color.Blue
                lblOIsSpare.Text = dtOld.Rows(0).Item("TProduct_IsSpareParts").ToString
                lblNIsSpare.ForeColor = Drawing.Color.Red
                lblNIsSpare.Text = dtOld.Rows(0).Item("Product_IsSpareParts").ToString
            Else
                lblNIsSpare.ForeColor = Drawing.Color.Black
                lblNIsSpare.Text = dtOld.Rows(0).Item("Product_IsSpareParts").ToString
                lblOIsSpare.ForeColor = Drawing.Color.Black
                lblOIsSpare.Text = dtOld.Rows(0).Item("Product_IsSpareParts").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_IsWear_Tear")) Then
                lblOIsWear.ForeColor = Drawing.Color.Blue
                lblOIsWear.Text = dtOld.Rows(0).Item("TProduct_IsWear_Tear").ToString
                lblNIsWear.ForeColor = Drawing.Color.Red
                lblNIsWear.Text = dtOld.Rows(0).Item("Product_IsWear_Tear").ToString
            Else
                lblNIsWear.ForeColor = Drawing.Color.Black
                lblNIsWear.Text = dtOld.Rows(0).Item("Product_IsWear_Tear").ToString
                lblOIsWear.ForeColor = Drawing.Color.Black
                lblOIsWear.Text = dtOld.Rows(0).Item("Product_IsWear_Tear").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_IsAssc")) Then
                lblOAccess.ForeColor = Drawing.Color.Blue
                lblOAccess.Text = dtOld.Rows(0).Item("TProduct_IsAssc").ToString
                lblNAccess.ForeColor = Drawing.Color.Red
                lblNAccess.Text = dtOld.Rows(0).Item("Product_IsAssc").ToString
            Else
                lblNAccess.ForeColor = Drawing.Color.Black
                lblNAccess.Text = dtOld.Rows(0).Item("Product_IsAssc").ToString
                lblOAccess.ForeColor = Drawing.Color.Black
                lblOAccess.Text = dtOld.Rows(0).Item("Product_IsAssc").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_StandardPrice")) Then
                lblOStandardPrice.ForeColor = Drawing.Color.Blue
                lblOStandardPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("TProduct_StandardPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("TProduct_StandardPrice").ToString
                lblNStandardPrice.ForeColor = Drawing.Color.Red
                lblNStandardPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_StandardPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_StandardPrice").ToString
            Else
                lblNStandardPrice.ForeColor = Drawing.Color.Black
                lblNStandardPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_StandardPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_StandardPrice").ToString
                lblOStandardPrice.ForeColor = Drawing.Color.Black
                lblOStandardPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_StandardPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_StandardPrice").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_MOPrice")) Then
                lblOMOPrice.ForeColor = Drawing.Color.Blue
                lblOMOPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("TProduct_MOPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("TProduct_MOPrice").ToString
                lblNMOPrice.ForeColor = Drawing.Color.Red
                lblNMOPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_MOPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_MOPrice").ToString
            Else
                lblNMOPrice.ForeColor = Drawing.Color.Black
                lblNMOPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_MOPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_MOPrice").ToString
                lblOMOPrice.ForeColor = Drawing.Color.Black
                lblOMOPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_MOPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_MOPrice").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_TransferPrice")) Then
                lblOAtcoPPrice.ForeColor = Drawing.Color.Blue
                lblOAtcoPPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("TProduct_TransferPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("TProduct_TransferPrice").ToString
                lblNAtcoPPrice.ForeColor = Drawing.Color.Red
                lblNAtcoPPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_TransferPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_TransferPrice").ToString
            Else
                lblNAtcoPPrice.ForeColor = Drawing.Color.Black
                lblNAtcoPPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_TransferPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_TransferPrice").ToString
                lblOAtcoPPrice.ForeColor = Drawing.Color.Black
                lblOAtcoPPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_TransferPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_TransferPrice").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_SpecialPrice")) Then
                lblOSpecialPrice.ForeColor = Drawing.Color.Blue
                lblOSpecialPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("TProduct_SpecialPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("TProduct_SpecialPrice").ToString
                lblNSpecialPrice.ForeColor = Drawing.Color.Red
                lblNSpecialPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_SpecialPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_SpecialPrice").ToString
            Else
                lblNSpecialPrice.ForeColor = Drawing.Color.Black
                lblNSpecialPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_SpecialPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_SpecialPrice").ToString
                lblOSpecialPrice.ForeColor = Drawing.Color.Black
                lblOSpecialPrice.Text = ReturnValue("Select Unit_Name from Unit_Master where Unit_Kid = '" & dtOld.Rows(0).Item("Product_SpecialPriceType") & "'").ToString & "  " & dtOld.Rows(0).Item("Product_SpecialPrice").ToString
            End If
            If Not IsDBNull(dtOld.Rows(0).Item("TProduct_PcsPerKg")) Then
                lblOPcs.ForeColor = Drawing.Color.Blue
                lblOPcs.Text = dtOld.Rows(0).Item("TProduct_PcsPerKg").ToString
                lblNPcs.ForeColor = Drawing.Color.Red
                lblNPcs.Text = dtOld.Rows(0).Item("Product_PcsPerKg").ToString
            Else
                lblNPcs.ForeColor = Drawing.Color.Black
                lblNPcs.Text = dtOld.Rows(0).Item("Product_PcsPerKg").ToString
                lblOPcs.ForeColor = Drawing.Color.Black
                lblOPcs.Text = dtOld.Rows(0).Item("Product_PcsPerKg").ToString
            End If

        Else
            showmessage("Record not found.!", lblMSG)
        End If






    End Sub

    Protected Sub gvSupplierProduct_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvSupplierProduct.PageIndexChanging
        gvSupplierProduct.PageIndex = e.NewPageIndex
        Dim dt As New DataTable
        dt = ReturnDataTable("SELECT  Product_Master.Product_Name, Product_Master.Product_Code, Product_Master.Product_Kid, Product_Master.Product_ModelNo,                       Product_Master.Product_SupplierId, Product_Master.Product_IsDeleted, Product_Master.Product_Approved,             Product_Master_Temp.TProduct_SupplierId  FROM         Product_Master_Temp INNER JOIN Product_Master ON Product_Master_Temp.TProduct_ProductKid = Product_Master.Product_Kid WHERE     Product_Master.Product_IsDeleted = N'0' AND Product_Master.Product_Approved = N'N' AND Product_Master_Temp.TProduct_SupplierId = '" & RemoveLiterals(ddlSupplierName.SelectedItem.Value) & "'")
        gvSupplierProduct.DataSource = dt
        gvSupplierProduct.DataBind()
    End Sub

    Protected Sub gvSupplierProduct_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvSupplierProduct.SelectedIndexChanged

    End Sub

    Protected Sub btnApprove_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnApprove.Click

        Dim btn As Button
        btn = sender
        ExecuteQuery("Delete from Product_Master_Temp where TProduct_ProductKid ='" & btn.CommandArgument & "'")
        tblNew.Visible = False
        tblOld.Visible = False
        showmessage("Records Approved Sucessfully.", lblMSG)
        Dim dt As New DataTable
        dt = ReturnDataTable("SELECT  Product_Master.Product_Name, Product_Master.Product_Code, Product_Master.Product_Kid, Product_Master.Product_ModelNo,                       Product_Master.Product_SupplierId, Product_Master.Product_IsDeleted, Product_Master.Product_Approved,             Product_Master_Temp.TProduct_SupplierId  FROM         Product_Master_Temp INNER JOIN Product_Master ON Product_Master_Temp.TProduct_ProductKid = Product_Master.Product_Kid WHERE     Product_Master.Product_IsDeleted = N'0' AND Product_Master.Product_Approved = N'N' AND Product_Master_Temp.TProduct_SupplierId = '" & RemoveLiterals(ddlSupplierName.SelectedItem.Value) & "'")
        gvSupplierProduct.DataSource = dt
        gvSupplierProduct.DataBind()
    End Sub

    Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click

        Dim btn As Button
        btn = sender
        Dim str As String = btn.CommandArgument
        Dim JDT As New DataTable
        JDT = ReturnDataTable("Select * from Product_Master_Temp where TProduct_ProductKid = '" & btn.CommandArgument & "'")
        If JDT.Rows.Count > 0 Then
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_Name")) Then
                ExecuteQuery("Update Product_Master set Product_Name='" & JDT.Rows(0).Item("TProduct_Name") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_ModelNo")) Then
                ExecuteQuery("Update Product_Master set Product_ModelNo='" & JDT.Rows(0).Item("TProduct_ModelNo") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_Image")) Then
                ExecuteQuery("Update Product_Master set Product_Image='" & JDT.Rows(0).Item("TProduct_Image") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_MarketPrice")) Then
                ExecuteQuery("Update Product_Master set Product_MarketPrice='" & JDT.Rows(0).Item("TProduct_MarketPrice") & "', Product_MarketPriceType ='" & JDT.Rows(0).Item("TProduct_MarketPriceType") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_AtcoPrice")) Then
                ExecuteQuery("Update Product_Master set Product_AtcoPrice='" & JDT.Rows(0).Item("TProduct_AtcoPrice") & "', Product_AtcoPriceType ='" & JDT.Rows(0).Item("TProduct_AtcoPriceType") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_BrandId")) Then
                ExecuteQuery("Update Product_Master set Product_BrandId='" & JDT.Rows(0).Item("TProduct_BrandId") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If

            If Not IsDBNull(JDT.Rows(0).Item("TProduct_MinOrderQty")) Then
                ExecuteQuery("Update Product_Master set Product_MinOrderQty='" & JDT.Rows(0).Item("TProduct_MinOrderQty") & "', Product_MinOrderQtyType ='" & JDT.Rows(0).Item("TProduct_MinOrderQtyType") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_ShippingQty")) Then
                ExecuteQuery("Update Product_Master set Product_ShippingQty='" & JDT.Rows(0).Item("TProduct_ShippingQty") & "', Product_ShippingQtyType ='" & JDT.Rows(0).Item("TProduct_ShippingQtyType") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_DeliveryPeriod")) Then
                ExecuteQuery("Update Product_Master set Product_DeliveryPeriod='" & JDT.Rows(0).Item("TProduct_DeliveryPeriod") & "', Product_DeliveryPeriodType ='" & JDT.Rows(0).Item("TProduct_DeliveryPeriodType") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_ShippingCharges")) Then
                ExecuteQuery("Update Product_Master set Product_ShippingCharges='" & JDT.Rows(0).Item("TProduct_ShippingCharges") & "', Product_ShippingChargesType ='" & JDT.Rows(0).Item("TProduct_ShippingChargesType") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_Weight")) Then
                ExecuteQuery("Update Product_Master set Product_Weight='" & JDT.Rows(0).Item("TProduct_Weight") & "', Product_WeightUnitId ='" & JDT.Rows(0).Item("TProduct_WeightUnitId") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_Dimension")) Then
                ExecuteQuery("Update Product_Master set Product_Dimension='" & JDT.Rows(0).Item("TProduct_Dimension") & "', Product_DimensionUnitId ='" & JDT.Rows(0).Item("TProduct_DimensionUnitId") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If




            If Not IsDBNull(JDT.Rows(0).Item("TProduct_Description")) Then
                ExecuteQuery("Update Product_Master set Product_Description='" & JDT.Rows(0).Item("TProduct_Description") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_IsSpareParts")) Then
                ExecuteQuery("Update Product_Master set Product_IsSpareParts='" & JDT.Rows(0).Item("TProduct_IsSpareParts") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_IsWear_Tear")) Then
                ExecuteQuery("Update Product_Master set Product_IsWear_Tear='" & JDT.Rows(0).Item("TProduct_IsWear_Tear") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_IsAssc")) Then
                ExecuteQuery("Update Product_Master set Product_IsAssc='" & JDT.Rows(0).Item("TProduct_IsAssc") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_StandardPrice")) Then
                ExecuteQuery("Update Product_Master set Product_StandardPrice='" & JDT.Rows(0).Item("TProduct_StandardPrice") & "', Product_StandardPriceType ='" & JDT.Rows(0).Item("TProduct_StandardPriceType") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_MOPrice")) Then
                ExecuteQuery("Update Product_Master set Product_MOPrice='" & JDT.Rows(0).Item("TProduct_MOPrice") & "', Product_MOPriceType ='" & JDT.Rows(0).Item("TProduct_MOPriceType") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_TransferPrice")) Then
                ExecuteQuery("Update Product_Master set Product_TransferPrice='" & JDT.Rows(0).Item("TProduct_TransferPrice") & "', Product_TransferPriceType ='" & JDT.Rows(0).Item("TProduct_TransferPriceType") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_SpecialPrice")) Then
                ExecuteQuery("Update Product_Master set Product_SpecialPrice='" & JDT.Rows(0).Item("TProduct_SpecialPrice") & "', Product_SpecialPriceType ='" & JDT.Rows(0).Item("TProduct_SpecialPriceType") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If
            If Not IsDBNull(JDT.Rows(0).Item("TProduct_PcsPerKg")) Then
                ExecuteQuery("Update Product_Master set Product_PcsPerKg='" & JDT.Rows(0).Item("TProduct_PcsPerKg") & "' where Product_Kid ='" & btn.CommandArgument & "'")
            End If

            tblNew.Visible = False
            tblOld.Visible = False
            showmessage("Records Deleted Sucessfully.", lblMSG)
            Dim dt As New DataTable
            dt = ReturnDataTable("SELECT  Product_Master.Product_Name, Product_Master.Product_Code, Product_Master.Product_Kid, Product_Master.Product_ModelNo,                       Product_Master.Product_SupplierId, Product_Master.Product_IsDeleted, Product_Master.Product_Approved,             Product_Master_Temp.TProduct_SupplierId  FROM         Product_Master_Temp INNER JOIN Product_Master ON Product_Master_Temp.TProduct_ProductKid = Product_Master.Product_Kid WHERE     Product_Master.Product_IsDeleted = N'0' AND Product_Master.Product_Approved = N'N' AND Product_Master_Temp.TProduct_SupplierId = '" & RemoveLiterals(ddlSupplierName.SelectedItem.Value) & "'")
            gvSupplierProduct.DataSource = dt
            gvSupplierProduct.DataBind()
        Else

        End If


    End Sub

    End Class