precio.value = precio de la BD

jbco · #1 (**permalink**) 12/09/2006, 11:51

Hola amigos, aqui les pongo este codigo me gustaria saber como puedo modificar este script para q al seleccionar la subcategoria me mande de forma automatica el precio de un rpoducton que se encuentra en una BD al campo percio(text), tengo un campo T1(text) q de forma automatica se llena con el nombre de la subcategoria, algo mas o menos asi quiero pero esta ves que el text sea obtenido de una BD q se llama Ventas2, la tabla se llama precios y el campo que quiero es precios. Espero me entiendan, y gracias por todo.

Código HTML:

<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> 

<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("tipo_producto"))%>";
subcat[x,0] = subcatagorys;
subcat[x,1] = subcatagoryof;
subcat[x,2] = subcatagoryid;

FRMCLIENTE.T1.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); }
</script>

</head>

<body >

<h1 align="center">Venta de productos</h1>
<form name="FRMCLIENTE" method=POST target=_self action="">
<p align="center">Seleccione el producto a comprar:<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>

<table border="1" width="80%" height="58" align="center">
  <tr>
    <td width="25%" height="1" align="center">
      <p align="center"><b>Productos</b></p>
    </td><td width="13%" height="1" align="center">
      <p align="center"><b>Cantidad</b></p>
    </td>
    <td width="12%" height="1" align="center">
      <b>Precio</b>
    </td><td width="21%" height="1" align="center">
      <p align="center"><b>Sub-Total</b></p>
    </td>
    <td width="29%" height="1" align="center">
      <p align="center"><b>Comprar</b></p>
    </td>
  </tr>
  <tr>
    <td width="25%" height="1">
<SELECT id="subcatagory" name="subcatagory" size="1" onChange = "javascript:sublist(T1.value = this.value);">
	<Option selected value="none"></option>
</SELECT>

    </td>
    <td width="12%" height="1" align="center">
      <p align="center"><input type="text" name="Cantidad" size="10" onkeypress="return numero(event,this.value)"></p>
    </td>
    <td width="21%" height="1">

    <input type="text" name="precio" size="12" disabled>

  	</td>
    <td width="29%" height="1">
      <p align="center">
    <input type="text" name="T1" size="23"  disabled>

    </td>
  </tr></table>
<%set rs=nothing
conn.close
set conn=nothing%>

</Form></body>