📄 returnview.asp
字号:
<!--#include file="../conndb.asp"-->
<html>
<head>
<title>销售退货单信息</title>
<link rel="stylesheet" href="../style.css">
</head>
<%
Dim RntId,SaleId,CreateDate,RntDate,Memo,Status,Poster,ProSum,OtherCost,Total
Dim EmpName,ProId,ProName,Style
Dim rs
'变量初始化
RntId = ""
SaleId = ""
RntDate = ""
ProSum = 0
OtherCost = 0
Total = 0
CreateDate = Date()
Memo = ""
'读取参数rid
RntId = Request.QueryString("rid")
Set rs = Server.CreateObject("ADODB.RecordSet")
'设置SELECT语句，读取记录数据
sql = "SELECT * FROM SaleReturn Where RntId='"& RntId & "'"
rs.Open sql,conn,1,3
If Not rs.EOF Then
SaleId = rs("SaleId")
RntDate = rs("RntDate")
OtherCost = rs("OtherCost")
Poster = rs("Poster")
CreateDate = rs("CreateDate")
Memo = rs("Memo")
Status = rs("Status")
'计算商品列表中对应的商品总金额
sql = "Select Sum(Price*Quantity) AS pSum From ProductList Where SaleId='" & RntId & "'"
Set rs1 = Conn.Execute(sql)
If IsNull(rs1("pSum")) Then
ProSum = 0
Else
ProSum = rs1("pSum")
End If
Total = CDbl(ProSum) + CDbl(OtherCost)
Set rs1 = Nothing
End If
rs.Close()
%>
<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/sale.jpg" height="90" width="100%">
<p align="center"><b><font face="华文彩云" color="#000080" size="6">商品销售退货单</font></b></p>
</td>
</tr>
<tr>
<td width="20%" bgcolor="#CEE7FF">销售退货单号</td>
<td width="40%"><%=RntId%> </td>
<td width="20%" bgcolor="#CEE7FF">当前状态</td>
<td width="40%"><%=Status%> </td>
</tr>
<tr>
<td width="20%" bgcolor="#CEE7FF">销售订单号</td>
<td width="40%"><%=SaleId%> </td>
<td bgcolor="#CEE7FF">退货日期</td>
<td><%=RntDate%> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">商品总金额</td>
<td><%=ProSum%> </td>
<td bgcolor="#CEE7FF">其他费用</td>
<td><%=OtherCost%> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">退货总金额</td>
<td><%=Total%> </td>
<td bgcolor="#CEE7FF" rowspan="3">备注</td>
<td rowspan="3"><%=Memo%> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">创建日期</td>
<td><%=CreateDate%> </td>
</tr>
<tr>
<td bgcolor="#CEE7FF">录入人</td>
<td><%=Poster%> </td>
</tr>
</table>
<br>
<table align=center border="0" cellspacing="0" width="95%">
<tr><td align="center">退货商品列表</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="16%" align="center" bgcolor="#C1E0FF">商品编号</td>
<td width="20%" align="center" bgcolor="#C1E0FF">商品名称</td>
<td width="20%" align="center" bgcolor="#C1E0FF">商品型号</td>
<td width="16%" align="center" bgcolor="#C1E0FF">销售价格</td>
<td width="14%" align="center" bgcolor="#C1E0FF">销售数量</td>
<td width="14%" align="center" bgcolor="#C1E0FF">总额</td>
</tr>
<%'读取对应的销售商品信息
sql = "SELECT l.*,p.ProName,p.ProStyle FROM ProductList l,Product p" _
& " WHERE l.ProId=p.ProId AND l.SaleId='" & RntId & "' ORDER BY l.ProId"
rs.Open sql,Conn,1,3
If rs.EOF Then
Response.Write "<tr><td colspan='7' align='center'>目前没有记录</td></tr>"
End If
Do While Not rs.EOF
ProId = rs("ProId")
ProName = rs("ProName")
Style = rs("ProStyle")
Quantity = rs("Quantity")
Price = rs("Price")
%>
<tr>
<td align=center><%=ProId%></td>
<td><%=ProName%></td>
<td><%=Style%></td>
<td align="right"><%=Price%></td>
<td align="right"><%=Quantity%></td>
<td align="right"><%=CDbl(Price)*CDbl(Quantity)%></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 + -