initialdata.asp

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

    <td colspan=3 height="15" align=center></td>
  </tr>
</table>
<%end if%>

<%if Request.QueryString("type")="initialpay" then%>
<%
sql="select * from V_InitialFinance where sysaccountid='"&request("sysaccountid")&"' and financetype='"&Request.QueryString("type")&"' order by lastmoddate desc"
set rs1=conn.Execute(sql)
%>
  <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td width=12% height="25"><strong><font size="2">期初应付款</font></b></strong></td>
	  <td width=88% height="25">
<%if not rssysaccount("Complete") then%>
	  <a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no width=500, height=250','newinitial_F.asp?sysaccountid=<%=request("sysaccountid")%>&type=initialpay');"><img src="../images/button_new.gif" border=0></a>
<%end if%></td>
    </tr>
  <tr> 
    <td height=2 colspan="3" bgcolor="#4A699C"></td>
  </tr>
  </table>
  
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="30%" height=15 align=center>客户</td>
    <td width="10%" height="15" align=center>期初应付款</td>
    <td height="15" align=center>描述</td>
    <td width="10%" height="15" align=center>最近时间</td>
    <td width="16%" height="15" align=center>操作</td>
  </tr>
<%if rs1.eof then%>
  <tr bgcolor="ffffff"> 
    <td colspan=5 width="100%" height=15 align=left>无记录</td>
  </tr>
<%else%>
<%
	dim allinitialpay
	allinitialpay=0
	do while not rs1.EOF
%>
  <tr bgcolor="#FFFFFF">
    <td height=18 align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 200, top=100, menubar=no, location=no, toolbar=no ,width=500, height=250','../account/accountdetail.asp?accountid=<%=rs1("accountid")%>');"><%=rs1("account")%></a></td>
    <td align=center><%=rs1("initialpay")%></td>
    <td align=center><%=rs1("description")%></td>
    <td align=center><%=year(rs1("lastmoddate"))%>-<%=month(rs1("lastmoddate"))%>-<%=day(rs1("lastmoddate"))%></td>
    <td align=center> 
      <%if not rssysaccount("Complete") then%>
      <a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=500, height=250','newinitial_F.asp?id=<%=rs1("id")%>&sysaccountid=<%=rs1("sysaccountid")%>&type=initialpay');">编辑</a> 
      <a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','../delete.asp?initialfinanceid=<%=rs1("id")%>');">删除</a>
      <%end if%>
    </td>
  </tr>
  <%
  allinitialpay=allinitialpay+Ccur(rs1("initialpay"))
  rs1.MoveNext
  loop
%>
<%end if%>
  <tr bgcolor="efefef"> 
    <td width="30%" height=15 align=center></td>
    <td width="10%" height="15" align=center><%=allinitialpay%></td>
    <td colspan=3 height="15" align=center></td>
  </tr>
</table>
<%end if%>

<%if Request.QueryString("type")="initailinvoice" then%>
<%
sql="select * from V_InitialFinance where sysaccountid='"&request("sysaccountid")&"' and financetype='"&Request.QueryString("type")&"' order by lastmoddate desc"
set rs1=conn.Execute(sql)
%>
  <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td width=12% height="25"><strong><font size="2">期初应开发票</font></b></strong></td>
	  <td width=88% height="25">
<%if not rssysaccount("Complete") then%>
	  <a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no width=500, height=250','newinitial_F.asp?sysaccountid=<%=request("sysaccountid")%>&type=initailinvoice');"><img src="../images/button_new.gif" border=0></a>
<%end if%></td>
    </tr>
  <tr> 
    <td height=2 colspan="3" bgcolor="#4A699C"></td>
  </tr>
  </table>
  
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="30%" height=15 align=center>客户</td>
    <td width="10%" height="15" align=center>期初应开发票</td>
    <td height="15" align=center>描述</td>
    <td width="10%" height="15" align=center>最近时间</td>
    <td width="16%" height="15" align=center>操作</td>
  </tr>
<%if rs1.eof then%>
  <tr bgcolor="ffffff"> 
    <td colspan=5 width="100%" height=15 align=left>无记录</td>
  </tr>
<%else%>
<%
	dim allinitailinvoice
	allinitailinvoice=0
	do while not rs1.EOF
%>
  <tr bgcolor="#FFFFFF">
    <td height=18 align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 200, top=100, menubar=no, location=no, toolbar=no ,width=500, height=250','../account/accountdetail.asp?accountid=<%=rs1("accountid")%>');"><%=rs1("account")%></a></td>
    <td align=center><%=rs1("initailinvoice")%></td>
    <td align=center><%=rs1("description")%></td>
    <td align=center><%=year(rs1("lastmoddate"))%>-<%=month(rs1("lastmoddate"))%>-<%=day(rs1("lastmoddate"))%></td>
    <td align=center> 
      <%if not rssysaccount("Complete") then%>
      <a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=500, height=250','newinitial_F.asp?id=<%=rs1("id")%>&sysaccountid=<%=rs1("sysaccountid")%>&type=initailinvoice');">编辑</a> 
      <a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','../delete.asp?initialfinanceid=<%=rs1("id")%>');">删除</a>
      <%end if%>
    </td>
  </tr>
  <%
  allinitailinvoice=allinitailinvoice+Ccur(rs1("initailinvoice"))
  rs1.MoveNext
  loop
%>
<%end if%>
  <tr bgcolor="efefef"> 
    <td width="30%" height=15 align=center></td>
    <td width="10%" height="15" align=center><%=allinitailinvoice%></td>
    <td colspan=3 height="15" align=center></td>
  </tr>
</table>
<%end if%>

<%if Request.QueryString("type")="initailpoinvoice" then%>
<%
sql="select * from V_InitialFinance where sysaccountid='"&request("sysaccountid")&"' and financetype='"&Request.QueryString("type")&"' order by lastmoddate desc"
set rs1=conn.Execute(sql)
%>
  <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td width=12% height="25"><strong><font size="2">期初应收发票</font></b></strong></td>
	  <td width=88% height="25">
<%if not rssysaccount("Complete") then%>
	  <a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no width=500, height=250','newinitial_F.asp?sysaccountid=<%=request("sysaccountid")%>&type=initailpoinvoice');"><img src="../images/button_new.gif" border=0></a>
<%end if%></td>
    </tr>
  <tr> 
    <td height=2 colspan="3" bgcolor="#4A699C"></td>
  </tr>
  </table>
  
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
  <tr bgcolor="efefef"> 
    <td width="30%" height=15 align=center>客户</td>
    <td width="10%" height="15" align=center>期初应收发票</td>
    <td height="15" align=center>描述</td>
    <td width="10%" height="15" align=center>最近时间</td>
    <td width="16%" height="15" align=center>操作</td>
  </tr>
<%if rs1.eof then%>
  <tr bgcolor="ffffff"> 
    <td colspan=5 width="100%" height=15 align=left>无记录</td>
  </tr>
<%else%>
<%
	dim allinitailpoinvoice
	allinitailpoinvoice=0
	do while not rs1.EOF
%>
  <tr bgcolor="#FFFFFF">
    <td height=18 align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 200, top=100, menubar=no, location=no, toolbar=no ,width=500, height=250','../account/accountdetail.asp?accountid=<%=rs1("accountid")%>');"><%=rs1("account")%></a></td>
    <td align=center><%=rs1("initailpoinvoice")%></td>
    <td align=center><%=rs1("description")%></td>
    <td align=center><%=year(rs1("lastmoddate"))%>-<%=month(rs1("lastmoddate"))%>-<%=day(rs1("lastmoddate"))%></td>
    <td align=center> 
      <%if not rssysaccount("Complete") then%>
      <a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=500, height=250','newinitial_F.asp?id=<%=rs1("id")%>&sysaccountid=<%=rs1("sysaccountid")%>&type=initailpoinvoice');">编辑</a> 
      <a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','../delete.asp?initialfinanceid=<%=rs1("id")%>');">删除</a>
      <%end if%>
    </td>
  </tr>
  <%
  allinitailpoinvoice=allinitailpoinvoice+Ccur(rs1("initailpoinvoice"))
  rs1.MoveNext
  loop
%>
<%end if%>
  <tr bgcolor="efefef"> 
    <td width="30%" height=15 align=center></td>
    <td width="10%" height="15" align=center><%=allinitailpoinvoice%></td>
    <td colspan=3 height="15" align=center></td>
  </tr>
</table>
<%end if%>

  <%
  rs1.Close
  set rs1=nothing
  rssysaccount.close
  set rssysaccount=nothing
  conn.Close 
  set conn=nothing
  %>
</table>
</body>
</html>