⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 save_in.asp

📁 这是用数据库语言编写的仓库管理系统
💻 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("in_num")) then
  msg=msg+"请检查数量的正确性！（要为数字）<br>"
else
  if request("in_num")<=0 then
   msg=msg+"请检查数量的正确性！（要为大于0）<br>"
  end if
end if
if not IsNumeric(request("in_price")) then
  msg=msg+"请检查进价的正确性！（要为数字）<br>"
else
  if request("in_price")<=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("selprovider")=0 then
  msg=msg+"请选择供应商！<br>"
end if
if msg<>"" then
  showerror(msg)
end if
session("selprovider")=request("selprovider")

sql= "update detail set jz_log=0 where name_id="&session("name_id")&" and storage_id="&session("storage")
rs.open sql,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
   rs3.update

   rs("left_num")=0
   rs("jz_log")=0
   rs.update
 rs.movenext
loop
rs3.close
end if
rs.close

sql="select * from detail"
rs.open sql,conn,3,2
rs.addnew
rs("jz_log")=1 '表示新帐
rs("storage_id")=session("storage")
rs("provider_id")=request("selprovider")
rs("name_id")=session("name_id")
rs("rq")=date()
rs("zl")=request("zl")
rs("hs")=request("hs")
rs("zy")=request("zy")

rs("in_num")=request("in_num")
rs("in_price")=request("in_price")
rs("in_sum")=rs("in_num")*rs("in_price")

rs("out_num")=0
rs("out_price")=0
rs("out_sum")=0

rs("now_num")=rs("in_num")
rs("now_price")=rs("in_price")
rs("now_sum")=rs("in_sum")

rs("left_num")=rs("in_num")

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 + -