invoicecheck.asp

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

      <td>
<input name="image" type=image style="cursor:hand" src="../images/button_submit.gif" border=0>
      </td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td height="26"><strong><font class=title>开票对帐</font></strong>&nbsp;&nbsp;
	  <a href="javascript:opensubwin('resizable=no, scrollbars=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=600, height=600','invoicecheckprint.asp?accountid=<%=straccount%>&status=<%=request("status")%>&fromdate=<%=fromdate%>&todate=<%=todate%>&accountname=<%=straccountname%>');"><img src="../images/button_print.gif" border=0></a>&nbsp;&nbsp;
	  <select name="SelStatus" onChange="ChgStatus();">
       <option value=0 <%if request.form("status")="未销" or request.form("status")="" then response.write "selected"%>>未销业务</option>
       <option value=1 <%if request.form("status")="已销" then response.write "selected"%>>已销业务</option>
       <option value=-1 <%if request.form("status")="全部" then response.write "selected"%>>全部业务</option>
      </select></td>
	  <td align="right"><a href="../payment/checklist.asp"><img src="../images/button_back.gif" border=0></td>
    </tr>
    <tr> 
      <td height="16" colspan="2" background="../images/title.gif">&nbsp;</td>
    </tr>
    <tr> 
      <td height=4 colspan=2></td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="DECFAD">
    <tr bgcolor="efefef"> 
	  <td width="7%" height="22" align=center>操作</td>
      <td width="10%"  align=center>发生日期</td>
      <td width="10%"  align=center>应结日期</td>
      <td width="10%"  align=center>凭证编号</td>
      <td  align=center>摘要</td>
      <td width="10%"  align=center>开票增加</td>
      <td width="10%"  align=center>开票减少</td>
      <td width="10%"  align=center>开票余额</td>
      <td width="10%"  align=center>销账</td>
      <td width="10%"  align=center>销账日期</td>
  </tr>
  <%
  sql="select sum(invoiceincrease) as allinvoiceincrease,sum(invoicedecrease) as allinvoicedecrease from v_invoicecheck_all where sysaccountid="&sysid&" and accountid="&straccount&" and createdate<'"&fromdate&"'"
  'response.write sql
  set rsq=conn.execute(sql)
  if isnull(rsq("allinvoiceincrease")) then a=0 else a=csng(rsq("allinvoiceincrease"))
  if isnull(rsq("allinvoicedecrease")) then b=0 else b=csng(rsq("allinvoicedecrease"))
  x=a-b
  'x=csng(rsq("allinvoiceincrease"))-csng(rsq("allinvoicedecrease"))
  %>
    <tr bgcolor="#FFFFFF"> 
    <td align=center></td>
	<td align=center height=22></td>
    <td align=center></td>
    <td align=center></td>
    <td align=center>此前余额</td>
    <td align=center></td>
    <td align=center></td>
    <td align=center><%=x%></td>
    <td align=center></td>
    <td align=center></td>
  </tr>
  <%
  do while not rs.EOF
  if rs("documenttype")="invoice" then
	x=x-csng(rs("invoicedecrease"))
  else
	x=x+csng(rs("invoiceincrease"))
  end if
  %>
    <tr bgcolor="#FFFFFF"> 
	  <td height="22" align=center width="7%" nowrap><table><tr><td>
	  <% 
' Add Payment Menu
'//////////////// Add Menu List Start /////////////////////////
if rs("status")<>"已销" then
AddPopupMenu2 false,false,false,false,false,true,false,false,_
				"", _
				"",_
				"",_
				"",_
				"",_
				"../tools/setstatus.asp?documenttype="&rs("documenttype")&"&id="&rs("id")&"&status="&rs("status")&"",_
				"",_
				"menuCheck"&rs("id")
else
AddPopupMenu2 false,false,false,false,false,false,true,false,_
				"", _
				"",_
				"",_
				"",_
				"",_
				"",_
				"../tools/setstatus.asp?documenttype="&rs("documenttype")&"&id="&rs("id")&"&status="&rs("status")&"",_
				"menuCheck"&rs("id")
end if
'/////////////// Menu List End	
%>
	<img src="../images/edit.gif" border="0" id="Check<%=rs("id")%>" align=absMiddle height=16  width=16 onMouseOver="ShowMenu('Check<%=rs("id")%>','menuCheck<%=rs("id")%>','')" onMouseOut="HideMenu('menuCheck<%=rs("id")%>')"></td>
    <%if rs("type")="应收帐款" then%>
            <td align=left id="IMGtr1<%=i%>" style="display:block"><a href="javascript:showit('tr1<%=i%>',1)" title="查看发货明细"><img src="../images/button1.gif" border=0></a><td>
            <td align=left id="IMG1tr1<%=i%>" style="display:none"><a href="javascript:showit('tr1<%=i%>',1)" title="隐藏发货明细"><img src="../images/button2.gif" border=0></a></td>
	<%else%>
            <td align=left id="IMGtr1<%=i%>" style="display:block"><img src="../images/button1.gif" border=0><td>
	<%end if%>
          </tr></table>
	  </td>
    <td align=center><%=rs("createdate")%></td>
	<td align=center><%=rs("closedate")%></td>
    <td align=center><%=rs("documentno")%></td>
    <td align=center>
    <%if rs("type")="应收帐款" then%>
		<a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=750, height=500','../order/deliverydetail.asp?deliveryid=<%=rs("deliveryid")%>');" title="查看发货单"><%=rs("type")%><%if csng(rs("paymentincrease"))<0 then response.write "(<font color=red>退货</font>)" else response.write "(发货)"%>
    <%else%>
		<%=rs("type")%>
    <%end if%>
	</td>
    <td align=center><%if rs("invoiceincrease")<>"" then response.write formatnumber(rs("invoiceincrease"),2)%></td>
    <td align=center><%if rs("invoicedecrease")<>"" then response.write formatnumber(rs("invoicedecrease"),2)%></td>
    <td align=center><%=formatnumber(x,2)%></td>
    <td align=center><%=rs("status")%></td>
    <td align=center><%=rs("verifdate")%></td>
  </tr>
  
    <%if rs("type")="应收帐款" then%> 
   <tr bgcolor="#FFFFFF" border=0  id='tr1<%=i%>' style=display:none> 
      <td colspan=10> 
        <%
		set rsdeliverline=conn.execute("select * from v_MaterialTransaction where (orderpaymentid="&rs("id")&")")
		%>
        <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="ffffff">
          <tr> 
            <td width="5%"  align=center bgcolor="DEDFDE">序号</td>
            <td width="15%"  align=center bgcolor="DEDFDE">货号</td>
            <td  align=center bgcolor="DEDFDE">型号</td>
            <td width="5%"  align=center bgcolor="DEDFDE">数量</td>
            <td width="8%"  align=center bgcolor="DEDFDE">价格</td>
            <td width="8%"  align=center bgcolor="DEDFDE">平均成本</td>
            <td width="8%"  align=center bgcolor="DEDFDE">调准成本</td>
            <td width="10%"  align=center bgcolor="DEDFDE">发货金额</td>
            <td width="10%" align=center bgcolor="DEDFDE">开票金额</td>
            <td width="8%"  align=center bgcolor="DEDFDE">备注</td>
            <td width="8%"  align=center bgcolor="DEDFDE">开票日期</td>
            <td width="8%"  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("price"),2)%></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("price")),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")%>&orderpaymentid=<%=rsdeliverline("orderpaymentid")%>&fieldname=invoiceamount');" 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>
            <td align=center bgcolor="efefef"><%=rsdeliverline("invoiceverifydate")%></td>
            <td align=center bgcolor="efefef">
            <%if rsdeliverline("invoicestatus")="已开" then%>
            <input type=checkbox name="invoicestatus<%=rs("id")%>" value=<%=rsdeliverline("transactid")%> checked>
            <%else%>
            <input type=checkbox name="invoicestatus<%=rs("id")%>" value=<%=rsdeliverline("transactid")%>>
            <%end if%>
            </td>
          </tr>
          <%
		j=j+1
		rsdeliverline.MoveNext
		loop
  
		rsdeliverline.Close
		set rsdeliverline=nothing
		%>
        <tr><td colspan=11></td><td align=center><a href="javascript:form1.statusindex.value=<%=rs("id")%>;form1.submit();" title="保存开票状态">保存</a></td></tr>
        </table></td>
    </tr>
   <%end if%> 
  
  <%
  i=i+1
  rs.MoveNext
  loop
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="50">
      <td>&nbsp;</td>
    </tr></table>
<%
  rs.Close
  set rs=nothing
  conn.Close 
  set conn=nothing
%>
<input type=hidden name=statusindex>
</form>
</body>
</html>