📄 podetail.asp
字号:
<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>
<%
sql="select * from v_poreceive where poid="&request("poid")
set rsporeceive=conn.execute(sql)%>
<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 poreceiveid=rsporeceive("poreceiveid")
set poreceiveno=rsporeceive("poreceiveno")
set totalamount=rsporeceive("totalamount")
set status=rsporeceive("status")
set owner=rsporeceive("owner")
set invoice=rsporeceive("invoice")
do while not rsporeceive.EOF%>
<tr bgcolor="#FFFFFF">
<td align=center height=19><a href="javascript:opensubwin('resizable=yes, scrollbarsporeceive=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=750, height=500','poreceivedetail.asp?poreceiveid=<%=poreceiveid%>');"><%=poreceiveno%></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('editporeceive.asp?poreceiveid=<%=poreceiveid%>','','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?poreceiveid=<%=poreceiveid%>','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=200,left=300');">删除</a>
<%end if%>
</td>
</tr>
<%
i=i+1
rsporeceive.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 rspopayment=conn.execute("select * from v_popayment where poid="&request("poid"))%>
<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 rspopayment.EOF%>
<tr bgcolor="#FFFFFF">
<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, scrollbarspopayment=no, left= 200, top=100, menubar=no, location=no, toolbar=no ,width=600, height=480','../po/poreceivedetail.asp?poreceiveid=<%=rspopayment("poreceiveid")%>');"><%=rspopayment("poreceiveno")%></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, scrollbarspopayment=no, left= 200, top=100, menubar=no, location=no, toolbar=no ,width=600, height=480','../po/poreceivedetail.asp?poreceiveid=<%=rspopayment("poreceiveid")%>');"><%=rspopayment("poreceiveno")%></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(rspopayment("amount"),2)%></td>
<td align=center>
<%if rspopayment("paymenttype")="应付帐款" and csng(rspopayment("amount"))<>csng(rspopayment("receivedamount")) then
response.write "<font color=red>"&formatnumber(rspopayment("receivedamount"),2)&"</font>"
else
response.write formatnumber(rspopayment("receivedamount"),2)
end if
%>
</td>
<td align=center>
<%if rspopayment("paymenttype")="应付帐款" and csng(rspopayment("invoiceamount"))<>csng(rspopayment("amount")) then
response.write "<font color=red>"&formatnumber(rspopayment("invoiceamount"),2)&"</font>"
else
response.write formatnumber(rspopayment("invoiceamount"),2)
end if
%>
</td>
<td align=center><%=rspopayment("paymentdate")%></td>
<td align=center><a href="javascript:opensubwin3('../tools/setstatus.asp?documenttype=popayment&id=<%=rspopayment("paymentid")%>&status=<%=rspopayment("paymentstatus")%>','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=200,left=300');"><%=rspopayment("paymentstatus")%></a></td>
<td align=center><a href="javascript:opensubwin3('../tools/setstatus.asp?documenttype=popaymentinvoice&id=<%=rspopayment("paymentid")%>&status=<%=rspopayment("invoicestatus")%>','','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=200,left=300');"><%=rspopayment("invoicestatus")%></a></td>
<td align=center><%=rspopayment("username")%></td>
</tr>
<tr bgcolor="#FFFFFF" border=0 id='tr1<%=i%>' style=display:none>
<td colspan=8>
<%
set rspopaymentdeliverline=conn.execute("select * from v_MaterialTransaction where (popaymentid="&rspopayment("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="15%" height=15 align=center bgcolor="DEDFDE">货号</td>
<td height="15" align=center bgcolor="DEDFDE">型号</td>
<td width="10%" height="15" align=center bgcolor="DEDFDE">数量</td>
<td width="10%" height="15" align=center bgcolor="DEDFDE">成本</td>
<td width="12%" align=center bgcolor="DEDFDE">应付金额</td>
<td width="12%" height="15" align=center bgcolor="DEDFDE">发票金额</td>
</tr>
<%j=1
do while not rspopaymentdeliverline.EOF
%>
<tr>
<td align=center bgcolor="efefef"><%=j%></td>
<td height=18 align=center bgcolor="efefef"><%=rspopaymentdeliverline("productcode")%></td>
<td align=center bgcolor="efefef"><%=rspopaymentdeliverline("model")%></td>
<td align=center bgcolor="efefef"><%=rspopaymentdeliverline("qty")%></td>
<td align=center bgcolor="efefef"><%=formatnumber(rspopaymentdeliverline("cost"),2)%></td>
<td align=center bgcolor="efefef"><%=formatnumber(rspopaymentdeliverline("receiveamount"),2)%></td>
<td align=center bgcolor="efefef"><%=formatnumber(rspopaymentdeliverline("invoiceamount"),2)%></td>
</tr>
<%
j=j+1
rspopaymentdeliverline.MoveNext
loop
rspopaymentdeliverline.Close
set rspopaymentdeliverline=nothing
%>
</table></td>
<tr bgcolor="#FFFFFF">
<td colspan="8"> <b> <font color=green>付款记录</font> <a href="javascript:opensubwin3('../popayment/newpay.asp?popaymentid=<%=rspopayment("paymentid")%>&paymentno=<%=rspopayment("paymentno")%>&straccountid=<%=rspopayment("accountid")%>&straccount=<%=rspopayment("account")%>&stramount=<%=rspopayment("amount")%>&strpoid=<%=rspopayment("poid")%>&strpono=<%=rspopayment("pono")%>','','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>
<% sql="select * from v_pay where popaymentid="&rspopayment("paymentid")
set rsc=conn.Execute(sql)
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("paytype")%></td>
<td> <a href="javascript:opensubwin3('../popayment/newpay.asp?id=<%=rsc("payid")%>','','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?payid=<%=rsc("payid")%>','','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('../popayment/newinvoice.asp?popaymentid=<%=rspopayment("paymentid")%>&paymentno=<%=rspopayment("paymentno")%>&straccountid=<%=rspopayment("accountid")%>&straccount=<%=rspopayment("account")%>&stramount=<%=rspopayment("amount")%>&strpoid=<%=rspopayment("poid")%>&strpono=<%=rspopayment("pono")%>','','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_poinvoice where popaymentid="&rspopayment("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('../popayment/newinvoice.asp?id=<%=rsc("poinvoiceid")%>','','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?poinvoiceid=<%=rsc("poinvoiceid")%>','','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
rspopayment.MoveNext
loop
%>
</table>
<%
rspoline.Close
set rspoline=nothing
connpoline.Close
set connpoline=nothing
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -