SoloCodigo

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