?? 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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -