PK

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

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

<%dim xcant

rs.Open "SELECT * FROM Compras_items WHERE xidpedido = " & session("idpedido") & " AND xidarticulo = " & request("item_id"),conn,2,2
if rs.EOF then
	rs.addnew
else
	rs.movefirst
end if

	rs1.open "SELECT * FROM Articulos WHERE idarticulo = " & request("item_id"),conn,3,1
	rs1.movefirst
	
	xcant = 0
	if request("item_cantidad_u") <> "" then xcant = xcant + request("item_cantidad_u")
	if request("item_cantidad_c") <> "" then xcant = xcant + (request("item_cantidad_c") * rs1("art_unidadespc"))
	
	rs("xidpedido") = request("idpedido")
	rs("xidarticulo") = request("item_id")
	rs("item_cantidad") = xcant
	rs("item_precio") = rs1("art_precio_may")
	rs("item_precio_compra") = request("item_precio_compra")
	rs("item_nombre") = rs1("art_nombre")

	rs1.close

rs.update
rs.Close

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

dim xtotalcompra

rs1.Open "SELECT * FROM Q_Compras_items WHERE xidpedido = " & session("idpedido"),conn,2,2
rs1.movefirst
do until rs1.EOF
	xtotalcompra = xtotalcompra + rs1("item_cantidad") * rs1("item_precio_compra")
	rs1.movenext
loop
rs1.close

'------------- MONTO TOTAL Compra

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

if session("precios") = "MAY" then
	rs("ped_monto") = xtotalcompra 
end if

rs.update
rs.close

conn.Close

Response.Redirect("Compra_edit.asp?idpedido=" & session("idpedido"))%>

PK 99