del.asp

功能介绍： 1、产品入库

<!--#include file="Inc/Config.asp"-->
<!--#include file="inc/Dx_admin_check.asp"-->
<%
n = request.QueryString("n")
id = request.QueryString("id")
if n=1 then	'删除商品
	sql="delete * from [dx_product] where dx_product_id in ("&id&") and not exists (select * from [dx_ToDepot] where dx_ToDepot_product=dx_product.dx_product_id)"
	application.Lock()
	conn.execute(sql)
	application.UnLock()
	response.Redirect("Dx_product.asp")
elseif n=2 then
	sql="delete * from [dx_ToDepot] where dx_ToDepot_id in ("&id&")"
	application.Lock()
	conn.execute(sql)
	application.UnLock()
	response.Redirect("Dx_ToDepot.asp")
elseif n=3 then

	sql="select * from [dx_debt] where dx_debt_TypeId="&id
	rs.open sql,conn,1,1
	dx_debt_money=rs("dx_debt_money")
	rs.close
	sql="select * from [dx_site]"
	rs.open sql,conn,1,1
	dx_site_money=Cdbl(rs("dx_site_money"))
	rs.close
	if Cdbl(dx_site_money)<Cdbl(dx_debt_money) then
		Call ShowErr("资金不足!","1")
		response.End()
	end if
	
'一次性将一次进货单的欠债还清	
	sql="select * from [dx_ToDepot] where dx_ToDepot_list="&id
	rs.open sql,conn,1,3
	while not rs.eof			
	'dx_site_money=Cdbl(rs("dx_ToDepot_buy_price"))*Cdbl(rs("dx_ToDepot_buy_count"))
	rs("dx_ToDepot_debt")=2
	rs.update
	rs.movenext
	wend
	rs.close
	sql="select * from [dx_debt] where dx_debt_TypeId="&id
'	response.Write(sql)
'	response.End()
	rs.open sql,conn,1,3
	rs("dx_debt_now")=1
	rs.update
	rs.close
	sql="select * from [dx_site]"
	rs.open sql,conn,1,3
	rs("dx_site_money")=Cdbl(rs("dx_site_money"))-Cdbl(dx_debt_money)
	rs.update
	rs.close
	response.Redirect("dx_ToList.asp")
else
	call ShowErr("参数错误!","1")
end if	
%>