PK

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

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

<%rs.Open "SELECT * FROM Pedidos_items WHERE xidpedido = " & session("idpedido") & " AND xidarticulo = " & request("idarticulo"),conn,2,2
rs.movefirst
rs.delete
rs.Close

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

dim xtotalmay, xtotalmin

rs1.Open "SELECT * FROM Q_Pedidos_items WHERE xidpedido = " & session("idpedido"),conn,2,2

if not rs1.EOF then

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

end if

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