PK

<!--#include file="administrador/includes/openconn.asp" -->
<%dim cantx
for a = 0 to 300
		session("sss_iditem" & a)=""
		session("sss_precio" & a)=""
		session("sss_preciomin" & a)=""
		session("sss_cantidad" & a)=""
next

rs.open "SELECT * FROM Q_articulos WHERE art_publicado = true AND cat_codigo = '" & request("cat_codigo") & "' ORDER BY sec_codigo, cat_nombre, art_nombre",conn,3,1
rs.movefirst

a = 0

dim art_precio

do until rs.EOF

		cantx = 0
		if rs("art_ventaunitaria") AND request("item_" & rs("idarticulo") & "_u") <> "" then cantx = cantx + cint(request("item_" & rs("idarticulo") & "_u"))
		if rs("art_unidadespc") > 0 AND request("item_" & rs("idarticulo") & "_c") <> "" then cantx = cantx + cint(request("item_" & rs("idarticulo") & "_c") * rs("art_unidadespc"))

		art_precio = null
				  
		if session("idcliente") <> "" then
		  if session("cli_revendedor") then
			art_precio = rs("art_precio") * ( 1 + (rs("prov_descuento_rev") / 100)) * ( 1 - (session("cli_descuento") / 100))
		  else
			art_precio = rs("art_precio") * ( 1 + (rs("prov_descuento") / 100)) * ( 1 - (session("cli_descuento") / 100))
		  end if
		end if	
	
		if cantx > 0 then
	
			session("sss_iditem" & a)=rs("idarticulo")
			if art_precio > 0 then
				session("sss_precio" & a) = art_precio
				session("sss_preciomin" & a) = art_precio
			else
				session("sss_precio" & a) = 0 
				session("sss_preciomin" & a) = 0 
			end if
			session("sss_cantidad" & a)=cantx
			a = a + 1
		end if
		
	rs.movenext
loop

rs.close
conn.close

'for a = 0 to 300
	'if session("sss_iditem" & a) = "" then exit for
	'response.Write(session("sss_iditem" & a) & "-----" & session("sss_precio" & a) & "-----" &	session("sss_cantidad" & a) & "<br>")
'next

'Response.Redirect("pedidorapido.asp")
Response.Redirect("carrito_ver.asp")%>

PK 99