PK

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

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

<%rs.open "SELECT * FROM Q_Pedidos_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
			
			if request("borrar") = "SI" AND not isnull(rs("ped_descargado")) then
				rs1("art_stock") = rs1("art_stock") + rs("item_cantidad")
			end if
			if request("borrar") <> "SI" AND isnull(rs("ped_descargado")) then
				rs1("art_stock") = rs1("art_stock") - rs("item_cantidad")
			end if
			
			rs1.update
		end if
		rs1.close
	
	rs.movenext
	loop	
	
	rs.close
	
	'--------------------------- MARCA DESCARGADO

rs.open "SELECT * FROM Pedidos WHERE idpedido = " & request("idpedido"),conn,2,2
rs.movefirst
if request("borrar") = "SI" then
	rs("ped_descargado")=null
else
	rs("ped_descargado")=now()
	if isnull(rs("ped_verificado")) then rs("ped_verificado") =now()
end if
rs.update
rs.close

conn.close

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

PK 99