📄 save_out.asp
字号:
<%
'#################################################################
'# 兄弟资源网仓库管理 ver.2001
'#
'# 版权所有: 兄弟资源网
'#
'# 制作人 : 江湖兄弟
'#
'# 主页地址: http://soft.51dns.net/ 兄弟资源网
'#
'#################################################################
'#【版权声明】
'#
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛告诉我们
'#################################################################
%>
<%@ LANGUAGE="VBSCRIPT" %>
<%const title="确认数据"%>
<% response.buffer=true %>
<!--#include file="OpenDB.inc"-->
<!--#include file=myPrg.asp-->
<head>
<title><%=title%></title>
<link rel="stylesheet" type="text/css" href="forum.css">
</head>
<body topmargin=0>
<%
ShowTitle(title)
msg=""
if not IsNumeric(request("out_num")) then
msg=msg+"请检查数量的正确性！（要为数字）<br>"
else
if request("out_num")<=0 then
msg=msg+"请检查数量的正确性！（要为大于0）<br>"
end if
end if
if request("zy")="" then
msg=msg+"请输入出库摘要！<br>"
end if
if request("zl")="" then
msg=msg+"请输入种类！<br>"
end if
if request("hs")="" then
msg=msg+"请输入号数！<br>"
end if
if request("seluses")=0 then
msg=msg+"请选择接应者（用处）<br>"
end if
if msg<>"" then
showerror(msg)
end if
session("seluses")=request("seluses")
sql="select * from stock where name_id="&session("name_id")
rs.open sql,conn
if not rs.eof then
if rs("now_stock")-request("out_num")<0 then
showerror("库存 "&last_num&" 不足 "&request("out_num"))
end if
else
showerror("找不到该记录！")
end if
rs.close
rs.open "update detail set jz_log=0 where name_id="&session("name_id")&" and storage_id="&session("storage"),conn
sql="select * from detail where name_id="&session("name_id")&" and storage_id="&session("storage") &" and left_num>0 order by id"
rs.open sql,conn,3,2
if not rs.eof then '如果发现原有存货的记录，则要全部加入当前的结存
sql="select * from detail"
rs3.open sql,conn,3,2
do while not rs.eof
rs3.addnew
rs3("jz_log")=0 '表示跟踪帐
rs3("storage_id")=session("storage")
rs3("provider_id")=request("selprovider")
rs3("name_id")=session("name_id")
rs3("rq")=date()
rs3("zl")=" "
rs3("hs")=" "
rs3("zy")=" "
rs3("now_num")=rs("now_num")
rs3("now_price")=rs("now_price")
rs3("now_sum")=rs("now_sum")
rs3("left_num")=rs("left_num")
rs3("jz_log")=1
rs("jz_log")=0
rs("left_num")=0
rs.movenext
loop
rs3.update
rs3.close
else
showerror("没有可以出库的数据！")
end if
rs.movefirst
rs.update
rs.close
current_num=request("out_num") '当前需要出库的数据
left_num=current_num '剩余的出库数
session("out_price")=0
response.write "current_num="¤t_num
response.write "left_num="&left_num&"<br>"
out_sum=0
sql="select * from detail where name_id="&session("name_id")&" and storage_id="&session("storage") &" and left_num>0 order by id"
rs.open sql,conn,3,2
if not rs.eof then
do while left_num>0 and not rs.eof
response.write "开始<br>"
if left_num-rs("left_num")>0 then '当请求数据大于一批时，该批全部出库
rs("out_num")=rs("now_num")
rs("out_price")=rs("now_price")
rs("out_sum")=rs("now_sum")
out_sum=out_sum+rs("out_sum")
rs("left_num")=0
rs("now_num")=0
rs("now_sum")=0
rs("now_price")=0
left_num=left_num-rs("out_num")
rs.movenext
else
rs("out_num")=left_num
rs("out_price")=rs("now_price")
rs("out_sum")=rs("out_num")*rs("out_price")
out_sum=out_sum+rs("out_sum")
rs("now_num")=rs("now_num")-left_num
rs("now_sum")=rs("now_num")*rs("out_price")
rs("left_num")=rs("now_num")
left_num=0
end if
loop
else
showerror("没有可以出库的数据！")
end if
rs.movelast
rs("zl")=request("zl")
rs("hs")=request("hs")
rs("zy")=request("zy")
rs("jz_log")=1
rs.update
rs.close
update_stock
response.redirect "list.asp?id="&session("name_id")
%>
<!--#include file=copyright.asp-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -