PK

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

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

<%'--------------------------- BORRA Compra
dim ped_email,ped_descargado

rs.Open "SELECT * FROM Compras WHERE idpedido = " & request("idpedido"),conn,2,2
rs.movefirst

ped_email = rs("ped_email")
ped_descargado = rs("ped_descargado")

rs.delete
rs.Close

'--------------------------- DESCUENTA STOCK

rs.open "SELECT * FROM Compras_items WHERE xidpedido = " & request("idpedido"),conn,2,2

if not rs.EOF then
	rs.movefirst
	
	do until rs.EOF
			rs1.open "SELECT * FROM Articulos WHERE idarticulo = " & rs("xidarticulo"),conn,2,2
			if not rs1.EOF then
				rs1.movefirst
				
				if ped_descargado then rs1("art_stock") = rs1("art_stock") + rs("item_cantidad")
				
				rs1.update
			end if
			rs1.close
		rs.delete
		rs.movenext
	loop
end if
rs.close

'--------------------------- CUENTA CORRIENTE%>

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

<%'--------------------------

conn.Close

Response.Redirect("Compras.asp")%>

PK 99