accountdetail.asp

1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷

  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="200" height=15 align=center bgcolor="efefef">编号</td>
    <td height="15" align=center>合同号</td>
    <td height="15" align=center>金额</td>
    <td height="15" align=center>已收金额</td>
    <td height="15" align=center>应收日期</td>
    <td height="15" align=center>应收类型</td>
    <td height="15" align=center>销售员</td>
    <td width="80" height="15" align=center>操作</td>
  </tr>
  <%do while not rs1.EOF%>
  <tr bgcolor="#FFFFFF"> 
    <td align=center height=18><a href="javascript:opensubwin3('../payment/paymentdetail.asp?paymentid=<%=rs1("paymentid")%>','应收帐','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs1("paymentno")%></a></td>
    <td align=center><a href="javascript:opensubwin3('../order/orderdetail.asp?orderid=<%=rs1("orderid")%>','合同','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs1("ordernum")%></a></td>
    <td align=center><%
	if csng(rs1("totalreceive"))=0 then 
		Response.Write "<font color=red>"
	elseif csng(rs1("totalreceive"))<csng(rs1("amount")) then 
		Response.Write "<font color=green>"
	else
		Response.Write "<font color=blue>"
	end if
		Response.write formatnumber(rs1("amount"),2)
		Response.Write "</font>"	
	%></td>
    <td align=center><%=formatnumber(rs1("totalreceive"))%></td>
    <td align=center><%=rs1("PaymentDate")%></td>
    <td align=center><%=rs1("Paymenttype")%></td>
    <td align=center><%=rs1("username")%></td>
    <td align=center><a href="javascript:opensubwin3('../payment/newpayment.asp?id=<%=rs1("paymentid")%>&type=编辑','应收帐','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"> 
      <%if objcheck.CheckUserFunction2("payment","edit") then%>
      编辑</a> <a href="javascript:opensubwin3('../delete.asp?paymentid=<%=rs1("paymentid")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');"> 
      <%end if%>
      <%if objcheck.CheckUserFunction2("payment","del") then%>
      删除
      <%end if%>
      </a></td>
  </tr>
  <%
  rs1.MoveNext
  loop
  %>
</table>
<%end if%>
<%
if Request.QueryString("type")="all"  or Request.QueryString("type")="collection" then 
sql="select * from v_collection where accountid="&Request.QueryString("accountid")&" and sysaccountid="&sysid
set rs1=conn.Execute(sql)
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="12%"><strong><font size="2">相关收款</font></strong></td>
    <td width="88%"><a href="javascript:opensubwin3('../collection/newcollection.asp?straccountid=<%=request("accountid")%>&straccount=<%=rs("account")%>&type=新建','收款','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><img src="../images/button_new.gif" border="0"></a></td>
  </tr>
  <tr> 
    <td height=2 colspan="2" bgcolor="#4A699C"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="200" height=15 align=center bgcolor="efefef">合同号</td>
    <td height="15" align=center>收款金额</td>
    <td height="15" align=center>收款类型</td>
    <td height="15" align=center>收款日期</td>
    <td height="15" align=center>销售员</td>
    <td height="15" align=center>创建者</td>
    <td width="80" height="15" align=center>操作</td>
  </tr>
  <%do while not rs1.EOF%>
  <tr bgcolor="#FFFFFF"> 
    <td align=center height=18><a href="javascript:opensubwin3('../order/orderdetail.asp?orderid=<%=rs1("orderid")%>','合同','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs1("ordernum")%></a></td>
    <td align=center><%=formatnumber(rs1("amount"),2)%></td>
    <td align=center><%=rs1("collectiontype")%></td>
    <td align=center><%=rs1("receiveddate")%></td>
    <td align=center><%=rs1("username")%></td>
    <td align=center><%=rs1("createname")%></td>
    <td align=center>
      <%if objcheck.CheckUserFunction2("payment","edit") then%>
      <a href="javascript:opensubwin3('../collection/newcollection.asp?id=<%=rs1("collectionid")%>&type=编辑','合同','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');">编辑</a> 
      <%end if%>
      <%if objcheck.CheckUserFunction2("payment","del") then%>
      <a href="javascript:opensubwin3('../delete.asp?collectionid=<%=rs1("collectionid")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');">删除</a> 
      <%end if%>
    </td>
  </tr>
  <%
  rs1.MoveNext
  loop
  %>
</table>
<%end if%>
<%
if Request.QueryString("type")="all" or Request.QueryString("type")="invoice" then 
sql="select * from v_invoice where accountid="&Request.QueryString("accountid")&" and sysaccountid="&sysid&" order by invoicedate"
set rs1=conn.Execute(sql)
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="12%"><strong><font size="2">相关发票</font></strong></td>
    <td width="88%"><a href="javascript:opensubwin3('../invoice/newinvoice.asp?straccountid=<%=request("accountid")%>&straccount=<%=rs("account")%>&type=新建','发票','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><img src="../images/button_new.gif" border="0"></a></td>
  </tr>
  <tr> 
    <td height=2 colspan="2" bgcolor="#4A699C"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef">
    <td width="200" align=center bgcolor="efefef">合同号</td>
    <td width="200" height=15 align=center bgcolor="efefef">发票号</td>
    <td height="15" align=center>发票金额</td>
    <td height="15" align=center>发票类型</td>
    <td height="15" align=center>开票日期</td>
    <td align=center>创建者</td>
    <td height="15" align=center>操作</td>
  </tr>
  <%do while not rs1.EOF%>
  <tr bgcolor="#FFFFFF">
    <td align=center><a href="javascript:opensubwin3('../order/orderdetail.asp?orderid=<%=rs1("orderid")%>','合同','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs1("ordernum")%></a></td>
    <td align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 200, top=150, menubar=no, location=no, toolbar=no ,width=450, height=280','../invoice/invoicedetail.asp?invoiceid=<%=rs1("invoiceid")%>');"><%=rs1("invoiceno")%></a></td>
    <td align=center><%=formatnumber(rs1("amount"),2)%></td>
    <td align=center><%=rs1("invoicetype")%></td>
    <td align=center><%=rs1("invoicedate")%></td>
    <td align=center><%=rs1("username")%></td>
    <td align=center> 
      <%if objcheck.CheckUserFunction2("payment","edit") then%>
      <a href="javascript:opensubwin3('../invoice/newinvoice.asp?id=<%=rs1("invoiceid")%>&type=编辑','发票','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');">编辑</a> 
      <%end if%>
      <%if objcheck.CheckUserFunction2("payment","del") then%>
      <a href="javascript:opensubwin3('../delete.asp?invoiceid=<%=rs1("invoiceid")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');">删除</a> 
      <%end if%>
    </td>
  </tr>
  <%
  rs1.MoveNext
  loop
  %>
</table>
<%end if%>
<%
if Request.QueryString("type")="all" or Request.QueryString("type")="popayment" then 
sql="select * from v_popayment where accountid="&Request.QueryString("accountid")&" and sysaccountid="&sysid
set rs1=conn.Execute(sql)
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="12%"><strong><font size="2">相关应付帐款</font></strong></td>
    <td width="88%"><a href="javascript:opensubwin3('../popayment/newpayment.asp?accountid=<%=request("accountid")%>&accountname=<%=rs("account")%>&type=新建','应付帐','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><img src="../images/button_new.gif" border="0"></a></td>
  </tr>
  <tr> 
    <td height=2 colspan="2" bgcolor="#4A699C"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="200" height=15 align=center bgcolor="efefef">编号</td>
    <td height="15" align=center>金额</td>
    <td height="15" align=center>应付日期</td>
    <td height="15" align=center>应收类型</td>
    <td height="15" align=center>销售员</td>
    <td width="80" height="15" align=center>操作</td>
  </tr>
  <%do while not rs1.EOF%>
  <tr bgcolor="#FFFFFF"> 
    <td align=center height=18><a href="javascript:opensubwin3('../payment/paymentdetail.asp?paymentid=<%=rs1("paymentid")%>','应收帐','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"><%=rs1("paymentno")%></a></td>
    <td align=center> 
      <%
		Response.write formatnumber(rs1("amount"),2)
	%>
    </td>
    <td align=center><%=rs1("PaymentDate")%></td>
    <td align=center><%=rs1("Paymenttype")%></td>
    <td align=center><%=rs1("username")%></td>
    <td align=center><a href="javascript:opensubwin3('../popayment/newpayment.asp?id=<%=rs1("paymentid")%>&type=编辑','应收帐','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"> 
      <%if objcheck.CheckUserFunction2("popayment","edit") then%>
      编辑</a> <a href="javascript:opensubwin3('../delete.asp?popaymentid=<%=rs1("paymentid")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');"> 
      <%end if%>
      <%if objcheck.CheckUserFunction2("popayment","del") then%>
      删除 
      <%end if%>
      </a></td>
  </tr>
  <%
  rs1.MoveNext
  loop
  %>
</table>
<%end if%>
<%
if Request.QueryString("type")="all" or Request.QueryString("type")="pay" then 
sql="select * from v_pay where accountid="&Request.QueryString("accountid")&" and sysaccountid="&sysid
set rs1=conn.Execute(sql)
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="12%"><strong><font size="2">相关付款</font></strong></td>
    <td width="88%"><a href="javascript:opensubwin3('../popayment/newpay.asp?accountid=<%=request("accountid")%>&accountname=<%=rs("account")%>&type=新建','付款','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><img src="../images/button_new.gif" border="0"></a></td>
  </tr>
  <tr> 
    <td height=2 colspan="2" bgcolor="#4A699C"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="200" height=15 align=center bgcolor="efefef">编号</td>
    <td height="15" align=center>金额</td>
    <td height="15" align=center>付款日期</td>
    <td height="15" align=center>付款类型</td>
    <td width="80" height="15" align=center>操作</td>
  </tr>
  <%do while not rs1.EOF%>
  <tr bgcolor="#FFFFFF"> 
    <td align=center height=18><a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 200, top=100, menubar=no, location=no, toolbar=no ,width=450, height=250','../popayment/paydetail.asp?payid=<%=rs1("payid")%>');"><%=rs1("payno")%></a></td>
    <td align=center> 
      <%
		Response.write formatnumber(rs1("amount"),2)
	%>
    </td>
    <td align=center><%=rs1("receiveddate")%></td>
    <td align=center><%=rs1("paytype")%></td>
    <td align=center><a href="javascript:opensubwin3('../popayment/newpay.asp?id=<%=rs1("payid")%>&type=编辑','付款','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=520,height=360,top=150,left=160');"> 
      <%if objcheck.CheckUserFunction2("popayment","edit") then%>
      编辑</a> <a href="javascript:opensubwin3('../delete.asp?payid=<%=rs1("payid")%>','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');"> 
      <%end if%>
      <%if objcheck.CheckUserFunction2("payment","del") then%>
      删除 
      <%end if%>
      </a></td>
  </tr>
  <%
  rs1.MoveNext
  loop
  %>
</table>
<%end if%>
<%
if Request.QueryString("type")="all" or Request.QueryString("type")="quote" then 
sql="select * from v_quote where accountid="&Request.QueryString("accountid")&" and sysaccountid="&sysid&" order by quotedate"
set rs1=conn.Execute(sql)
%>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="12%"><strong><font size="2">相关报价</font></b></strong></td>
    <td width="88%"><a href="javascript:opensubwin3('../quote/newquote.asp?accountid=<%=request("accountid")%>&accountname=<%=rs("account")%>&type=新建','报价','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><img src="../images/button_new.gif" border="0"></a></td>
  </tr>
  <tr> 
    <td height=2 colspan="2" bgcolor="#4A699C"></td>
  </tr>
</table>