HELP con un lista

[MaveriK.j]

estoy trabajndo en un carro de compras k no hice yo.
mi duda es la siguiente tube k validar k la compra no fuera superior k el stock lo malo es k ahora me manda los otros items de la s compras en 0
x ejemplo


si compre 3 jabones los marca y me dice todo perotb sale
perfume 0, shampoo 0 ...


espero k me pueda ayudar primera vez k posteo grx

MaveriK

[daniel00]

Que tal.

Pordrías poner el fragmento del código fuente que esta haciendo lo que mencionas.

Saludos.

[MaveriK.j]

bueno nose k poner daniel ( sorry ) haci k voya poner todo el codigo
= a alguien le puede servir ( no entro todo el codigo )...

<%
If isobject(session("sCarrito")) then
Set dbCarrito = session("sCarrito")
Else
Set dbCarrito = Server.CreateObject("Scripting.Dictionary")
End if

txtVolver=Request.QueryString("txtVolver")
dbCodPro=request.QueryString("dbcodigoproducto")
dbcantidad=request.QueryString("dbcantidadele")
If not Request.QueryString("dbCategoria") = Empty then
dbCategoria=Request.QueryString("dbCategoria")
Else
dbCategoria=-1
End If
If Len(dbCodPro)=1 then
If dbCodPro=0 or dbcantidad=0 then
response.redirect("errorcarrovacio.asp")
Else
If dbcarrito.exists(dbcodpro) then
dbcarrito(Int(dbcodpro)) = Int(dbcarrito(Int(dbcodpro) )) + Int(dbcantidad)
Else
dbcarrito.add (Int(dbcodpro)),Int(0)
dbcarrito(Int(dbcodpro)) = Int(dbcarrito(Int(dbcodpro))) + Int(dbcantidad)
End if
End If
Else
dbCodPro=split(dbCodPro,",")
dbcantidad=split(dbcantidad,",")
For i = LBound(dbCodPro) To UBound(dbCodPro)
If not len(Trim(dbcantidad(i))) = 0 then
If dbcarrito.exists(Int(dbCodPro(i))) then
dbcarrito(Int(dbCodPro(i))) = Int(dbcarrito(Int(dbCodPro(i)) )) + Int(dbcantidad(i))
Else
dbcarrito.add (Int(dbCodPro(i))),Int(0)
dbcarrito(Int(dbCodPro(i))) = Int(dbcarrito(Int(dbCodPro(i)))) + Int(dbcantidad(i))
End if
End If
Next
End If
dim dbaux, xsw, totalCat, dbCCAux, dbXCCaux
dim dbsubtotal, dbtotal, dbST, dbSubTotCat
dim v()
N=dbcarrito.count
Redim Preserve v(N+1)
x=1
For Each codigo In dbcarrito
v(x)=codigo
x=x+1
Next
For x=1 to N-1
codPro=v(x)
If codPro<>0 Then
Set rsOrdenar=myBase.execute("Select CategoriaCodigo From Producto Where(Producto.ProductoCodigo=" & codPro & ")")
CC=rsOrdenar("CategoriaCodigo")
End if
For i=x+1 to N
codprod=v(i)
If codprod<>0 then
Set rsOrdenador=myBase.execute("Select CategoriaCodigo From Producto Where(Producto.ProductoCodigo=" & codprod & ")")
CodCat=rsOrdenador("CategoriaCodigo")
If CC>CodCat then
saux=v(i)
v(i)=v(x)
v(x)=saux
End if
End if
Next
Next
xsw=0
For x=1 To N
dbaux=v(x)
If dbaux<>0 Then

If xsw=0 then
dbCCAux=int(rsBuscarProducto("CategoriaCodigo"))
dbXCCaux=int(dbCCAux)
Else
dbCCAux=rsBuscarProducto("CategoriaCodigo")
End if
dbsubtotal= int(rsBuscarProducto("ProductoValor"))*int(dbcarri to(v(x)))
If int(dbXCCAux)=int(dbCCAux) then
dbSubTotCat=dbSubTotCat+dbsubtotal
xsw=1
Else
xsw=2
XAux=dbSubTotCat
dbSubTotCat=dbsubtotal
dbXCCAux=rsBuscarProducto("CategoriaCodigo")
End if
If len(dbsubtotal)>3 then
dbcentena=mid(strreverse(dbsubtotal),1,3)
dbmiles=mid(strreverse(dbsubtotal),4,3)
dbMillones=Mid(strreverse(dbsubtotal),7,3)
If len(dbsubtotal)>=7 then
dbST=strreverse(dbMillones) & "." & strreverse(dbmiles) & "." & strreverse(dbcentena)
Else
dbST=strreverse(dbmiles) & "." & strreverse(dbcentena)
End if
Else
dbST=dbsubtotal
dbcentena=0
dbmiles=0
dbMillones=0
End if
If xsw=2 then
If len(XAux)>3 then
dbcentena=mid(strreverse(XAux),1,3)
dbmiles=mid(strreverse(XAux),4,3)
dbMillones=Mid(strreverse(XAux),7,3)
If len(XAux)>=7 then
totalCat=(strreverse(dbMillones) & "." & strreverse(dbmiles) & "." & strreverse(dbcentena))
Else
totalCat=(strreverse(dbmiles) & "." & strreverse(dbcentena))
End if
Else
totalCat=XAux
End if
%>
<TR>
<TD colspan ="5" class="Fila2F"><div align="right">
<p class="FilaRV">El Total de esta Categoria de Producto es &nbsp;</p>
</div></TD>
<TD class="FilaCV">$<%=totalCat%></TD>
</TR>
<%
End if
%>

<%
If len(rsBuscarProducto("productovalor"))>3 then
dbcentena=mid(strreverse(rsBuscarProducto("product ovalor")),1,3)
dbmiles=mid(strreverse(rsBuscarProducto("productov alor")),4,3)
dbProductoValor=strreverse(dbmiles) & "." & strreverse(dbcentena)
else
dbProductoValor=rsBuscarProducto("productovalor")
end if
%>
<TD class="Fila1">$<%=dbProductoValor%></TD>
<TD class="Fila1"><%=
if dbcarrito = 0 then
response.Write("ahy 1 registro en 0")
else
response.Write("no hay registros en 0")
end if
response.write(Int(dbcarrito(Int(v(x)))))%></TD>
<TD class="Fila1">$&nbsp;<%=dbST%></TD>
<TD class="Fila1F"><a href="actualiza.asp?dbCodigo=<%=dbaux%>">Eliminar</a></TD>
</TR>
<%
dbtotal=dbtotal+dbsubtotal
End if
next
If len(dbSubTotCat)>3 then
dbcentena=mid(strreverse(dbSubTotCat),1,3)
dbmiles=mid(strreverse(dbSubTotCat),4,3)
dbMillones=Mid(strreverse(dbSubTotCat),7,3)
If len(dbSubTotCat)>=7 then
totalCat=(strreverse(dbMillones) & "." & strreverse(dbmiles) & "." & strreverse(dbcentena))
else
totalCat=(strreverse(dbmiles) & "." & strreverse(dbcentena))
end if
else
totalCat=dbSubTotCat
end if
%>
<TR>
<TD colspan ="5" class="Fila2F"><div align="right">
<p class="FilaRV">El Total de esta Categoria de Producto es&nbsp;</p>
</div></TD>
<TD class="FilaCV">$<%=totalCat %></TD>
</TR>
<%
set session("sCarrito") = dbCarrito
%>
<%
If len(dbtotal)>3 then
dbcentena=mid(strreverse(dbtotal),1,3)
dbmiles=mid(strreverse(dbtotal),4,3)
dbMillones=Mid(strreverse(dbtotal),7,3)
if len(dbtotal)>=7 then
dbTotalFinal=strreverse(dbMillones) & "." & strreverse(dbmiles) & "." & strreverse(dbcentena)
else
dbTotalFinal=strreverse(dbmiles) & "." & strreverse(dbcentena)
end if
else
dbTotalFinal=dbtotal
end if
%>

<tr>
<td colspan ="5" height="4%" class="Fila1F">&nbsp;</td>
<td valign="middle" class="Fila1F">&nbsp;</td>
</tr>
<tr>
<td colspan ="5" height="4%" class="FilaRN">El Total de su Cotizacion es de</td>
<td valign="middle" class="FilaCN">$ <%=dbTotalFinal%></td>
</tr>
<tr>
<td colspan ="5" height="4%" class="Fila1F">&nbsp;</td>
<td valign="middle" class="Fila1F">&nbsp;</td>
</tr>
</table>
<BR>
<%
txtFecha=Now()
If Session("Reserva")=0 then
txtFecha=Now()
Set rsVigencia=MyBase.Execute("Select * from Vigencia")
If not rsVigencia.Eof then
txtVigenciaDias=rsVigencia("VigenciaDias")
DReservacion=FormatDateTime(DateAdd("d",txtVigenci aDias, txtFecha),2)
End If
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
alert("Su Reserva tiene vigencia hasta el <%=DReservacion%>.");
//-->
</SCRIPT>
<%
Session("Reserva")=1
End If
Set rsVigencia=MyBase.Execute("Select * from Vigencia")
If not rsVigencia.Eof then
txtVigenciaDias=rsVigencia("VigenciaDias")
DReservacion=FormatDateTime(DateAdd("d",txtVigenci aDias, txtFecha),2)
End If
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="15%" class="Error">Su Reserva tiene vigencia hasta el <%=DReservacion%>.</td>
</tr>
</table>
<%
If txtVolver=3 then
%>
<!-- <tr>
<td Colspan="2" class="Fila1F"><A HREF="pedirdatos.asp" target="central">Enviar Cotización</A></td>
</tr>
<tr>
<td colspan="2" class="Fila1F"><a Href="ListarNovedades.asp" target="central">Volver</a></td>
</tr> -->
<tr class="Fila1F">
<td colspan="2">
<Input Type="submit" Name="txtEnviar" Class="Boton" Value="Enviar Cotización" onClick="javascript:window.open('pedirdatos.asp',' central')">&nbsp;
<Input Type="submit" Name="txtVolver" Class="Boton" Value="Volver" onClick="javascript:window.open('ListarNovedades.a sp','central')">
</td>
</tr>

<%
ElseIf txtVolver=1 then
%>
<!-- <tr>
<td Colspan="2" class="Fila1F"><A HREF="pedirdatos.asp" target="central">Enviar Cotización</A></td>
</tr>
<tr>
<td colspan="2" class="Fila1F"><a Href="MostrarProductos.asp?dbCoCat=<%=dbCategoria% >" target='central'>Volver</a></td>
</tr> -->
<tr class="Fila1F">
<td colspan="2">
<Input Type="submit" Name="txtEnviar" Class="Boton" Value="Enviar Cotización" onClick="javascript:window.open('pedirdatos.asp',' central')">&nbsp;
<Input Type="submit" Name="txtVolver" Class="Boton" Value="Volver" onClick="javascript:window.open('MostrarProductos. asp?dbCoCat=<%=dbCategoria%>','central')">
</td>
</tr>
<%
ElseIf txtVolver=2 then
%>
<!-- <tr>
<td colspan="2" class="Fila1F"><A HREF="pedirdatos.asp" target="central">Enviar Cotización</A></td>
</tr>
<tr>
<td colspan="2" class="Fila1F"><a Href="../Oferta/mostrarProductosOferta.asp?dbCoCat=<%=dbCategoria% >" target="central">Volver</a></td>
</tr> -->
<tr class="Fila1F">
<td colspan="2">
<Input Type="submit" Name="txtEnviar" Class="Boton" Value="Enviar Cotización" onClick="javascript:window.open('pedirdatos.asp',' central')">&nbsp;
<Input Type="submit" Name="txtVolver" Class="Boton" Value="Volver" onClick="javascript:window.open('../Oferta/mostrarProductosOferta.asp?dbCoCat=<%=dbCategoria% >','central')">
</td>
</tr>
<%
End If
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
MyBase.close
set MyBase=nothing
%>
</BODY>
</HTML>
disculpen la ingnoracia
MaveriK

[MaveriK.j]

bueno ahy rescato los valores de otra pagina y aki hace la lista pero cuando ago una compra en 0 = la pone

[u_goldman]

Tenemos un botón bien bonito en el editor que dice "envolver con la etiqueta CODE", y después la verdad es demasiado código el que estás poniendo, no pretendo hacer una polémica ni mucho menos, pero al menos me parece que deberías hacer un esfuerzo por ver cuál es la parte funcional que debes poner para que sea mas sencillo ayudarte.

En fin, a ver si daniel00 u otro usuario tiene el tiempo y dedicación para leer todo ese código.

Saludos

[MaveriK.j]

esta es la pagina k donde se compra la anterior es k muestra depsues espero k entre entera
<!--#include file="include.asp" -->
<!--#include file="../inc/Funciones.asp" -->
<%
Response.AddHeader "PRAGMA", "NO-CACHE"
Response.Expires = 0
Response.Buffer = True

dbcod=request.QueryString("dbcodigo")
If dbcod=empty then
dbcod=request.queryString("dbCoCat")
End if
Set rsCategoria=MyBase.Execute("Select CategoriaNombre from Categoria where CategoriaCodigo=" & dbCod)
If not rsCategoria.Eof then
txtCategoriaNombre=rsCategoria("CategoriaNombre")
End If
If not request.Form("txtPrecios") = Empty then
dbcod=Request.Form("dbCodigoCategoria")
Response.redirect("ListaPrecios.asp?dbCodigo="&dbc od)
End If
sw=0
If not Request.Form("txtAgregar")=Empty then
dbCodPro=split(request.form("dbcodigoproducto"),", ")
dbcantidad=split(request.form("Menus"),",")

dbCategoria=Request.Form("dbCodigoCategoria")
For i = LBound(dbcantidad) To UBound(dbcantidad)
If not len(Trim(dbcantidad(i))) = 0 then
If dbcantidad(i) > 0 Then
sw=1
Else
sw=1
End If
End If
Next
If sw = 1 then
txtVolver=1
dbCodPro=join(dbCodPro,",")
dbcantidad=join(dbcantidad,",")
Response.Redirect("agrega.asp?txtVolver="&txtVolve r&"&dbCategoria="&dbCategoria &"&dbcodigoproducto="&dbCodPro&"&dbcantidadele="&d bcantidad &"")
ElseIf sw=2 then
Mensaje="La Cantidad debe ser mayor a 0"
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> SISTEMA DE COTIZACION SCOUT </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<SCRIPT LANGUAGE="JavaScript" TYPE="text/javascript">
<!--
var celda_ant;
celda_ant="";
function ilumina(celda){
if (celda_ant=="")
{
celda_ant = celda;
}
celda_ant.style.backgroundColor="";
celda.style.backgroundColor="#F7FBF4";
celda_ant = celda;
}
//-->
</SCRIPT>
</HEAD>
<link href="../inc/Central.css" rel="stylesheet" type="text/css">
<link href="../inc/estilo.css" rel="stylesheet" type="text/css">
<BODY Bgcolor="" BACKGROUND="" alink="#336600" vlink="#0000FF">
<FORM METHOD=POST name="frmFormulario" ACTION="">
<table border="0" align="center" class="TablaBase">
<tr>
<td>&nbsp;</td>
</tr>
<tr>
<td>&nbsp;</td>
</tr>
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="5">
<tr>
<td>
<TABLE width="100%" Border="0" cellpadding="0" cellspacing="0" bordercolor="#158A32">
<tr>
<td width="17" nowrap class="TituloIzq"></td>
<td class="Titulo"><%=txtCategoriaNombre%></td>
<td width="14" nowrap class="TituloDer"></td>
</tr>
</TABLE> </td>
</tr>
<tr>
<td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" class="Tabla">
<tr>
<td width="400" valign="middle" class="Titulo2">Producto</td>
<td width="120" valign="middle" class="Titulo2">Valor Unitario</td>
<td width="80" valign="middle" class="Titulo2">Stock</td>
<td width="80" valign="middle" class="Titulo2">Cantidad</td>
<td width="150" valign="middle" class="Titulo2F">Detalle</td>
<td width="150" valign="middle" class="Titulo2F">&nbsp;</td>
</tr>
<%
strSQL="select Producto.productocodigo, producto.productoNombre, producto.productovalor, producto.productoImagen, Producto.ProductoStock from Producto where Producto.CategoriaCodigo = " & dbcod & " and Producto.ProductoStock > 0 and Producto.ProductoMostrarTV = 1 order by PRODUCTO.ProductoNombre"
Set rsListarPro = MyBase.execute(strSQL)
If Not rsListarPro.Eof Then
Do While Not rsListarPro.Eof
%>
<tr onMouseOver="ilumina(this)">
<td class="Fila1"><div align="left"><%=PrimeraMayuscula(rsListarPro("Prod uctoNombre"))%></div></td>
<%
If len(rsListarPro("productovalor"))>3 then
dbcentena=mid(strreverse(rsListarPro("productovalo r")),1,3)
dbmiles=mid(strreverse(rsListarPro("productovalor" )),4,3)
dbProductoValor=strreverse(dbmiles) & "." & strreverse(dbcentena)
Else
dbProductoValor=rsListarPro("productovalor")
dbProductoStock=rsListarPro("ProductoStock")

End if
%>
<td class="Fila1">$<%=dbProductoValor%></td>
<td class="Fila1"><%=dbProductoStock%></td>
<input type="hidden" value="<%=dbProductoStock%>" name="Stocks">
<td class="Fila1"><input type="hidden" value="<%=rsListarPro("productocodigo")%>" name="dbcodigoproducto">
<!-- <input type="List" name="dbCantidadele" size="5" maxlength="5"> -->
<%
ListStock=0
Do while dbProductoStock = ListStock
ListStock = ListStock +1
%>

<% Loop %>
<select name="Menus" >
<%

for w = empty to dbProductoStock

%>
<option value=<%=w%>><%=w%>
<% next %>
</select>
<SCRIPT LANGUAGE="JavaScript">alert("<%=Menus%>")</SCRIPT>






</td>


<td class="Fila1F"><a href="#" onClick="javascript:window.open('DetalleProducto.a sp?dbCodigopro=<%=rsListarPro("ProductoCodigo")%>' ,'Detalle','toolbar=0, resizable=1, scrollbars=0, menubar=0, status=0, directories=0, top=100,left=100,width=400,height=400')">Detalles Producto</a> </td>
<td class="Fila1F"><%
rsListarPro.Movenext
loop
%>
<%

%>





<%



Set rsListarProx = MyBase.execute(strSQL)
If Not rsListarProx.Eof Then
Do While Not rsListarProx.Eof
Stockrevi=rsListarProx("ProductoNombre")
canti=request.form("dbcantidadele")

For Each n in Request.Form("dbcantidadele")
Mensaje=n & "<br>"
Next


'If Stockrevi = canti then
' response.Redirect("PopUp2.asp")
' Else
' mensajito="no funko"
'end if
%>


</td>
<%
rsListarProx.Movenext
loop
end if
%>
</tr>



</table></td>
</tr>
<tr>
<td class="Error"><%=Mensaje%></td>

</tr>
<tr>
<td class="Fila1F">
<INPUT TYPE="submit" name="txtAgregar" value="Agregar" class="Boton">
<INPUT TYPE="submit" name="txtPrecios" value="Lista de Precios" class="Boton">
<INPUT TYPE="hidden" name="dbCodigoCategoria" value="<%=dbcod%>"> </td>
</tr>
<%
Else
%>
<tr>
<td class="Fila1F">
EN ESTOS MOMENTOS NO SE ENCUENTRAN DISPONIBLES PRODUCTOS CON ESTA CATEGORIA </td>
</tr>
<%
End if
%>
</table>
</td>
</tr>
</table>
<span class="Fila1"></span>
</Form>
<%

MyBase.close
set MyBase=nothing
%>
</BODY>
</HTML>

Aki habia un validacion cuando era 0 pero como ahora lo ago con list no puedo validarlo pk los manda haci 1,0,6
sorry x lo enrredado

[MaveriK.j]

ya disculpa no molesto mas no se preocupen yo me las arreglare vale = daniel se k lo hiciste con buena voluntad
sorry x no saber no naci sabiendo ... sorry

grx

[daniel00]

Que tal.

No hay problema, cualquier duda aquí seguimos. Y no tomes a mal el mensaje de u_goldman, creo que es algo constructivo.

Saludos.

[daniel00]

Que tal.

No hay problema, cualquier duda aquí seguimos. Y no tomes a mal el mensaje de u_goldman, creo que es algo constructivo.

Saludos.