📄 inoutview.asp
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>查看出入库信息</title>
<link rel="stylesheet" href="../style.css">
</head>
<%
Dim IOId,CreateDate,Poster,ProSum,Status
Dim rs
'变量初始化
ProSum = 0
'读取参数action\id
Action = Request.QueryString("action")
IOId = Request.QueryString("id")
strType = Request.QueryString("type")
Set rs = Server.CreateObject("ADODB.RecordSet")
'设置SELECT语句，读取记录数据
sql = "SELECT * FROM StoreInOut Where IOId='"& IOId & "'"
rs.Open sql,conn,1,3
If Not rs.EOF Then
IONo = rs("IONo")
LotNo = rs("LotNo")
Status = rs("Status")
Poster = rs("Poster")
CreateDate = rs("CreateDate")
If rs("flag")="0" Then
strName = "采购"
strTitle = "入库"
ElseIf rs("flag")="1" Then
strName = "销售"
strTitle = "入库"
ElseIf rs("flag")="2" Then
strName = "销售"
strTitle = "出库"
Else
strName = "采购"
strTitle = "出库"
End If
'计算商品列表中对应的商品总金额
sql = "Select Sum(IOPrice*IONum) AS pSum From StoreIOList Where IOId='" & IOId & "'"
Set rs1 = Conn.Execute(sql)
If IsNull(rs1("pSum")) Then
ProSum = 0
Else
ProSum = rs1("pSum")
End If
Set rs1 = Nothing
End If
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" >
<br>
<table align="center" border="1" cellspacing="0" width="95%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF" colspan="4" background="pic/storeio.jpg" height="90" width="100%">
<p align="center"><b><font face="华文彩云" color="#000080" size="6"><%=strName%><%=strTitle%>单</font></b></p>
</td>
</tr>
<tr>
<td bgcolor="#CEE7FF"><%=strName%><%=strTitle%>单编号</td>
<td><%=IOId%> </td>
<td bgcolor="#CEE7FF">当前状态</td>
<td><%=Status%> </td>
</tr>
<tr>
<td width="20%" bgcolor="#CEE7FF"><%=strTitle%>批次号</td>
<td><%=LotNo%> </td>
<td width="20%" bgcolor="#CEE7FF">类型</td>
<td width="40%"><%=strName%><%=strTitle%></td>
</tr>
<tr>
<td width="20%" bgcolor="#CEE7FF">选择<%=strName%>订单</td>
<td width="40%"><%=IONo%></td>
<td bgcolor="#CEE7FF"><%=strTitle%>总金额</td>
<td><%=ProSum%> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF"><%=strTitle%>日期</td>
<td><%=CreateDate%> </td>
<td bgcolor="#CEE7FF">录入人</td>
<td><%=Poster%> </td>
</tr>
</table>
<br>
<table align=center border="0" cellspacing="0" width="95%">
<tr><td align="center"><%=strName%><%=strTitle%>商品列表</td></tr>
<tr><td align="right"></td>
</tr>
</table>
<table align=center border="1" cellspacing="0" width="95%" bordercolorlight="#000080" bordercolordark="#FFFFFF">
<tr>
<td width="12%" align="center" bgcolor="#C1E0FF"><strong>商品编号</strong></td>
<td width="14%" align="center" bgcolor="#C1E0FF"><strong>商品名称</strong></td>
<td width="12%" align="center" bgcolor="#C1E0FF"><strong>商品型号</strong></td>
<td width="16%" align="center" bgcolor="#C1E0FF"><strong>应<%=strTitle%>数量</strong></td>
<td width="14%" align="center" bgcolor="#C1E0FF"><strong><%=strTitle%>价格</strong></td>
<td width="16%" align="center" bgcolor="#C1E0FF"><strong>实际<%=strTitle%>数量</strong></td>
<td width="16%" align="center" bgcolor="#C1E0FF"><strong>实际<%=strTitle%>金额</strong></td>
</tr>
<%rs.Close()
'读取对应的商品信息
If strType="0" Or strType="3" Then
'从表PurProductList中提取此PurId下的记录
SqlList = "SELECT l.*,p.ProName,p.ProStyle,IsNull(s.IONum,0) AS rq," _
+ " IsNull(s.IONum*s.IOPrice,0) AS rs,IsNull(s.IOPrice,0) AS rp " _
+ " FROM PurProductList l LEFT JOIN StoreIOList s ON l.ProId=s.ProId AND s.IOId='" & IOId & "'" _
+ " INNER JOIN Product p ON l.ProId=p.ProId WHERE l.PurId='" & IONo & "' ORDER BY l.ProId"
Else
'从表ProductList中提取此SaleId下的记录
SqlList = "SELECT l.*,p.ProName,p.ProStyle,IsNull(s.IONum,0) AS rq," _
+ " IsNull(s.IONum*s.IOPrice,0) AS rs,IsNull(s.IOPrice,0) AS rp " _
+ " FROM ProductList l LEFT JOIN StoreIOList s ON l.ProId=s.ProId AND s.IOId='" & IOId & "'" _
+ " INNER JOIN Product p ON l.ProId=p.ProId WHERE l.SaleId='" & IONo & "' ORDER BY l.ProId"
End If
rs.Open SqlList,Conn,1,3
If rs.EOF Then
Response.Write "<tr><td colspan='7' align='center'>目前没有记录</td></tr>"
End If
Do While Not rs.EOF
%>
<tr>
<td align=center><%=rs("ProId")%> </td>
<td><%=rs("ProName")%> </td>
<td><%=rs("ProStyle")%> </td>
<td align="right"><%=rs("Quantity")%> </td>
<td align="right"><%=rs("rp")%> </td>
<td align="right"><%=rs("rq")%> </td>
<td align="right"><%=rs("rs")%> </td>
</tr>
<% rs.MoveNext()
Loop%>
</table>
<p align=center><input type="button" value=" 关 闭 " name="B1" onclick="javascript:window.close();"></p>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -