📄 checklist.asp
字号:
}
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";');
}
}
function relativeinput_onchange()
{
//if (form1.strfield.value=='lastmoddate'){
// dateformat.style.display='block';
// }
//if (form1.strfield.value!='lastmoddate'){
// dateformat.style.display='none';
// }
if (form1.strfield.value!="username"){
strvalue1.style.display='block';
strvalue2.style.display='none';
//strvalue3.style.display='none';
//strvalue4.style.display='none';
//strvalue5.style.display='none';
form1.strvalue2.value="";
//form1.strvalue3.value="";
//form1.strvalue4.value="";
//form1.strvalue5.value="";
}
if (form1.strfield.value=="username"){
strvalue1.style.display='none';
strvalue2.style.display='block';
form1.strvalue1.value="";
//form1.strvalue2.value="";
//form1.strvalue4.value="";
//form1.strvalue5.value="";
}
}
function GetStrValue()
{
if (form1.strfield.value!="username"){
form1.strvalue.value=form1.strvalue1.value;
}
if (form1.strfield.value=="username"){
form1.strvalue.value=form1.strvalue2.value;
}
form1.submit();
}
</SCRIPT>
<body leftmargin="10" rightmargin="10" topmargin="10">
<form name="form1" method="post" action="checklist.asp" onsubmit="return GetStrValue();">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10%">
<select name="strfield" onchange="relativeinput_onchange();">
<option value=siccode <%if request("strfield")="siccode" then Response.Write "selected"%>>客户代码</option>
<option value=account <%if request("strfield")="account" then Response.Write "selected"%>>客户</option>
<option value=paymentamount <%if request("strfield")="paymentamount" then Response.Write "selected"%>>应收帐余额</option>
<option value=invoiceamount <%if request("strfield")="invoiceamount" 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" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<input type="text" name="strvalue1" value="<%=request("strvalue1")%>" size=16>
</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> <select name="collectionamount">
<option value="" <%if request("collectionamount")="" then Response.Write "selected"%>>应收余额</option>
<option value="0" <%if request("collectionamount")="0" then Response.Write "selected"%>>应收余额=0</option>
<option value="-1" <%if request("collectionamount")="-1" then Response.Write "selected"%>>应收余额<>0</option>
</select>
<select name="invoiceamount">
<option value="" <%if request("invoiceamount")="" then Response.Write "selected"%>>开票余额</option>
<option value="0" <%if request("invoiceamount")="0" then Response.Write "selected"%>>开票余额=0</option>
<option value="-1" <%if request("invoiceamount")="-1" then Response.Write "selected"%>>开票余额<>0</option>
</select>
<select name="dueamount">
<option value="" <%if request("dueamount")="" then Response.Write "selected"%>>超标余额</option>
<option value="0" <%if request("dueamount")="0" then Response.Write "selected"%>>超标余额=0</option>
<option value="-1" <%if request("dueamount")="-1" then Response.Write "selected"%>>超标余额<>0</option>
</select>
<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='checklist.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&collectionamount="&request("collectionamount")&"&invoiceamount="&request("invoiceamount")&"&dueamount="&request("dueamount")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
else
Response.Write "<a href='checklist.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&collectionamount="&request("collectionamount")&"&invoiceamount="&request("invoiceamount")&"&dueamount="&request("dueamount")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
Response.Write "<a href='checklist.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&collectionamount="&request("collectionamount")&"&invoiceamount="&request("invoiceamount")&"&dueamount="&request("dueamount")&"&CurPage="&CurPage-1&"'><img src='../images/button_backward.gif' border=0></a> "
end if
if CurPage>=RS.PageCount then
Response.Write "<a href='checklist.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&collectionamount="&request("collectionamount")&"&invoiceamount="&request("invoiceamount")&"&dueamount="&request("dueamount")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
else
Response.Write "<a href='checklist.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&collectionamount="&request("collectionamount")&"&invoiceamount="&request("invoiceamount")&"&dueamount="&request("dueamount")&"&CurPage="&CurPage+1&"'><img src='../images/button_forward.gif' border=0></a> "
Response.Write "<a href='checklist.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&collectionamount="&request("collectionamount")&"&invoiceamount="&request("invoiceamount")&"&dueamount="&request("dueamount")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
end if
%>
</td>
</tr>
<tr>
<td height="25" colspan=4><strong><font size="2" class=title>对帐余额列表</font></strong></td>
</tr>
<tr >
<td height="16" colspan="4" background="../images/title.gif"> </td>
</tr>
<tr><td colspan="4" height=4></td></tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DECFAD">
<tr bgcolor="#EFEFEF">
<td width="7%" align=center height="22">操作</td>
<td align=center><a href="checklist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=account&orderby=<%=session("orderby")%>">客户</a></td>
<td width="15%" align=center><a href="checklist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=paymentamount&orderby=<%=session("orderby")%>">应收帐余额</a></td>
<td width="15%" align=center><a href="checklist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=invoiceamount&orderby=<%=session("orderby")%>">应开票余额</a></td>
<td width="15%" align=center><a href="checklist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=dueamount&orderby=<%=session("orderby")%>">过期金额</a></td>
<td width="15%" align=center><a href="checklist.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=owner&orderby=<%=session("orderby")%>">销售员</a></td>
</tr>
<%
set account=rs("account")
set accountid=rs("accountid")
set paymentamount=rs("paymentamount")
set invoiceamount=rs("invoiceamount")
set dueamount=rs("dueamount")
set username=rs("username")
i=1:do while not rs.EOF and i<=session("pagesize")%>
<tr bgcolor="#FFFFFF">
<td align=center height="22" nowrap>
<%
'//////////////// Add Menu List Start /////////////////////////
AddPopupMenu2 false,false,true,false,true,false,false,false,_
"",_
"",_
"paymentcheck.asp?accountid=", _
"",_
"../invoice/invoicecheck.asp?accountid=", _
"",_
"",_
"menuChecklist"&rs("accountid")
'/////////////// Menu List End
%>
<img src="../images/edit.gif" border="0" id="Checklist<%=rs("accountid")%>" align=absMiddle height=16 width=16 onMouseOver="ShowMenu('Checklist<%=rs("accountid")%>','menuChecklist<%=rs("accountid")%>','<%=rs("accountid")%>')" onMouseOut="HideMenu('menuChecklist<%=rs("accountid")%>')"></td>
<td align=center><a href="javascript:opensubwin3('../account/accountdetail.asp?accountid=<%=accountid%>','客户<%=accountid%>','toolbar=no,scrollbars=yes,location=no,status=no,menubar=no,width=600,height=400,top=150,left=160');"><%=account%></a></td>
<td align=center><a href="paymentcheck.asp?accountid=<%=accountid%>" title="应收对帐"><%=formatnumber(paymentamount,2)%></a></td>
<td align=center><a href="../invoice/invoicecheck.asp?accountid=<%=accountid%>" title="开票对帐"><%=formatnumber(invoiceamount,2)%></a></td>
<td align=center><%=formatnumber(dueamount,2)%></td>
<td align=center><%=username%></td>
<%
i=i+1
rs.MoveNext
loop
totalamount=0
totalinvoice=0
if i>1 then
rs.movefirst
do while not rs.eof
if ccur(paymentamount)>0 then
totalamount=csng(totalamount)+csng(paymentamount)
end if
totalinvoice=ccur(totalinvoice)+ccur(invoiceamount)
rs.movenext
loop
end if
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="50">
<td>第<%=CurPage%>页 / 共<%=RS.PageCount%>页 / 记录数:<%=Rs.RecordCount%>条
应收余额合计：
<%if totalamount<>"" then response.Write(formatnumber(totalamount,2)) else response.Write(0)%>
应开票余额合计：
<%if totalinvoice<>"" then response.Write(formatnumber(totalinvoice,2)) else response.Write(0)%>
</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 + -