<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../conn/conn.asp"-->
<!-- #include file="../adovbs.inc"-->
<%
if isarray(session("arr")) then
	arr=session("arr")
	pzs=ubound(arr,1)+1   '品種數(shù)
	je=request.Form("ys")   '總金額
	selldate=now()
	operator=session("name")
	khname=request.Form("khname")
	ys=request.Form("ys")
	ss=request.Form("ss")
	ws=request.Form("ws")
	jsr=request.Form("jsr")
	jsfs=request.Form("jsfs")
	if ws=0 then
		whether="是"
	else
		whether="否"
	end if
	'定義事務(wù)開(kāi)始
	err=0
	on error resume next
	conn.BeginTrans  '事務(wù)開(kāi)始
	'<!--調(diào)用存儲(chǔ)過(guò)程插入銷售主表信息	
	set objCmd=Server.CreateObject("Adodb.Command") 
	objCmd.ActiveConnection=conn 
	objCmd.CommandType=adCmdStoredProc '其為Stored Procedure
	objCmd.CommandText="P_sell" '指定存儲(chǔ)過(guò)程名稱 
	objCmd.Parameters.Append _ 
	objCmd.createparameter("pzs",adInteger,adparaminput)
	objCmd.Parameters.Append _ 
	objCmd.createparameter("je",adCurrency,adparaminput)
	objCmd.Parameters.Append _ 
	objCmd.createparameter("ss",adCurrency,adparaminput) 
	objCmd.Parameters.Append _ 
	objCmd.createparameter("khname",advarchar,adparaminput,100)	
	objCmd.Parameters.Append _ 
	objCmd.createparameter("selldate",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("sellid",adVarchar,adParamOutput,30) 
	objCmd.Parameters("pzs")=pzs
	objCmd.Parameters("je")=je
	objCmd.Parameters("ss")=ss
	objCmd.Parameters("khname")=trim(khname)		
	objCmd.Parameters("selldate")=selldate      
	objCmd.Parameters("operator")=trim(operator)
	objCmd.Parameters("jsr")=trim(jsr)
	objCmd.Parameters("jsfs")=trim(jsfs)
	objCmd.Execute
	re_sellid=objCmd.Parameters("sellid")  '從存儲(chǔ)過(guò)程中取回銷售單號(hào)
	'-->
	'插入結(jié)賬主表
	sql="insert into tab_selljz_main values('"&re_sellid&"',"&ws&",'"&whether&"')"
	conn.execute(sql)	
	'插入結(jié)賬明細(xì)表信息
	sql="insert into tab_selljz(xsid, khname, bcjk, ye, jkdate,czy ,jsr) values('"&re_sellid&"','"&khname&"',"&ss&","&ws&",'"&selldate&"','"&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
		if arr_rs.eof and arr_rs.bof then
			response.Write("<script>alert('您的操作有誤!');window.location.href='spxs.asp';</script>")
			session("arr")=""
			response.End()
		end if
		'插入明細(xì)表數(shù)據(jù)
		sql="insert into tab_sell_detail values('"&re_sellid&"','"&arr_spid&"',"&arr_dj&","&arr_sl&")"
		conn.execute(sql)
		'更新庫(kù)存表'
		sql="update tab_kucun set kcsl=kcsl-"&arr_sl&" where id='"&arr_spid&"'"
		conn.execute(sql)
	Next
	conn.CommitTrans  '事務(wù)結(jié)束
	if err<>0 then
		conn.rollbackTrans  '事務(wù)回滾
		response.Write("<script language='javascript'>alert('銷售數(shù)據(jù)出錯(cuò)，請(qǐng)檢查后重新登記!');window.location.href='spxs.asp';</script>")
	else
		session("arr")=""
		response.Write("<script language='javascript'>alert('商品銷售成功!\n\r您的銷售票號(hào)為："&re_sellid&"\n\r請(qǐng)牢記，查詢時(shí)會(huì)用到！');window.location.href='spxs.asp';</script>")
	end if
end if
%>