Foros del Web » Programando para Internet » ASP Clásico »

problema con la resta del stock

 Estas en el tema de problema con la resta del stock en el foro de ASP Clásico en Foros del Web. <head> <script type="text/JavaScript"> <!-- function MM_findObj(n, d) { //v4.01 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) { d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);} if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n]; for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document); if(!x ...
  #1 (permalink)  
Antiguo 22/07/2008, 03:11
 
Fecha de Ingreso: julio-2008
Mensajes: 1
Antigüedad: 15 años, 10 meses
Puntos: 0
Busqueda problema con la resta del stock
<head>

<script type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
obj.visibility=v; }
}
//-->
</script>
</head>
<body>
</script>

<link rel="stylesheet" href="Css/estiloindex.css" type="text/css">
</head>
<body onload="mueveReloj()">
<a href="../Index.html" target="_blank"></a>
<br>
<script language="JavaScript" type="text/javascript">
MostrarFecha();

</script>
</body>
</html>
<div id="Layer4" onfocus="MM_showHideLayers('Layer4','','hide','Lay er1','','hide','Layer2','','hide','Layer3','','hid e');MM_showHideLayers('Layer4','','show','Layer2', '','hide','Layer3','','hide')">si tienes alguna duda llama al 6 o al fax 941232323 si prefieres por e-mail mi e-mail [email protected] y la direccion es tejerias 4b-2c <a href="marco1.html" target="_parent">atras</a></div>
<div id="Layer1">
<p onfocus="MM_showHideLayers('Layer1','','show')">
<form action="validarusu.asp" method="post">
<label>
usuario
</label>
<input type="text" name="usuario">
<label> password</label>
<input type="password" name="password" />
<label>
<input type="submit" name="Submit2" value="Entrar" />
</label>
</p>
<a href="marco1.html" target="_parent">atras</a>
</form>
</div>
<a href="marco_central" target="_parent"></a> </div>
<p> </p>
<th scope="row"> </th>
<td> </td>
<td> </td>
</tr>
<tr>
<th colspan="2" scope="row"> </th>
<th scope="row"> </th>
</tr>
</table>
<label></label>
<label></label>
<div id="Layer6">
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<form method="post" action="dar_alta.asp">
<p>codcli <input type="text" name="codcli" size="20"></p>
<p>Nombre <input type="text" name="Nombre" size="20"></p>
<p>Direccion <input type="text" name="Direccion" size="20"></p>
<p>cp; <input type="text" name="cp" size="20"></p>
<p>localidad; <input type="text" name="localidad" size="20"></p>
<p>provincia; <input type="text" name="provincia" size="20"></p>
<p>telefono; <input type="text" name="telefono" size="20"></p>
<p>fax; <input type="text" name="fax" size="20"></p>
<p>cc; <input type="text" name="cc" size="20"></p>
<p>dni; <input type="text" name="dni" size="20"></p>
<br>
<p align="center">
<input type="submit" value="Enviar" name="Enviar" />

<input type="reset" value="Limpiar" name="B2" />

</form>
</body>
</html>
<p align="center"><a href="marco1.html"><a href="marco1.html" target="_parent">atras</a> </div>
</p>
</div>
<p align="center"> </p>
<p> </p>
<div id="Layer3">
<form method=post action="factura.asp" >
<%
SET COMANDO=SERVER.CREATEOBJECT("ADODB.COMMAND")
SET articulos=SERVER.CREATEOBJECT("ADODB.RECORDSET")
COMANDO.ACTIVECONNECTION="Provider=Microsoft.Jet.O LEDB.4.0;Data Source=C:\Documents and Settings\user\Mis documentos\clientes.mdb;Persist Security Info=False"
COMANDO.COMMANDTEXT="SELECT * FROM articulos"
COMANDO.COMMANDTYPE=1
SET articulos=COMANDO.EXECUTE
%>
<CENTER>
<table border="2">
<h1>Catalogo
</h1>
<br>
<br>
<tr>
<td>codart</td>
<td>nombre</td>
<td>descripcion</td>
<td>pvp</td>
<td>cantidad</td>
<td>peso</td>
</tr>
<%
WHILE NOT articulos.EOF
I=0
%>
<tr>
<td><%=articulos("codart")%></td>
<td><%=articulos("nombre")%> </td>
<td><%=articulos ("descripcion")%></td>
<td><%=articulos("pvp")%></td>
<td><center> <select size="1" name="<%=articulos("nombre")%>">
<%
i=0
while I <= cdbl(articulos("cantidad"))
%>
<option> <%=i%> </option>

<%i=i+1
wend
%>
</select></center></td>
<td><%=articulos("peso")%></td>
</tr>
<%
ARTICULOS.MOVENEXT
WEND
%>
</TABLE>
<a href="marco1.html" target="_parent">atras</a>
</CENTER>
</form>
</div>
<p onfocus="MM_showHideLayers('Layer1','','hide','Lay er2','','hide','Layer3','','hide','Layer4','','hid e');MM_showHideLayers('Layer4','','hide','Layer1', '','hide','Layer6','','show','Layer3','','hide')"> </p>
</body>
</html>
__________________________________________________ ________
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
</head>
<body>
<%
set ariculos=server.createobject("adodb.recordset")
Set Comando=Server.createobject("adodb.command")
Comando.activeconnection="Provider=Microsoft.Jet.O LEDB.4.0;Data Source=C:\Documents and Settings\user\Mis documentos\clientes.mdb;Persist Security Info=False"

Comando.commandtext= "select * from articulos" 'meto la instrucción sql que quiera
Comando.commandtype=1 'esto es asi siempre
Set articulos=Comando.execute 'cargo la instruccion en la variable miarticulo

%>
<font class="tabla">
<table align="center" border="1">
<tr align="center">
<th>Productos</th>
<th>Cantidad</th>
<th>Precio</th>
</tr>
<%
i=0
WHILE NOT articulos.EOF
cantidad1=""&articulos("nombre")
cantidad=request.Form(cantidad1)
if cantidad<>0 then%>
<tr>
<td> <%=articulos("nombre")%> </td>
<td> <%response.Write(cantidad)%></td>
<td><%=articulos("pvp")%>?</td>
<%vallinea=cantidad*articulos("pvp")
response.Write(vallinia)
suma=suma+vallinea%>

</tr>
<% end if
ARTICULOS.MOVENEXT
WEND
session("cont")=i
%>
</TABLE>
<%response.Write("total; "&suma)%>?
<table>
<tr>
<td><form action="carrito.asp" method="post">
<input name="confirmar" type="submit" value="confirmar" />
</form></td>
<td><form action="cliente.asp" method="post" target="contenido">
<input name="rechazar" type="submit" value="rechazar" />
</form></td>
</tr>
</table>
<%set ariculos=server.createobject("adodb.recordset")
Set Comando=Server.createobject("adodb.command")
Comando.activeconnection="Provider=Microsoft.Jet.O LEDB.4.0;Data Source=C:\Documents and Settings\user\Mis documentos\clientes.mdb;Persist Security Info=False"

Comando.commandtext= "select * from ventas" 'meto la instrucción sql que quiera
Comando.commandtype=1 'esto es asi siempre
Set articulos=Comando.execute 'cargo la instruccion en la variable miarticulo
comando.commandtext="update ventas set cantidad='" & cantidad1 & "';"
%>
</font>
</body>
</html>
__________________________________________________ ________
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
</head>
<body>
<% set miclientes=server.createobject("adodb.recordset")' meto la tabla en la variabla miarticulos
Set Comando=Server.createobject("adodb.command")'le mando el comando que quiero que haga
Comando.activeconnection="Provider=Microsoft.Jet.O LEDB.4.0;Data Source=C:\Documents and Settings\user\Mis documentos\clientes.mdb;Persist Security Info=False" 'cadena de conexion
set miarticulos=server.createobject("adodb.recordset") 'meto la tabla en la variabla miarticulos
Set Comando=Server.createobject("adodb.command")'le mando el comando que quiero que haga
Comando.activeconnection="Provider=Microsoft.Jet.O LEDB.4.0;Data Source=C:\Documents and Settings\user\Mis documentos\clientes.mdb;Persist Security Info=False" 'cadena de conexion
Comando.commandtext= "select * from articulos" 'meto la instrucción sql que quiera
Comando.commandtype=1 'esto es asi siempre
Set miarticulos=Comando.execute 'cargo la instruccion en la variable miarticulo
set miarticulos=server.createobject("adodb.recordset") 'meto la tabla en la variabla miarticulos
Set Comando=Server.createobject("adodb.command")'le mando el comando que quiero que haga
Comando.activeconnection="Provider=Microsoft.Jet.O LEDB.4.0;Data Source=C:\Documents and Settings\user\Mis documentos\clientes.mdb;Persist Security Info=False" 'cadena de conexion
Comando.commandtext= "select * from ventas" 'meto la instrucción sql que quiera
Comando.commandtype=1 'esto es asi siempre
Set miarticulos=Comando.execute 'cargo la instruccion en la variable miarticulo
micont=session("cont")
i=0
cantidad1=response.Write("cantidad")
while i<micont
if cantidad1<>0 then
resta=micantidad-cantidad1
comando.commandtext="update Articulos set cantidad='" & resta & "' where Nombre='" & miproducto & "';"
Comando.Execute
End If
i=i+1
wend%>

<%response.Write("La compra ha sido realizada correctamente")%>
<p> </p>
<%response.write("Cuanto antes llegara la moto con su pedido")%>


</body>
</html>
gracias por ayudarme.
  #2 (permalink)  
Antiguo 22/07/2008, 04:10
Avatar de Adler
Colaborador
  
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 17 años, 5 meses
Puntos: 126
Respuesta: problema con la resta del stock
Hola, antes de nada bienvenido al foro

Te sugiero, si quieres que alguien te responda:

1 No incluyas tantas lineas de código (264)
2 Encierres el código entre etiquetas para tal efecto
3 Especifiques el tipo de error y la linea donde se produce

Después de hecharle un vistazo de pasada. No veo que tengas definida la variable micantidad, de hecho

Cita:
resta=micantidad-cantidad1
micantidad = ""

Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #3 (permalink)  
Antiguo 22/07/2008, 07:38
Avatar de Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 4 meses
Puntos: 146
Respuesta: problema con la resta del stock
Resumen:

Titulo:"Problema con la resta del stock"
Contenido: [más de 200 lineas de código]
Explicación por parte del usuario: "gracias por ayudarme".

Resultado: Ninguna respuesta que solucione el problema

No se si la respuesta de Adler () arregle tu código, pero definitivamente debes intentar aplicar sus consejos si esperas más ayuda.

Saludos

PD. Bienvenido al foro
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 13:08.