<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
if isDepartment("070105")=0 then
|
Response.Redirect "/"
|
Response.End()
|
end If
|
|
searchTXT=SafeRequest(Request("searchTXT"))
|
orderby=SafeRequest(Request("orderby"))
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
'默认显示字段
|
If OrdState="" Then OrdState=0
|
If OrdClassList="" Then OrdClassList="0"
|
If OrdClassList="0" Then
|
OrdClassName="未审核"
|
ElseIf OrdClassList="1" Then
|
OrdClassName="已审核"
|
Else
|
OrdClassName="全部"
|
End if
|
|
'各种返回信息
|
SystemMessageType=trim(Request("SystemMessageType"))
|
SMT=trim(Request("SMT"))
|
if SystemMessageType<>"" then
|
if SMT="1" then
|
SystemMessageTXT="请选择日期"
|
end if
|
end if
|
|
|
If OrdState<>"0" then
|
OrdListName = ServiceOrdStateA(OrdState)&"记录"
|
Else
|
OrdListName = "订单取消分析"
|
End If
|
|
OrdDateType=SafeRequest(Request("OrdDateType"))
|
OrdDateStart=SafeRequest(Request("OrdDateStart"))
|
OrdDateEnd=SafeRequest(Request("OrdDateEnd"))
|
OrdClassType=SafeRequest(Request("OrdClassType"))
|
If OrdDateType="" Then
|
OrdDateType=4
|
OrdDateTop=" top 20 "
|
End If
|
If OrdDateType="0" then
|
If OrdDateStart="" And OrdDateEnd="" Then
|
OrdDateStart=Date()
|
OrdDateEnd=Date()&" 00:00"
|
ElseIf OrdDateStart<>"" And OrdDateEnd="" Then
|
OrdDateEnd=OrdDateStart
|
ElseIf OrdDateStart="" And OrdDateEnd<>"" Then
|
OrdDateStart=OrdDateEnd
|
End If
|
If Cdate(OrdDateStart)>Cdate(OrdDateEnd) Then
|
OrdDateStart1=OrdDateStart
|
OrdDateStart=OrdDateEnd
|
OrdDateEnd=OrdDateStart1
|
End if
|
If OrdDateStart=OrdDateEnd Then
|
OrdDateStart=FORMATDATETIME(OrdDateStart,vbShortDate)
|
OrdDateTypeName=OrdDateStart
|
OrdDateTypeName1=OrdDateTypeName
|
OrdDateEnd=FORMATDATETIME(OrdDateEnd,vbShortDate)
|
Else
|
OrdDateTypeName=OrdDateStart&" 至 "&OrdDateEnd
|
OrdDateTypeName1="时间段"
|
End If
|
SqlOrdDateType="between '"&OrdDateStart&"' and '"&OrdDateEnd&" 23:59:59'"
|
|
Else
|
sql="select vID,vtext,vOrder2 from dictionary where vType>=1 and vtitle='OrdDateType' and vID="&OrdDateType
|
rs.open Sql,objConn,1,1
|
If not rs.Eof Then
|
OrdDateTypeName = rs("vtext")
|
OrdDateTypeName1=OrdDateTypeName
|
SqlOrdDateType = rs("vOrder2")
|
Else
|
OrdDateType=4
|
OrdDateTypeName="本月"
|
OrdDateTypeName1=OrdDateTypeName
|
SqlOrdDateType="between DATEADD(mm,DATEDIFF(mm,0,getdate()),0) and dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,getdate())+1,0))"
|
End If
|
rs.close()
|
End If
|
'时间段列表
|
sql="select vID,vtext from dictionary where vType>=1 and vtitle='OrdDateType' order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
OrdDateTypes = OrdDateTypes & rs("vID") &","& rs("vtext") & "|"
|
rs.movenext
|
Loop
|
rs.close()
|
OrdDateTypes = left(OrdDateTypes,len(OrdDateTypes)-1)
|
OrdDateTypesPS = SPLIT(OrdDateTypes,"|")
|
|
'单据类型表列
|
OrdClassTypeName="调度单"
|
OrdClassTypes = "1,调度单|"
|
If isDepartment("02")=1 Then OrdClassTypes = OrdClassTypes&"2,服务单|"
|
OrdClassTypes = left(OrdClassTypes,len(OrdClassTypes)-1)
|
OrdClassTypesPS = SPLIT(OrdClassTypes,"|")
|
for z = 0 to UBOUND(OrdClassTypesPS)
|
OrdClassTypesPS1=SPLIT(OrdClassTypesPS(z),",")
|
vID=OrdClassTypesPS1(0)
|
vtext=OrdClassTypesPS1(1)
|
If OrdClassType=vID Then OrdClassTypeName = vtext
|
next
|
|
page_URL="&OrdDateType="&OrdDateType&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&searchTXT="&searchTXT&"&orderby="&orderby&"&OrdClassType="&OrdClassType
|
|
%>
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<head>
|
<title><%=LindemanAdmin%></title>
|
<!--#include virtual="/inc/ccs.gds"-->
|
</head>
|
<body onkeydown="xKeyEvent(event)">
|
<!--#INCLUDE FILE="menu_header.gds" -->
|
<!-- content -->
|
<div id="content">
|
<!--#INCLUDE FILE="Report_menu_left.gds" -->
|
<!-- content / right -->
|
<div id="right">
|
<!-- table -->
|
<div class="box">
|
<!-- box / title -->
|
<div class="title">
|
<h5><span id="right_Menu" style="display: none;">[<a onclick="JavaScript:JS_left_Menu2('1');" style="color: #ffffff;">显示菜单</a>] </span><%If searchTXT<>"" then%>订单取消分析 <%=searchTXT%><%else%><%=OrdDateTypeName1&" "&OrdListName%><%End if%></h5>
|
<ul class="links">
|
<li><a href="Report_CancelAnalysis_csv.gds?1=1<%=page_URL%>">导出csv</a></li>
|
<li>
|
<%
|
'下拉菜单设定
|
DownMenuName="单据类型" '菜单名称
|
DownMenuNameID="OrdClassType" '菜单ID
|
DownMenuOldName=OrdClassTypeName '默认值名称
|
DownMenuOldID=OrdClassType '默认值ID
|
%>
|
<div class="search">
|
<div name="DownMenu_container" id="<%=DownMenuNameID%>_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_DownMenu('<%=DownMenuNameID%>')">
|
<span class="select-content" style="width: 46px;"><%=DownMenuName%>：<%=DownMenuOldName%></span><span class="arrow" id="<%=DownMenuNameID%>_arrow" name="DownMenu_arrow"></span>
|
</div>
|
<div name="DownMenu_list" id="<%=DownMenuNameID%>_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 90px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 69px;">
|
<div class="jspContainer" style="width: 90px;">
|
<div style="padding: 0px; top: 0px; width: 90px;">
|
<%for z = 0 to UBOUND(OrdClassTypesPS)
|
OrdClassTypesPS1=SPLIT(OrdClassTypesPS(z),",")
|
vID=OrdClassTypesPS1(0)
|
vtext=OrdClassTypesPS1(1)
|
%>
|
<span title="<%=vtext%>" name="DownMenu_<%=DownMenuNameID%>" onmouseover="JS_DownMenuMouseover('<%=DownMenuNameID%>',<%=z%>)" onclick="JS_DownMenuJump('<%="?"&mid(page_URL,2)%>','<%=DownMenuOldID%>','<%=DownMenuNameID%>','<%=vID%>')" class="list-option<%if vID=DownMenuOldID then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
</div>
|
</div>
|
</div>
|
</div>
|
</li>
|
<li>
|
<div class="search">
|
<div id="Date_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_OrdDateType()">
|
<span class="select-content" style="width: 46px;">期间：<%=OrdDateTypeName%></span><span class="arrow" id="Date_arrow"></span>
|
</div>
|
<div id="Date_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 65px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 35px;">
|
<div class="jspContainer" style="width: 63px;">
|
<div style="padding: 0px; top: 0px; width: 63px;">
|
<%for z = 0 to UBOUND(OrdDateTypesPS)
|
OrdDateTypesPS1=SPLIT(OrdDateTypesPS(z),",")
|
vID=OrdDateTypesPS1(0)
|
vtext=OrdDateTypesPS1(1)
|
%>
|
<span title="<%=vtext%>" onmouseover="JS_OrdDateTypeMouseover('OrdDateType_<%=vID%>')" onclick="JS_OrdDateTypeJump('<%=vID%>')" id="OrdDateType_<%=vID%>" class="list-option<%if vID=OrdDateType then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
<span title="自定义" onmouseover="JS_OrdDateTypeMouseover('OrdDateType_0')" onclick="JS_OrdDateTypeCreateOpen()" id="OrdDateType_0" name="OrdDateType" class="list-option">自定义</span>
|
</div>
|
</div>
|
</div>
|
</div>
|
</li>
|
</ul>
|
</div>
|
<div class="dialogJ dialogJfix dialogJshadow" id="OrdDateTypeCreate" style="width: 440px;right: 80px; top: 150px;height:80px ;display:none;">
|
<div class="dialogJtitle">
|
<a href="javascript:JS_OrdDateTypeCreateClose();" class="dialogJclose" title="关闭本窗口"> </a>
|
<span class="dialogJtxt" id="EditPhotoTXT">请选择时间段</span>
|
</div>
|
<div class="dialogJcontent" style="margin-left: 5px;margin-right:5px;">
|
<div class="input" style="float:left;margin-top: 10px;margin-left: 5px;" id="two-inputs">
|
期间：
|
<input type="text" id="OrdDateStart" name="OrdDateStart" class="date" style="width:138px;" value="<%=OrdDateStart%>">
|
至
|
<input type="text" id="OrdDateEnd" name="OrdDateEnd" class="date" style="width:138px;" value="<%=OrdDateEnd%>">
|
<input type="button" class="dialogJbtn first-child" onclick="JS_OrdDateJump()" value="查询">
|
</div>
|
</div>
|
</div>
|
<!--时间选择js liang------------->
|
<link rel="stylesheet" href="css/daterangepicker.css">
|
<script src="js/jquery-1.12.3.min.js"></script>
|
<script src="js/moment.min.js"></script>
|
<script src="js/jquery.daterangepicker.js"></script>
|
<script>
|
$(function()
|
{
|
$('#two-inputs').dateRangePicker(
|
{
|
separator : ' to ',
|
getValue: function()
|
{
|
if ($('#OrdDateStart').val() && $('#OrdDateEnd').val() )
|
return $('#OrdDateStart').val() + ' to ' + $('#OrdDateEnd').val();
|
else
|
return '';
|
},
|
setValue: function(s,s1,s2)
|
{
|
$('#OrdDateStart').val(s1);
|
$('#OrdDateEnd').val(s2);
|
}
|
|
});
|
});
|
</script>
|
<!--时间选择js liang------------->
|
<script type="text/javascript">
|
//时间表列显示下拉菜单
|
function JS_OrdDateType(){
|
if (Date_container.className!="select-container select-container-show-list"){
|
Date_container.className="select-container select-container-show-list";
|
Date_arrow.className="arrow arrow-up";
|
Date_list.style.display="block";
|
OrdClass_container.className="select-container";
|
OrdClass_arrow.className="arrow";
|
OrdClass_list.style.display="none";
|
OrdDateTypeCreate.style.display="none";
|
}
|
else {
|
Date_container.className="select-container";
|
Date_arrow.className="arrow";
|
Date_list.style.display="none";
|
}
|
}
|
//时间表列指针移动到下拉菜单
|
function JS_OrdDateTypeMouseover(id){
|
var d=document.getElementById(id);
|
<%for z = 0 to UBOUND(OrdDateTypesPS)
|
OrdDateTypesPS1=SPLIT(OrdDateTypesPS(z),",")
|
vID=OrdDateTypesPS1(0)
|
vtext=OrdDateTypesPS1(1)
|
%>
|
document.getElementById("OrdDateType_<%=vID%>").className="list-option";
|
<%next%>
|
document.getElementById("OrdDateType_0").className="list-option";
|
d.className="list-option option";
|
}
|
//自定义时间-打开窗口
|
function JS_OrdDateTypeCreateOpen()
|
{
|
JS_OrdDateType();
|
OrdDateTypeCreate.style.display="block";
|
}
|
//自定义时间-关闭窗口
|
function JS_OrdDateTypeCreateClose()
|
{
|
JS_OrdDateType();
|
OrdDateTypeCreate.style.display="none";
|
}
|
//自定义时间-确定时间
|
function JS_OrdDateTypeCreateSave()
|
{
|
document.getElementById('ServiceOrdTraStreet').value=document.getElementById('Duration').value;
|
document.getElementById('ServiceOrdTraEnd').value=document.getElementById('ServiceOrdTraEnd').value;
|
document.getElementById('ServiceOrdTraStreetCoo').value=results.sw.point.lng + ','+ results.sw.point.lat; //起点坐标
|
document.getElementById('ServiceOrdTraEndCoo').value=results.Lu.point.lng + ','+ results.Lu.point.lat; //起点坐标
|
}
|
//时间类表列转跳
|
function JS_OrdDateJump(id){
|
var OrdDateStart=document.getElementById("OrdDateStart").value;
|
var OrdDateEnd=document.getElementById("OrdDateEnd").value;
|
//var searchTXT=document.getElementById("searchTXT").value;
|
window.location.href='Report_CancelAnalysis.gds?OrdState=<%=OrdState%>&OrdClassList=<%=OrdClassList%>&OrdClassType=<%=OrdClassType%>&OrdDateType=0&OrdDateStart='+OrdDateStart+'&OrdDateEnd='+OrdDateEnd;
|
}
|
//自定义时间转跳
|
function JS_OrdDateTypeJump(id){
|
//var searchTXT=document.getElementById("searchTXT").value;
|
window.location.href='Report_CancelAnalysis.gds?OrdState=<%=OrdState%>&OrdClassList=<%=OrdClassList%>&OrdClassType=<%=OrdClassType%>&OrdDateType='+id;
|
}
|
|
//时间表列转跳
|
function JS_OrdClassTypeJump(id){
|
//var searchTXT=document.getElementById("searchTXT").value;
|
window.location.href='Report_CancelAnalysis.gds?OrdState=<%=OrdState%>&OrdDateType=<%=OrdDateType%>&OrdClassType=<%=OrdClassType%>&OrdClassList='+id;
|
}
|
|
</script>
|
<!-- end box / title -->
|
<%'数据读取
|
is_CSV=0%>
|
<!--#include virtual="Report_CancelAnalysis_Data.gds" -->
|
|
<!--#include virtual="/inc/SystemMessages.gds" -->
|
<div class="table" style="overflow:auto">
|
<table>
|
<%If SystemMessageType<>"2" then%>
|
<thead>
|
<tr style="white-space: nowrap;">
|
<%
|
For X=Lbound(FormArray)+1 to Ubound(FormArray)
|
If X=Ubound(FormArray) Then
|
'classHtml=" class=""last"""
|
ElseIf X=1 Then
|
classHtml=" class=""selected"""
|
Else
|
classHtml=""
|
End If
|
Response.Write "<th"&classHtml&">"&FormArray(X,0)&"</th>"
|
Next%>
|
<th class="last"> </td>
|
</tr>
|
</thead>
|
<tbody>
|
<%
|
For Y=Lbound(FormArray,2)+2 to Ubound(FormArray,2)%>
|
<tr style="white-space: nowrap;">
|
<%
|
For X=Lbound(FormArray)+1 to Ubound(FormArray)
|
If X=Ubound(FormArray) Then
|
classHtml=" class=""category category2 last"""
|
ElseIf X=1 Then
|
classHtml=" class=""selected"""
|
Else
|
classHtml=" class=""category category2"""
|
End If
|
Response.Write "<td"&classHtml&">"&FormArray(X,Y)&"</th>"
|
Next%>
|
<td class="last"> </td>
|
</tr>
|
<%Next%>
|
<%End If%>
|
<%for j=Y to 20%>
|
<tr>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td class="last"> </td>
|
</tr>
|
<%next%>
|
</tbody>
|
</table>
|
<!-- pagination -->
|
<div class="pagination pagination-left">
|
<div class="results">
|
<%
|
ShowingLeast = (acc1-1)*QuantityInt+1
|
ShowingMax = QuantityInt*acc1
|
if ShowingMax>acc3 then ShowingMax=acc3
|
%>
|
<span><%="显示 "& ShowingLeast &"-"& ShowingMax &" of "&acc3%></span>
|
</div>
|
<%if acc2>1 then%>
|
<ul class="pager">
|
<%if acc1=1 then%>
|
<li class="disabled">« 上页</li>
|
<%else%>
|
<li><a href="?page=<%=acc1-1%><%=page_URL%>">« 上页</a></li>
|
<%end if%>
|
<%
|
acc4=""
|
acc5=0
|
for i=1 to acc2
|
if acc2<=9 then
|
acc4=acc4&","&i
|
else
|
if i=1 then
|
acc4=acc4&","&i
|
elseif acc1<=5 and i<=7 then
|
acc4=acc4&","&i
|
elseif acc1>=acc2-4 and i>=acc2-6 then
|
acc4=acc4&","&i
|
elseif i>=acc1-2 and i<=acc1+2 then
|
acc4=acc4&","&i
|
elseif i=acc2 then
|
acc4=acc4&","&i
|
elseif acc5=0 then
|
acc4=acc4&",0"
|
acc5=1
|
end if
|
end if
|
next
|
acc4SP=SPLIT(acc4,",")
|
for i = 1 to UBOUND(acc4SP)%>
|
<%if CInt(acc4SP(i))="0" then%>
|
<li class="separator">...</li>
|
<%elseif CInt(acc1)=cint(acc4SP(i)) then%>
|
<li class="current"><%=acc4SP(i)%></li>
|
<%else%>
|
<li><a href="?page=<%=acc4SP(i)%><%=page_URL%>"><%=acc4SP(i)%></a></li>
|
<%end if%>
|
<%next%>
|
<%if CInt(acc1)>=CInt(acc2) then%>
|
<li class="disabled">下页 »</li>
|
<%else%>
|
<li><a href="?page=<%=acc1+1%><%=page_URL%>">下页 »</a></li>
|
<%end if%>
|
</ul>
|
<%end if%>
|
</div>
|
<!-- end pagination -->
|
</div>
|
</div>
|
<!-- end table -->
|
|
|
|
</div>
|
<!-- end content / right -->
|
</div>
|
<!-- end content -->
|
<!--#include FILE="vicgame.asp"-->
|
<IFRAME id="HiddenFrame" name="HiddenFrame" WIDTH=0 HEIGHT=0 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no BORDERCOLOR=#ffffff></IFRAME>
|
</body>
|
</html>
|
