⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 paymentcheckprint.asp

📁 1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷
💻 ASP
字号:
🔍 
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
sysid=1
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "payment","read"
set objcheck=nothing

dim conn
dim rs 
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring

if request.querystring("accountid")<>"" then
	strwhere =" and accountid="&request.querystring("accountid")
	straccount=request.querystring("accountid")
	straccountname=getfieldvalue("account","accountid",request.querystring("accountid"),"account")
end if
if request.Form("account")<>"" then
	strwhere =" and accountid="&request.Form("account")
	straccount=request.Form("account")
	straccountname=getfieldvalue("account","accountid",request.Form("account"),"account")
end if
if request("status")="" then
	strwhere=strwhere&" and status='未销'"
elseif request("status")="全部" then
	strwhere=strwhere&" and status like '%%'"
else
	strwhere=strwhere&" and status='"&request("status")&"'"
end if
if request("fromdate")<>"" then
	strwhere=strwhere&" and createdate>='"&request("fromdate")&"' "
end if
if todate<>"" then
	strwhere=strwhere&" and createdate<='"&todate&"' "
end if

sql="select * from v_paymentcheck_all where (type='应收帐款' or type='其它应收') and sysaccountid="&sysid&" "&strwhere&" order by createdate"
'response.Write(sql)
set rs=conn.execute(sql)
%>
<html>
<head>
<!--
<LINK href="../global.css" rel=STYLESHEET type=text/css>
-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>收款</title>
</head>
<script language=javascript>
function showit(objname,imgn){
		if (eval(objname+'.style.display=="block"') == true)
		{
			eval(objname+'.style.display="none";');
			eval('IMG'+objname+'.style.display="block";');			
			eval('IMG1'+objname+'.style.display="none";');			
			//alert('IMG'+objname+'.src = "../images/button2.gif";');
			//eval('IMG'+objname+'.src = "../images/button2.gif";');
		}
		else
		{
			eval(objname+'.style.display="block";');
			eval('IMG'+objname+'.style.display="none";');			
			eval('IMG1'+objname+'.style.display="block";');			
			//alert('IMG'+objname+'.src = "../images/button1.gif";');
			//eval('IMG'+objname+'.src = "../images/button1.gif";');
		}
}
</script>
<script language=javascript src="../tools/newcalendar.js"></script>
<body leftmargin="10" rightmargin="0" topmargin="10">
<form name="form1" method="post" action="">
  <table width="100%" border="0">
    <tr> 
      <td><div align="center"><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><%=request("accountname")%> 
          应收对帐单 
          <%if request("fromdate")<>"" or request("todate")<>"" then response.write "<br>"&request("fromdate")&" - "&request("todate")%>
          </font></div></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
    </tr>
  </table>
应收帐款
  <table width="100%" border="1" cellpadding="2" cellspacing="0" bordercolor="#000000" bgcolor="#000000">
    <tr bgcolor="efefef"> 
      <td width="20%" height=15 align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">发生日期</font></td>
      <td width="20%" height=15 align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">应结日期</font></td>
      <td width="20%" height="15" align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">凭证编号</font></td>
      <td height="15" align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">摘要</font></td>
      <td width="20%" height="15" align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">应收金额</font></td>
    </tr>
    <%
  sql="select sum(paymentincrease) as allpaymentincrease from v_paymentcheck_all where sysaccountid="&sysid&" and accountid="&request("accountid")&" and createdate<'"&request("fromdate")&"'"
  set rsq=conn.execute(sql)
  if isnull(rsq("allpaymentincrease")) then a=0 else a=csng(rsq("allpaymentincrease"))
  x=a
  %>
    <tr bgcolor="#FFFFFF"> 
      <td align=center>&nbsp;</td>
      <td align=center height=18>&nbsp;</td>
      <td align=center>&nbsp;</td>
      <td align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">此前余额</font></td>
      <td align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><%=formatnumber(x,2)%></font></td>
    </tr>
    <%
  i=1
  totalamount=0
  do while not rs.EOF
	x=x+csng(rs("paymentincrease"))
  %>
    <tr bgcolor="#FFFFFF"> 
      <td align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><%=rs("createdate")%></font></td>
      <td align=center height=18><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><%=rs("closedate")%>&nbsp;</font></td>
      <td align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><%=rs("documentno")%></font></td>
      <td align=center> <font size="2" face="Geneva, Arial, Helvetica, sans-serif"><%=rs("type")%></font></td>
      <td align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif"> 
        <%if rs("paymentincrease")<>"" then
		response.write formatnumber(rs("paymentincrease"),2)
		totalamount=totalamount+ccur(rs("paymentincrease"))
		end if
		%>
        </font></td>
    </tr>
    <%
  i=i+1
  rs.MoveNext
  loop
%>
    <tr bgcolor="#FFFFFF">
      <td align=center>合计</td>
      <td align=center height=18 colspan="3">&nbsp;</td>
      <td align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">
        <%
		response.write formatnumber(totalamount,2)
		%>
        </font></td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr height="20"> 
      <td>&nbsp;</td>
    </tr>
  </table>

<%
sql="select * from v_paymentcheck_all where (type<>'应收帐款' and type<>'其它应收') and sysaccountid="&sysid&" "&strwhere&" order by createdate"
set rs=conn.execute(sql)
%>
收款
  <table width="100%" border="1" cellpadding="2" cellspacing="0" bordercolor="#000000" bgcolor="#000000">
    <tr bgcolor="efefef"> 
      <td width="20%" height=15 align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">发生日期</font></td>
      <td width="20%" height=15 align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">应结日期</font></td>
      <td width="20%" height="15" align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">凭证编号</font></td>
      <td height="15" align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">摘要</font></td>
      <td width="20%" height="15" align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">收到金额</font></td>
    </tr>
    <%
  sql="select sum(paymentdecrease) as allpaymentdecrease from v_paymentcheck_all where sysaccountid="&sysid&" and accountid="&request("accountid")&" and createdate<'"&request("fromdate")&"'"
  set rsq=conn.execute(sql)
  if isnull(rsq("allpaymentdecrease")) then b=0 else b=csng(rsq("allpaymentdecrease"))
  y=b
  %>
    <tr bgcolor="#FFFFFF"> 
      <td align=center>&nbsp;</td>
      <td align=center height=18>&nbsp;</td>
      <td align=center>&nbsp;</td>
      <td align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">此前余额</font></td>
      <td align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><%=formatnumber(y,2)%></font></td>
    </tr>
    <%
  i=1
  totalcollection=0
  do while not rs.EOF
	y=y-csng(rs("paymentdecrease"))
  %>
    <tr bgcolor="#FFFFFF"> 
      <td align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><%=rs("createdate")%></font></td>
      <td align=center height=18><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><%=rs("closedate")%>&nbsp;</font></td>
      <td align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif"><%=rs("documentno")%></font></td>
      <td align=center> <font size="2" face="Geneva, Arial, Helvetica, sans-serif"><%=rs("type")%></font></td>
      <td align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif"> 
        <%if rs("paymentdecrease")<>"" then
		response.write formatnumber(rs("paymentdecrease"),2)
		totalcollection=totalcollection+ccur(rs("paymentdecrease"))
		end if
		%>
        </font></td>
    </tr>
 
    <%
  i=i+1
  rs.MoveNext
  loop
%>
<tr bgcolor="#FFFFFF">
      <td align=center>合计</td>
      <td align=center height=18 colspan="3">&nbsp;</td>
      <td align=center><font size="2" face="Geneva, Arial, Helvetica, sans-serif">
        <%
		response.write formatnumber(totalcollection,2)
		%>
        </font></td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr height="25"> 
      <td>&nbsp;</td>
    </tr>
    <tr height="50">
      <td><div align="right">应收余额：<%=formatnumber((totalamount-totalcollection),2)%></div></td>
    </tr>
  </table>
  <%

  rs.Close
  set rs=nothing
  conn.Close 
  set conn=nothing
%>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -