📄 oldsalesquery.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "report","read"
set objcheck=nothing%>
<%
sysid=1
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "order","read"
set objcheck=nothing
fromdate=date()-6
if request.Form("fromdate")<>"" then fromdate=request.Form("fromdate")
todate=date()
if request.Form("todate")<>"" then todate=request.Form("todate")
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
if Request("strfield")<>"" then
if Request("strfield")<>"SignedDate" then
strwhere=" and "&request("strfield")&" like '%"&request("strvalue")&"%'"
else
strwhere=" and "&request("strfield")&"='"&request("strvalue")&"'"
end if
end if
if Request.Form("strfield")<>"" then
if Request("strfield")<>"SignedDate" then
strwhere=" and "&request("strfield")&" like '%"&request.form("strvalue")&"%'"
else
strwhere=" and "&request("strfield")&"='"&request.form("strvalue")&"'"
end if
end if
if Request.QueryString("orderbyfield")<>"" then
'排序字段改变返回第一页
if session("orderbyfield")<>Request.QueryString("orderbyfield") then
tofirstpage=true
else
tofirstpage=false
end if
'翻页时保持排序方式，不翻页循环改变升序/降序
if request("turnpage")="" then
if request("orderby")="" or request("orderby")="desc" then
session("orderby")="asc"
else
session("orderby")="desc"
end if
strwhere=strwhere & " order by "&Request.QueryString("orderbyfield")&" "&session("orderby")
else
if request("orderbyfield")<>"" then
strwhere=strwhere & " order by "&Request.QueryString("orderbyfield")&" "&session("orderby")
end if
end if
'保存当然排序字段
session("orderbyfield")=Request.QueryString("orderbyfield")
else
strwhere=strwhere & " order by deliveryid desc"
end if
rs.Open "select * from v_deliveryline where createdate>='"&fromdate&"' and createdate<='"&todate&"' and (userid='"&session("loginid")&"' or userid in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')) and status='发货完成' and sysaccountid="&sysid&" "&strwhere,conn,1,1
'搜索时用
selecttablename="v_deliveryline where createdate>='"&fromdate&"' and createdate<='"&todate&"' and (userid='"&session("loginid")&"' or userid in(select userid from v_userreportto_all where reportto='"&session("loginid")&"')) and status='发货完成' and sysaccountid="&sysid
if Request.QueryString("CurPage") = "" or Request("CurPage") = 0 then
CurPage = 1
else
CurPage = cint(Request.QueryString("CurPage"))
end If
if not Rs.eof then
Rs.PageSize=session("PageSize")
Rs.AbsolutePage=CurPage
else
CurPage=0
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>销售查询</title>
<script language=javascript>
window.top.frames (1).document.location='../left.asp?type=stat';
</script>
</head>
<script language=javascript src="../tools/newcalendar.js"></script>
<SCRIPT language=JavaScript>
function relativeinput_onchange()
{
if (form1.strfield.value=='SignedDate'){
dateformat.style.display='block';
}
if (form1.strfield.value!='SignedDate'){
dateformat.style.display='none';
}
if (form1.strfield.value=="Status"){
strvalue1.style.display='none';
strvalue2.style.display='block';
strvalue3.style.display='none';
form1.strvalue1.value="";
form1.strvalue3.value="";
}
if (form1.strfield.value!="Status"&&form1.strfield.value!="Owner"){
strvalue1.style.display='block';
strvalue2.style.display='none';
strvalue3.style.display='none';
form1.strvalue2.value="";
form1.strvalue3.value="";
}
if (form1.strfield.value=="Owner"){
strvalue1.style.display='none';
strvalue2.style.display='none';
strvalue3.style.display='block';
form1.strvalue1.value="";
form1.strvalue2.value="";
}
}
function GetStrValue()
{
if (form1.strfield.value!="Status"&&form1.strfield.value!="Owner"){
form1.strvalue.value=form1.strvalue1.value;
}
if (form1.strfield.value=="Status"){
form1.strvalue.value=form1.strvalue2.value;
}
if (form1.strfield.value=="Owner"){
form1.strvalue.value=form1.strvalue3.value;
}
if (form1.strfield.value=='SignedDate'){
if(form1.strvalue.value==""){
alert("请输入搜索日期!");
return false;
}
if(CheckDate(document.form1.strvalue.value)){
alert("请输入正确格式的日期!");
return false;
}
}
form1.submit();
}
</SCRIPT>
<body leftmargin="10" rightmargin="0" topmargin="10">
<form name="form1" method="post" action="Salesquery.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=deliveryno <%if request("strfield")="deliveryno" then Response.Write "selected"%>>发货单号</option>
<option value=Account <%if request("strfield")="Account" then Response.Write "selected"%>>客户</option>
<option value=totalamount <%if request("strfield")="totalamount" then Response.Write "selected"%>>金额</option>
<option value=Status <%if request("strfield")="Status" then Response.Write "selected"%>>发货单状态</option>
<option value=Owner <%if request("strfield")="Owner" then Response.Write "selected"%>>销售员</option>
</select></td>
<td width="18%">
<div id=strvalue1 <%if request("strfield")<>"Status" and request("strfield")<>"Owner" or request("strfield")="" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<input type="text" name="strvalue1" value="<%=request("strvalue1")%>">
</div>
<div id=strvalue2 <%if request("strfield")="Status" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue2" class="stedit">
<option value="">--请选择发货单状态--</option>
<%getgrouptype selecttablename,"Status",request("strvalue2")%>
</select></div>
<div id=strvalue3 <%if request("strfield")="Owner" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue3" class="stedit">
<option value="">--请选择销售员--</option>
<%getgrouptype selecttablename,"Owner",request("strvalue3")%>
</select></div>
</td>
<td> 从
<input type="text" name="fromdate" size="9" language=javascript id="dupdatetimefrom" value="<%=fromdate%>" readonly>
<% call AddImg("datefrom")%>
-
<input type="text" name="todate" size="9" language=javascript id="dupdatetimeto" value="<%=todate%>" readonly>
<% call AddImg("dateto")%>
<input type = hidden name=clicksource> <input type = hidden name=clickresult >
<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='Salesquery.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
else
Response.Write "<a href='Salesquery.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
Response.Write "<a href='Salesquery.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage-1&"'><img src='../images/button_backward.gif' border=0></a> "
end if
if CurPage>=RS.PageCount then
Response.Write "<a href='Salesquery.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
else
Response.Write "<a href='Salesquery.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage+1&"'><img src='../images/button_forward.gif' border=0></a> "
Response.Write "<a href='Salesquery.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
end if
%>
</td><td width=30%><div id=dateformat <%if request("strfield")="SignedDate" then response.write "style=display:block" else response.write "style=display:none" end if%>>日期输入格式提示：YYYY-MM-DD</div></td>
</tr>
<tr>
<td height="25" colspan="4"><strong><font class=title><b>销售查询</b></font></strong></td>
</tr>
<tr >
<td height="16" colspan="4" background="../images/title.gif"> </td>
</tr>
<tr>
<td height=4 colspan=4></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DECFAD">
<tr bgcolor="efefef">
<td width="8%" height=15 align=center><a href="Salesquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=deliveryno&orderby=<%=session("orderby")%>">发货单号</a></td>
<td width="10%" height=15 align=center><a href="Salesquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=deliverydate&orderby=<%=session("orderby")%>">发货日期</a></td>
<td height=15 align=center><a href="Salesquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=model&orderby=<%=session("orderby")%>">型号</a></td>
<td width="5%" height=15 align=center><a href="Salesquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=qty&orderby=<%=session("orderby")%>">数量</a></td>
<td width="8%" height=15 align=center><a href="Salesquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=discountprice&orderby=<%=session("orderby")%>">单价</a></td>
<td width="8%" height=15 align=center><a href="Salesquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=amount&orderby=<%=session("orderby")%>">金额</a></td>
<td width="12%" align=center><a href="Salesquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=ordernum&orderby=<%=session("orderby")%>">合同号</a></td>
<td height="20" align=center><a href="Salesquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=account&orderby=<%=session("orderby")%>">客户</a></td>
<td width="6%" height="15" align=center><a href="Salesquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=owner&orderby=<%=session("orderby")%>">销售员</a></td>
<td width="7%" height="15" align=center><a href="Salesquery.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=cost&orderby=<%=session("orderby")%>">成本</a></td>
<td width="7%" height="15" align=center>毛利</td>
</tr>
<%
set deliveryid=rs("deliveryid")
set deliveryno=rs("deliveryno")
set orderid=rs("orderid")
set ordernum=rs("ordernum")
set account=rs("account")
set accountid=rs("accountid")
set amount=rs("amount")
set owner=rs("owner")
set deliverydate=rs("deliverydate")
set model=rs("model")
set qty=rs("qty")
set discountprice=rs("discountprice")
set cost=rs("cost")
set amount=rs("amount")
totalqty=0
totalamount=0
totalgain=0
i=1:do while not rs.EOF and i<=session("pagesize")%>
<tr bgcolor="#FFFFFF">
<td align=center height=18><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=<%=deliveryid%>');"><%=deliveryno%></a></td>
<td align=center><%=deliverydate%></td>
<td align=center><%=model%></td>
<td align=center><%=qty%></td>
<td align=center><%=formatnumber(discountprice,2)%></td>
<td align=center><%=formatnumber(amount,2)%></td>
<td align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=750, height=500','../order/orderdetail.asp?orderid=<%=orderid%>');"><%=ordernum%></a></td>
<td align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 200, top=100, menubar=no, location=no, toolbar=no ,width=600, height=480','../account/accountdetail.asp?accountid=<%=accountid%>');"><%=account%></a></td>
<td align=center><%=owner%></td>
<td align=center><%=formatnumber(cost,2)%></td>
<td align=center><%=formatnumber(csng(amount)-csng(cost),2)%></td>
</tr>
<%
i=i+1
totalqty=totalqty+csng(rs("qty"))
totalamount=totalamount+csng(rs("amount"))
totalgain=totalgain+(csng(amount)-csng(cost))
rs.MoveNext
loop
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="30"><td>数量：<%=totalqty%> 金额：<%=formatnumber(totalamount,2)%> 毛利：<%=formatnumber(totalgain,2)%></td></tr>
<tr height="20"><td>第<%=CurPage%>页 / 共<%=RS.PageCount%>页 / 记录数:<%=Rs.RecordCount%>条</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 + -