PK

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

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

<%'--------------------------- MARCA ANULADO

rs.open "SELECT * FROM Compras WHERE idpedido = " & request("idpedido"),conn,2,2
rs.movefirst
rs("xidpe") = 3
rs.update
rs.close

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

rs.open "SELECT * FROM Compras_items WHERE xidpedido = " & request("idpedido"),conn,3,1
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
		
			'rs1("art_stock") = rs1("art_stock") + rs("item_cantidad")
		
		rs1.update
	end if
    rs1.close

rs.movenext
loop

conn.close

response.redirect("Compra_edit.asp?idpedido=" & request("idpedido"))%>
                            

PK 99