📄 inoutaudit.asp
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>审核出入库单</title>
</head>
<body>
<%
Dim id
id = Request.QueryString("id")
sql = "Update StoreInOut Set Status='审核' Where IOId='" & id & "'"
Set rs = Conn.Execute(sql)
'审核后从对应的商品库存数量中减去或增加出入库数量
sql = "Select * From StoreIOList Where IOId='" & id & "'"
Set rs = Conn.Execute(sql)
Do While Not rs.EOF
'0-采购入库；1-销售退货入库；2-销售出库；3-采购退货出库
If rs("Flag")=0 Or rs("Flag")=1 Then
sql = "Update Product Set Quantity=Quantity+" & rs("IONum") & " Where ProId=" & rs("ProId")
Else
sql = "Update Product Set Quantity=Quantity-" & rs("IONum") & " Where ProId=" & rs("ProId")
End If
Set rsPro = Conn.Execute(sql)
rs.MoveNext()
Loop
Response.Write "<h3>出入库单成功审核</h3>"
Set rsPro = Nothing
Set rs = Nothing
%>
</body>
<script language="javascript">
// 刷新父级窗口，延迟此关闭
opener.location.reload();
setTimeout("window.close()",600);
</script>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -