📄 payment.asp
字号:
<tr>
<td width="10%"><select name="strfield" onchange="relativeinput_onchange();">
<option value=paymentno <%if request("strfield")="paymentno" then Response.Write "selected"%>>付款编号</option>
<option value=poreceiveno <%if request("strfield")="poreceiveno" then Response.Write "selected"%>>收货单号</option>
<option value=paymentdate <%if request("strfield")="paymentdate" then Response.Write "selected"%>>应付日期</option>
<option value=username <%if request("strfield")="username" then Response.Write "selected"%>>采购员</option>
</select></td>
<td width="18%">
<div id=strvalue1 <%if request("strfield")<>"username" or request("strfield")="" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<input type="text" name="strvalue1" value="<%=request("strvalue1")%>">
</div>
<div id=strvalue2 <%if request("strfield")="username" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue2" class="stedit">
<option value="">--请选择采购员--</option>
<%getgrouptype selecttablename,"username",request("strvalue2")%>
</select></div>
</td>
<td>
<input type=hidden name="strvalue" value="<%=request("strvalue")%>" >
<input type=image src="../images/button_submit.gif" style="cursor:hand" border=0>
<%
if CurPage<=1 then
Response.Write "<a href='payment.asp?turnpage=yes&poby="&session("poby")&"&pobyfield="&request("pobyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
else
Response.Write "<a href='payment.asp?turnpage=yes&poby="&session("poby")&"&pobyfield="&request("pobyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
Response.Write "<a href='payment.asp?turnpage=yes&poby="&session("poby")&"&pobyfield="&request("pobyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage-1&"'><img src='../images/button_backward.gif' border=0></a> "
end if
if CurPage>=RS.PageCount then
Response.Write "<a href='payment.asp?turnpage=yes&poby="&session("poby")&"&pobyfield="&request("pobyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
else
Response.Write "<a href='payment.asp?turnpage=yes&poby="&session("poby")&"&pobyfield="&request("pobyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage+1&"'><img src='../images/button_forward.gif' border=0></a> "
Response.Write "<a href='payment.asp?turnpage=yes&poby="&session("poby")&"&pobyfield="&request("pobyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
end if
%>
</td><td width=30%><div id=dateformat <%if request("strfield")="paymentdate" then response.write "style=display:block" else response.write "style=display:none" end if%>>日期输入格式提示：YYYY-MM-DD</div></td>
</tr>
<tr>
<td height="25" colspan=4><strong><font class=title>应付帐款列表</font></strong> <a href="javascript:opensubwin('resizable=no, scrollbars=no, left= 200, top=150, menubar=no, location=no, toolbar=no ,width=450, height=300','newpayment.asp');"><img src="../images/button_new.gif" border=0></a></td>
</tr>
<tr >
<td height="16" colspan="4" background="../images/title.gif"> </td>
</tr>
<tr>
<td height=4 colspan=4></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
<tr bgcolor="efefef">
<td height="15" align=center><a href="payment.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&pobyfield=account&poby=<%=session("account")%>">供应商</a></td>
<td width="12%" height="15" align=center><a href="payment.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&pobyfield=pono&poby=<%=session("poby")%>">收货单号</a></td>
<td width="10%" height="15" align=center><a href="payment.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&pobyfield=ReceivedAmount&poby=<%=session("poby")%>">收货金额</a></td>
<td width="10%" height="15" align=center><a href="payment.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&pobyfield=amount&poby=<%=session("poby")%>">应付金额</a></td>
<td width="10%" height="15" align=center><a href="payment.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&pobyfield=invoiceamount&poby=<%=session("poby")%>">发票金额</a></td>
<td width="8%" height="15" align=center><a href="payment.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&pobyfield=paymentdate&poby=<%=session("poby")%>">应付日期</a></td>
<td width="8%" height="15" align=center><a href="payment.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&pobyfield=paymenttype&poby=<%=session("poby")%>">应收票日期</a></td>
<td width="6%" height="15" align=center><a href="payment.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&pobyfield=username&poby=<%=session("poby")%>">采购员</a></td>
<td width="12%" height="15" align=center>操作</td>
</tr>
<%i=1:do while not rs.EOF and i<=session("pagesize")%>
<tr bgcolor="#FFFFFF">
<td align=center>
<table width=100%>
<tr id="IMGtr1<%=i%>" style="display:block">
<td width=90% align=center><a href="javascript:opensubwin3('../account/accountdetail.asp?accountid=<%=rs("accountid")%>','客户<%=rs("accountid")%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><%=rs("account")%></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:opensubwin3('../account/accountdetail.asp?accountid=<%=rs("accountid")%>','客户<%=rs("accountid")%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><%=rs("account")%></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 height=18><a href="javascript:opensubwin3('../po/poreceivedetail.asp?poreceiveid=<%=rs("poreceiveid")%>','poreceive<%=rs("poreceiveid")%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><%=rs("poreceiveno")%></a></td>
<td align=center><%if rs("ReceivedAmount")<>"" then Response.write formatnumber(rs("ReceivedAmount"),2) else Response.write 0 %></td>
<td align=center><%=formatnumber(rs("amount"),2)%></td>
<td align=center><%=formatnumber(rs("invoiceamount"),2)%></td>
<td align=center><%=rs("paymentdate")%></td>
<td align=center><%=rs("invoicedate")%></td>
<td align=center><%=rs("username")%></td>
<td align=center><a href="javascript:opensubwin('resizable=no, scrollbars=no, left= 200, top=150, menubar=no, location=no, toolbar=no ,width=450, height=300','newpayment.asp?id=<%=rs("paymentid")%>');">编辑</a> <a href="javascript:opensubwin('resizable=no, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','../delete.asp?amount=<%=rs("amount")%>&account=<%=rs("account")%>&popaymentid=<%=rs("paymentid")%>');">删除</a></td>
</tr>
<tr bgcolor="#FFFFFF" border=0 id='tr1<%=i%>' style=display:none>
<td colspan=10>
<%
set rsdeliverline=conn.execute("select * from v_MaterialTransaction where (popaymentid="&rs("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="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="10%" height="15" align=center bgcolor="DEDFDE">进货金额</td>
<td width="10%" align=center bgcolor="DEDFDE">应付金额</td>
<td width="10%" height="15" align=center bgcolor="DEDFDE">发票金额</td>
<td width="8%" height="15" align=center bgcolor="DEDFDE">备注</td>
</tr>
<%j=1
do while not rsdeliverline.EOF
%>
<tr>
<td align=center bgcolor="efefef"><%=j%></td>
<td height=18 align=center bgcolor="efefef"><%=rsdeliverline("productcode")%></td>
<td align=center bgcolor="efefef"><%=rsdeliverline("model")%></td>
<td align=center bgcolor="efefef"><%=rsdeliverline("qty")%></td>
<td align=center bgcolor="efefef"><%=formatnumber(rsdeliverline("cost"),2)%></td>
<td align=center bgcolor="efefef"><a href="javascript:opensubwin('resizable=no, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','../tools/SetMaterialTransaction.asp?transactid=<%=rsdeliverline("transactid")%>&fieldname=adjustcost');" title="调准进货成本"><%=formatnumber(rsdeliverline("adjustcost"),2)%></a></td>
<td align=center bgcolor="efefef"><%=formatnumber(csng(rsdeliverline("qty"))*csng(rsdeliverline("cost")),2)%></td>
<td align=center bgcolor="efefef"><a href="javascript:opensubwin('resizable=no, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','../tools/SetMaterialTransaction.asp?transactid=<%=rsdeliverline("transactid")%>&popaymentid=<%=rsdeliverline("popaymentid")%>&fieldname=poreceiveamount');" title="调准应付金额"><%=formatnumber(rsdeliverline("receiveamount"),2)%></a></td>
<td align=center bgcolor="efefef"><a href="javascript:opensubwin('resizable=no, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','../tools/SetMaterialTransaction.asp?transactid=<%=rsdeliverline("transactid")%>&popaymentid=<%=rsdeliverline("popaymentid")%>&fieldname=poinvoiceamount');" title="调准发票金额"><%=formatnumber(rsdeliverline("invoiceamount"),2)%></a></td>
<td align=center bgcolor="efefef"><a href="javascript:opensubwin('resizable=no, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','../tools/SetMaterialTransaction.asp?transactid=<%=rsdeliverline("transactid")%>&fieldname=description');" title="查看/修改备注">备注</a></td>
</tr>
<%
j=j+1
rsdeliverline.MoveNext
loop
rsdeliverline.Close
set rsdeliverline=nothing
%>
</table><br></td>
</tr>
<%
i=i+1
rs.MoveNext
loop
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="50"><td>第<%=CurPage%>页 / 共<%=RS.PageCount%>页 / 记录数:<%=Rs.RecordCount%>条
</td></tr></table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
set objcheck=nothing
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -