📄 orderdetail.asp
字号:
<td align=center height=18>
<table width=100%>
<tr id="IMGtr1<%=i%>" style="display:block">
<td width=90% align=center>
<a href="javascript:opensubwin('resizable=yes, scrollbarsorderpayment=no, left= 200, top=100, menubar=no, location=no, toolbar=no ,width=600, height=480','../order/deliverydetail.asp?deliveryid=<%=rsorderpayment("deliveryid")%>');"><%=rsorderpayment("deliveryno")%></a>
</td>
<td width=10% align=right>
<a href="javascript:showit('tr1<%=i%>',1)" title="查看发货明细"><img src="../images/button1.gif" border=0></a>
<td>
</tr>
<tr id="IMG1tr1<%=i%>" style="display:none">
<td width=90% align=center>
<a href="javascript:opensubwin('resizable=yes, scrollbarsorderpayment=no, left= 200, top=100, menubar=no, location=no, toolbar=no ,width=600, height=480','../order/deliverydetail.asp?deliveryid=<%=rsorderpayment("deliveryid")%>');"><%=rsorderpayment("deliveryno")%></a>
</td>
<td width=10% align=right>
<a href="javascript:showit('tr1<%=i%>',1)" title="隐藏发货明细"><img src="../images/button2.gif" border=0></a>
</td>
</tr>
</table>
</td>
<td align=center><%=formatnumber(rsorderpayment("deliveryamount"),2)%></td>
<td align=center>
<%if rsorderpayment("paymenttype")="应收帐款" and csng(rsorderpayment("amount"))<>csng(rsorderpayment("deliveryamount")) then
response.write "<font color=red>"&formatnumber(rsorderpayment("amount"),2)&"</font>"
else
response.write formatnumber(rsorderpayment("amount"),2)
end if
%>
</td>
<td align=center>
<%if rsorderpayment("paymenttype")="应收帐款" and csng(rsorderpayment("invoiceamount"))<>csng(rsorderpayment("deliveryamount")) then
response.write "<font color=red>"&formatnumber(rsorderpayment("invoiceamount"),2)&"</font>"
else
response.write formatnumber(rsorderpayment("invoiceamount"),2)
end if
%>
</td>
<td align=center><%=rsorderpayment("paymentdate")%></td>
<td align=center><a href="javascript:opensubwin3('../tools/setstatus.asp?documenttype=payment&id=<%=rsorderpayment("paymentid")%>&status=<%=rsorderpayment("collectionstatus")%>','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=200,left=300');"><%=rsorderpayment("collectionstatus")%></a></td>
<td align=center><a href="javascript:opensubwin3('../tools/setstatus.asp?documenttype=paymentinvoice&id=<%=rsorderpayment("paymentid")%>&status=<%=rsorderpayment("invoicestatus")%>','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=200,left=300');"><%=rsorderpayment("invoicestatus")%></a></td>
<td align=center><%=rsorderpayment("username")%></td>
</tr>
<tr bgcolor="#FFFFFF" border=0 id='tr1<%=i%>' style=display:none>
<td colspan=8>
<%
set rsorderpaymentdeliverline=conn.execute("select * from v_MaterialTransaction where (orderpaymentid="&rsorderpayment("paymentid")&")")
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="ffffff">
<tr>
<td width="5%" height="15" align=center bgcolor="DEDFDE">序号</td>
<td width="12%" height=15 align=center bgcolor="DEDFDE">货号</td>
<td height="15" align=center bgcolor="DEDFDE">型号</td>
<td width="5%" height="15" align=center bgcolor="DEDFDE">数量</td>
<td width="8%" height="15" align=center bgcolor="DEDFDE">价格</td>
<td width="8%" height="15" align=center bgcolor="DEDFDE">平均成本</td>
<td width="8%" height="15" align=center bgcolor="DEDFDE">调准成本</td>
<td width="8%" height="15" align=center bgcolor="DEDFDE">发货金额</td>
<td width="8%" align=center bgcolor="DEDFDE">应收金额</td>
<td width="8%" height="15" align=center bgcolor="DEDFDE">开票金额</td>
<td width="6%" height="15" align=center bgcolor="DEDFDE">收款完成</td>
<td width="6%" height="15" align=center bgcolor="DEDFDE">开票完成</td>
<td width="6%" height="15" align=center bgcolor="DEDFDE">备注</td>
</tr>
<%j=1
do while not rsorderpaymentdeliverline.EOF
%>
<tr>
<td align=center bgcolor="efefef"><%=j%></td>
<td height=18 align=center bgcolor="efefef"><%=rsorderpaymentdeliverline("productcode")%></td>
<td align=center bgcolor="efefef"><%=rsorderpaymentdeliverline("model")%></td>
<td align=center bgcolor="efefef"><%=rsorderpaymentdeliverline("qty")%></td>
<td align=center bgcolor="efefef"><%=formatnumber(rsorderpaymentdeliverline("price"),2)%></td>
<td align=center bgcolor="efefef">
<% if objcheck.CheckUserFunction2("viewcost","read" ) then Response.Write formatnumber(rsorderpaymentdeliverline("cost"),2)%>
</td>
<td align=center bgcolor="efefef">
<a href="javascript:opensubwin3('../tools/SetMaterialTransaction.asp?transactid=<%=rsorderpaymentdeliverline("transactid")%>&fieldname=adjustcost','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=300,left=220');" title="调准发货成本">
<% if objcheck.CheckUserFunction2("viewcost","read" ) then Response.Write formatnumber(rsorderpaymentdeliverline("adjustcost"),2)%></a>
</td>
<td align=center bgcolor="efefef"><%=formatnumber(csng(rsorderpaymentdeliverline("qty"))*csng(rsorderpaymentdeliverline("price")),2)%></td>
<td align=center bgcolor="efefef"><a href="javascript:opensubwin3('../tools/SetMaterialTransaction.asp?transactid=<%=rsorderpaymentdeliverline("transactid")%>&orderpaymentid=<%=rsorderpaymentdeliverline("orderpaymentid")%>&fieldname=receiveamount','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=300,left=220');" title="调准应收金额"><%=formatnumber(rsorderpaymentdeliverline("receiveamount"),2)%></a></td>
<td align=center bgcolor="efefef"><a href="javascript:opensubwin3('../tools/SetMaterialTransaction.asp?transactid=<%=rsorderpaymentdeliverline("transactid")%>&orderpaymentid=<%=rsorderpaymentdeliverline("orderpaymentid")%>&fieldname=invoiceamount','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=300,left=220');" title="调准应收金额"><%=formatnumber(rsorderpaymentdeliverline("invoiceamount"),2)%></a></td>
<td align=center bgcolor="efefef"><%=rsorderpaymentdeliverline("collectionstatus")%></a></td>
<td align=center bgcolor="efefef"><%=rsorderpaymentdeliverline("invoicestatus")%></a></td>
<td align=center bgcolor="efefef"> <a href="javascript:opensubwin3('../tools/SetMaterialTransaction.asp?transactid=<%=rsorderpaymentdeliverline("transactid")%>&fieldname=description','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=300,left=220');" title="查看/修改备注">
备注</a></td>
</tr>
<%
j=j+1
rsorderpaymentdeliverline.MoveNext
loop
rsorderpaymentdeliverline.Close
set rsorderpaymentdeliverline=nothing
%>
</table>
</td>
<tr bgcolor="#FFFFFF">
<td colspan="8">
<b> <font color=green>收款记录</font> <a href="javascript:opensubwin3('../collection/newcollection.asp?paymentid=<%=rsorderpayment("paymentid")%>&paymentno=<%=rsorderpayment("paymentno")%>&straccountid=<%=rsorderpayment("accountid")%>&straccount=<%=rsorderpayment("account")%>&stramount=<%=rsorderpayment("amount")%>&strorderid=<%=rsorderpayment("orderid")%>&strordernum=<%=rsorderpayment("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>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="EADBB8">
<tr bgcolor="efefef">
<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="&rsorderpayment("paymentid"))
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("username")%></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?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>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="8">
<b>  <font color=green>开票记录</font> <a href="javascript:opensubwin3('../invoice/newinvoice.asp?paymentid=<%=rsorderpayment("paymentid")%>&paymentno=<%=rsorderpayment("paymentno")%>&straccountid=<%=rsorderpayment("accountid")%>&straccount=<%=rsorderpayment("account")%>&stramount=<%=rsorderpayment("amount")%>&strorderid=<%=rsorderpayment("orderid")%>&strordernum=<%=rsorderpayment("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>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="EADBB8">
<tr bgcolor="efefef">
<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="&rsorderpayment("paymentid"))
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("invoicedate")%></td>
<td width=80 align=center><%=rsc("username")%></td>
<td width=80 align=center><%=rsc("invoiceno")%></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?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>
</td>
</tr>
<%
i=i+1
rsorderpayment.MoveNext
loop
%>
</tr>
</table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
set objcheck=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -