📄 orderdetail.asp
字号:
<b><br>
</b>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><b> <font color=#0000FF>预收款记录</font> <a href="javascript:opensubwin3('../collection/newcollection.asp?straccountid=<%=rs("accountid")%>&straccount=<%=rs("account")%>&stramount=<%=rs("totalamount")%>&strorderid=<%=rs("orderid")%>&strordernum=<%=rs("ordernum")%>','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><img src="../images/button_new.gif" border=0></a></b>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="EADBB8">
<tr bgcolor="#FFCCFF">
<td align=center>No.</td>
<td align=center>金额</td>
<td align=center>日期</td>
<td align=center>创建人</td>
<td align=center>类型</td>
<td> 操作</td>
</tr>
<%
set rsc=conn.Execute("select * from v_collection where (paymentid=-1 or paymentid is null) and orderid="&rs("orderid"))
if not rsc.eof then
i=1
do while not rsc.eof
%>
<tr bgcolor=white>
<td width=40 align=center><font color=red><%=i%></font></td>
<td width=80 align=right><%=formatnumber(rsc("amount"),2)%></td>
<td width=80 align=center><%=rsc("receiveddate")%></td>
<td width=80 align=center><%=rsc("createname")%></td>
<td width=80 align=center><%=rsc("collectiontype")%></td>
<td> <a href="javascript:opensubwin3('../collection/newcollection.asp?id=<%=rsc("collectionid")%>','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');">编辑</a>
<a href="javascript:opensubwin3('../delete.asp?ordernum=<%=rs("ordernum")%>&account=<%=rs("account")%>&amount=<%=rsc("amount")%>&collectionid=<%=rsc("collectionid")%>','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=200,left=300');">删除</a></td>
</tr>
<%
i=i+1
rsc.movenext
loop
else
%>
<tr>
<td colspan=6 bgcolor=white> 无记录</td>
</tr>
<%
end if
%>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><b> <font color=#0000FF>预开发票记录</font> <a href="javascript:opensubwin3('../invoice/newinvoice.asp?straccountid=<%=rs("accountid")%>&straccount=<%=rs("account")%>&stramount=<%=rs("totalamount")%>&strorderid=<%=rs("orderid")%>&strordernum=<%=rs("ordernum")%>','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><img src="../images/button_new.gif" border=0></a></b>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="EADBB8">
<tr bgcolor="#FFCCFF">
<td align=center>No.</td>
<td align=center>金额</td>
<td align=center>发票号</td>
<td align=center>日期</td>
<td align=center>创建人</td>
<td align=center>类型</td>
<td> 操作</td>
</tr>
<%
set rsc=conn.Execute("select * from v_invoice where (paymentid=-1 or paymentid is null) and orderid="&rs("orderid"))
if not rsc.eof then
i=1
do while not rsc.eof
%>
<tr bgcolor=white>
<td width=40 align=center><font color=red><%=i%></font></td>
<td width=80 align=right><%=formatnumber(rsc("amount"),2)%></td>
<td width=80 align=center><%=rsc("invoiceno")%></td>
<td width=80 align=center><%=rsc("invoicedate")%></td>
<td width=80 align=center><%=rsc("username")%></td>
<td width=80 align=center><%=rsc("invoicetype")%></td>
<td> <a href="javascript:opensubwin3('../invoice/newinvoice.asp?id=<%=rsc("invoiceid")%>','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');">编辑</a>
<a href="javascript:opensubwin3('../delete.asp?ordernum=<%=rs("ordernum")%>&account=<%=rs("account")%>&amount=<%=rsc("amount")%>&invoiceid=<%=rsc("invoiceid")%>','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=200,left=300');">删除</a></td>
</tr>
<%
i=i+1
rsc.movenext
loop
else
%>
<tr>
<td colspan=7 bgcolor=white> 无记录</td>
</tr>
<%
end if
%>
</table>
<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>
<%set rsdelivery=conn.execute("select * from v_delivery where orderid="&request("orderid"))%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DECFAD">
<tr bgcolor="efefef">
<td width="15%" height=15 align=center>发货单号</td>
<td width="10%" height="15" align=center bgcolor="efefef">金额</td>
<td width="10%" height="15" align=center>是否开票</td>
<td width="10%" height="15" align=center>状态</td>
<td width="10%" height="15" align=center>销售员</td>
<td width="12%" height="15" align=center>操作</td>
</tr>
<%
set deliveryid=rsdelivery("deliveryid")
set deliveryno=rsdelivery("deliveryno")
set totalamount=rsdelivery("totalamount")
set status=rsdelivery("status")
set owner=rsdelivery("owner")
set invoice=rsdelivery("invoice")
set deliverycompany=rsdelivery("deliverycompany")
set deliverycontact=rsdelivery("deliverycontact")
set deliveryphone=rsdelivery("deliveryphone")
set deliverydate=rsdelivery("deliverydate")
set deliverynum=rsdelivery("deliverynum")
set deliveryexpense=rsdelivery("deliveryexpense")
do while not rsdelivery.EOF%>
<tr bgcolor="#FFFFFF">
<td align=center height=19><a href="javascript:opensubwin('resizable=yes, scrollbarsdelivery=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=750, height=500','deliverydetail.asp?deliveryid=<%=deliveryid%>');"><%=deliveryno%></a></td>
<td align=center><%=formatnumber(totalamount,2)%></td>
<td align=center>
<%if invoice then response.write "是" else response.write "否"%>
</td>
<td align=center><%=status%></td>
<td align=center><%=owner%></td>
<td align=center>
<%if status="初始" then%>
<a href="javascript:opensubwin3('editdelivery.asp?deliveryid=<%=deliveryid%>','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');">编辑</a>
<a href="javascript:opensubwin3('../delete.asp?deliveryid=<%=deliveryid%>','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=200,left=300');">删除</a>
<%end if%>
</td>
</tr>
<%if status="发货完成" then%>
<tr bgcolor="#FFFFFF">
<td height=19 colspan="6" align=center><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"><%=deliverycompany%></div></td>
<td> <div align="center"><%=deliverycontact%></div></td>
<td> <div align="center"><%=deliveryphone%></div></td>
<td> <div align="center"><%=deliverydate%></div></td>
<td> <div align="center"><%=deliverynum%></div></td>
<td> <div align="center"><%=deliveryexpense%></div></td>
</tr>
</table> </td>
</tr>
<%
end if
i=i+1
rsdelivery.MoveNext
loop
%>
</table>
<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>
<%set rsorderpayment=conn.execute("select * from v_orderpayment where orderid="&request("orderid"))%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="DECFAD">
<tr bgcolor="efefef">
<td width="12%" 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="8%" height="15" align=center>应收日期</td>
<td width="10%" height="15" align=center>收款完成</td>
<td width="10%" height="15" align=center>开票完成</td>
<td width="6%" height="15" align=center>销售员</td>
</tr>
<%do while not rsorderpayment.EOF%>
<tr bgcolor="#FFFFFF">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -