Imports System Imports System.Data Imports System.Data.SqlClient Imports System.IO Imports System.Decimal Imports ModCommon Imports CommonData Partial Class Buyer_buyer_compare Inherits System.Web.UI.Page Dim productKid As String Dim productKid1 As String Dim productKid2 As String Dim Sel1 As String Dim cmd As New SqlCommand Dim Cat1 As String Dim Ima1 As String Dim ima2 As String Dim ima3 As String Dim Brand1 As String Dim catid As String Dim name As String Dim dr As SqlDataReader Dim name1 As String Dim name2 As String Dim valuee1, valuee2, valuee3 As String Dim ddlRepeat As Boolean = False Dim dtCategoryDistinct As DataTable Dim val1, val2, val3 As Boolean Dim i As Integer Dim val(10) As String Dim ddl2Text As String Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Try If Session("BuyId") Is Nothing Then Response.Redirect("buyer-home.aspx?ses=expire") Exit Sub End If If Request.QueryString("Product_Id") = Nothing Then Dim hashTable As New Hashtable hashTable = CType(Session("ItemMaxMin"), Hashtable) Dim i As Integer = hashTable.Count productKid = hashTable.Item("ItemMaxMin0").ToString.Trim productKid1 = hashTable.Item("ItemMaxMin1").ToString.Trim If i > 2 Then productKid2 = hashTable.Item("ItemMaxMin2").ToString.Trim End If Else productKid = Request.QueryString("Product_Id") End If lblerror.Visible = False '' '' '' ''If IsNothing(Session("CategoryDistinct")) Then '' '' '' '' If IsNothing(CatDistinct) Then '' '' '' '' GetCatDistinct() '' '' '' '' End If '' '' '' '' Session("CategoryDistinct") = CatDistinct '' '' '' '' 'Session("CategoryDistinct") = ReturnDataTable("Select * from CategoryDistinct") '' '' '' '' dtCategoryDistinct = CType(Session("CategoryDistinct"), DataTable) '' '' '' ''Else '' '' '' '' dtCategoryDistinct = CType(Session("CategoryDistinct"), DataTable) '' '' '' ''End If If Not Page.IsPostBack Then 'g_Company = Session("g_Compnay") 'g_User = Session("g_User") 'loadcategory() First_Combo() If productKid1 <> Nothing Then Dim productName2 As String = ReturnValue("SELECT Product_Name FROM ProductDisplay WHERE Product_Kid = '" & CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin1").ToString.Trim & "' and Product_Approved='Y' ") ddlPro2.Items.Clear() ddlPro2.Items.Insert(0, New ListItem(productName2, CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin1").ToString.Trim)) ddlPro2.SelectedValue = CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin1").ToString.Trim ' ddlPro2_SelectedIndexChanged(Nothing, Nothing) DisplayData2(CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin1").ToString.Trim) End If If productKid2 <> Nothing Then Dim productName3 As String = ReturnValue("SELECT Product_Name FROM ProductDisplay WHERE Product_Kid = '" & CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin2").ToString.Trim & "' and Product_Approved='Y'") ddlPro3.Items.Clear() ddlPro3.Items.Insert(0, New ListItem(productName3, CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin2").ToString.Trim)) ddlPro3.SelectedValue = CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin2").ToString.Trim ' ddlPro3_SelectedIndexChanged(Nothing, Nothing) DisplayData3(CType(Session("ItemMaxMin"), Hashtable).Item("ItemMaxMin2").ToString.Trim) End If If Request.QueryString("Product_Id") = Nothing Then Dim hashTable As New Hashtable hashTable = CType(Session("ItemMaxMin"), Hashtable) Dim i As Integer = hashTable.Count If i > 2 Then Else ddlPro3.Items.Clear() lnkAddtoWishList3.Visible = False Image3.Visible = False ddlPro3.Items.Insert(0, New ListItem("No Product", "No Product")) End If End If RowVisisbal(True) 'RowNotVisible() End If Catch ex As Exception End Try End Sub Private Sub First_Combo() Dim con As New SqlConnection con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") Dim str As String str = "Select Product_Kid,Product_Name from ProductDisplay where Product_KId ='" & productKid & "' and Product_Approved='Y'" Dim cmd As New SqlCommand cmd = New SqlCommand(str, con) Dim dr As SqlDataReader con.Open() dr = cmd.ExecuteReader While dr.Read ddlPro1.Items.Add(New ListItem(dr(1), dr(0))) End While ddlPro1.Items.FindByValue(productKid).Selected = True DisplayData1(ddlPro1.SelectedValue) con.Close() dr.Close() ClearLabel2() End Sub Private Sub FirstCombo_SelectedIndex() DisplayData1(ddlPro1.SelectedValue) End Sub 'Private Sub loadcategory() ' Try ' Dim con As New SqlConnection ' con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") ' Dim Str As String ' Str = "select Category_Kid,Category_Name from Category_Master where Category_ParentId='Root Category' and Category_Isdeleted='0' order by category_name asc" ' If con.State = Data.ConnectionState.Open Then ' con.Close() ' End If ' con.Open() ' Dim cmd As New SqlCommand(Str, con) ' Dim dr As SqlDataReader = cmd.ExecuteReader ' ddl1.DataSource = dr ' If dr.HasRows = True Then ' ddl1.DataTextField = "Category_Name" ' ddl1.DataValueField = "Category_Kid" ' ddl1.DataBind() ' Else ' RowVisisbal(True) ' End If ' con.Close() ' Catch ex As Exception ' ex.Message.ToString() ' End Try 'End Sub 'Public Sub fillsubgrid(ByVal catid As String) ' dtCategoryDistinct.DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(catid) & "'" ' Dim dt1 As New DataTable ' dt1 = dtCategoryDistinct.DefaultView.ToTable() ' If dt1.Rows.Count > 0 Then ' ddl2.DataSource = dt1 ' ddl2.DataTextField = "Category_Name" ' ddl2.DataValueField = "Category_Kid" ' ddl2.DataBind() ' dt1.Clear() ' Else ' RowVisisbal(True) ' 'Fill_Combo("Select Product_Kid,Product_Name from Product_Master where Product_CompanyId = '" & g_Company & "' and Product_IsDeleted = '0' and Product_CategoryId = '" & catid & "' ", ddlPro1) ' Fill_Combo("Select Product_Kid,Product_Name from ProductDisplay where Product_Approved='Y' and Product_CategoryId = '" & catid & "' and Product_kid <>'' ", ddlPro1) ' Dim Kid As String = ReturnValue("Select Product_Kid from ProductDisplay where Product_CategoryId = '" & catid & "'") ' If Kid = Nothing Then ' ddlPro1.Items.Clear() ' Dim myList As ListItem = New ListItem ' myList.Text = "Product Not Found" ' myList.Value = "0" ' ddlPro1.Items.Insert(0, myList) ' End If ' ClearLabel() ' ClearLabel1() ' ClearLabel2() ' Image1.Visible = False ' End If ' 'con1.Close() 'End Sub 'Public Sub fillsubgrid1(ByVal catid As String) ' dtCategoryDistinct.DefaultView.RowFilter = "Category_ParentId='" & RemoveLiterals(catid) & "'" ' Dim dt2 As New DataTable ' dt2 = dtCategoryDistinct.DefaultView.ToTable() ' If dt2.Rows.Count > 0 Then ' ddl3.DataSource = dt2 ' ddl3.DataTextField = "Category_Name" ' ddl3.DataValueField = "Category_Kid" ' ddl3.DataBind() ' dt2.Clear() ' Else ' RowVisisbal(True) ' 'Fill_Combo("Select Product_Kid,Product_Name from Product_Master where Product_CompanyId = '" & g_Company & "' and Product_IsDeleted = '0' and Product_CategoryId = '" & catid & "'", ddlPro1) ' Fill_Combo("Select Product_Kid,Product_Name from ProductDisplay where Product_Approved='Y' and Product_Kid <>'' and Product_CategoryId = '" & catid & "'", ddlPro1) ' Dim Kid As String = ReturnValue("Select Product_Kid from ProductDisplay where Product_CategoryId = '" & catid & "'") ' System.Threading.Thread.Sleep(500) ' If Kid = Nothing Then ' ddlPro1.Items.Clear() ' Dim myList As ListItem = New ListItem ' myList.Text = "Product Not Found" ' myList.Value = "0" ' ddlPro1.Items.Insert(0, myList) ' End If ' ClearLabel() ' ClearLabel1() ' ClearLabel2() ' Image1.Visible = False ' End If ' ' con1.Close() 'End Sub Protected Sub ddlPro1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlPro1.SelectedIndexChanged FirstCombo_SelectedIndex() Image1.Visible = True ' btnAddtocart1.Visible = True End Sub Protected Sub ddlPro2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlPro2.SelectedIndexChanged DisplayData2(ddlPro2.SelectedValue) ' btnaddtocart2.Visible = True End Sub Protected Sub ddlPro3_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlPro3.SelectedIndexChanged DisplayData3(ddlPro3.SelectedValue) ' btnaddtocart3.Visible = True End Sub Public Sub DisplayData1(ByVal StrVal As String) Try If StrVal = ddlPro3.SelectedValue Or StrVal = ddlPro2.SelectedValue Then showmessage("  You are Selecting Same Product for Comparison.", lblerror) ClearLabel() Exit Sub Else Sel1 = ddlPro1.SelectedValue Dim imgpath As String = "" Cat1 = ReturnValue("SELECT Product_CategoryId FROM ProductDisplay WHERE Product_Kid = '" & Sel1 & "' and Product_Approved='Y'") Ima1 = ReturnValue("SELECT Product_Image FROM ProductDisplay WHERE Product_Kid = '" & Sel1 & "' and Product_Approved='Y'") Fill_Combo("SELECT Product_Kid, Product_Name FROM ProductDisplay WHERE Product_Kid <> '" & Sel1 & "' AND Product_CategoryId = '" & Cat1 & "' and Product_Approved='Y'", ddlPro2) Fill_Combo("SELECT Product_Kid, Product_Name FROM ProductDisplay WHERE Product_Kid <> '" & Sel1 & "' AND Product_CategoryId = '" & Cat1 & "' and Product_Approved='Y'", ddlPro3) Image1.ImageUrl = Path.Combine("~/Upload Image/Product Image/UploadImages/", Ima1) imgpath = Server.MapPath(Path.Combine("~/Upload Image/Product Image/UploadImages/", Ima1)) KeepAspectRatioNew(Image1, imgpath, 120, 120) Dim con As New SqlConnection con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") con.Open() Dim qry As String = "Select * From Compare_Product where Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd As New SqlCommand(qry, con) Dim dr As SqlDataReader dr = cmd.ExecuteReader System.Threading.Thread.Sleep(500) While dr.Read Brand1 = dr("Product_BrandId").ToString Label18.InnerHtml = chkNull(dr("Product_Name").ToString) RowNotVisible(Label18.InnerHtml, Label18) Label19.InnerHtml = chkNull(dr("Product_Code").ToString) RowNotVisible(Label19.InnerHtml, Label19) Label20.InnerHtml = chkNull(dr("Product_MarketPrice").ToString) RowNotVisible(Label20.InnerHtml, Label20) Label22.InnerHtml = chkNull(dr("Product_ModelNo").ToString) RowNotVisible(Label22.InnerHtml, Label22) Label23.InnerHtml = chkNull(dr("Product_MinOrderQty").ToString) RowNotVisible(Label23.InnerHtml, Label23) Label24.InnerHtml = chkNull(dr("Product_Weight").ToString) RowNotVisible(Label24.InnerHtml, Label24) If chkNull(dr("Product_Dimension").ToString).ToString.Contains("N.A.") Then Label25.InnerHtml = "N.A." RowNotVisible(Label25.InnerHtml, Label25) Else Label25.InnerHtml = chkNull(dr("Product_Dimension").ToString) RowNotVisible(Label25.InnerHtml, Label25) End If Label70.InnerHtml = chkNull(dr("Product_ShippingQty").ToString) RowNotVisible(Label70.InnerHtml, Label70) Label26.InnerHtml = chkNull(dr("Product_PcsPerKg").ToString) RowNotVisible(Label26.InnerHtml, Label26) Label27.InnerHtml = chkNull(dr("Product_DeliveryPeriod").ToString) RowNotVisible(Label27.InnerHtml, Label27) Label77.InnerHtml = chkNull(dr("Product_PackagingCharge").ToString) RowNotVisible(Label77.InnerHtml, Label77) 'Label97.InnerHtml = chkNull(dr("Product_ShippingCharge").ToString) 'RowNotVisible(Label97.InnerHtml, Label97) Label97.InnerHtml = "  As actual at the time of the Delivery." 'chkNull(dr("Product_ShippingCharge").ToString) 'Label97.Style.Add("Color", "Red") 'Label97.InnerHtml = "-" 'Label97.Style.Add("font-size", "12pt") 'Label97.Style.Add("font-weight", "bold") End While dr.Close() Label21.InnerHtml = chkNull(ReturnValue("SELECT Brand_Name FROM Brand_Master WHERE Brand_Kid = '" & Trim(Brand1) & "'")) RowNotVisible(Label21.InnerHtml, Label21) '=======================Features Dim qry1 As String = "SELECT ProdFeatures_Features FROM ProductFeatures WHERE ProdFeatures_ProductId = '" & StrVal & "' and ProdFeatures_IsDeleted='0'" Dim cmd1 As New SqlCommand(qry1, con) Dim dr1 As SqlDataReader = cmd1.ExecuteReader Label28.InnerHtml = "" If dr1.HasRows Then Label28.Style.Add("Color", "Black") While dr1.Read Label28.InnerHtml &= "  " & dr1("ProdFeatures_Features").ToString & "
" End While Else 'Label28.InnerHtml &= "   There are currently no Features for this product. " 'Label28.Style.Add("Color", "Red") Label28.InnerHtml = "-" Label28.Style.Add("font-size", "12pt") Label28.Style.Add("font-weight", "bold") End If dr1.Close() '========================Application Dim qry2 As String = "SELECT ProdApp_Application FROM ProductApplication WHERE ProdApp_ProductId = '" & StrVal & "' and ProdApp_IsDeleted='0'" Dim cmd2 As New SqlCommand(qry2, con) Dim dr2 As SqlDataReader = cmd2.ExecuteReader Label29.InnerHtml = "" If dr2.HasRows Then Label29.Style.Add("Color", "Black") While dr2.Read Label29.InnerHtml &= "  " & dr2("ProdApp_Application").ToString & "
" End While Else 'Label29.InnerHtml &= "   There are currently no Applications for this product." 'Label29.Style.Add("Color", "Red") Label29.InnerHtml = "-" Label29.Style.Add("font-size", "12pt") Label29.Style.Add("font-weight", "bold") End If dr2.Close() '=========================Technical Specification Dim qry3 As String = "SELECT ProductTechnicalSpecification_Master.TechSpec_Parameter, ProductTechnicalSpecification.TechSpec_value FROM ProductTechnicalSpecification INNER JOIN ProductTechnicalSpecification_Master ON ProductTechnicalSpecification.TechSpec_ParameterId = ProductTechnicalSpecification_Master.TechSpec_KID WHERE ProductTechnicalSpecification.TechSpec_ProductId = '" & StrVal & "' and ProductTechnicalSpecification.TechSpec_IsDeleted='0'" Dim cmd3 As New SqlCommand(qry3, con) Dim dr3 As SqlDataReader = cmd3.ExecuteReader 'Label30.InnerHtml = "" If dr3.HasRows Then ' Label30.Style.Add("Color", "Black") Dim dttech As New DataTable dttech.Load(dr3) gvtechspec.Visible = True gvtechspec.DataSource = dttech.DefaultView gvtechspec.DataBind() Else gvtechspec.Visible = True gvtechspec.DataSource = Nothing gvtechspec.DataBind() ' Label30.InnerHtml &= "   Technical Specification of This Product does not have any data." ' Label30.Style.Add("Color", "Red") End If dr3.Close() '=============================Included Accessories Dim qry4 As String = "SELECT Product_Master.Product_Name, Product_Master.Product_ModelNo FROM OtherDetail_IncludedAccessories INNER JOIN Product_Master ON OtherDetail_IncludedAccessories.ODTIA_InAccessId = Product_Master.Product_Kid WHERE OtherDetail_IncludedAccessories.ODTIA_ProductId ='" & StrVal & "' and OtherDetail_IncludedAccessories.ODTIA_IsDeleted='0'" Dim cmd4 As New SqlCommand(qry4, con) Dim dr4 As SqlDataReader = cmd4.ExecuteReader Label31.InnerHtml = "" If dr4.HasRows Then Label31.Style.Add("Color", "Black") While dr4.Read Label31.InnerHtml &= "  " & dr4("Product_Name").ToString & "
" End While Else 'Label31.InnerHtml &= "   There are currently no Included Accessories for this product." 'Label31.Style.Add("Color", "Red") Label31.InnerHtml = "-" Label31.Style.Add("font-size", "12pt") Label31.Style.Add("font-weight", "bold") End If dr4.Close() '==============================Product Standard Approval Dim qry5 As String = "SELECT ProductStandardApproval.ProdStdApproval_FileName FROM ProductStandardApproval WHERE (ProductStandardApproval.ProdStdApproval_ProductId ='" & StrVal & "' ) AND (ProductStandardApproval.ProdStdApproval_IsDeleted = N'0')" '"SELECT ProdStdApproval_StandardName FROM ProductStandardApproval WHERE ProdStdApproval_ProductId = '" & StrVal & "'" Dim cmd5 As New SqlCommand(qry5, con) Dim dr5 As SqlDataReader = cmd5.ExecuteReader Label32.InnerHtml = "".ToString If dr5.HasRows Then Label32.Style.Add("Color", "Black") Dim i As Integer = 0 While dr5.Read If dr5.Item("ProdStdApproval_FileName").ToString() <> "" Then Label32.InnerHtml &= "Product Certificate" & i + 1 & "
" End If End While Else 'Label32.InnerHtml &= "   There are currently no Standards and Certificates for this product." 'Label32.Style.Add("Color", "Red") Label32.InnerHtml = "-" Label32.Style.Add("font-size", "12pt") Label32.Style.Add("font-weight", "bold") End If dr5.Close() '========================Installation/Commissioning Dim Install As Decimal = 0.0 Dim qry6 As String = "SELECT ProductInstallationCommissioning.InstallationComm_IsRequired, ProductInstallationCommissioning.InstallationComm_IsChargeable,ProductInstallationCommissioning.InstallationComm_Amount, ProductInstallationCommissioning.InstallationComm_IsMaintenanceTraining,ProductInstallationCommissioning.InstallationComm_IsAMCAvailable FROM ProductInstallationCommissioning INNER JOIN Product_Master ON ProductInstallationCommissioning.InstallationComm_ProductId = Product_Master.Product_Kid WHERE InstallationComm_ProductId = '" & StrVal & "' and InstallationComm_IsDeleted='0'" Dim cmd6 As New SqlCommand(qry6, con) Dim dr6 As SqlDataReader = cmd6.ExecuteReader Label73.InnerHtml = "" If dr6.Read Then Label73.Style.Add("Color", "Black") If dr6("InstallationComm_IsRequired").ToString = "N" Then Label73.InnerHtml = "Not Applicable" ElseIf dr6("InstallationComm_IsChargeable").ToString = "N" Then Label73.InnerHtml = "Not Chargeable" Else Label73.InnerHtml = "   Rs. " & dr6("InstallationComm_Amount").ToString & "

" Install = dr6("InstallationComm_Amount") If dr6("InstallationComm_IsAMCAvailable").ToString = "Y" Then Label73.InnerHtml += "
   AMC Available.

" End If End If Else 'Label73.InnerHtml &= "   This Product does not contain any Installation and Commissioning Details." 'Label73.Style.Add("Color", "Red") Label73.InnerHtml = "-" Label73.Style.Add("font-size", "12pt") Label73.Style.Add("font-weight", "bold") End If dr6.Close() '=============================ProductVat/EduCess. Dim VAT As Decimal = 0.0 Dim CST As Decimal = 0.0 Dim ExciseDuty As Decimal = 0.0 Dim EduCess As Decimal = 0.0 Dim HigherEduCess As Decimal = 0.0 Dim CSTAgainstC As Decimal = 0.0 Dim TotalPriceVat As Decimal = 0.0 Dim TotalPriceCST As Decimal = 0.0 Dim TotalPriceCForm As Decimal = 0.0 Dim TotalWithOutT As Decimal = 0.0 Dim Total As Decimal = 0.0 Dim qry7 As String = "SELECT ProductVat.ProductVat_VAT,ProductVat.ProductVat_CST,ProductVat.ProductVat_EduCess, ProductVat.ProductVat_HigherEduCess, ProductVat.ProductVat_ExciseDuty, ProductVat.ProductVat_CSTAgainstC,ISNULL(Product_Master.Product_MarketPrice,'0.0') as Product_MarketPrice, ISNULL(Product_Master.Product_PackagingCharge, N'0.0') AS Product_PackagingCharge, ISNULL(Product_Master.Product_ShippingCharges, N'0.0') AS Product_ShippingCharges FROM Product_Master LEFT OUTER JOIN ProductVat ON Product_Master.Product_Kid = ProductVat.ProductVat_ProductId WHERE Product_Master.Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd7 As New SqlCommand(qry7, con) Dim dr7 As SqlDataReader = cmd7.ExecuteReader Label80.InnerHtml = "" Label83.InnerHtml = "" Label86.InnerHtml = "" Label89.InnerHtml = "" Label106.InnerHtml = "" Label109.InnerHtml = "" If dr7.HasRows Then While dr7.Read Total = Round((dr7("Product_MarketPrice") + dr7("Product_PackagingCharge")), 2) '+ dr7("Product_ShippingCharges") If dr7("ProductVat_ExciseDuty").ToString = "No" Then Label80.InnerHtml = "N.A." Label83.InnerHtml = "N.A." Label86.InnerHtml = "N.A." RowNotVisible(Label80.InnerHtml, Label80) RowNotVisible(Label83.InnerHtml, Label83) RowNotVisible(Label86.InnerHtml, Label86) ElseIf dr7("ProductVat_ExciseDuty").ToString = "" Then Label80.InnerHtml = "N.A." Label83.InnerHtml = "N.A." Label86.InnerHtml = "N.A." RowNotVisible(Label80.InnerHtml, Label80) RowNotVisible(Label83.InnerHtml, Label83) RowNotVisible(Label86.InnerHtml, Label86) Else ExciseDuty = (dr7("ProductVat_ExciseDuty") * Total) / 100 Label80.InnerHtml = "Rs. " & Round(ExciseDuty, 2) 'dr7("ProductVat_ExciseDuty").ToString & " % " RowNotVisible(Label80.InnerHtml, Label80) If dr7("ProductVat_EduCess").ToString = "No" Then Label83.InnerHtml = "N.A." RowNotVisible(Label83.InnerHtml, Label83) ElseIf dr7("ProductVat_EduCess").ToString = "" Then Label83.InnerHtml = "N.A." RowNotVisible(Label83.InnerHtml, Label83) Else EduCess = (ExciseDuty * dr7("ProductVat_EduCess")) / 100 Label83.InnerHtml = "Rs. " & Round(EduCess, 2) ''dr7("ProductVat_EduCess").ToString & " % " RowNotVisible(Label83.InnerHtml, Label83) End If If dr7("ProductVat_HigherEduCess").ToString = "No" Then Label86.InnerHtml = "N.A." RowNotVisible(Label86.InnerHtml, Label86) ElseIf dr7("ProductVat_HigherEduCess").ToString = "" Then Label86.InnerHtml = "N.A." RowNotVisible(Label86.InnerHtml, Label86) Else HigherEduCess = (ExciseDuty * dr7("ProductVat_HigherEduCess")) / 100 Label86.InnerHtml = "Rs. " & Round(HigherEduCess, 2) ''dr7("ProductVat_HigherEduCess").ToString & " %" RowNotVisible(Label86.InnerHtml, Label86) End If End If If dr7("ProductVat_VAT").ToString = "No" Then Label106.InnerHtml = "N.A." RowNotVisible(Label106.InnerHtml, Label106) ElseIf dr7("ProductVat_VAT").ToString <> "" Then VAT = ((Total + ExciseDuty + EduCess + HigherEduCess) * dr7("ProductVat_VAT")) / 100 Label106.InnerHtml = "Rs. " & Round(VAT, 2) ''dr7("ProductVat_VAT").ToString & " %" RowNotVisible(Label106.InnerHtml, Label106) Else Label106.InnerHtml = "N.A." RowNotVisible(Label106.InnerHtml, Label106) End If If dr7("ProductVat_CST").ToString = "No" Then Label109.InnerHtml = "N.A." RowNotVisible(Label109.InnerHtml, Label109) ElseIf dr7("ProductVat_CST").ToString <> "" Then CST = ((Total + ExciseDuty + EduCess + HigherEduCess) * dr7("ProductVat_CST")) / 100 Label109.InnerHtml = "Rs. " & Round(CST, 2) ''dr7("ProductVat_CST").ToString & " %" RowNotVisible(Label109.InnerHtml, Label109) Else Label109.InnerHtml = "N.A." RowNotVisible(Label109.InnerHtml, Label109) End If If dr7("ProductVat_CSTAgainstC").ToString = "No" Then Label89.InnerHtml = "N.A." RowNotVisible(Label89.InnerHtml, Label89) ElseIf dr7("ProductVat_CSTAgainstC").ToString <> "" Then CSTAgainstC = ((Total + ExciseDuty + EduCess + HigherEduCess) * dr7("ProductVat_CSTAgainstC")) / 100 Label89.InnerHtml = "Rs. " & Round(CSTAgainstC, 2) ''dr7("ProductVat_CSTAgainstC").ToString & " %" RowNotVisible(Label89.InnerHtml, Label89) Else Label89.InnerHtml = "N.A." RowNotVisible(Label89.InnerHtml, Label89) End If End While If VAT <> 0.0 Then TotalPriceVat = Round((Total + ExciseDuty + EduCess + HigherEduCess + VAT + Install), 2) Label100.InnerHtml = "Rs. " & TotalPriceVat Else Label100.InnerHtml = "Rs. " & Total End If If CST <> 0.0 Then TotalPriceCST = Round((Total + ExciseDuty + EduCess + HigherEduCess + CST + Install), 2) Label103.InnerHtml = "Rs. " & TotalPriceCST Else Label103.InnerHtml = "Rs. " & Total End If If CSTAgainstC <> 0.0 Then TotalPriceCForm = Round((Total + ExciseDuty + EduCess + HigherEduCess + CSTAgainstC + Install), 2) Label114.InnerHtml = "Rs. " & TotalPriceCForm Else Label114.InnerHtml = "Rs. " & Total End If If Total <> 0.0 Then TotalWithOutT = Round((Total + ExciseDuty + EduCess + HigherEduCess + Install), 2) Label117.InnerHtml = "Rs. " & TotalWithOutT Else Label117.InnerHtml = "Rs. " & Total End If Else Total = Round((dr7("Product_MarketPrice") + dr7("Product_PackagingCharge")), 2) Label80.InnerHtml = "N.A." Label83.InnerHtml = "N.A." Label86.InnerHtml = "N.A." Label89.InnerHtml = "N.A." Label106.InnerHtml = "N.A." Label109.InnerHtml = "N.A." RowNotVisible(Label80.InnerHtml, Label80) RowNotVisible(Label83.InnerHtml, Label83) RowNotVisible(Label86.InnerHtml, Label86) RowNotVisible(Label89.InnerHtml, Label89) RowNotVisible(Label106.InnerHtml, Label106) RowNotVisible(Label109.InnerHtml, Label109) If VAT <> 0.0 Then TotalPriceVat = Round((Total + ExciseDuty + EduCess + HigherEduCess + VAT + Install), 2) Label100.InnerHtml = "Rs. " & TotalPriceVat Else Label100.InnerHtml = "Rs. " & Total End If If CST <> 0.0 Then TotalPriceCST = Round((Total + ExciseDuty + EduCess + HigherEduCess + CST + Install), 2) Label103.InnerHtml = "Rs. " & TotalPriceCST Else Label103.InnerHtml = "Rs. " & Total End If If CSTAgainstC <> 0.0 Then TotalPriceCForm = Round((Total + ExciseDuty + EduCess + HigherEduCess + CSTAgainstC + Install), 2) Label114.InnerHtml = "Rs. " & TotalPriceCForm Else Label114.InnerHtml = "Rs. " & Total End If If Total <> 0.0 Then TotalWithOutT = Round((Total + ExciseDuty + EduCess + HigherEduCess + Install), 2) Label117.InnerHtml = "Rs. " & TotalWithOutT Else Label117.InnerHtml = "Rs. " & Total End If End If RowNotVisible(Label100.InnerHtml, Label100) RowNotVisible(Label103.InnerHtml, Label103) RowNotVisible(Label114.InnerHtml, Label114) RowNotVisible(Label117.InnerHtml, Label117) dr7.Close() ' =======================Guaranty/Warranty details Dim qry8 As String = " SELECT Product_GuarantyWarrantydetails.gwd_pguarentee1 , Product_GuarantyWarrantydetails.gwd_pguarentee1 + ' ' + Unit_Master.Unit_Name AS Product_Gurantee FROM Product_GuarantyWarrantydetails INNER JOIN Product_Master ON Product_GuarantyWarrantydetails.gwd_ProductId = Product_Master.Product_Kid INNER JOIN Unit_Master ON Product_GuarantyWarrantydetails.gwd_pguarentee2 = Unit_Master.Unit_Kid WHERE Product_Master.Product_Kid ='" & StrVal & "' AND Product_Master.Product_IsDeleted = '0' AND Product_Master.Product_Approved = 'Y'" Dim cmd8 As New SqlCommand(qry8, con) Dim dr8 As SqlDataReader = cmd8.ExecuteReader Label34.InnerHtml = "" Label33.InnerHtml = "" If dr8.HasRows Then Label33.Style.Add("Color", "Black") While dr8.Read If dr8("gwd_pguarentee1").ToString = "0" Or dr8("gwd_pguarentee1").ToString = "" Then Label33.InnerHtml = "" If dr8("Product_Gurantee").ToString <> "" Then Label33.InnerHtml &= "  " & dr8("Product_Gurantee").ToString & "

" End If Else Label33.InnerHtml &= "  " & dr8("Product_Gurantee").ToString & "

" End If End While Else 'Label33.InnerHtml &= "   Guaranty / Warranty details are not provided for this product." 'Label33.Style.Add("Color", "Red") Label33.InnerHtml = "-" Label33.Style.Add("font-size", "12pt") Label33.Style.Add("font-weight", "bold") End If dr8.Close() qry8 = "SELECT Product_GuarantyWarrantydetails.gwd_pwarranty1, Product_GuarantyWarrantydetails.gwd_pwarranty1 + ' ' + Unit_Master.Unit_Name AS Product_Warranty FROM Product_GuarantyWarrantydetails INNER JOIN Product_Master ON Product_GuarantyWarrantydetails.gwd_ProductId = Product_Master.Product_Kid INNER JOIN Unit_Master ON Product_GuarantyWarrantydetails.gwd_pwarranty2 = Unit_Master.Unit_Kid WHERE Product_Master.Product_Kid = '" & StrVal & "' AND Product_Master.Product_IsDeleted = '0' AND Product_Master.Product_Approved = 'Y'" Dim cmd88 As New SqlCommand(qry8, con) Dim dr88 As SqlDataReader = cmd88.ExecuteReader() If dr88.HasRows Then Label34.Style.Add("Color", "Black") While dr88.Read If dr88("gwd_pwarranty1").ToString = "0" Or dr88("gwd_pwarranty1").ToString = "" Then Label34.InnerHtml = "" If dr88("Product_Warranty").ToString <> "" Then Label34.InnerHtml &= "  " & dr88("Product_Warranty").ToString & "

" End If Else Label34.InnerHtml &= "  " & dr88("Product_Warranty").ToString & "

" End If End While Else 'Label34.InnerHtml &= "   Guaranty / Warranty details are not provided for this product.

" 'Label34.Style.Add("Color", "Red") Label34.InnerHtml = "-" Label34.Style.Add("font-size", "12pt") Label34.Style.Add("font-weight", "bold") End If dr88.Close() RowVisisbal(True) ClearLabel1() 'RowNotVisible() End If Catch ex As Exception End Try End Sub Public Sub DisplayData2(ByVal StrVal As String) Try If StrVal = "Select" Then ClearLabel1() Exit Sub ElseIf StrVal = ddlPro3.SelectedValue Or StrVal = ddlPro1.SelectedValue Then showmessage("  You are Selecting Same Product for Comparison.", lblerror) ClearLabel1() Exit Sub Else ' Dim sel2, cat2 As String ' sel2 = ddlPro2.SelectedValue Image2.Visible = True ' cat2 = ReturnValue("SELECT Product_CategoryId FROM ProductDisplay WHERE Product_Kid = '" & sel2 & "' and Product_Approved='Y'") ' Fill_Combo("SELECT Product_Kid, Product_Name FROM ProductDisplay WHERE Product_Kid not in('" & sel2 & "','" & Sel1 & "') AND Product_CategoryId = '" & cat2 & "' and Product_Approved='Y'", ddlPro3) Dim imgpath As String = "" ima2 = ReturnValue("SELECT Product_Image FROM ProductDisplay WHERE Product_Kid = '" & ddlPro2.SelectedValue & "' and Product_Approved='Y'") Image2.ImageUrl = Path.Combine("~/Upload Image/Product Image/UploadImages/", ima2) imgpath = Server.MapPath(Path.Combine("~/Upload Image/Product Image/UploadImages/", ima2)) KeepAspectRatioNew(Image2, imgpath, 120, 120) Dim con As New SqlConnection con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") con.Open() Dim qry As String = "Select * From Compare_Product where Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd As New SqlCommand(qry, con) Dim dr As SqlDataReader dr = cmd.ExecuteReader System.Threading.Thread.Sleep(500) While dr.Read Brand1 = dr("Product_BrandId").ToString Label35.InnerHtml = chkNull(dr("Product_Name").ToString) RowNotVisible(Label35.InnerHtml, Label35) Label36.InnerHtml = chkNull(dr("Product_Code").ToString) RowNotVisible(Label36.InnerHtml, Label36) Label37.InnerHtml = chkNull(dr("Product_MarketPrice").ToString) RowNotVisible(Label37.InnerHtml, Label37) Label39.InnerHtml = chkNull(dr("Product_ModelNo").ToString) RowNotVisible(Label39.InnerHtml, Label39) Label40.InnerHtml = chkNull(dr("Product_MinOrderQty").ToString) RowNotVisible(Label40.InnerHtml, Label40) If chkNull(dr("Product_Dimension").ToString).ToString.Contains("N.A.") Then Label42.InnerHtml = "N.A." RowNotVisible(Label42.InnerHtml, Label42) Else Label42.InnerHtml = chkNull(dr("Product_Dimension").ToString) RowNotVisible(Label42.InnerHtml, Label42) End If Label71.InnerHtml = chkNull(dr("Product_ShippingQty").ToString) RowNotVisible(Label71.InnerHtml, Label71) Label41.InnerHtml = chkNull(dr("Product_Weight").ToString) RowNotVisible(Label41.InnerHtml, Label41) Label43.InnerHtml = chkNull(dr("Product_PcsPerKg").ToString) RowNotVisible(Label43.InnerHtml, Label43) Label44.InnerHtml = chkNull(dr("Product_DeliveryPeriod").ToString) RowNotVisible(Label44.InnerHtml, Label44) Label78.InnerHtml = chkNull(dr("Product_PackagingCharge").ToString) RowNotVisible(Label78.InnerHtml, Label78) 'Label98.InnerHtml = chkNull(dr("Product_ShippingCharge").ToString) 'RowNotVisible(Label98.InnerHtml, Label98) 'Label98.InnerHtml = "  As actual at the time of the Delivery." 'chkNull(dr("Product_ShippingCharge").ToString) 'Label98.Style.Add("Color", "Red") Label98.InnerHtml = "-" Label98.Style.Add("font-size", "12pt") Label98.Style.Add("font-weight", "bold") End While dr.Close() Label38.InnerHtml = chkNull(ReturnValue("SELECT Brand_Name FROM Brand_Master WHERE Brand_Kid = '" & Trim(Brand1) & "'")) RowNotVisible(Label38.InnerHtml, Label38) '========================Features Dim qry1 As String = "SELECT ProdFeatures_Features FROM ProductFeatures WHERE ProdFeatures_ProductId = '" & StrVal & "' and ProdFeatures_IsDeleted='0'" Dim cmd1 As New SqlCommand(qry1, con) Dim dr1 As SqlDataReader = cmd1.ExecuteReader Label45.InnerHtml = "" If dr1.HasRows Then Label45.Style.Add("Color", "Black") While dr1.Read Label45.InnerHtml &= "  " & dr1("ProdFeatures_Features").ToString & "
" End While Else 'Label45.InnerHtml &= "   There are currently no Features for this product. " 'Label45.Style.Add("Color", "Red") Label45.InnerHtml = "-" Label45.Style.Add("font-size", "12pt") Label45.Style.Add("font-weight", "bold") End If dr1.Close() '=====================Application Dim qry2 As String = "SELECT ProdApp_Application FROM ProductApplication WHERE ProdApp_ProductId = '" & StrVal & "' and ProdApp_IsDeleted='0'" Dim cmd2 As New SqlCommand(qry2, con) Dim dr2 As SqlDataReader = cmd2.ExecuteReader Label46.InnerHtml = "" If dr2.HasRows Then Label46.Style.Add("Color", "Black") While dr2.Read Label46.InnerHtml &= "  " & dr2("ProdApp_Application").ToString & "
" End While Else 'Label46.InnerHtml &= "   There are currently no Applications for this product." 'Label46.Style.Add("Color", "Red") Label46.InnerHtml = "-" Label46.Style.Add("font-size", "12pt") Label46.Style.Add("font-weight", "bold") End If dr2.Close() '=======================Technical Specification Dim qry3 As String = "SELECT ProductTechnicalSpecification_Master.TechSpec_Parameter, ProductTechnicalSpecification.TechSpec_value FROM ProductTechnicalSpecification INNER JOIN ProductTechnicalSpecification_Master ON ProductTechnicalSpecification.TechSpec_ParameterId = ProductTechnicalSpecification_Master.TechSpec_KID WHERE ProductTechnicalSpecification.TechSpec_ProductId = '" & StrVal & "' and ProductTechnicalSpecification.TechSpec_IsDeleted='0'" Dim cmd3 As New SqlCommand(qry3, con) Dim dr3 As SqlDataReader = cmd3.ExecuteReader ' ''Label30.InnerHtml = "" If dr3.HasRows Then Dim dttech As New DataTable dttech.Load(dr3) ' ''Label30.Style.Add("Color", "Black") gvtechspec1.Visible = True gvtechspec1.DataSource = dttech.DefaultView gvtechspec1.DataBind() 'While dr3.Read ' ''Label30.InnerHtml &= "  " & dr3("TechSpec_parameter").ToString & "
" 'End While Else gvtechspec1.Visible = True gvtechspec1.DataSource = Nothing gvtechspec1.DataBind() ' ''Label30.InnerHtml &= "   Technical Specification of This Product does not have any data." ''Label30.Style.Add("Color", "Red") End If dr3.Close() '=========================Included Accessories. Dim qry4 As String = "SELECT Product_Master.Product_Name, Product_Master.Product_ModelNo FROM OtherDetail_IncludedAccessories INNER JOIN Product_Master ON OtherDetail_IncludedAccessories.ODTIA_InAccessId = Product_Master.Product_Kid WHERE OtherDetail_IncludedAccessories.ODTIA_ProductId ='" & StrVal & "' and OtherDetail_IncludedAccessories.ODTIA_IsDeleted='0'" Dim cmd4 As New SqlCommand(qry4, con) Dim dr4 As SqlDataReader = cmd4.ExecuteReader Label48.InnerHtml = "" If dr4.HasRows Then Label48.Style.Add("Color", "Black") While dr4.Read Label48.InnerHtml &= "  " & dr4("Product_Name").ToString & "
" End While Else 'Label48.InnerHtml &= "   There are currently no Included Accessories for this product." 'Label48.Style.Add("Color", "Red") Label48.InnerHtml = "-" Label48.Style.Add("font-size", "12pt") Label48.Style.Add("font-weight", "bold") End If dr4.Close() '============================Product Standard Approval. Dim qry5 As String = "SELECT ProductStandardApproval.ProdStdApproval_FileName FROM ProductStandardApproval WHERE (ProductStandardApproval.ProdStdApproval_ProductId ='" & StrVal & "' ) AND (ProductStandardApproval.ProdStdApproval_IsDeleted = N'0')" '"SELECT ProdStdApproval_StandardName FROM ProductStandardApproval WHERE ProdStdApproval_ProductId = '" & StrVal & "'" Dim cmd5 As New SqlCommand(qry5, con) Dim dr5 As SqlDataReader = cmd5.ExecuteReader Label49.InnerHtml = "" If dr5.HasRows Then Dim i As Integer = 0 While dr5.Read If dr5.Item("ProdStdApproval_FileName").ToString() <> "" Then Label49.InnerHtml &= "Product Certificate" & i + 1 & "
" End If End While Else 'Label49.InnerHtml &= "   There are currently no Standards and Certificates for this product." 'Label49.Style.Add("Color", "Red") Label49.InnerHtml = "-" Label49.Style.Add("font-size", "12pt") Label49.Style.Add("font-weight", "bold") End If dr5.Close() '==========================Installation/Commissioning. Dim Install As Decimal = 0.0 Dim qry6 As String = "SELECT ProductInstallationCommissioning.InstallationComm_IsRequired, ProductInstallationCommissioning.InstallationComm_IsChargeable,ProductInstallationCommissioning.InstallationComm_Amount, ProductInstallationCommissioning.InstallationComm_IsMaintenanceTraining,ProductInstallationCommissioning.InstallationComm_IsAMCAvailable FROM ProductInstallationCommissioning INNER JOIN Product_Master ON ProductInstallationCommissioning.InstallationComm_ProductId = Product_Master.Product_Kid WHERE InstallationComm_ProductId = '" & StrVal & "' and InstallationComm_IsDeleted='0'" Dim cmd6 As New SqlCommand(qry6, con) Dim dr6 As SqlDataReader = cmd6.ExecuteReader Label74.InnerHtml = "" If dr6.Read Then Label74.Style.Add("Color", "Black") If dr6("InstallationComm_IsRequired").ToString = "N" Then 'Label74.InnerHtml = "Not Applicable" Label74.InnerHtml = "-" Label74.Style.Add("font-size", "12pt") Label74.Style.Add("font-weight", "bold") ElseIf dr6("InstallationComm_IsChargeable").ToString = "N" Then 'Label74.InnerHtml = "Not Chargeable" Label74.InnerHtml = "-" Label74.Style.Add("font-size", "12pt") Label74.Style.Add("font-weight", "bold") Else Label74.InnerHtml = "   Rs. " & dr6("InstallationComm_Amount").ToString & "

" Install = dr6("InstallationComm_Amount") If dr6("InstallationComm_IsAMCAvailable").ToString = "Y" Then Label74.InnerHtml += "
   AMC Available.

" End If End If Else 'Label74.InnerHtml &= "   This Product does not contain any Installation and Commissioning Details." 'Label74.Style.Add("Color", "Red") Label74.InnerHtml = "-" Label74.Style.Add("font-size", "12pt") Label74.Style.Add("font-weight", "bold") End If dr6.Close() '=============================ProductVat/ExciseDuty/EduCess Dim VAT As Decimal = 0.0 Dim CST As Decimal = 0.0 Dim ExciseDuty As Decimal = 0.0 Dim EduCess As Decimal = 0.0 Dim HigherEduCess As Decimal = 0.0 Dim CSTAgainstC As Decimal = 0.0 Dim TotalPriceVat As Decimal = 0.0 Dim TotalPriceCST As Decimal = 0.0 Dim TotalPriceCForm As Decimal = 0.0 Dim TotalWithOutT As Decimal = 0.0 Dim Total As Decimal = 0.0 Dim qry7 As String = "SELECT ProductVat.ProductVat_VAT,ProductVat.ProductVat_CST,ProductVat.ProductVat_EduCess, ProductVat.ProductVat_HigherEduCess, ProductVat.ProductVat_ExciseDuty, ProductVat.ProductVat_CSTAgainstC,ISNULL(Product_Master.Product_MarketPrice,'0.0') as Product_MarketPrice, ISNULL(Product_Master.Product_PackagingCharge, N'0.0') AS Product_PackagingCharge, ISNULL(Product_Master.Product_ShippingCharges, N'0.0') AS Product_ShippingCharges FROM Product_Master LEFT OUTER JOIN ProductVat ON Product_Master.Product_Kid = ProductVat.ProductVat_ProductId WHERE Product_Master.Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd7 As New SqlCommand(qry7, con) Dim dr7 As SqlDataReader = cmd7.ExecuteReader Label81.InnerHtml = "" Label84.InnerHtml = "" Label87.InnerHtml = "" Label90.InnerHtml = "" Label107.InnerHtml = "" Label110.InnerHtml = "" If dr7.HasRows Then While dr7.Read Total = Round((dr7("Product_MarketPrice") + dr7("Product_PackagingCharge")), 2) '+ dr7("Product_ShippingCharges") If dr7("ProductVat_ExciseDuty").ToString = "No" Then Label81.InnerHtml = "N.A." Label84.InnerHtml = "N.A." Label87.InnerHtml = "N.A." RowNotVisible(Label81.InnerHtml, Label81) RowNotVisible(Label84.InnerHtml, Label84) RowNotVisible(Label87.InnerHtml, Label87) ElseIf dr7("ProductVat_ExciseDuty").ToString = "" Then Label81.InnerHtml = "N.A." Label84.InnerHtml = "N.A." Label87.InnerHtml = "N.A." RowNotVisible(Label81.InnerHtml, Label81) RowNotVisible(Label84.InnerHtml, Label84) RowNotVisible(Label87.InnerHtml, Label87) Else ExciseDuty = (dr7("ProductVat_ExciseDuty") * Total) / 100 Label81.InnerHtml = "Rs. " & Round(ExciseDuty, 2) 'dr7("ProductVat_ExciseDuty").ToString & " %" RowNotVisible(Label81.InnerHtml, Label81) If dr7("ProductVat_EduCess").ToString = "No" Then Label84.InnerHtml = "N.A." RowNotVisible(Label84.InnerHtml, Label84) ElseIf dr7("ProductVat_EduCess").ToString = "" Then Label84.InnerHtml = "N.A." RowNotVisible(Label84.InnerHtml, Label84) Else EduCess = (ExciseDuty * dr7("ProductVat_EduCess")) / 100 Label84.InnerHtml = "Rs. " & Round(EduCess, 2) 'dr7("ProductVat_EduCess").ToString & " % " RowNotVisible(Label84.InnerHtml, Label84) End If If dr7("ProductVat_HigherEduCess").ToString = "No" Then Label87.InnerHtml = "N.A." RowNotVisible(Label87.InnerHtml, Label87) ElseIf dr7("ProductVat_HigherEduCess").ToString = "" Then Label87.InnerHtml = "N.A." RowNotVisible(Label87.InnerHtml, Label87) Else HigherEduCess = (ExciseDuty * dr7("ProductVat_HigherEduCess")) / 100 Label87.InnerHtml = "Rs. " & Round(HigherEduCess, 2) 'dr7("ProductVat_HigherEduCess").ToString & " %" RowNotVisible(Label87.InnerHtml, Label87) End If End If If dr7("ProductVat_VAT").ToString = "No" Then Label107.InnerHtml = "N.A." RowNotVisible(Label107.InnerHtml, Label107) ElseIf dr7("ProductVat_VAT").ToString <> "" Then VAT = ((Total + ExciseDuty + EduCess + HigherEduCess) * dr7("ProductVat_VAT")) / 100 Label107.InnerHtml = "Rs. " & Round(VAT, 2) ''dr7("ProductVat_VAT").ToString & " %" RowNotVisible(Label107.InnerHtml, Label107) Else Label107.InnerHtml = "N.A." RowNotVisible(Label107.InnerHtml, Label107) End If If dr7("ProductVat_CST").ToString = "No" Then Label110.InnerHtml = "N.A." RowNotVisible(Label110.InnerHtml, Label110) ElseIf dr7("ProductVat_CST").ToString <> "" Then CST = ((Total + ExciseDuty + EduCess + HigherEduCess) * dr7("ProductVat_CST")) / 100 Label110.InnerHtml = "Rs. " & Round(CST, 2) ''dr7("ProductVat_CST").ToString & " %" RowNotVisible(Label110.InnerHtml, Label110) Else Label110.InnerHtml = "N.A." RowNotVisible(Label110.InnerHtml, Label110) End If If dr7("ProductVat_CSTAgainstC").ToString = "No" Then Label90.InnerHtml = "N.A." RowNotVisible(Label90.InnerHtml, Label90) ElseIf dr7("ProductVat_CSTAgainstC").ToString <> "" Then CSTAgainstC = ((Total + ExciseDuty + EduCess + HigherEduCess) * dr7("ProductVat_CSTAgainstC")) / 100 Label90.InnerHtml = "Rs. " & Round(CSTAgainstC, 2) ''dr7("ProductVat_CSTAgainstC").ToString & " %" RowNotVisible(Label90.InnerHtml, Label90) Else Label90.InnerHtml = "N.A." RowNotVisible(Label90.InnerHtml, Label90) End If End While If VAT <> 0.0 Then TotalPriceVat = Round((Total + ExciseDuty + EduCess + HigherEduCess + VAT + Install), 2) Label101.InnerHtml = "Rs. " & TotalPriceVat Else Label101.InnerHtml = "Rs. " & Total End If If CST <> 0.0 Then TotalPriceCST = Round((Total + ExciseDuty + EduCess + HigherEduCess + CST + Install), 2) Label104.InnerHtml = "Rs. " & TotalPriceCST Else Label104.InnerHtml = "Rs. " & Total End If If CSTAgainstC <> 0.0 Then TotalPriceCForm = Round((Total + ExciseDuty + EduCess + HigherEduCess + CSTAgainstC + Install), 2) Label115.InnerHtml = "Rs. " & TotalPriceCForm Else Label115.InnerHtml = "Rs. " & Total End If If Total <> 0.0 Then TotalWithOutT = Round((Total + ExciseDuty + EduCess + HigherEduCess + Install), 2) Label118.InnerHtml = "Rs. " & TotalWithOutT Else Label118.InnerHtml = "Rs. " & Total End If Else Total = Round((dr7("Product_MarketPrice") + dr7("Product_PackagingCharge")), 2) '+ dr7("Product_ShippingCharges") Label81.InnerHtml = "N.A." Label84.InnerHtml = "N.A." Label87.InnerHtml = "N.A." Label90.InnerHtml = "N.A." Label107.InnerHtml = "N.A." Label110.InnerHtml = "N.A." RowNotVisible(Label81.InnerHtml, Label81) RowNotVisible(Label84.InnerHtml, Label84) RowNotVisible(Label87.InnerHtml, Label87) RowNotVisible(Label90.InnerHtml, Label90) RowNotVisible(Label107.InnerHtml, Label107) RowNotVisible(Label110.InnerHtml, Label110) If VAT <> 0.0 Then TotalPriceVat = Round((Total + ExciseDuty + EduCess + HigherEduCess + VAT + Install), 2) Label101.InnerHtml = "Rs. " & TotalPriceVat Else Label101.InnerHtml = "Rs. " & Total End If If CST <> 0.0 Then TotalPriceCST = Round((Total + ExciseDuty + EduCess + HigherEduCess + CST + Install), 2) Label104.InnerHtml = "Rs. " & TotalPriceCST Else Label104.InnerHtml = "Rs. " & Total End If If CSTAgainstC <> 0.0 Then TotalPriceCForm = Round((Total + ExciseDuty + EduCess + HigherEduCess + CSTAgainstC + Install), 2) Label115.InnerHtml = "Rs. " & TotalPriceCForm Else Label115.InnerHtml = "Rs. " & Total End If If Total <> 0.0 Then TotalWithOutT = Round((Total + ExciseDuty + EduCess + HigherEduCess + Install), 2) Label118.InnerHtml = "Rs. " & TotalWithOutT Else Label118.InnerHtml = "Rs. " & Total End If End If RowNotVisible(Label101.InnerHtml, Label101) RowNotVisible(Label104.InnerHtml, Label104) RowNotVisible(Label115.InnerHtml, Label115) RowNotVisible(Label118.InnerHtml, Label118) dr7.Close() cmd7.Dispose() ' =======================Guaranty/Warranty details Dim qry8 As String = " SELECT Product_GuarantyWarrantydetails.gwd_pguarentee1 , Product_GuarantyWarrantydetails.gwd_pguarentee1 + ' ' + Unit_Master.Unit_Name AS Product_Gurantee, Product_GuarantyWarrantydetails.gwd_FileName FROM Product_GuarantyWarrantydetails INNER JOIN Product_Master ON Product_GuarantyWarrantydetails.gwd_ProductId = Product_Master.Product_Kid INNER JOIN Unit_Master ON Product_GuarantyWarrantydetails.gwd_pguarentee2 = Unit_Master.Unit_Kid WHERE Product_Master.Product_Kid ='" & StrVal & "' AND Product_Master.Product_IsDeleted = '0' AND Product_Master.Product_Approved = 'Y'" Dim cmd8 As New SqlCommand(qry8, con) Dim dr8 As SqlDataReader = cmd8.ExecuteReader Label50.InnerHtml = "" Label51.InnerHtml = "" If dr8.HasRows Then Label50.Style.Add("Color", "Black") Label51.Style.Add("Color", "Black") While dr8.Read If dr8("gwd_pguarentee1").ToString = "0" Or dr8("gwd_pguarentee1").ToString = "" Then Label50.InnerHtml = "" If dr8("Product_Gurantee").ToString <> "" Then Label50.InnerHtml &= "  " & dr8("Product_Gurantee").ToString & "

" End If Else Label50.InnerHtml &= "  " & dr8("Product_Gurantee").ToString & "

" End If If dr8("gwd_FileName").ToString <> "" Then Label50.InnerHtml &= " Guaranty Certificate" Else Label50.InnerHtml &= "" End If End While Else 'Label50.InnerHtml &= "   Guaranty / Warranty details are not provided for this product." 'Label50.Style.Add("Color", "Red") Label50.InnerHtml = "-" Label50.Style.Add("font-size", "12pt") Label50.Style.Add("font-weight", "bold") End If dr8.Close() qry8 = "SELECT Product_GuarantyWarrantydetails.gwd_pwarranty1, Product_GuarantyWarrantydetails.gwd_pwarranty1 + ' ' + Unit_Master.Unit_Name AS Product_Warranty, Product_GuarantyWarrantydetails.gwd_FileName FROM Product_GuarantyWarrantydetails INNER JOIN Product_Master ON Product_GuarantyWarrantydetails.gwd_ProductId = Product_Master.Product_Kid INNER JOIN Unit_Master ON Product_GuarantyWarrantydetails.gwd_pwarranty2 = Unit_Master.Unit_Kid WHERE Product_Master.Product_Kid = '" & StrVal & "' AND Product_Master.Product_IsDeleted = '0' AND Product_Master.Product_Approved = 'Y'" Dim cmd88 As New SqlCommand(qry8, con) Dim dr88 As SqlDataReader = cmd88.ExecuteReader() If dr88.HasRows Then While dr88.Read If dr88("gwd_pwarranty1").ToString = "0" Or dr88("gwd_pwarranty1").ToString = "" Then Label51.InnerHtml = "" If dr88("Product_Warranty").ToString <> "" Then Label51.InnerHtml &= "  " & dr88("Product_Warranty").ToString & "

" End If Else Label51.InnerHtml &= "  " & dr88("Product_Warranty").ToString & "

" End If If dr88("gwd_FileName").ToString <> "" Then Label51.InnerHtml &= " Warranty Certificate" Else Label51.InnerHtml &= "" End If End While Else 'Label68.InnerHtml &= "   Guaranty / Warranty details are not provided for this product." 'Label68.Style.Add("Color", "Red") Label51.InnerHtml = "-" Label51.Style.Add("font-size", "12pt") Label51.Style.Add("font-weight", "bold") End If dr88.Close() RowVisisbal(True) End If Catch ex As Exception End Try End Sub Public Sub DisplayData3(ByVal StrVal As String) Try If StrVal = "Select" Then ClearLabel2() Exit Sub ElseIf StrVal = ddlPro2.SelectedValue Or StrVal = ddlPro1.SelectedValue Then showmessage("  You are Selecting Same Product for Comparison.", lblerror) ClearLabel2() Exit Sub Else ' Image3.Visible = True Dim imgpath As String = "" ima3 = ReturnValue("SELECT Product_Image FROM ProductDisplay WHERE Product_Kid = '" & ddlPro3.SelectedValue & "' and Product_Approved='Y'") Image3.ImageUrl = Path.Combine("~/Upload Image/Product Image/UploadImages/", ima3) imgpath = Server.MapPath(Path.Combine("~/Upload Image/Product Image/UploadImages/", ima3)) KeepAspectRatioNew(Image3, imgpath, 120, 120) Dim con As New SqlConnection con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") con.Open() Dim qry As String = "Select * From Compare_Product where Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd As New SqlCommand(qry, con) Dim dr As SqlDataReader dr = cmd.ExecuteReader System.Threading.Thread.Sleep(500) While dr.Read Brand1 = dr("Product_BrandId").ToString Label52.InnerHtml = chkNull(dr("Product_Name").ToString) RowNotVisible(Label52.InnerHtml, Label52) Label53.InnerHtml = chkNull(dr("Product_Code").ToString) RowNotVisible(Label53.InnerHtml, Label53) Label54.InnerHtml = chkNull(dr("Product_MarketPrice").ToString) RowNotVisible(Label54.InnerHtml, Label54) Label56.InnerHtml = chkNull(dr("Product_ModelNo").ToString) RowNotVisible(Label56.InnerHtml, Label56) Label57.InnerHtml = chkNull(dr("Product_MinOrderQty").ToString) RowNotVisible(Label57.InnerHtml, Label57) If chkNull(dr("Product_Dimension").ToString).ToString.Contains("N.A.") Then Label59.InnerHtml = "N.A." RowNotVisible(Label59.InnerHtml, Label59) Else Label59.InnerHtml = chkNull(dr("Product_Dimension").ToString) RowNotVisible(Label59.InnerHtml, Label59) End If Label72.InnerHtml = chkNull(dr("Product_ShippingQty").ToString) RowNotVisible(Label72.InnerHtml, Label72) Label58.InnerHtml = chkNull(dr("Product_Weight").ToString) RowNotVisible(Label58.InnerHtml, Label58) Label60.InnerHtml = chkNull(dr("Product_PcsPerKg").ToString) RowNotVisible(Label60.InnerHtml, Label60) Label61.InnerHtml = chkNull(dr("Product_DeliveryPeriod").ToString) RowNotVisible(Label61.InnerHtml, Label61) Label79.InnerHtml = chkNull(dr("Product_PackagingCharge").ToString) RowNotVisible(Label79.InnerHtml, Label79) 'Label99.InnerHtml = chkNull(dr("Product_ShippingCharge").ToString) 'RowNotVisible(Label99.InnerHtml, Label99) 'Label99.InnerHtml = "  As actual at the time of the Delivery." 'chkNull(dr("Product_ShippingCharge").ToString) 'Label99.Style.Add("Color", "Red") Label99.InnerHtml = "-" Label99.Style.Add("font-size", "12pt") Label99.Style.Add("font-weight", "bold") End While dr.Close() Label55.InnerHtml = chkNull(ReturnValue("SELECT Brand_Name FROM Brand_Master WHERE Brand_Kid = '" & Trim(Brand1) & "'")) RowNotVisible(Label55.InnerHtml, Label55) '==========================Features Dim qry1 As String = "SELECT ProdFeatures_Features FROM ProductFeatures WHERE ProdFeatures_ProductId = '" & StrVal & "' and ProdFeatures_IsDeleted='0'" Dim cmd1 As New SqlCommand(qry1, con) Dim dr1 As SqlDataReader = cmd1.ExecuteReader Label62.InnerHtml = "" If dr1.HasRows Then Label62.Style.Add("Color", "Black") While dr1.Read Label62.InnerHtml &= "  " & dr1("ProdFeatures_Features").ToString & "
" End While Else 'Label62.InnerHtml &= "   There are currently no Features for this product. " 'Label62.Style.Add("Color", "Red") Label62.InnerHtml = "-" Label62.Style.Add("font-size", "12pt") Label62.Style.Add("font-weight", "bold") End If dr1.Close() '=========================Application Dim qry2 As String = "SELECT ProdApp_Application FROM ProductApplication WHERE ProdApp_ProductId = '" & StrVal & "' and ProdApp_IsDeleted='0'" Dim cmd2 As New SqlCommand(qry2, con) Dim dr2 As SqlDataReader = cmd2.ExecuteReader Label63.InnerHtml = "" If dr2.HasRows Then Label63.Style.Add("Color", "Black") While dr2.Read Label63.InnerHtml &= "  " & dr2("ProdApp_Application").ToString & "
" End While Else 'Label63.InnerHtml &= "   There are currently no Applications for this product." 'Label63.Style.Add("Color", "Red") Label63.InnerHtml = "-" Label63.Style.Add("font-size", "12pt") Label63.Style.Add("font-weight", "bold") End If dr2.Close() '============================Technical Specification Dim qry3 As String = "SELECT ProductTechnicalSpecification_Master.TechSpec_Parameter, ProductTechnicalSpecification.TechSpec_value FROM ProductTechnicalSpecification INNER JOIN ProductTechnicalSpecification_Master ON ProductTechnicalSpecification.TechSpec_ParameterId = ProductTechnicalSpecification_Master.TechSpec_KID WHERE ProductTechnicalSpecification.TechSpec_ProductId = '" & StrVal & "' and ProductTechnicalSpecification.TechSpec_IsDeleted='0'" Dim cmd3 As New SqlCommand(qry3, con) Dim dr3 As SqlDataReader = cmd3.ExecuteReader ' Label64.InnerHtml = "" If dr3.HasRows Then Dim dttech As New DataTable dttech.Load(dr3) 'Label64.Style.Add("Color", "Black") gvtechspec2.Visible = True gvtechspec2.DataSource = dttech.DefaultView gvtechspec2.DataBind() 'While dr3.Read ' Label64.InnerHtml &= "  " & dr3("TechSpec_parameter").ToString & "
" 'End While Else gvtechspec2.Visible = True gvtechspec2.DataSource = Nothing gvtechspec2.DataBind() 'Label64.InnerHtml &= "   Technical Specification of This Product does not have any data." 'Label64.Style.Add("Color", "Red") End If dr3.Close() '============================Included Accessories. Dim qry4 As String = "SELECT Product_Master.Product_Name, Product_Master.Product_ModelNo FROM OtherDetail_IncludedAccessories INNER JOIN Product_Master ON OtherDetail_IncludedAccessories.ODTIA_InAccessId = Product_Master.Product_Kid WHERE OtherDetail_IncludedAccessories.ODTIA_ProductId ='" & StrVal & "' and OtherDetail_IncludedAccessories.ODTIA_IsDeleted='0'" Dim cmd4 As New SqlCommand(qry4, con) Dim dr4 As SqlDataReader = cmd4.ExecuteReader Label65.InnerHtml = "" If dr4.HasRows Then Label65.Style.Add("Color", "Black") While dr4.Read Label65.InnerHtml &= "  " & dr4("Product_Name").ToString & "
" End While Else 'Label65.InnerHtml &= "   There are currently no Included Accessories for this product." 'Label65.Style.Add("Color", "Red") Label65.InnerHtml = "-" Label65.Style.Add("font-size", "12pt") Label65.Style.Add("font-weight", "bold") End If dr4.Close() '=============================Product Standard Approval. Dim qry5 As String = "SELECT ProductStandardApproval.ProdStdApproval_FileName FROM ProductStandardApproval WHERE (ProductStandardApproval.ProdStdApproval_ProductId ='" & StrVal & "' ) AND (ProductStandardApproval.ProdStdApproval_IsDeleted = N'0')" '"SELECT ProdStdApproval_StandardName FROM ProductStandardApproval WHERE ProdStdApproval_ProductId = '" & StrVal & "'" Dim cmd5 As New SqlCommand(qry5, con) Dim dr5 As SqlDataReader = cmd5.ExecuteReader Label66.InnerHtml = "" If dr5.HasRows Then Label66.Style.Add("Color", "Black") Dim i As Integer = 0 While dr5.Read If dr5.Item("ProdStdApproval_FileName").ToString() <> "" Then Label66.InnerHtml &= "Product Certificate" & i + 1 & "
" End If End While Else 'Label66.InnerHtml &= "   There are currently no Standards and Certificates for this product." 'Label66.Style.Add("Color", "Red") Label66.InnerHtml = "-" Label66.Style.Add("font-size", "12pt") Label66.Style.Add("font-weight", "bold") End If dr5.Close() '==========================Installation/Commissioning. Dim Install As Decimal = 0.0 Dim qry6 As String = "SELECT ProductInstallationCommissioning.InstallationComm_IsRequired, ProductInstallationCommissioning.InstallationComm_IsChargeable,ProductInstallationCommissioning.InstallationComm_Amount, ProductInstallationCommissioning.InstallationComm_IsMaintenanceTraining,ProductInstallationCommissioning.InstallationComm_IsAMCAvailable FROM ProductInstallationCommissioning INNER JOIN Product_Master ON ProductInstallationCommissioning.InstallationComm_ProductId = Product_Master.Product_Kid WHERE InstallationComm_ProductId = '" & StrVal & "' and InstallationComm_IsDeleted='0'" Dim cmd6 As New SqlCommand(qry6, con) Dim dr6 As SqlDataReader = cmd6.ExecuteReader Label75.InnerHtml = "" If dr6.Read Then Label75.Style.Add("Color", "Black") If dr6("InstallationComm_IsRequired").ToString = "N" Then 'Label75.InnerHtml = "Not Applicable" Label75.InnerHtml = "-" Label75.Style.Add("font-size", "12pt") Label75.Style.Add("font-weight", "bold") ElseIf dr6("InstallationComm_IsChargeable").ToString = "N" Then 'Label75.InnerHtml = "Not Chargeable" Label75.InnerHtml = "-" Label75.Style.Add("font-size", "12pt") Label75.Style.Add("font-weight", "bold") Else Label75.InnerHtml = "   Rs. " & dr6("InstallationComm_Amount").ToString & "

" Install = dr6("InstallationComm_Amount") If dr6("InstallationComm_IsAMCAvailable").ToString = "Y" Then Label75.InnerHtml += "
   AMC Available.

" End If End If Else 'Label75.InnerHtml &= "   This Product does not contain any Installation and Commissioning Details.
" 'Label75.Style.Add("Color", "Red") Label75.InnerHtml = "-" Label75.Style.Add("font-size", "12pt") Label75.Style.Add("font-weight", "bold") End If dr6.Close() '=============================ProductVat/ExciseDuty/EduCess Dim VAT As Decimal = 0.0 Dim CST As Decimal = 0.0 Dim ExciseDuty As Decimal = 0.0 Dim EduCess As Decimal = 0.0 Dim HigherEduCess As Decimal = 0.0 Dim CSTAgainstC As Decimal = 0.0 Dim TotalPriceVat As Decimal = 0.0 Dim TotalPriceCST As Decimal = 0.0 Dim TotalPriceCForm As Decimal = 0.0 Dim TotalWithOutT As Decimal = 0.0 Dim Total As Decimal = 0.0 Dim qry7 As String = "SELECT ProductVat.ProductVat_VAT,ProductVat.ProductVat_CST,ProductVat.ProductVat_EduCess, ProductVat.ProductVat_HigherEduCess, ProductVat.ProductVat_ExciseDuty, ProductVat.ProductVat_CSTAgainstC,ISNULL(Product_Master.Product_MarketPrice,'0.0') as Product_MarketPrice, ISNULL(Product_Master.Product_PackagingCharge, N'0.0') AS Product_PackagingCharge, ISNULL(Product_Master.Product_ShippingCharges, N'0.0') AS Product_ShippingCharges FROM Product_Master LEFT OUTER JOIN ProductVat ON Product_Master.Product_Kid = ProductVat.ProductVat_ProductId WHERE Product_Master.Product_Kid = '" & StrVal & "' and Product_Isdeleted='0' and Product_Approved='Y'" Dim cmd7 As New SqlCommand(qry7, con) Dim dr7 As SqlDataReader = cmd7.ExecuteReader Label82.InnerHtml = "" Label85.InnerHtml = "" Label88.InnerHtml = "" Label91.InnerHtml = "" Label108.InnerHtml = "" Label111.InnerHtml = "" If dr7.HasRows Then While dr7.Read Total = Round((dr7("Product_MarketPrice") + dr7("Product_PackagingCharge")), 2) If dr7("ProductVat_ExciseDuty").ToString = "No" Then Label82.InnerHtml = "N.A." Label85.InnerHtml = "N.A." Label88.InnerHtml = "N.A." RowNotVisible(Label82.InnerHtml, Label82) RowNotVisible(Label85.InnerHtml, Label85) RowNotVisible(Label88.InnerHtml, Label88) ElseIf dr7("ProductVat_ExciseDuty").ToString = "" Then Label82.InnerHtml = "N.A." Label85.InnerHtml = "N.A." Label88.InnerHtml = "N.A." RowNotVisible(Label82.InnerHtml, Label82) RowNotVisible(Label85.InnerHtml, Label85) RowNotVisible(Label88.InnerHtml, Label88) Else ExciseDuty = (dr7("ProductVat_ExciseDuty") * Total) / 100 Label82.InnerHtml = "Rs. " & Round(ExciseDuty, 2) ''dr7("ProductVat_ExciseDuty").ToString & " %" RowNotVisible(Label82.InnerHtml, Label82) If dr7("ProductVat_EduCess").ToString = "No" Then 'Label85.InnerHtml = "Not Applicable" Label85.InnerHtml = "N.A." RowNotVisible(Label85.InnerHtml, Label85) ElseIf dr7("ProductVat_EduCess").ToString = "" Then Label85.InnerHtml = "N.A." RowNotVisible(Label85.InnerHtml, Label85) Else EduCess = (ExciseDuty * dr7("ProductVat_EduCess")) / 100 Label85.InnerHtml = "Rs. " & Round(EduCess, 2) RowNotVisible(Label85.InnerHtml, Label85) End If If dr7("ProductVat_HigherEduCess").ToString = "No" Then 'Label88.InnerHtml = "Not Applicable" Label88.InnerHtml = "N.A." RowNotVisible(Label88.InnerHtml, Label88) ElseIf dr7("ProductVat_HigherEduCess").ToString = "" Then Label88.InnerHtml = "N.A." RowNotVisible(Label88.InnerHtml, Label88) Else HigherEduCess = (ExciseDuty * dr7("ProductVat_HigherEduCess")) / 100 Label88.InnerHtml = "Rs. " & Round(HigherEduCess, 2) RowNotVisible(Label88.InnerHtml, Label88) End If End If If dr7("ProductVat_VAT").ToString = "No" Then 'Label108.InnerHtml = "Not Applicable" Label108.InnerHtml = "N.A." RowNotVisible(Label108.InnerHtml, Label108) ElseIf dr7("ProductVat_VAT").ToString <> "" Then VAT = ((Total + ExciseDuty + EduCess + HigherEduCess) * dr7("ProductVat_VAT")) / 100 Label108.InnerHtml = "Rs. " & Round(VAT, 2) RowNotVisible(Label108.InnerHtml, Label108) Else Label108.InnerHtml = "N.A." RowNotVisible(Label108.InnerHtml, Label108) End If If dr7("ProductVat_CST").ToString = "No" Then ' Label111.InnerHtml = "Not Applicable" Label111.InnerHtml = "N.A." RowNotVisible(Label111.InnerHtml, Label111) ElseIf dr7("ProductVat_CST").ToString <> "" Then CST = ((Total + ExciseDuty + EduCess + HigherEduCess) * dr7("ProductVat_CST")) / 100 Label111.InnerHtml = "Rs. " & Round(CST, 2) RowNotVisible(Label111.InnerHtml, Label111) Else Label111.InnerHtml = "N.A." RowNotVisible(Label111.InnerHtml, Label111) End If If dr7("ProductVat_CSTAgainstC").ToString = "No" Then 'Label91.InnerHtml = "Not Applicable" Label91.InnerHtml = "N.A." RowNotVisible(Label91.InnerHtml, Label91) ElseIf dr7("ProductVat_CSTAgainstC").ToString <> "" Then CSTAgainstC = ((Total + ExciseDuty + EduCess + HigherEduCess) * dr7("ProductVat_CSTAgainstC")) / 100 Label91.InnerHtml = "Rs. " & Round(CSTAgainstC, 2) RowNotVisible(Label91.InnerHtml, Label91) Else Label91.InnerHtml = "N.A." RowNotVisible(Label91.InnerHtml, Label91) End If End While If VAT <> 0.0 Then TotalPriceVat = Round((Total + ExciseDuty + EduCess + HigherEduCess + VAT + Install), 2) Label102.InnerHtml = "Rs. " & TotalPriceVat Else Label102.InnerHtml = "Rs. " & Total End If If CST <> 0.0 Then TotalPriceCST = Round((Total + ExciseDuty + EduCess + HigherEduCess + CST + Install), 2) Label105.InnerHtml = "Rs. " & TotalPriceCST Else Label105.InnerHtml = "Rs. " & Total End If If CSTAgainstC <> 0.0 Then TotalPriceCForm = Round((Total + ExciseDuty + EduCess + HigherEduCess + CSTAgainstC + Install), 2) Label116.InnerHtml = "Rs. " & TotalPriceCForm Else Label116.InnerHtml = "Rs. " & Total End If If Total <> 0.0 Then TotalWithOutT = Round((Total + ExciseDuty + EduCess + HigherEduCess + Install), 2) Label119.InnerHtml = "Rs. " & TotalWithOutT Else Label119.InnerHtml = "Rs. " & Total End If Else Total = Round((dr7("Product_MarketPrice") + dr7("Product_PackagingCharge")), 2) Label82.InnerHtml = "N.A." Label85.InnerHtml = "N.A." Label88.InnerHtml = "N.A." Label91.InnerHtml = "N.A." Label108.InnerHtml = "N.A." Label111.InnerHtml = "N.A." RowNotVisible(Label82.InnerHtml, Label82) RowNotVisible(Label85.InnerHtml, Label85) RowNotVisible(Label88.InnerHtml, Label88) RowNotVisible(Label91.InnerHtml, Label91) RowNotVisible(Label108.InnerHtml, Label108) RowNotVisible(Label111.InnerHtml, Label111) If VAT <> 0.0 Then TotalPriceVat = Round((Total + ExciseDuty + EduCess + HigherEduCess + VAT + Install), 2) Label100.InnerHtml = "Rs. " & TotalPriceVat Else Label100.InnerHtml = "Rs. " & Total End If If CST <> 0.0 Then TotalPriceCST = Round((Total + ExciseDuty + EduCess + HigherEduCess + CST + Install), 2) Label103.InnerHtml = "Rs. " & TotalPriceCST Else Label103.InnerHtml = "Rs. " & Total End If If CSTAgainstC <> 0.0 Then TotalPriceCForm = Round((Total + ExciseDuty + EduCess + HigherEduCess + CSTAgainstC + Install), 2) Label114.InnerHtml = "Rs. " & TotalPriceCForm Else Label114.InnerHtml = "Rs. " & Total End If If Total <> 0.0 Then TotalWithOutT = Round((Total + ExciseDuty + EduCess + HigherEduCess + Install), 2) Label117.InnerHtml = "Rs. " & TotalWithOutT Else Label117.InnerHtml = "Rs. " & Total End If End If RowNotVisible(Label102.InnerHtml, Label102) RowNotVisible(Label105.InnerHtml, Label105) RowNotVisible(Label116.InnerHtml, Label116) RowNotVisible(Label119.InnerHtml, Label119) dr7.Close() cmd7.Dispose() ' =======================Guaranty/Warranty details Dim qry8 As String = " SELECT Product_GuarantyWarrantydetails.gwd_pguarentee1 , Product_GuarantyWarrantydetails.gwd_pguarentee1 + ' ' + Unit_Master.Unit_Name AS Product_Gurantee FROM Product_GuarantyWarrantydetails INNER JOIN Product_Master ON Product_GuarantyWarrantydetails.gwd_ProductId = Product_Master.Product_Kid INNER JOIN Unit_Master ON Product_GuarantyWarrantydetails.gwd_pguarentee2 = Unit_Master.Unit_Kid WHERE Product_Master.Product_Kid ='" & StrVal & "' AND Product_Master.Product_IsDeleted = '0' AND Product_Master.Product_Approved = 'Y'" Dim cmd8 As New SqlCommand(qry8, con) Dim dr8 As SqlDataReader = cmd8.ExecuteReader Label67.InnerHtml = "" Label68.InnerHtml = "" If dr8.HasRows Then Label67.Style.Add("Color", "Black") Label68.Style.Add("Color", "Black") While dr8.Read If dr8("gwd_pguarentee1").ToString = "0" Or dr8("gwd_pguarentee1").ToString = "" Then Label67.InnerHtml = "" If dr8("Product_Gurantee").ToString <> "" Then Label67.InnerHtml &= "  " & dr8("Product_Gurantee").ToString & "

" End If Else Label67.InnerHtml &= "  " & dr8("Product_Gurantee").ToString & "

" End If End While Else 'Label67.InnerHtml &= "   Guaranty / Warranty details are not provided for this product." 'Label67.Style.Add("Color", "Red") Label67.InnerHtml = "-" Label67.Style.Add("font-size", "12pt") Label67.Style.Add("font-weight", "bold") End If dr8.Close() qry8 = "SELECT Product_GuarantyWarrantydetails.gwd_pwarranty1, Product_GuarantyWarrantydetails.gwd_pwarranty1 + ' ' + Unit_Master.Unit_Name AS Product_Warranty FROM Product_GuarantyWarrantydetails INNER JOIN Product_Master ON Product_GuarantyWarrantydetails.gwd_ProductId = Product_Master.Product_Kid INNER JOIN Unit_Master ON Product_GuarantyWarrantydetails.gwd_pwarranty2 = Unit_Master.Unit_Kid WHERE Product_Master.Product_Kid = '" & StrVal & "' AND Product_Master.Product_IsDeleted = '0' AND Product_Master.Product_Approved = 'Y'" Dim cmd88 As New SqlCommand(qry8, con) Dim dr88 As SqlDataReader = cmd88.ExecuteReader() If dr88.HasRows Then While dr88.Read If dr88("gwd_pwarranty1").ToString = "0" Or dr88("gwd_pwarranty1").ToString = "" Then Label68.InnerHtml = "" If dr88("Product_Warranty").ToString <> "" Then Label68.InnerHtml &= "  " & dr88("Product_Warranty").ToString & "

" End If Else Label68.InnerHtml &= "  " & dr88("Product_Warranty").ToString & "

" End If End While Else 'Label68.InnerHtml &= "   Guaranty / Warranty details are not provided for this product." 'Label68.Style.Add("Color", "Red") Label68.InnerHtml = "-" Label68.Style.Add("font-size", "12pt") Label68.Style.Add("font-weight", "bold") End If dr8.Close() RowVisisbal(True) End If 'btnaddtocart3.Visible = True 'RowNotVisible() Catch ex As Exception End Try End Sub Public Sub ClearLabel() Image1.ImageUrl = Nothing Label18.InnerHtml = " " Label19.InnerHtml = " " Label20.InnerHtml = " " Label21.InnerHtml = " " Label22.InnerHtml = " " Label23.InnerHtml = " " Label24.InnerHtml = " " Label25.InnerHtml = " " Label26.InnerHtml = " " Label27.InnerHtml = " " ' Feature Label28.InnerHtml = " " 'Applications Label29.InnerHtml = " " 'Specifications gvtechspec.Visible = False 'Accessories included Label31.InnerHtml = " " 'Standards & Approvals Label32.InnerHtml = " " 'Guarantee Label33.InnerHtml = " " 'Warranty Label34.InnerHtml = " " Label70.InnerHtml = " " Label73.InnerHtml = " " Label77.InnerHtml = " " Label80.InnerHtml = " " Label83.InnerHtml = " " Label86.InnerHtml = " " Label89.InnerHtml = " " Label97.InnerHtml = " " Label100.InnerHtml = " " Label103.InnerHtml = " " Label106.InnerHtml = " " Label107.InnerHtml = " " Label109.InnerHtml = " " Label114.InnerHtml = " " Label117.InnerHtml = " " ' btnAddtocart1.Visible = False End Sub Public Sub ClearLabel1() Image2.ImageUrl = Nothing Label35.InnerHtml = " " Label36.InnerHtml = " " Label37.InnerHtml = " " Label38.InnerHtml = " " Label39.InnerHtml = " " Label40.InnerHtml = " " Label41.InnerHtml = " " Label42.InnerHtml = " " Label43.InnerHtml = " " Label44.InnerHtml = " " ' Feature Label45.InnerHtml = " " 'Applications Label46.InnerHtml = " " 'Specifications gvtechspec1.Visible = False 'Accessories included Label48.InnerHtml = " " 'Standards & Approvals Label49.InnerHtml = " " 'Guarantee Label50.InnerHtml = " " 'Warranty Label51.InnerHtml = " " Label71.InnerHtml = " " Label74.InnerHtml = " " Label78.InnerHtml = " " Label81.InnerHtml = " " Label84.InnerHtml = " " Label87.InnerHtml = " " Label90.InnerHtml = " " Label98.InnerHtml = " " Label101.InnerHtml = " " Label104.InnerHtml = " " Label107.InnerHtml = " " Label110.InnerHtml = " " Label115.InnerHtml = " " Label118.InnerHtml = " " ' btnaddtocart2.Visible = False End Sub Public Sub ClearLabel2() Image3.ImageUrl = Nothing Label99.InnerHtml = " " Label102.InnerHtml = " " Label105.InnerHtml = " " Label108.InnerHtml = " " Label111.InnerHtml = " " Label116.InnerHtml = " " Label119.InnerHtml = " " Label52.InnerHtml = " " Label53.InnerHtml = " " Label54.InnerHtml = " " Label55.InnerHtml = " " Label56.InnerHtml = " " Label57.InnerHtml = " " Label58.InnerHtml = " " Label59.InnerHtml = " " Label60.InnerHtml = " " Label61.InnerHtml = " " ' Feature Label62.InnerHtml = " " 'Applications Label63.InnerHtml = " " 'Specifications gvtechspec2.Visible = False 'Accessories included Label65.InnerHtml = " " 'Standards & Approvals Label66.InnerHtml = " " 'Guarantee Label67.InnerHtml = " " 'Warranty Label68.InnerHtml = " " Label72.InnerHtml = " " Label75.InnerHtml = " " Label79.InnerHtml = " " Label82.InnerHtml = " " Label85.InnerHtml = " " Label88.InnerHtml = " " Label91.InnerHtml = " " 'btnaddtocart3.Visible = False End Sub Public Sub RowVisisbal(ByVal Action As Boolean) 'Row2.Visible = Action 'Row3.Visible = Action Row4.Visible = Action Row5.Visible = Action Row6.Visible = Action Row7.Visible = Action Row8.Visible = Action Row9.Visible = Action Row10.Visible = Action Row11.Visible = Action Row12.Visible = Action Row13.Visible = Action Row14.Visible = Action Row15.Visible = Action Row16.Visible = Action Row17.Visible = Action Row18.Visible = Action Row19.Visible = Action Row20.Visible = Action minshipqty.Visible = Action instal.Visible = Action cart.Visible = Action packch.Visible = Action excise.Visible = Action educess.Visible = Action heducess.Visible = Action cstcfrm.Visible = Action ImgTable.Visible = Action ComboTable.Visible = Action 'TextTable.Visible = Action Image1.Visible = Action Image2.Visible = Action 'Image3.Visible = Action vat.Visible = Action cst.Visible = Action shippch.Visible = Action totalvat.Visible = Action totalcst.Visible = Action totalwtax.Visible = Action totalcform.Visible = Action End Sub Public Sub RowNotVisible(ByVal str As String, ByVal lbl As HtmlTableCell) If str = "N.A." Or str = "Rs. 0.00" Then lbl.InnerText = "-" lbl.Style.Add("color", "Black") lbl.Style.Add("font-size", "12pt") lbl.Style.Add("font-weight", "bold") Else lbl.Style.Add("color", "Black") End If End Sub 'Protected Sub ddl1_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) ' Dim myList As ListItem = New ListItem ' myList.Text = "--Select Category--" ' myList.Value = "0" ' ddl1.Items.Insert(0, myList) 'End Sub 'Protected Sub ddl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) ' ddl2.Items.Clear() ' ddl3.Items.Clear() ' fillsubgrid(ddl1.SelectedValue.ToString.Trim) ' ddlPro1.Items.Clear() ' ddlPro2.Items.Clear() ' ddlPro3.Items.Clear() ' RowVisisbal(False) ' ddl2.Enabled = True ' ddl3.Enabled = True 'End Sub 'Protected Sub ddl2_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) ' Dim myList As ListItem = New ListItem ' myList.Text = "--Select Sub Cat--" ' myList.Value = "0" ' ddl2.Items.Insert(0, myList) 'End Sub 'Protected Sub ddl2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) ' ddlPro1.Items.Clear() ' ddlPro2.Items.Clear() ' ddlPro3.Items.Clear() ' fillsubgrid1(ddl2.SelectedValue.ToString.Trim) ' Image1.Visible = False ' Image2.Visible = False ' Image3.Visible = False 'End Sub 'Protected Sub ddl3_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) ' ddlPro1.Items.Clear() ' ddlPro2.Items.Clear() ' ddlPro3.Items.Clear() ' fillsubgrid(ddl3.SelectedValue.ToString.Trim) ' Image1.Visible = False ' Image2.Visible = False ' Image3.Visible = False 'End Sub 'Protected Sub ddl3_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) ' Dim myList As ListItem = New ListItem ' myList.Text = "--Select Sub Cat--" ' myList.Value = "0" ' ddl3.Items.Insert(0, myList) 'End Sub Protected Sub btnAddtocart1_Click(ByVal sender As Object, ByVal e As System.EventArgs) 'Session("ShopProductKid") = ddl1.SelectedValue If Session("BuyId") <> Nothing Then ShopCartProcedure(productKid) Response.Redirect("~/Buyer/ShopCart.aspx") Else Dim shoptabel As New DataTable shoptabel.Columns.Add("ProductId") Dim shrow As DataRow = shoptabel.NewRow shrow("ProductId") = ddlPro1.SelectedValue shoptabel.Rows.Add(shrow) Session("ShopTabel") = Nothing Session("Checkstatus") = "ShopCart" Session("ShopTabel") = shoptabel Response.Redirect("~/Buyer/BuyerLogin.aspx") End If End Sub Protected Sub btnaddtocart2_Click(ByVal sender As Object, ByVal e As System.EventArgs) 'Session("ShopProductKid") = ddl2.SelectedValue If Session("BuyId") <> Nothing Then ShopCartProcedure(productKid1) Response.Redirect("~/Buyer/ShopCart.aspx") Else Dim shoptabel As New DataTable shoptabel.Columns.Add("ProductId") Dim shrow As DataRow = shoptabel.NewRow shrow("ProductId") = ddlPro2.SelectedValue shoptabel.Rows.Add(shrow) Session("ShopTabel") = Nothing Session("Checkstatus") = "ShopCart" Session("ShopTabel") = shoptabel Response.Redirect("~/Buyer/BuyerLogin.aspx") End If End Sub Protected Sub btnaddtocart3_Click(ByVal sender As Object, ByVal e As System.EventArgs) If Session("ItemCount") = 3 Then ' Session("ShopProductKid") = ddl3.SelectedValue If Session("BuyId") <> Nothing Then ShopCartProcedure(productKid2) Response.Redirect("~/Buyer/ShopCart.aspx") Else Dim shoptabel As New DataTable shoptabel.Columns.Add("ProductId") Dim shrow As DataRow = shoptabel.NewRow shrow("ProductId") = ddlPro3.SelectedValue shoptabel.Rows.Add(shrow) Session("ShopTabel") = Nothing Session("Checkstatus") = "ShopCart" Session("ShopTabel") = shoptabel Response.Redirect("~/Buyer/BuyerLogin.aspx") End If End If End Sub Protected Function ShopCartProcedure(ByVal prodid As String) As Boolean Try Dim strr As String = "select Product_MarketPrice from product_information where Product_Approved='Y' and product_Kid='" & prodid & "'" Dim con As New SqlConnection con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") cmd = New SqlCommand(strr, con) 'con.Open() 'dr = cmd.ExecuteReader Dim da1 As New SqlDataAdapter(cmd) Dim ds1 As New DataSet If Not da1.Fill(ds1) = Nothing Then Dim shopid As String = NewPrimaryKey(Me.Page) shopid = RemoveLiterals(shopid) Dim shopCode As String = Generate_Code("select count(*) from ShopCart where ShopCart_Code='", "SC") Dim con1 As New SqlConnection 'Define connection variable for connecting to SQL-Server con1.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") 'Read the ConnectionString from web.config File Dim cmd As New SqlCommand con1.Open() Dim sqlcol As Data.SqlClient.SqlParameterCollection = cmd.Parameters sqlcol.Add("@ShopCart_Kid", SqlDbType.NVarChar, 10).Value = shopid.Trim sqlcol.Add("@ShopCart_Code", SqlDbType.NVarChar, 25).Value = shopCode.Trim sqlcol.Add("@ShopCart_ProductId", SqlDbType.NVarChar, 10).Value = prodid sqlcol.Add("@ShopCart_BuyerUserId", SqlDbType.NVarChar, 25).Value = Session("BuyId") sqlcol.Add("@ShopCart_Quantity", SqlDbType.Int).Value = 1 sqlcol.Add("@ShopCart_SpecialPrice", SqlDbType.Decimal, 18).Value = ds1.Tables(0).Rows(0).Item(0) sqlcol.Add("@ShopCart_FinancialYearId", SqlDbType.NVarChar, 10).Value = "2007" sqlcol.Add("@ShopCart_CompanyId", SqlDbType.NVarChar, 10).Value = Session("companyId") sqlcol.Add("@ShopCart_UserId", SqlDbType.NVarChar, 10).Value = Session("UserId") sqlcol.Add("@FormName", SqlDbType.NVarChar, 50).Value = Me.Page.ToString sqlcol.Add("@Mode", SqlDbType.VarChar, 10).Value = "Insert" ExecQuery("ShopCart_Proc", sqlcol).StartsWith("True") sqlcol = Nothing cmd = Nothing Return True End If Catch ex As Exception ex.Message.ToString() End Try End Function Protected Sub WishListProcedure(ByVal StrMode As String, ByVal prodid As String) Try Dim wishlistid As String = NewPrimaryKey(Me.Page) wishlistid = RemoveLiterals(wishlistid) Dim wishlistCode As String = Generate_Code("select count(*) from AddWishList where AddWishList_Code='", "WL") Dim con As New SqlConnection 'Define connection variable for connecting to SQL-Server con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString") 'Read the ConnectionString from web.config File Dim cmd As New SqlCommand con.Open() Dim str As String = "select AddWishList_Code from AddWishList where AddWishList_ProductId='" & prodid & "' and AddWishList_BuyerUserId='" & Session("BuyId") & "'" Dim da As New SqlDataAdapter(str, con) Dim ds As New DataSet da.Fill(ds) If ds.Tables(0).Rows.Count > 0 Then Else Dim sqlcol As Data.SqlClient.SqlParameterCollection = cmd.Parameters sqlcol.Add("@AddWishList_Kid", SqlDbType.NVarChar, 10).Value = wishlistid.Trim sqlcol.Add("@AddWishList_Code", SqlDbType.NVarChar, 25).Value = wishlistCode.Trim sqlcol.Add("@AddWishList_ProductId", SqlDbType.NVarChar, 10).Value = prodid sqlcol.Add("@AddWishList_BuyerUserId", SqlDbType.NVarChar, 25).Value = Session("BuyId") sqlcol.Add("@AddWishList_FinancialYearId", SqlDbType.NVarChar, 10).Value = Now.Year.ToString sqlcol.Add("@AddWishList_CompanyId", SqlDbType.NVarChar, 10).Value = Session("companyId") sqlcol.Add("@AddWishList_UserId", SqlDbType.NVarChar, 10).Value = Session("UserId") sqlcol.Add("@FormName", SqlDbType.NVarChar, 50).Value = Me.Page.ToString sqlcol.Add("@Mode", SqlDbType.VarChar, 10).Value = StrMode.Trim ExecQuery("AddWishList_Proc", sqlcol).StartsWith("True") sqlcol = Nothing cmd = Nothing ' Dim gvRow As GridViewRow End If Catch ex As Exception showmessage(ex.Message.ToString, lblerror) End Try End Sub Protected Sub lnkAddtoWishList1_Click(ByVal sender As Object, ByVal e As System.EventArgs) If Session("BuyId") = Nothing Then Response.Redirect("~/Buyer/buyer-home.aspx") Else WishListProcedure("Insert", ddlPro1.SelectedValue) Response.Redirect("~/Buyer/WishList.aspx") End If End Sub Protected Sub lnkAddtoWishList2_Click(ByVal sender As Object, ByVal e As System.EventArgs) If Session("BuyId") = Nothing Then Response.Redirect("~/Buyer/buyer-home.aspx") Else WishListProcedure("Insert", ddlPro2.SelectedValue) Response.Redirect("~/Buyer/WishList.aspx") End If End Sub Protected Sub lnkAddtoWishList3_Click(ByVal sender As Object, ByVal e As System.EventArgs) If Session("BuyId") = Nothing Then Response.Redirect("~/Buyer/buyer-home.aspx") Else WishListProcedure("Insert", ddlPro3.SelectedValue) Response.Redirect("~/Buyer/WishList.aspx") End If End Sub End Class