Ver Mensaje Individual
  #3 (permalink)  
Antiguo 18/06/2010, 17:31
Matias_pinar
 
Fecha de Ingreso: mayo-2010
Mensajes: 13
Antigüedad: 13 años, 11 meses
Puntos: 1
Respuesta: Problema con carrito de compras

mira yo lo estoy haciedno con un manual de carrito ,pero esta incompleto :S
y me dice que haga esto ,pero nose como seguir :S

Cita:
Agregar un fichero de tipo Aplicación global
Dentro del fichero de aplicación global
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
' Código que se ejecuta cuando se inicia una nueva sesión
'Aquí se crea una tabla temporal para guardar los
'Datos del carrito
Dim dt As New DataTable
'Ahora se creará columnas para la tabla indicando nombre de la columna
'y tipo de dato
Dim dc0 As New DataColumn("Item", System.Type.GetType("System.Byte"))
Dim dc1 As New DataColumn("Codigo", System.Type.GetType("System.Int16"))
Dim dc2 As New DataColumn("Cantidad", System.Type.GetType("System.Int16"))
Dim dc3 As New DataColumn("Descripcion", _
System.Type.GetType("System.String"))
Dim dc4 As New DataColumn("PrecioUnitario", _
System.Type.GetType("System.Decimal"))
Dim dc5 As New DataColumn("ValorBruto", _
System.Type.GetType("System.Decimal"))
Dim dc6 As New DataColumn("PorcentajeDescuento", _
System.Type.GetType("System.Decimal"))

Dim dc7 As New DataColumn("MontoDescuento", _
System.Type.GetType("System.Decimal"))
Dim dc8 As New DataColumn("ValorNeto", _
System.Type.GetType("System.Decimal"))

'Ahora se añadirá las colñumnas a la coleccion de columnas
'del datatable dt
dt.Columns.Add(dc0)
dt.Columns.Add(dc1)
dt.Columns.Add(dc2)
dt.Columns.Add(dc3)
dt.Columns.Add(dc4)
dt.Columns.Add(dc5)
dt.Columns.Add(dc6)
dt.Columns.Add(dc7)
dt.Columns.Add(dc8)
dc2.DefaultValue = 1 'Asi se especifica un valor por defecto para
'esta columna
'Ahora se est{a almacenando en una variable session la tabla creada
'para acceder desde cualquier parte de la aplicación pero por cada usuario
'o sesión
dc6.DefaultValue = 10
dc5.Expression = "Cantidad * PrecioUnitario"
dc7.Expression = "ValorBruto * PorcentajeDescuento/100"
dc8.Expression = "ValorBruto - MontoDescuento"
'Asi se especifica la expresión de una fórmula que opera campos de la
'tabla
'dc1.Unique = True 'Asi se indica que en la segunda columna no puede
'existir valores duplicados
Session("carrito") = dt


End Sub

Formulario productos.- permite visualizar y seleccionar desde una lista de productos para luego ser acumulado en un carrito de compras.
Formulario Carrito.- permite acumular toda la información recepcionada desde la página producto para luego finalizar la compra del carrito


Saludos