📄 deliverydetail.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "order","read"
set objcheck=nothing
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from v_delivery where deliveryid="&request("deliveryid"),conn,1,1
if rs.EOF then
Response.Write "记录不存在"
Response.End
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("ordernum")%></title>
</head>
<script language="JavaScript">
function window_onload()
{
window.moveTo(-2,-2);
window.resizeTo(screen.availWidth, screen.availHeight);
}
</script>
<body bgcolor="#ffffff" onload="window_onload()">
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="35%"><b><font class="title">发货单：<%=rs("deliveryno")%></font></b></td>
<td width="65%"> </td>
</tr>
<tr >
<td height="16" colspan="2" background="../images/title.gif"></td>
</tr>
<tr>
<td height=4></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
<tr>
<td height=20 align=center bgcolor="DEDFDE">发货单号</td>
<td align=center bgcolor="efefef"><b><font class="title"><%=rs("deliveryno")%></font></b></td>
<td align=center bgcolor="DEDFDE"> </td>
<td align=center bgcolor="efefef"> </td>
<td align=center bgcolor="DEDFDE"> </td>
<td align=center bgcolor="efefef"> </td>
</tr>
<tr>
<td width="10%" height=20 align=center bgcolor="DEDFDE">合同号</td>
<td width="25%" align=center bgcolor="efefef"><%=rs("ordernum")%></td>
<td width="10%" align=center bgcolor="DEDFDE">状态</td>
<td width="20%" align=center bgcolor="efefef"><%=rs("status")%></td>
<td width="10%" align=center bgcolor="DEDFDE">总金额</td>
<td width="25%" align=center bgcolor="efefef"><%=formatnumber(rs("totalamount"),2)%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">客户</td>
<td align=center bgcolor="efefef"><%=rs("account")%></td>
<td align=center bgcolor="DEDFDE">联系人</td>
<td align=center bgcolor="efefef"><%=rs("contact")%></td>
<td align=center bgcolor="DEDFDE">电话</td>
<td align=center bgcolor="efefef"><%=rs("workphone")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">付款条款</td>
<td align=center bgcolor="efefef"><%=rs("term")%></td>
<td align=center bgcolor="DEDFDE">运货方式</td>
<td align=center bgcolor="efefef"><%=rs("shipvia")%></td>
<td align=center bgcolor="DEDFDE">所有者</td>
<td align=center bgcolor="efefef"><%=rs("owner")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">签订日期</td>
<td align=center bgcolor="efefef"><%=rs("signeddate")%></td>
<td align=center bgcolor="DEDFDE">发货地址</td>
<td align=center bgcolor="efefef"><%=rs("shipaddress")%></td>
<td align=center bgcolor="DEDFDE">客户采购单号</td>
<td align=center bgcolor="efefef"><%=rs("customerpo")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">货币代码</td>
<td align=center bgcolor="efefef"><%=rs("currencycode")%></td>
<td align=center bgcolor="DEDFDE">需开票</td>
<td align=center bgcolor="efefef">
<%if rs("invoice") then
response.write "是"
else
response.Write "否"
end if
%>
</td>
<td align=center bgcolor="DEDFDE"> </td>
<td align=center bgcolor="efefef"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">描述</td>
<td colspan="5" align=center bgcolor="efefef"> <div align="left"><%=rs("description")%></div></td>
</tr>
</table>
<%if rs("status")="发货完成" then%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="13" colspan="6" bgcolor="#FFCCFF">物流承运信息：</td>
</tr>
<tr>
<td width="16%" bgcolor="efefef"> <div align="center">物流公司</div></td>
<td width="16%" bgcolor="efefef"> <div align="center">联系人</div></td>
<td width="16%" bgcolor="efefef"> <div align="center">电话</div></td>
<td width="16%" bgcolor="efefef"> <div align="center">发货日期</div></td>
<td width="16%" bgcolor="efefef"> <div align="center">承运单号</div></td>
<td bgcolor="efefef"> <div align="center">运费</div></td>
</tr>
<tr>
<td height="2"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> <div align="center"><%=rs("deliverycompany")%></div></td>
<td> <div align="center"><%=rs("deliverycontact")%></div></td>
<td> <div align="center"><%=rs("deliveryphone")%></div></td>
<td> <div align="center"><%=rs("deliverydate")%></div></td>
<td> <div align="center"><%=rs("deliverynum")%></div></td>
<td> <div align="center"><%=rs("deliveryexpense")%></div></td>
</tr>
</table>
<%end if%>
<%
dim conndelivery
dim rsdelivery
set conndelivery=server.CreateObject("adodb.connection")
set rsdelivery=server.CreateObject("adodb.recordset")
conndelivery.Open connstring
rsdelivery.Open "select * from v_deliveryline where deliveryid="&request("deliveryid"),conndelivery,1,1
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><strong><font size="2"><b><font class="title">发货单明细</font></b></font></strong></td>
</tr>
<tr>
<td height=2 colspan="2" bgcolor="#4A699C"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
<tr bgcolor="efefef">
<td width="5%" height="15" align=center>序号</td>
<td width="10%" height=15 align=center>货号</td>
<td height="15" align=center>型号</td>
<td width="10%" height="15" align=center>数量</td>
<td width="10%" height="15" align=center>退货数量</td>
<td width="10%" align=center>市场价</td>
<td width="10%" height="15" align=center>折扣价</td>
<td width="10%" align=center>金额</td>
<td width="10%" align=center nowrap>货期</td>
</tr>
<%i=1
do while not rsdelivery.EOF%>
<tr bgcolor="#FFFFFF">
<td align=center><%=i%></td>
<td height=18 align=center bgcolor="#FFFFFF"><%=rsdelivery("productcode")%></a></td>
<td align=center><%=rsdelivery("model")%></td>
<td align=center><%=rsdelivery("qty")%></td>
<td align=center><%=rsdelivery("returnqty")%></td>
<td align=center><%=formatnumber(rsdelivery("price"),2)%></td>
<td align=center><%=formatnumber(rsdelivery("discountprice"),2)%></td>
<td align=center><%=formatnumber(rsdelivery("amount"),2)%></td>
<td align=center><%=rsdelivery("shipdate")%></td>
</tr>
<%
i=i+1
rsdelivery.MoveNext
loop
rsdelivery.Close
set rsdelivery=nothing
conndelivery.Close
set conndelivery=nothing
%>
</table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -