sprk_deal.asp

企业进销存管理系统

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../conn/conn.asp"-->
<!-- #include file="../adovbs.inc"-->
<%
if isarray(session("arr_rk")) then
	arr=session("arr_rk")
	pzs=ubound(arr,1)+1   '品种数
	je=request.Form("yf")   '总金额
	rkdate=now()
	operator=session("name")
	gysname=request.Form("gysname")
	yf=request.Form("yf")
	sf=request.Form("sf")
	wf=request.Form("wf")
	jsr=request.Form("jsr")
	jsfs=request.Form("jsfs")
	if wf=0 then
		whether="是"
	else
		whether="否"
	end if
	'定义事务开始
	on error resume next
	conn.BeginTrans  '事务开始
	'<!--调用存储过程插入入库主表信息	
	set objCmd=Server.CreateObject("Adodb.Command") 
	objCmd.ActiveConnection=conn 
	objCmd.CommandType=adCmdStoredProc '其为Stored Procedure
	objCmd.CommandText="P_ruku" '指定存储过程名称 
	objCmd.Parameters.Append _ 
	objCmd.createparameter("pzs",adInteger,adparaminput)
	objCmd.Parameters.Append _ 
	objCmd.createparameter("je",adCurrency,adparaminput)
	objCmd.Parameters.Append _ 
	objCmd.createparameter("sf",adCurrency,adparaminput) 
	objCmd.Parameters.Append _ 
	objCmd.createparameter("gysname",advarchar,adparaminput,100)	
	objCmd.Parameters.Append _ 
	objCmd.createparameter("rkdate",advarchar,adparaminput,20)
	objCmd.Parameters.Append _ 
	objCmd.createparameter("operator",advarchar,adparaminput,30)
	objCmd.Parameters.Append _ 
	objCmd.createparameter("jsr",advarchar,adparaminput,30)
	objCmd.Parameters.Append _ 
	objCmd.createparameter("jsfs",advarchar,adparaminput,10)
	objCmd.Parameters.Append _ 
	objCmd.CreateParameter("rkid",adVarchar,adParamOutput,30) 
	objCmd.Parameters("pzs")=pzs
	objCmd.Parameters("je")=je
	objCmd.Parameters("sf")=sf
	objCmd.Parameters("gysname")=trim(gysname)		
	objCmd.Parameters("rkdate")=rkdate      
	objCmd.Parameters("operator")=trim(operator)
	objCmd.Parameters("jsr")=trim(jsr)
	objCmd.Parameters("jsfs")=trim(jsfs)
	objCmd.Execute
	re_rkid=objCmd.Parameters("rkid")  '从存储过程中取回入库单号
	'-->
	'插入结账主表
	sql="insert into tab_rkjz_main values('"&re_rkid&"',"&wf&",'"&whether&"')"
	conn.execute(sql)	
	'插入结账明细表
	sql="insert into tab_rkjz(rkid, gysname, bcjk, ye, jkdate,czy ,jsr) values('"&re_rkid&"','"&gysname&"',"&yf&","&wf&",'"&rkdate&"','"&operator&"','"&jsr&"')"
	conn.execute(sql)	
	For I = 0 To ubound(arr,1)
		arr_spid=arr(I, 0)
		arr_dj=arr(I,1)
		arr_sl=arr(I,2)	
		set arr_rs=Server.CreateObject("ADODB.RecordSet")
		sql="select * from tab_kucun where id='"&arr_spid&"'"
		arr_rs.open sql,conn,1,3
		'插入明细表数据
		sql="insert into tab_ruku_detail values('"&re_rkid&"','"&arr_spid&"',"&arr_dj&","&arr_sl&")"
		conn.execute(sql)		
		if arr_rs.eof and arr_rs.bof then
			'更新库存表'
			set rs_rksp=server.CreateObject("ADODB.RecordSet")
			sql="select * from tab_spinfo where id='"&arr_spid&"'"
			rs_rksp.open sql,conn,1,3
			spname=rs_rksp("spname")
			jc=rs_rksp("jc")
			cd=rs_rksp("cd")
			gg=rs_rksp("gg")
			bz=rs_rksp("bz")
			dw=rs_rksp("dw")
			sql="insert into tab_kucun values('"&arr_spid&"','"&spname&"','"&jc&"','"&cd&"','"&gg&"','"&bz&"','"&dw&"',"&arr_dj&","&arr_sl&")"
			conn.execute(sql)
		else
			'更新库存表'
			sql="update tab_kucun set dj="&arr_dj&",kcsl=kcsl+"&arr_sl&" where id='"&arr_spid&"'"
			conn.execute(sql)
		end if
	Next
	conn.CommitTrans  '事务结束
	if err<>0 then
		conn.rollbackTrans  '事务回滚
	else
		session("arr_rk")=""
		response.Write("<script language='javascript'>alert('商品入库成功!\n\r您的入库票号为："&re_rkid&"\n\r请牢记，查询时会用到！');window.location.href='sprk.asp';</script>")
	end if
end if
%>