tengo problema al hacer que mi carro de compras aumente la cantidad :! no me agrega la cantidad ayuda xfa al momento de agregar un prodcuto lo hace nomar pero cuado repito el mismo producto me lo agrega al carro y no suma lacantidad
If Not Page.IsPostBack Then
Label2.Text = "BIENVENIDO :" + Session("UsuNom") + Session("UsuID").ToString
divComprar.Visible = False
divPedido.Visible = False
Dim id As String = Page.Request.QueryString("Id")
'string Q = Page.Request.QueryString["Q"];
Dim cadenaConexion As String = ConfigurationManager.ConnectionStrings("BD").Conne ctionString
Dim oCarroCompras As New CarroCompras()
If Not String.IsNullOrEmpty(id) Then
Using cnx As New SqlConnection(cadenaConexion)
cnx.Open()
Dim cmd As New SqlCommand("SELECT codprod,nomprod,precio,imageurl,descripcion, 1 Cantidad FROM Productos where codprod = " + id, cnx)
Dim dr As SqlDataReader = cmd.ExecuteReader()
While dr.Read()
oCarroCompras = New CarroCompras()
oCarroCompras.IdProducto = Integer.Parse(dr("codprod").ToString())
oCarroCompras.Nombre = dr("nomprod").ToString()
oCarroCompras.Precio = Decimal.Parse(dr("Precio").ToString())
oCarroCompras.Imagen = dr("imageurl").ToString()
oCarroCompras.Descripcion = dr("descripcion").ToString()
oCarroCompras.Cantidad = 1
oCarroCompras.SubTotal = oCarroCompras.Cantidad * oCarroCompras.Precio
End While
End Using
Dim olCarroCompras As List(Of CarroCompras) = Nothing
If Session("CarroCompras") Is Nothing Then
olCarroCompras = New List(Of CarroCompras)()
Else
olCarroCompras = DirectCast(Session("CarroCompras"), List(Of CarroCompras))
End If
If ProductoYaExiste(Integer.Parse(id), olCarroCompras) = False Then
olCarroCompras.Add(oCarroCompras)
End If
Session("CarroCompras") = olCarroCompras
grvProductos.DataSource = Session("CarroCompras")
grvProductos.DataBind()
lblTotal.Text = GetTotal(olCarroCompras).ToString()
Label3.Text = "tiene:" + olCarroCompras.Count().ToString + "en la canasta"
' Label3.Text = ProductoYaExiste(Integer.Parse(id), olCarroCompras)
Else
If Session("CarroCompras") IsNot Nothing Then
grvProductos.DataSource = Session("CarroCompras")
grvProductos.DataBind()
Dim olCarroCompras As List(Of CarroCompras) = DirectCast(Session("CarroCompras"), List(Of CarroCompras))
lblTotal.Text = GetTotal(olCarroCompras).ToString()
End If
End If
End If
Private Function ProductoYaExiste(ByVal IdProducto As Integer, ByVal olCarroCompras As List(Of CarroCompras)) As Boolean
'If olCarroCompras Is Nothing Then
' Return False
'End If
'For Each oCarroCompras As CarroCompras In olCarroCompras
' If (oCarroCompras.IdProducto = IdProducto) Then
' oCarroCompras.Cantidad += 1
' Return True
' Else
' oCarroCompras.Cantidad += oCarroCompras.Cantidad
' Return True
' End If
'Next
End Function
