Otro sobre Carrito de Compras

jbco · #1 (**permalink**) 27/09/2006, 11:26

Hola, he revisado las arduas paguina sobre carritos de comprar, he implementado varias opciones para el mio, pero aun no lo he podido terminar, espero me ayuden.
tengo estos dos combos ligados, que muestarn su precio de cada producto, esperan la cantidad de comprar y sacan un sub-total, pero al momento de inviarlo no se como lo puedo almecenar y luego checar todo lo comprado. les dejo mis archivos y espero su ayuda, gracias.

Venta.asp

Código:

<html> <head>
<link rel="STYLESHEET" type="text/css" href="css/letras.css">
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>Ventas</title> 
<!--#include file="Funciones.asp"--> 
</head>
<body >
<% dim cant
   dim pre
   dim mul

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./Ventas2.mdb"))%>

<h1 align="center">Venta de productos</h1>

<h6 align="center"></h6>
<form name="FRMCLIENTE" method=POST target=_self action="">
<p align="center"><b>Seleccione el producto a comprar:</b>

<select size="1" id="Productos" name="Productos" onChange = "javascript:sublist(this.form, Productos.value);">
<option selected>Selecciona un Producto</option>
<%productos_Sql = "Select distinct id, productos from productos ORDER BY Productos"
rs.Open productos_Sql, Conn
do while not rs.eof%>
<option value="<%=rs("id")%>"><%=rs("productos")%></option>
<%rs.movenext
loop%>
</select>
<p align="center">
<table border="1" align="center" width="42%">
  <tr>
    <td width="23%" align="left"><b>Productos</b></td>
    <td width="77%" align="left">
<SELECT id="subcatagory" name="subcatagory" size="1" onChange = "javascript:sublist(precio.value = this.value);">
	<Option selected value="none"></option>
</SELECT>
    </td>
  </tr>
  <tr>
    <td width="23%" align="left"><b>Cantidad</b></td>
    <td width="77%" align="left">
    	<input type="text" name="Cantidad" size="10" onkeypress="return numero(event,this.value)"></td>
  </tr>
  <tr>
    <td width="23%" align="left">
      <b>Precio</b>
    </td>
    <td width="77%" align="left">
	    <input type="text" name="precio" size="10" disabled value="">
    </td>
  </tr>
  <tr>
    <td width="23%" align="left">
    <input type="button" value="Ver Sub-Total" name="B1" ONCLICK="return multiplica()"></td>
    <td width="77%" align="left">
	    <input type="text" name="T1" size="10" disabled>
    </td>
  </tr>
</table>

<p align="center">
<input type="submit" value="Comprar" name="B2" ONCLICK="return comprar()">

<%set rs=nothing
conn.close
set conn=nothing%>
</Form></body>

Funciones.asp

Código:

<script language = "JavaScript">
<% 'CONSULTA PARA OBTENER LOS DATOS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./Ventas2.mdb"))

productos_Sql = "Select * from precios ORDER BY tipo_producto"
set rs = CreateObject("ADODB.Recordset")
rs.Open productos_Sql, Conn
x=0
%>

// FUNCION DE COMBO BOX COMBINADO
function sublist(inform, selecteditem)
{ inform.subcatagory.length = 0

<%
count= 0
y=0
do while not rs.eof
%>
x = <%= trim(y) %>;

subcat = new Array();
subcatagorys = "<%=(rs("tipo_producto")) %>";
subcatagoryof = "<%=(rs("id"))%>";
subcatagoryid = "<%=(rs("precios"))%>";
subcat[x,0] = subcatagorys;
subcat[x,1] = subcatagoryof;
subcat[x,2] = subcatagoryid;

FRMCLIENTE.precio.value= document.FRMCLIENTE.subcatagory.value;

if (subcat[x,1] == selecteditem) {
	var option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,2]);
	inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>;}
		
<%
count = count + 1
y = y + 1
rs.movenext
loop
rs.close
%>
}

function numero(e,txt){
	tecla = (document.all) ? e.keyCode : e.which;
	if (tecla==8) return true;
	if (tecla==46 && txt.indexOf('.') != -1) return false;
	patron = /[\d\.]/;
	te = String.fromCharCode(tecla);
	return patron.test(te);}
	
function multiplica(){

 if (FRMCLIENTE.Productos.value==''){
	alert("Seleccione un producto");
	return false;}

 if (FRMCLIENTE.Cantidad.value==''){
	alert("Ingrese la Cantidad a Comprar");
	return false;}

	cant = document.FRMCLIENTE.Cantidad.value;
	pre = document.FRMCLIENTE.precio.value;
	mul = cant * pre;
	document.FRMCLIENTE.T1.value = (Math.round(mul*100))/100;
	return false;
	}

function comprar(){
}
</script>

JHarada · #2 (**permalink**) 27/09/2006, 11:43

Implementa sesiones para poder guardar los datos sobre las compras que realiza el usuario.