PK

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

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

<%'-------------------------- VERIFICA STOCK
dim xmensaje
xmensaje = ""

rs.open "SELECT * FROM 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
		
		for a = 35 to 40
			if rs1("art_stock" & a) < rs("item_cantidad" & a) then
				xmensaje = rs("item_cantidad" & a) - rs1("art_stock" & a) & " - " & rs("item_nombre") & " ( talle : " & a & " )<br>" 
			end if
		next
		
		rs1.update
	end if
    rs1.close

rs.movenext
loop
rs.close

if xmensaje <> "" then
	xmensaje = "STOCK INSUFICIENTE<bR>Faltantes de stock este pedido : <br>" & xmensaje
	conn.close
	response.Redirect("pedido_edit.asp?idpedido=" & request("idpedido") & "&xmensaje=" & xmensaje)
end if

'--------------------------- MARCA ANULADO

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

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

rs.open "SELECT * FROM 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
		
		for a = 35 to 40
			rs1("art_stock" & a) = rs1("art_stock" & a) - rs("item_cantidad" & a)
		next
		
		rs1.update
	end if
    rs1.close

rs.movenext
loop

conn.close

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

PK 99