PK

<!--#include file="includes/openconn.asp" -->

<!--#include file="includes/checkadmin.asp" -->

<%dim xcant

session("precios") = "MIN"

rs.Open "SELECT * FROM Pedidos_items WHERE xidpedido = " & session("idpedido") & " AND xidarticulo = " & request("item_id"),conn,2,2
if rs.EOF then
	rs.addnew
else
	rs.movefirst
end if

	rs1.open "SELECT * FROM Articulos WHERE idarticulo = " & request("item_id"),conn,3,1
	rs1.movefirst
	
	xcant = 0
	if request("item_cantidad_u") <> "" then xcant = xcant + request("item_cantidad_u")
	if request("item_cantidad_c") <> "" then xcant = xcant + (request("item_cantidad_c") * rs1("art_unidadespc"))
	
	rs("xidpedido") = request("idpedido")
	rs("xidarticulo") = request("item_id")
	rs("item_cantidad") = xcant
	rs("item_precio") = rs1("art_precio")
	rs("item_precio_compra") = rs1("art_precio_compra")
	rs("item_nombre") = rs1("art_nombre")

	rs1.close

rs.update
rs.Close

'-------------------- RECALCULAR

dim xtotalmay, xtotalmin

rs1.Open "SELECT * FROM Q_Pedidos_items WHERE xidpedido = " & session("idpedido"),conn,2,2
rs1.movefirst
do until rs1.EOF
	xtotalmay = xtotalmay + rs1("item_cantidad") * rs1("art_precio_may")
	xtotalmin = xtotalmin + rs1("item_cantidad") * rs1("art_precio")
	rs1.movenext
loop
if xtotalmay >= session("monto_mayorista") then
	session("precios") = "MAY"
else
	session("precios") = "MIN"
end if
rs1.movefirst
do until rs1.EOF
	if session("precios") = "MAY" then
		rs1("item_precio") = rs1("art_precio_may")
	else
		rs1("item_precio") = rs1("art_precio")
	end if
	rs1.update
	rs1.movenext
loop	
rs1.close

'------------- MONTO TOAL PEDIDO

rs.open "SELECT * FROM Pedidos WHERE idpedido = "  & session("idpedido"),conn,2,2
rs.movefirst

if session("precios") = "MAY" then
	rs("ped_tipoprecio") = "MAY"
	rs("ped_monto") = xtotalmay 
else
	rs("ped_tipoprecio") = "MIN"
	rs("ped_monto") = xtotalmin 
end if

rs.update
rs.close

conn.Close

Response.Redirect("Pedido_edit.asp?idpedido=" & session("idpedido"))%>

PK 99