<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<%
|
'Response.Cookies("OA")("adminID")=""
|
'Response.end
|
ReportType=SafeRequest(Request("ReportType"))
|
searchTXT=Request("searchTXT")
|
searchDateType=SafeRequest(Request("searchDateType"))
|
searchDate=Request("searchDate")
|
state=request("state")
|
UnitIDCookies=request("UnitIDCookies")
|
OrdDateType=SafeRequest(Request("OrdDateType"))
|
OrdDateStart=SafeRequest(Request("OrdDateStart"))
|
OrdDateEnd=SafeRequest(Request("OrdDateEnd"))
|
If UnitIDCookies<>"" Then
|
Response.Cookies("UnitIDCookies")=UnitIDCookies
|
End If
|
If state<>"" Then
|
stateSP=split(state,"|")
|
for i = 0 to UBOUND(stateSP)
|
If InStr(stateSP(i),"ReportType=")=1 Then
|
ReportType=Replace(stateSP(i),"ReportType=","")
|
ElseIf InStr(stateSP(i),"ReportType=")=1 Then
|
searchTXT=Replace(stateSP(i),"searchTXT=","")
|
ElseIf InStr(stateSP(i),"searchDateType=")=1 Then
|
searchDateType=Replace(stateSP(i),"searchDateType=","")
|
ElseIf InStr(stateSP(i),"searchDate=")=1 Then
|
searchDate=Replace(stateSP(i),"searchDate=","")
|
ElseIf InStr(stateSP(i),"UnitIDCookies=")=1 Then
|
UnitIDCookies=Replace(stateSP(i),"UnitIDCookies=","")
|
ElseIf InStr(stateSP(i),"OrdDateType=")=1 Then
|
OrdDateType=Replace(stateSP(i),"OrdDateType=","")
|
ElseIf InStr(stateSP(i),"OrdDateStart=")=1 Then
|
OrdDateStart=Replace(stateSP(i),"OrdDateStart=","")
|
ElseIf InStr(stateSP(i),"OrdDateEnd=")=1 Then
|
OrdDateEnd=Replace(stateSP(i),"OrdDateEnd=","")
|
End If
|
Next
|
End If
|
'if OrdState="" then Response.Redirect "/"
|
state=OrdState%>
|
<!--#include virtual="/weixin/OAuth2.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<!--#include virtual="/weixin/sha1.gds"-->
|
<%
|
If ReportType="" Then ReportType=1
|
If OrdState="" Then OrdState=0
|
|
If ReportType=1 Then
|
TitleName="今日数据"
|
ElseIf ReportType=2 Then
|
TitleName="每日营业数据"
|
If searchDateType="" Then searchDateType=3
|
If OrdDateType="" Then OrdDateType=4
|
ElseIf ReportType=3 Then
|
TitleName="营业数据环比"
|
If searchDateType="" Then searchDateType=3
|
OrdDateType=0
|
End If
|
If searchDateType="" Then searchDateType=1
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
'session("adminID")=85
|
'个人信息
|
sql="select * from OA_User where OA_User_ID="&session("adminID")
|
rs.open sql,objConn,1,1
|
If not rs.Eof then
|
OA_weixinUserID = rs("OA_weixinUserID")
|
OA_Name = rs("OA_Name")
|
OA_weixinAvatar = rs("OA_weixinAvatar")
|
OA_DepartmentID = rs("OA_DepartmentID")
|
session("admin_Power")=rs("OA_Power")
|
admin_Power=session("admin_Power")
|
End If
|
rs.close()
|
If isDepartment("0702")=0 Then Response.Redirect "/m_logout.html"
|
If OA_weixinAvatar="" Then OA_weixinAvatar="/resources/images/icon_avatar_default.png"
|
Call OA_Running("手机端打开订单报表")
|
|
'公司列表
|
UnitNameName=""
|
UnitNames = ""
|
sql="select vID,vtext=isnull(UnitShort,vtext) from dictionary LEFT JOIN IntroducerUnitData ON UnitName=vtext where vType>=1 and vtitle='UnitName' order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
UnitNames = UnitNames & rs("vID") &","& rs("vtext") & "|"
|
If UnitNameID=CStr(rs("vID")) Then UnitNameName = rs("vtext")
|
rs.movenext
|
Loop
|
rs.close()
|
UnitNames = left(UnitNames,len(UnitNames)-1)
|
UnitNamesPS = SPLIT(UnitNames,"|")
|
|
'显示相关公司
|
If UnitIDCookies<>"" Then
|
sql="SELECT OrderClassIDs = STUFF((select ','+vOrder2 from dictionary where vType>=1 and vtitle='UnitName' and vID in ("&UnitIDCookies&") FOR XML PATH('')), 1, 1, '')"
|
rs.open Sql,objConn,1,1
|
If not rs.Eof Then
|
OrderClassIDs = rs(0)
|
End If
|
rs.close()
|
If OrderClassIDs<>"" Then
|
OrdClassListSql=""
|
sql="select vOrder2 from dictionary where vType>=1 and vtitle='OrderClass' and vID in ("&OrderClassIDs&") order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
OrdClassListSql = OrdClassListSql &"','"& rs("vOrder2")
|
rs.movenext
|
Loop
|
rs.close()
|
If OrdClassListSql<>"" Then OrdClassListSql=Mid(OrdClassListSql,4)
|
Else
|
UnitIDCookies=""
|
End If
|
End If
|
|
'当前汇总数据时间段
|
If searchDate="" Then
|
searchDateSQL="getdate()"
|
searchDateJS=now()
|
Else
|
searchDateSQL="'"&searchDate&"'"
|
searchDateJS=searchDate
|
End If
|
'年度数据环比
|
If ReportType=3 Then
|
If searchDateType="1" Then '日
|
SqlDate=" between dateadd(d,DATEDIFF(d,1,"&searchDateSQL&"),-365) and dateadd(ms,3,DATEDIFF(d,-1,"&searchDateSQL&")) "
|
DateH2="按日数据环比"
|
DateFF="h"
|
DateDD="d"
|
ElseIf searchDateType="2" Then '周
|
SqlDate=" between dateadd(wk,DATEDIFF(wk,1,"&searchDateSQL&"),-365) and dateadd(ms,3,DATEDIFF(d,-1,"&searchDateSQL&")) "
|
DateH2="按周数据环比"
|
DateFF="d"
|
DateDD="ww"
|
ElseIf searchDateType="3" Then '月
|
SqlDate=" between dateadd(m,DATEDIFF(m,1,"&searchDateSQL&"),-365) and dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,"&searchDateSQL&")+1,0)) "
|
DateH2="按月数据环比"
|
DateFF="d"
|
DateDD="m"
|
ElseIf searchDateType="4" Then '年
|
SqlDate=" between '2016-1-1' and dateadd(ms,-3,DATEADD(yy,DATEDIFF(yy,0,"&searchDateSQL&")+1,0))"
|
DateH2="按年数据环比"
|
DateFF="d"
|
DateDD="yyyy"
|
End If
|
|
'正常数据流水
|
ElseIf searchDateType="1" then '日
|
SqlDate=" between dateadd(ms,0,DATEDIFF(d,0,"&searchDateSQL&")) and dateadd(ms,3,DATEDIFF(d,-1,"&searchDateSQL&")) "
|
DateFF="h"
|
DateDD="d"
|
ElseIf searchDateType="2" Then '周
|
SqlDate=" between dateadd(ms,0,DATEDIFF(d,6,"&searchDateSQL&")) and dateadd(ms,-3,DATEDIFF(d,-1,"&searchDateSQL&")) "
|
DateFF="d"
|
DateDD="ww"
|
ElseIf searchDateType="3" Then '月
|
SqlDate=" between dateadd(m,DATEDIFF(m,1,"&searchDateSQL&"),0) and dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,"&searchDateSQL&")+1,0)) "
|
DateFF="d"
|
DateDD="m"
|
ElseIf searchDateType="4" Then '年
|
SqlDate=" between DATEADD(yy,DATEDIFF(yy,0,"&searchDateSQL&"),0) and dateadd(ms,-3,DATEADD(yy,DATEDIFF(yy,0,"&searchDateSQL&")+1,0))"
|
DateFF="d"
|
DateDD="yyyy"
|
ElseIf searchDateType="5" And OrdDateStart<>"" And OrdDateEnd<>"" Then '自定义
|
SqlDate=" between '"&OrdDateStart&"' and '"&OrdDateEnd&" 23:59:59' "
|
DateFF="h"
|
DateDD="d"
|
Else
|
Response.End
|
End if
|
'SqlDate=" between dateadd(ms,0,DATEDIFF(d,86,getdate())) and dateadd(ms,0,DATEDIFF(d,79,getdate())) "
|
sql=Replace(Replace(SqlDate," between","select ")," and ",",")
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
DateA=rs(0)
|
DateB=rs(1)
|
DateB=dateadd(DateFF,-1,DateB)
|
DateC=DateA
|
rs.close()
|
If searchDateType="1" And DateH2="" then '日
|
DateH2 = Year(DateA) &"年"& Month(DateA) &"月"& Day(DateA) &"日"
|
ElseIf searchDateType="2" And DateH2="" Then '周
|
DateH2 = Month(DateA) &"月"& Day(DateA) &"日～"
|
If Month(DateA)<>Month(DateB) Then
|
DateH2 = DateH2 & Month(DateB) &"月"& Day(DateB) &"日"
|
Else
|
DateH2 = DateH2 & Day(DateB) &"日"
|
End If
|
ElseIf searchDateType="3" And DateH2="" Then '月
|
DateH2 = Year(DateA) &"年"&Month(DateA) &"月"
|
If Month(DateA)<>Month(DateB) Then
|
DateH2 = DateH2 &"～"& Month(DateB) &"月"
|
End If
|
ElseIf searchDateType="4" And DateH2="" Then '年
|
DateH2 = Right(Year(DateA),2) &"年"& Month(DateA) &"月～"
|
If Year(DateA)<>Year(DateB) Then
|
DateH2 = DateH2 & Right(Year(DateB),2) &"年"& Month(DateB) &"月"
|
Else
|
DateH2 = DateH2 & Month(DateB) &"月"
|
End If
|
ElseIf searchDateType="5" And DateH2="" then '自定义
|
DateH2 = Right(Year(DateA),2)&"年"& Month(DateA) &"月"& Day(DateA) &"日～"
|
If Year(DateA)<>Year(DateB) Then
|
DateH2 = DateH2 & Right(Year(DateB),2) &"年"
|
End If
|
If Month(DateA)<>Month(DateB) Then
|
DateH2 = DateH2 & Month(DateB) &"月"& Day(DateB) &"日"
|
Else
|
DateH2 = DateH2 & Day(DateB) &"日"
|
End If
|
End if
|
|
'历史对比数据时间段
|
If OrdDateType="" Then
|
OrdDateType=13
|
OrdDateTop=" top 20 "
|
End If
|
If OrdDateType="0" then
|
If OrdDateStart="" And OrdDateEnd="" Then
|
OrdDateStart=DateA
|
OrdDateEnd=DateB
|
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=1
|
OrdDateTypeName="当天"
|
OrdDateTypeName1=OrdDateTypeName
|
SqlOrdDateType="between dateadd(ms,0,DATEDIFF(d,0,getdate())) and dateadd(ms,-3,DATEDIFF(d,-1,getdate()))"
|
End If
|
rs.close()
|
End If
|
|
|
%>
|
<head>
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
<meta name="viewport" content="width=device-width, height=device-height, initial-scale=1, maximum-scale=1, user-scalable=no">
|
<meta name="keywords" content="">
|
<meta name="description" content="">
|
<meta name="author" content="">
|
<link rel="icon" href="assets/images/favicon.png" type="image/png">
|
<title><%=TitleName%></title>
|
<link href="assets/css/icons.css" rel="stylesheet">
|
<link href="assets/css/bootstrap.min.css" rel="stylesheet">
|
<link href="assets/css/style.css" rel="stylesheet">
|
<link href="assets/css/responsive.css" rel="stylesheet">
|
<link href="assets/plugins/bootstrap-daterangepicker/daterangepicker.css" rel="stylesheet">
|
<link href="assets/plugins/bootstrap-editable/css/bootstrap-editable.css" rel="stylesheet" type="text/css" />
|
|
<!--Begin Page Level CSS -->
|
<link href="assets/plugins/morris-chart/morris.css" rel="stylesheet">
|
<link href="assets/plugins/jquery-ui/jquery-ui.min.css" rel="stylesheet"/>
|
<!--End Page Level CSS -->
|
|
<!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
|
<!-- WARNING: Respond.js doesn't work if you view the page via file:// -->
|
<!--[if lt IE 9]>
|
<script src="js/html5shiv.min.js"></script>
|
<script src="js/respond.min.js"></script>
|
<![endif]-->
|
|
<!--Begin core plugin -->
|
<script src="assets/js/jquery.min.js"></script>
|
<script src="assets/js/bootstrap.min.js"></script>
|
<script src="assets/plugins/moment/moment.js"></script>
|
<script src="assets/js/jquery.slimscroll.js "></script>
|
<!-- End core plugin -->
|
|
|
<!-- BEGIN 页面JS -->
|
<script src="assets/plugins/morris-chart/morris.js"></script>
|
<script src="assets/plugins/morris-chart/raphael-min.js"></script>
|
<script src="assets/plugins/jquery-sparkline/jquery.sparkline.min.js"></script>
|
<script src="assets/plugins/sweetalert/sweet-alert.js"></script>
|
<script src="assets/plugins/bootstrap-daterangepicker/daterangepicker.js"></script>
|
<script src="assets/plugins/jquery-multi-select/js/jquery.multi-select.js"></script>
|
<script src="assets/plugins/bootstrap-editable/js/bootstrap-editable.min.js"></script>
|
<script src="assets/plugins/flot-chart/jquery.flot.min.js"></script>
|
<script src="assets/plugins/flot-chart/jquery.flot.pie.js"></script>
|
<style>
|
.table-container {
|
width: 100%;
|
max-height:750px;
|
overflow: auto;
|
}
|
|
/* 首列固定 */
|
.table-container thead tr > th:first-child,
|
.table-container tbody tr > td:first-child {
|
position: sticky;
|
left: 0;
|
z-index: 1;
|
background: #ffffff;
|
}
|
|
/* 表头固定 */
|
.table-container thead tr > th {
|
position: sticky;
|
top: 0;
|
z-index: 2;
|
background: #ffffff;
|
}
|
|
/* 表头首列强制最顶层 */
|
.table-container thead tr > th:first-child {
|
z-index: 3;
|
background: #ffffff;
|
}
|
</style>
|
</head>
|
<body class="sticky-header">
|
|
|
<!--Start left side Menu-->
|
<div class="left-side sticky-left-side">
|
|
<!--logo-->
|
<div class="logo">
|
<a href="/"><img src="assets/images/logo.png" alt=""></a>
|
</div>
|
|
<div class="logo-icon text-center">
|
<a href="/"><img src="assets/images/logo-icon.png" alt=""></a>
|
</div>
|
<!--logo-->
|
|
<div class="left-side-inner">
|
<!--Sidebar nav-->
|
<ul class="nav nav-pills nav-stacked custom-nav">
|
<li><a href="Report_DailyTurnover_New.gds"><i class="icon-note"></i> 今日数据</a></li>
|
<li><a href="Report_DailyTurnover_New.gds?ReportType=2"><i class="icon-note"></i> 每日营业数据</a></li>
|
<li><a href="Report_DailyTurnover_New.gds?ReportType=3"><i class="icon-note"></i> 营业数据环比</a></li>
|
<li><a href="Report_DailyTurnover_Unit.gds?ReportType=3"><i class="icon-note"></i> 机构营业数据</a></li>
|
</ul>
|
<!--End sidebar nav-->
|
|
</div>
|
</div>
|
<!--End left side menu-->
|
|
<!-- main content start-->
|
<div class="main-content" >
|
|
<!-- header section start-->
|
<div class="header-section">
|
|
<a class="toggle-btn"><i class="fa fa-bars"></i></a>
|
|
<!--
|
<form class="searchform">
|
<input type="text" class="form-control" name="keyword" value="<%=keyword%>" placeholder="查询" />
|
</form>
|
-->
|
|
<!--notification menu start -->
|
<div class="menu-right">
|
<ul class="notification-menu">
|
|
<li class="btn-default dropdown-toggle"><%=TitleName%></li>
|
|
</ul>
|
</div>
|
<!--notification menu end -->
|
|
</div>
|
<!-- header section end-->
|
|
|
<!--body wrapper start-->
|
<div class="wrapper">
|
|
<!--Start Page Title-->
|
|
|
<%if isDepartment("070109")=1 Then
|
If UnitIDCookies<>"" Then
|
UnitIDCookiesPS=SPLIT(UnitIDCookies,",")
|
UnitIDCookies=""
|
for z = 0 to UBOUND(UnitIDCookiesPS)
|
UnitIDCookies=UnitIDCookies&","&right("00"&Trim(UnitIDCookiesPS(z)),3)
|
next
|
End If
|
%>
|
<div class="page-title-box">
|
<h4 class="page-title" style="float: none;margin-bottom: 5px;">
|
<%If ReportType=1Then%><a href="?ReportType=<%=ReportType%>&searchDateType=<%=searchDateType%>&OrdDateType=<%=OrdDateType%>&searchDate=<%=dateadd(DateDD,-1,DateB)%>"><img src="/resources/images/xiangleft.png"></a><%End If%>
|
<%If ReportType=1 Or ReportType=2 Then%>
|
<label id="reportrangeDay"><%=DateH2%></label>
|
<%Else%>
|
<%=DateH2%>
|
<%End If%>
|
<%If ReportType=1Then%><a href="?ReportType=<%=ReportType%>&searchDateType=<%=searchDateType%>&OrdDateType=<%=OrdDateType%>&searchDate=<%=dateadd(DateDD,1,DateB)%>"><img src="/resources/images/xiangright.png"></a><%End If%>
|
</h4>
|
<!--
|
<ol class="breadcrumb">
|
<li>
|
<a href="SpecialOrder.gds">新建承包任务</a>
|
</li>
|
</ol>
|
-->
|
<div class="clearfix" style="font-weight: 700;<%If request("UnitDiv")<>"1" Then Response.Write "display:none;"%>" id="UnitDiv1">
|
<form name="Unitform" id="Unitform" action="?ReportType=<%=ReportType%>&searchDateType=<%=searchDateType%>&OrdDateType=<%=OrdDateType%>&searchDate=<%=searchDate%>&UnitDiv=1" method="POST">
|
<div style="height: 30px;">
|
<button type="button" onclick="selectAll()" style="width: 100px;font-weight: 700;">全选</button>
|
<button type="button" onclick="unSelectAll()" style="width: 100px;font-weight: 700;">全不选</button>
|
<button type="button" onclick="converSelectAll()" style="width: 100px;font-weight: 700;">反选</button>
|
<img src="/resources/images/xiangright.png" style="transform: rotate(270deg);float:right;margin-top: 6px;margin-right: 15px;" onclick="document.getElementById('UnitDiv1').style.display='none';document.getElementById('UnitDiv2').style.display='';">
|
</div>
|
<div class="row">
|
<div class="col-xs-12">
|
<%UnitNameCookies=""
|
UnitCookies=0
|
for z = 0 to UBOUND(UnitNamesPS)
|
UnitNamesPS1=SPLIT(UnitNamesPS(z),",")
|
vID=UnitNamesPS1(0)
|
vtext=UnitNamesPS1(1)
|
vtext=replace(replace(vtext,"分公司",""),"公司","")
|
vtext=replace(vtext,"转运组","")
|
If UnitIDCookies="" Or InStr(UnitIDCookies,right("00"&vID,3))>0 Then
|
UnitCookies=UnitCookies+1
|
UnitNameCookies=UnitNameCookies&","&vtext
|
UnitNameID=UnitNameID&","&vID
|
End If
|
%>
|
<input type="checkbox" name="UnitIDCookies" value="<%=vID%>" id="UnitID_<%=vID%>"<%If UnitIDCookies="" Or InStr(UnitIDCookies,right("00"&vID,3))>0 Then Response.Write " checked"%>><label for="UnitID_<%=vID%>"><%=vtext%></label>
|
<%If z=4 Or z=9 Or z=14 Or z=19 Or z=24 Or z=29 Or z=34 Or z=39 Then Response.Write "<BR>"%>
|
<%Next
|
If UnitNameID<>"" Then UnitNameID=Mid(UnitNameID,2)
|
%>
|
<BR><button type="button" onclick="checkboxOnclick()" style="width: 100px;font-weight: 700;">提交查询</button>
|
</div>
|
</div>
|
</form>
|
</div>
|
|
<div class="clearfix" style="font-weight: 700;<%If request("UnitDiv")="1" Then Response.Write "display:none;"%>" id="UnitDiv2">
|
<%If UnitCookies>0 Then%>
|
已选择:<%If UnitCookies<=3 Then
|
Response.Write Left(Mid(UnitNameCookies,2),18)
|
ElseIf UnitCookies=UBOUND(UnitNamesPS)+1 Then
|
Response.Write "全部分公司"
|
Else
|
Response.Write UnitCookies&"家公司"
|
End If%>
|
<%else%>
|
未选择查询分公司
|
<%End If%>
|
<img src="/resources/images/xiangright.png" style="transform: rotate(90deg);float:right;margin-top: 6px;margin-right: 15px;" onclick="document.getElementById('UnitDiv2').style.display='none';document.getElementById('UnitDiv1').style.display='';">
|
</div>
|
|
|
<script type="text/javascript">
|
function checkboxOnclick(){
|
Unitform.submit();
|
}
|
var inputs = document.getElementsByName("UnitIDCookies");
|
function selectAll(){
|
for(var i = 0;i<inputs.length;i++){
|
inputs[i].checked = true;
|
}
|
//Unitform.submit();
|
}
|
function unSelectAll(){
|
for(var i = 0;i<inputs.length;i++){
|
inputs[i].checked = false;
|
}
|
}
|
function converSelectAll(){
|
var j=0;
|
for(var i = 0;i<inputs.length;i++){
|
if(inputs[i].checked){
|
inputs[i].checked = false;
|
}else{
|
j++;
|
inputs[i].checked = true;
|
}
|
}
|
/*
|
if (j>0)
|
{
|
Unitform.submit();
|
}
|
*/
|
}
|
</script>
|
<%If ReportType=2 Then%>
|
<div class="clearfix" style="font-weight: 700;margin-top: 10px;">
|
<a href="?ReportType=<%=ReportType%>&searchDateType=3&OrdDateType=0&searchDate=<%=dateadd("m",0,date())%>"><%If Year(dateadd("m",0,date()))<>Year(dateadd("m",-5,date())) then Response.Write Right(Year(dateadd("m",0,date())),2) &"年"%><%=Month(dateadd("m",0,date())) &"月"%></a>
|
<a href="?ReportType=<%=ReportType%>&searchDateType=3&OrdDateType=0&searchDate=<%=dateadd("m",-1,date())%>"><%If Year(dateadd("m",0,date()))<>Year(dateadd("m",-1,date())) then Response.Write Right(Year(dateadd("m",-1,date())),2) &"年"%><%=Month(dateadd("m",-1,date())) &"月"%></a>
|
<a href="?ReportType=<%=ReportType%>&searchDateType=3&OrdDateType=0&searchDate=<%=dateadd("m",-2,date())%>"><%If Year(dateadd("m",-1,date()))<>Year(dateadd("m",-2,date())) then Response.Write Right(Year(dateadd("m",-2,date())),2) &"年"%><%=Month(dateadd("m",-2,date())) &"月"%></a>
|
<a href="?ReportType=<%=ReportType%>&searchDateType=3&OrdDateType=0&searchDate=<%=dateadd("m",-3,date())%>"><%If Year(dateadd("m",-2,date()))<>Year(dateadd("m",-3,date())) then Response.Write Right(Year(dateadd("m",-3,date())),2) &"年"%><%=Month(dateadd("m",-3,date())) &"月"%></a>
|
<a href="?ReportType=<%=ReportType%>&searchDateType=3&OrdDateType=0&searchDate=<%=dateadd("m",-4,date())%>"><%If Year(dateadd("m",-3,date()))<>Year(dateadd("m",-4,date())) then Response.Write Right(Year(dateadd("m",-4,date())),2) &"年"%><%=Month(dateadd("m",-4,date())) &"月"%></a>
|
<a href="?ReportType=<%=ReportType%>&searchDateType=3&OrdDateType=0&searchDate=<%=dateadd("m",-5,date())%>"><%If Year(dateadd("m",-4,date()))<>Year(dateadd("m",-5,date())) then Response.Write Right(Year(dateadd("m",-5,date())),2) &"年"%><%=Month(dateadd("m",-5,date())) &"月"%></a>
|
|
</div>
|
<%End If%>
|
<%If ReportType=3 Then%>
|
<div class="clearfix" style="font-weight: 700;margin-top: 10px;">
|
<a href="?ReportType=3&searchDateType=2&OrdDateType=0&searchDate=<%=searchDate%>">按周数据</a>
|
<a href="?ReportType=3&searchDateType=3&OrdDateType=0&searchDate=<%=searchDate%>">按月数据</a>
|
<a href="?ReportType=3&searchDateType=4&OrdDateType=0&searchDate=<%=searchDate%>">按年数据</a>
|
</div>
|
<%End If%>
|
|
</div>
|
|
<%End If%>
|
<!--End Page Title-->
|
<%If ReportType=1 Then%>
|
<!--当前数据汇总 Start row-->
|
<%
|
'当前统计
|
Day_OrdInt=0
|
Day_Money=0
|
Day_OrdInt1=0
|
Day_Money1=0
|
Day_OrdInt2=0
|
Day_Money2=0
|
sql="select TransferModeID,Sum_OrdInt=isnull(SUM(Sum_OrdInt),0),Sum_TraTxnPrice=isnull(SUM(Sum_TraTxnPrice),0) from (select TransferModeID,Sum_OrdInt=COUNT(DOrdID),Sum_TraTxnPrice=成交价 from OrdData LEFT JOIN ServiceOrd_TransferMode on ServiceOrdTMID=SOrdID and TransferModeID=7 where 调度时间 "&SqlDate&CoopUnitSql&" and DOrdClass in ('"&OrdClassListSql&"') and DOrdState not in (0,10,14) and SOrdState not in (13) GROUP BY 成交价,SOrdID,DOrdID,TransferModeID) as aa GROUP BY TransferModeID"
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
Day_OrdInt=Day_OrdInt+rs("Sum_OrdInt")
|
Day_Money=Day_Money+Int(rs("Sum_TraTxnPrice"))
|
If rs("TransferModeID")=7 Then
|
'承包任务
|
Day_OrdInt2=rs("Sum_OrdInt")
|
Day_Money2=Int(rs("Sum_TraTxnPrice"))
|
Else
|
'正常任务
|
Day_OrdInt1=rs("Sum_OrdInt")
|
Day_Money1=Int(rs("Sum_TraTxnPrice"))
|
End If
|
rs.movenext
|
Loop
|
rs.close()
|
%>
|
<div class="row">
|
|
<!--Start info box-->
|
<div class="col-md-3 col-sm-6">
|
<div class="info-box-main">
|
<div class="info-stats">
|
<p><%=Day_Money%></p>
|
<span>营业总额</span>
|
</div>
|
<div class="info-icon text-info">
|
<i class="fa fa-cny"></i>
|
</div>
|
<div class="info-box-progress">
|
<div class="progress">
|
<div class="progress-bar progress-bar-info" role="progressbar" aria-valuenow="48" aria-valuemin="0" aria-valuemax="100" style="width: 100%;">
|
</div>
|
</div>
|
</div>
|
</div>
|
</div>
|
<!--End info box-->
|
|
<!--Start info box-->
|
<div class="col-md-3 col-sm-6">
|
<div class="info-box-main">
|
<div class="info-stats">
|
<p><%=Day_OrdInt%></p>
|
<span>订单数量 </span>
|
</div>
|
<div class="info-icon text-primary ">
|
<i class="fa fa-ambulance"></i>
|
</div>
|
<div class="info-box-progress">
|
<div class="progress">
|
<div class="progress-bar progress-bar-success" role="progressbar" aria-valuenow="48" aria-valuemin="0" aria-valuemax="100" style="width: 100%;">
|
</div>
|
</div>
|
</div>
|
</div>
|
</div>
|
<!--End info box-->
|
</div>
|
<%End If%>
|
<!--当前数据汇总 End row-->
|
|
<%
|
'历史数据SQL
|
acc1=request("page")
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 1000
|
acc2=0
|
acc3=0
|
if searchTXT<>"" Then
|
searchSql=""
|
If Len(searchTXT)=14 And Not IsNumeric(Left(searchTXT,2)) And IsNumeric(Mid(searchTXT,3,8)) And IsNumeric(Right(searchTXT,3)) And Mid(searchTXT,11,1)="-" Then
|
searchSql=" DispatchOrdClass='"&Left(searchTXT,2)&"' and CONVERT(VARCHAR(10),DispatchOrd_NS_Time,120)=CONVERT(VARCHAR(10),'"&Mid(searchTXT,3,4)&"-"&Mid(searchTXT,7,2)&"-"&Mid(searchTXT,9,2)&"',120) and Right('00'+convert(varchar(3),DispatchOrdNo),3)='"&Right(searchTXT,3)&"' "
|
ElseIf Len(searchTXT)=10 And IsNumeric(searchTXT) Then
|
searchSql=" DispatchOrdID="&Right(searchTXT,10)&" "
|
Else
|
searchSql=" (ServiceOrdCoName like '%"&searchTXT&"%' or ServiceOrdCoPhone like '%"&searchTXT&"%' or ServiceOrdPtName like '%"&searchTXT&"%' or ServiceOrdTraStreet like '%"&searchTXT&"%' or ServiceOrdTraEnd like '%"&searchTXT&"%') "
|
End if
|
else
|
'按实际返回时间统计
|
'searchSql=" DispatchOrdReturnDate "&SqlOrdDateType&" "
|
'按订单生成时间统计
|
SqlOrdDateType=Replace(SqlOrdDateType," 23:00:00","")
|
searchSql=" DispatchOrd_NS_Time "&SqlOrdDateType&" "
|
If OrdState="0" Then
|
searchSql=searchSql&""
|
ElseIf OrdState="1" Then
|
searchSql=searchSql&" and DispatchOrdState in (0) "
|
ElseIf OrdState="2" Then
|
searchSql=searchSql&" and DispatchOrdState in (1,2) "
|
ElseIf OrdState="4" Then
|
searchSql=" DispatchOrdState in (4,5,6,7) "
|
ElseIf OrdState="8_0" Then
|
searchSql=" DispatchOrdState in (8) and DispatchOrdMileage=0 "
|
ElseIf OrdState="8_1" Then
|
searchSql=" DispatchOrdState in (8) and DispatchOrdMileage>0 "
|
Else
|
searchSql=searchSql&" and DispatchOrdState in ("&OrdState&") "
|
End If
|
If OrdClassList<>"0" Then
|
searchSql=searchSql&" and ServiceOrdClass='"&OrdClassList&"' "
|
End if
|
end If
|
'时间列Y
|
|
sql=Replace(Replace(searchSql,"DispatchOrd_NS_Time between","select ")," and ",",")
|
'Response.Write sql&"<br>"
|
rs.open sql,objConn,1,1
|
DateA=rs(0)
|
DateB=rs(1)
|
rs.close()
|
ArrayY=DateDiff("d",DateA,DateB)+1
|
|
'Response.Write DateB&"<br>"
|
'Response.end
|
|
|
If ReportType=3 And searchDateType<>"1" Then
|
sql="select DispatchOrd_Date,Sum_OrdInt=SUM(Sum_OrdInt),Sum_TraTxnPrice=SUM(Sum_TraTxnPrice),TransferModeID from (select DispatchOrd_Date=CONVERT(VARCHAR(24),DATEPART(yy,调度时间))+'-'+Right('0'+CONVERT(VARCHAR(24),DATEPART("&DateDD&",调度时间)),2),Sum_OrdInt=count(DOrdID),Sum_TraTxnPrice=成交价,TransferModeID from OrdData LEFT JOIN ServiceOrd_TransferMode on ServiceOrdTMID=SOrdID and TransferModeID=7 where 调度时间 "&SqlOrdDateType&CoopUnitSql&" and DOrdState not in (10) and SOrdType not in (13) and DOrdClass in ('"&OrdClassListSql&"') GROUP BY 成交价,SOrdID,DOrdID,CONVERT(VARCHAR(24),DATEPART(yy,调度时间))+'-'+Right('0'+CONVERT(VARCHAR(24),DATEPART("&DateDD&",调度时间)),2),TransferModeID) as aa GROUP BY DispatchOrd_Date,TransferModeID order by DispatchOrd_Date,TransferModeID"
|
Else
|
sql="select DispatchOrd_Date,Sum_OrdInt=SUM(Sum_OrdInt),Sum_TraTxnPrice=SUM(Sum_TraTxnPrice),TransferModeID from (select DispatchOrd_Date=CONVERT(VARCHAR(24),调度时间,111),Sum_OrdInt=count(DOrdID),Sum_TraTxnPrice=成交价,TransferModeID from OrdData LEFT JOIN ServiceOrd_TransferMode on ServiceOrdTMID=SOrdID and TransferModeID=7 where 调度时间 "&SqlOrdDateType&CoopUnitSql&" and DOrdState not in (10) and SOrdType not in (13) and DOrdClass in ('"&OrdClassListSql&"') GROUP BY 成交价,SOrdID,DOrdID,CONVERT(VARCHAR(24),调度时间,111),TransferModeID) as aa GROUP BY DispatchOrd_Date,TransferModeID order by DispatchOrd_Date,TransferModeID"
|
End If
|
'Response.Write sql
|
'Response.end
|
rs.open sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=QuantityInt
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
acc3=rs.recordcount
|
else
|
SystemMessageType=2
|
SystemMessageTXT="数据库中相关无数据！"
|
end If
|
If SystemMessageType<>"2" then
|
Dim FormArray()
|
ArrayX=50
|
If acc3<QuantityInt Or (is_CSV=1 And acc3>QuantityInt) Then
|
ArrayY=acc3
|
Else
|
ArrayY=QuantityInt
|
End If
|
'表头
|
FormFields="日期,数量,营业总额,正常,营业额,占比,承包,营业额,占比"
|
FormFields=split(FormFields,",")
|
ArrayX=ubound(FormFields)+1
|
REDIM FormArray(ArrayX,ArrayY+1)
|
for i=0 to ubound(FormFields)
|
FormArray((i+1),0)=FormFields(i)
|
next
|
Y=1
|
DateTXT=""
|
DateInt_old1=0
|
DateMoney_old1=0
|
DateInt_old2=0
|
DateMoney_old2=0
|
do while not rs.Eof and Y<=ArrayY
|
|
If ReportType=3 And searchDateType<>"1" Then
|
DateTXT = Replace(rs(0),"-","年")
|
If searchDateType="2" Then
|
DateTXT = DateTXT&"周"
|
If Right(rs(0),2)="53" Then
|
DateSpanYears="YES"
|
If rs(3)=2 Then
|
DateInt_old2 = rs(1)
|
DateMoney_old2 = rs(2)
|
Else
|
DateInt_old1 = rs(1)
|
DateMoney_old1 = rs(2)
|
End If
|
ElseIf Right(rs(0),2)="01" And DateSpanYears="YES" Then
|
DateSpanYears="OK"
|
Y=Y-1
|
End If
|
ElseIf searchDateType="3" Then
|
DateTXT = DateTXT&"月"
|
ElseIf searchDateType="4" Then
|
DateTXT = Left(DateTXT,5)
|
End If
|
Else
|
DateTXT = rs(0)
|
End If
|
If DateTXT<>old_DateTXT then
|
Y=Y+1
|
'FormArray(1,Y)=DatePart("m",DateTXT)&"/"&DatePart("d",DateTXT)
|
FormArray(1,Y)=DateTXT
|
old_DateTXT=DateTXT
|
End If
|
DateInt = rs(1)
|
DateMoney = rs(2)
|
TransferModeID = rs(3)
|
|
If TransferModeID=7 Then
|
'承包任务
|
FormArray(2,Y)=FormArray(2,Y)+DateInt '订单数量
|
FormArray(3,Y)=FormArray(3,Y)+DateMoney '营业总额
|
FormArray(7,Y)=DateInt+DateInt_old2 '承包任务数量
|
FormArray(8,Y)=DateMoney+DateMoney_old2 '承包任务营业额
|
If FormArray(4,Y)=0 Then
|
FormArray(4,Y)=0 '正常任务数量
|
FormArray(5,Y)=0 '正常任务营业额
|
End If
|
If DateSpanYears="OK" Then
|
DateInt_old2=0
|
DateMoney_old2=0
|
End If
|
Else
|
'正常任务
|
FormArray(2,Y)=FormArray(2,Y)+DateInt '订单数量
|
FormArray(3,Y)=FormArray(3,Y)+DateMoney '营业总额
|
FormArray(4,Y)=DateInt+DateInt_old1 '正常任务数量
|
FormArray(5,Y)=DateMoney+DateMoney_old1 '正常任务营业额
|
If FormArray(7,Y)=0 Then
|
FormArray(7,Y)=0 '承包任务数量
|
FormArray(8,Y)=0 '承包任务营业额
|
End If
|
If DateSpanYears="OK" Then
|
DateInt_old1=0
|
DateMoney_old1=0
|
End If
|
End If
|
FormArray(6,Y)=Formatpercent(FormArray(5,Y)/FormArray(3,Y),0) '正常任务占比
|
FormArray(9,Y)=Formatpercent(FormArray(8,Y)/FormArray(3,Y),0) '承包任务占比
|
rs.movenext
|
Loop
|
'REDIM FormArray(ArrayX,Y)
|
|
'统计汇总
|
For Y=Lbound(FormArray,2)+2 to Ubound(FormArray,2)
|
if FormArray(1,Y)<>"" then
|
SumOrd=SumOrd+FormArray(2,Y)
|
SumMoney=SumMoney+FormArray(3,Y)
|
SumOrd1=SumOrd1+FormArray(4,Y)
|
SumMoney1=SumMoney1+FormArray(5,Y)
|
SumOrd2=SumOrd2+FormArray(7,Y)
|
SumMoney2=SumMoney2+FormArray(8,Y)
|
If OrdDateStart="" Then OrdDateStart=FormArray(1,Y)
|
OrdDateEnd=FormArray(1,Y)
|
end if
|
|
Next
|
End If
|
rs.close()
|
|
|
|
%>
|
<%If ReportType=2 Or ReportType=3 Then%>
|
<!--每日流水汇总 Start row-->
|
<div class="row">
|
<!-- Start inbox widget-->
|
<div class="col-md-12">
|
<div class="white-box">
|
<div class="table-responsive table-container">
|
<%If SystemMessageType="2" Then
|
Response.Write SystemMessageTXT
|
Else%>
|
<table class="table table-hover ">
|
<thead>
|
<tr style="white-space: nowrap;">
|
<%
|
For X=Lbound(FormArray)+1 to Ubound(FormArray)
|
Response.Write "<th>"&FormArray(X,0)&"</th>"
|
Next%>
|
</tr>
|
</thead>
|
<tbody>
|
<tr style="white-space: nowrap;">
|
<td style="color: #E91E63;">汇总</td>
|
<td style="color: #E91E63;"><%=SumOrd%></td>
|
<td style="color: #E91E63;"><%=SumMoney%></td>
|
<td style="color: #E91E63;"><%=SumOrd1%></td>
|
<td style="color: #E91E63;"><%=SumMoney1%></td>
|
<td style="color: #E91E63;"><%=Formatpercent(SumMoney1/SumMoney,0)%></td>
|
<td style="color: #E91E63;"><%=SumOrd2%></td>
|
<td style="color: #E91E63;"><%=SumMoney2%></td>
|
<td style="color: #E91E63;"><%=Formatpercent(SumMoney2/SumMoney,0)%></td>
|
</tr>
|
<%
|
For Y=Ubound(FormArray,2) To Lbound(FormArray,2)+2 Step -1
|
If FormArray(1,Y)<>"" Then%>
|
<tr style="white-space: nowrap;">
|
<%
|
For X=Lbound(FormArray)+1 to Ubound(FormArray)
|
If X>=4 And X<=6 Then
|
OrdClassList=-1
|
ElseIf X>=7 And X<=9 Then
|
OrdClassList=-2
|
Else
|
OrdClassList=0
|
End If
|
If X=1 Then
|
If ReportType=3 Then
|
Response.Write "<td>"&FormArray(X,Y)&"</td>"
|
Else
|
Response.Write "<td><a href=""DispatchOrder_List.gds?OrdDateType=0&OrdState=8_3&h_menu1_1=1&OrdDateStart="&FormArray(1,Y)&"&OrdDateEnd="&FormArray(1,Y)&"&UnitNameID="&UnitNameID&"&CoopUnitID="&CoopUnitID&"&OrdClassList="&OrdClassList&""" target=""_blank"">"&DatePart("m",FormArray(X,Y))&"/"&DatePart("d",FormArray(X,Y))&"</a></td>"
|
End If
|
Else
|
Response.Write "<td><a href=""DispatchOrder_List.gds?OrdDateType=0&OrdState=8_3&h_menu1_1=1&OrdDateStart="&FormArray(1,Y)&"&OrdDateEnd="&FormArray(1,Y)&"&UnitNameID="&UnitNameID&"&CoopUnitID="&CoopUnitID&"&OrdClassList="&OrdClassList&""" target=""_blank"">"&FormArray(X,Y)&"</a></td>"
|
End If
|
Next%>
|
</tr>
|
<%End If
|
Next%>
|
</tbody>
|
</table>
|
</div>
|
<%If total_records>1 Then%>
|
<div class="btn-group m-b-20">
|
<%
|
for x=1 to total_page
|
If x=page Then
|
Response.Write "<button type='button' class='btn btn-primary'>"&x&"</button>"
|
Else
|
Response.Write "<button type='button' class='btn btn-white' name='page_no'>"&x&"</button>"
|
End If
|
next
|
%>
|
</div>
|
<%End If%>
|
<%End If%>
|
</div>
|
</div>
|
<!-- Start inbox widget-->
|
</div>
|
<!--每日流水汇总 End row-->
|
<%End If%>
|
|
<!--数据图表 Start row-->
|
<div class="row">
|
<%If ReportType=1 Then%>
|
<div class="col-md-12">
|
<div class="white-box">
|
<h2 class="header-title">正常任务与承包任务占比（数量）</h2>
|
<div id="flot1" style="height: 320px;" class="flot-chart"></div>
|
</div>
|
</div><!-- /col-md-6-->
|
<script>
|
var dataSet = [
|
{ label: "正常<br><%=Day_OrdInt1%>", data: <%=Day_OrdInt1%>, color: "#3FB7EE" },
|
{ label: "承包<br><%=Day_OrdInt2%>", data: <%=Day_OrdInt2%>, color: "#00ACAC" }
|
];
|
$.plot('#flot1', dataSet, {
|
series: {
|
pie: {
|
show: true,
|
combine: {
|
color: '#3B8DD5',
|
threshold: 0.1
|
}
|
}
|
},
|
legend: {
|
show: false
|
}
|
});
|
</script>
|
|
<div class="col-md-12">
|
<div class="white-box">
|
<h2 class="header-title">正常任务与承包任务占比（营业额）</h2>
|
<div id="flot3" style="height: 320px;" class="flot-chart"></div>
|
</div>
|
</div><!-- /col-md-6-->
|
<script>
|
var dataSet = [
|
{ label: "正常<br><%=Day_Money1%>", data: <%=Day_Money1%>, color: "#3FB7EE" },
|
{ label: "承包<br><%=Day_Money2%>", data: <%=Day_Money2%>, color: "#00ACAC" }
|
];
|
$.plot('#flot3', dataSet, {
|
series: {
|
pie: {
|
show: true,
|
combine: {
|
color: '#3B8DD5',
|
threshold: 0.1
|
}
|
}
|
},
|
legend: {
|
show: false
|
}
|
});
|
</script>
|
<%End If%>
|
|
<div class="col-md-6">
|
<div class="white-box">
|
<h2 class="header-title"><%=OrdDateTypeName%><br>总营业额：<%=SumMoney%>元</h2>
|
<div id="morris1" style="height:250px;"></div>
|
</div>
|
</div><!-- /col-md-6-->
|
<script>
|
$(document).ready(function() {
|
Morris.Bar({
|
element: 'morris1',
|
data: [<%For Y=Lbound(FormArray,2)+2 to Ubound(FormArray,2)
|
if FormArray(1,Y)<>"" then
|
if ReportType="3" then
|
if searchDateType="2" or searchDateType="3" then
|
period=right(FormArray(1,Y),6)
|
else
|
period=FormArray(1,Y)
|
end if
|
else
|
period=FormatTime(FormArray(1,Y))
|
end if
|
Response.Write "{period: '"&period&"',Ord1Money: "&FormArray(3,Y)&"},"
|
end if
|
Next
|
%>],
|
xkey: 'period',
|
ykeys: ['Ord1Money'],
|
labels: ['营业额'],
|
barRatio: 0.3,
|
xLabelAngle: 0,
|
hideHover: false,
|
barColors: ['#FFAA00'],
|
resize: true
|
});
|
});
|
</script>
|
|
<div class="col-md-6">
|
<div class="white-box">
|
<h2 class="header-title"><%=OrdDateTypeName%><br>总数量：<%=SumOrd%>单</h2>
|
<div id="morris2" style="height:250px;"></div>
|
</div>
|
</div><!-- /col-md-6-->
|
<script>
|
$(document).ready(function() {
|
Morris.Bar({
|
element: 'morris2',
|
data: [<%For Y=Lbound(FormArray,2)+2 to Ubound(FormArray,2)
|
if FormArray(1,Y)<>"" then
|
if ReportType="3" then
|
if searchDateType="2" or searchDateType="3" then
|
period=right(FormArray(1,Y),6)
|
else
|
period=FormArray(1,Y)
|
end if
|
else
|
period=FormatTime(FormArray(1,Y))
|
end if
|
Response.Write "{period: '"&period&"',SumOrd: "&FormArray(2,Y)&"},"
|
end if
|
Next
|
%>],
|
xkey: 'period',
|
ykeys: ['SumOrd'],
|
labels: ['数量'],
|
barRatio: 0.4,
|
xLabelAngle: 0,
|
hideHover: false,
|
barColors: ['#03A9F3'],
|
resize: true
|
});
|
});
|
</script>
|
|
<div class="col-md-6">
|
<div class="white-box">
|
<h2 class="header-title"><%=OrdDateTypeName%><br>正常任务营业额：<%=SumMoney1%>元</h2>
|
<div id="morris3" style="height:250px;"></div>
|
</div>
|
</div><!-- /col-md-6-->
|
<script>
|
$(document).ready(function() {
|
Morris.Bar({
|
element: 'morris3',
|
data: [<%For Y=Lbound(FormArray,2)+2 to Ubound(FormArray,2)
|
if FormArray(1,Y)<>"" then
|
if ReportType="3" then
|
if searchDateType="2" or searchDateType="3" then
|
period=right(FormArray(1,Y),6)
|
else
|
period=FormArray(1,Y)
|
end if
|
else
|
period=FormatTime(FormArray(1,Y))
|
end if
|
Response.Write "{period: '"&period&"',Ord1Money: "&FormArray(5,Y)&"},"
|
end if
|
Next
|
%>],
|
xkey: 'period',
|
ykeys: ['Ord1Money'],
|
labels: ['营业额'],
|
barRatio: 0.3,
|
xLabelAngle: 0,
|
hideHover: false,
|
barColors: ['#FFAA00'],
|
resize: true
|
});
|
});
|
</script>
|
|
<div class="col-md-6">
|
<div class="white-box">
|
<h2 class="header-title"><%=OrdDateTypeName%><br>正常任务数量：<%=SumOrd1%>单</h2>
|
<div id="morris4" style="height:250px;"></div>
|
</div>
|
</div><!-- /col-md-6-->
|
<script>
|
$(document).ready(function() {
|
Morris.Bar({
|
element: 'morris4',
|
data: [<%For Y=Lbound(FormArray,2)+2 to Ubound(FormArray,2)
|
if FormArray(1,Y)<>"" then
|
if ReportType="3" then
|
if searchDateType="2" or searchDateType="3" then
|
period=right(FormArray(1,Y),6)
|
else
|
period=FormArray(1,Y)
|
end if
|
else
|
period=FormatTime(FormArray(1,Y))
|
end if
|
Response.Write "{period: '"&period&"',SumOrd: "&FormArray(4,Y)&"},"
|
end if
|
Next
|
%>],
|
xkey: 'period',
|
ykeys: ['SumOrd'],
|
labels: ['数量'],
|
barRatio: 0.4,
|
xLabelAngle: 0,
|
hideHover: false,
|
barColors: ['#03A9F3'],
|
resize: true
|
});
|
});
|
</script>
|
|
<div class="col-md-6">
|
<div class="white-box">
|
<h2 class="header-title"><%=OrdDateTypeName%><br>承包任务营业额：<%=SumMoney2%>元</h2>
|
<div id="morris5" style="height:250px;"></div>
|
</div>
|
</div><!-- /col-md-6-->
|
<script>
|
$(document).ready(function() {
|
Morris.Bar({
|
element: 'morris5',
|
data: [<%For Y=Lbound(FormArray,2)+2 to Ubound(FormArray,2)
|
if FormArray(1,Y)<>"" then
|
if ReportType="3" then
|
if searchDateType="2" or searchDateType="3" then
|
period=right(FormArray(1,Y),6)
|
else
|
period=FormArray(1,Y)
|
end if
|
else
|
period=FormatTime(FormArray(1,Y))
|
end if
|
Response.Write "{period: '"&period&"',Ord1Money: "&FormArray(8,Y)&"},"
|
end if
|
Next
|
%>],
|
xkey: 'period',
|
ykeys: ['Ord1Money'],
|
labels: ['营业额'],
|
barRatio: 0.3,
|
xLabelAngle: 0,
|
hideHover: false,
|
barColors: ['#FFAA00'],
|
resize: true
|
});
|
});
|
</script>
|
|
<div class="col-md-6">
|
<div class="white-box">
|
<h2 class="header-title"><%=OrdDateTypeName%><br>承包任务数量：<%=SumOrd2%>单</h2>
|
<div id="morris6" style="height:250px;"></div>
|
</div>
|
</div><!-- /col-md-6-->
|
<script>
|
$(document).ready(function() {
|
Morris.Bar({
|
element: 'morris6',
|
data: [<%For Y=Lbound(FormArray,2)+2 to Ubound(FormArray,2)
|
if FormArray(1,Y)<>"" then
|
if ReportType="3" then
|
if searchDateType="2" or searchDateType="3" then
|
period=right(FormArray(1,Y),6)
|
else
|
period=FormArray(1,Y)
|
end if
|
else
|
period=FormatTime(FormArray(1,Y))
|
end if
|
Response.Write "{period: '"&period&"',SumOrd: "&FormArray(7,Y)&"},"
|
end if
|
Next
|
%>],
|
xkey: 'period',
|
ykeys: ['SumOrd'],
|
labels: ['数量'],
|
barRatio: 0.4,
|
xLabelAngle: 0,
|
hideHover: false,
|
barColors: ['#03A9F3'],
|
resize: true
|
});
|
});
|
</script>
|
|
</div>
|
<!--数据图表 End row-->
|
|
|
<%If ReportType=1 Then%>
|
<!--订单流水 Start row-->
|
<div class="row">
|
<%
|
'sql="select DOrdID,DOrdClass,DOrdState,调度单号,车牌,转出医院,转入医院,调度时间,成交价 from OrdData where 调度时间 between dateadd(ms,0,DATEDIFF(d,0,"&searchDate&")) and dateadd(ms,-3,DATEDIFF(d,-1,"&searchDate&")) and DOrdState not in (0,10,14) and (SOrdClass in ('"&OrdClassListSql&"') or DOrdClass in ('"&OrdClassListSql&"')) order by 调度时间 desc"
|
sql="select DOrdID,DOrdClass,DOrdState,调度单号,车牌,转出医院,转入医院,调度时间,成交价,TransferModeID from OrdData LEFT JOIN ServiceOrd_TransferMode on ServiceOrdTMID=SOrdID and TransferModeID=7 where 调度时间 "&SqlDate&" and DOrdState not in (0,10,14) and (SOrdClass in ('"&OrdClassListSql&"') or DOrdClass in ('"&OrdClassListSql&"')) order by 调度时间 desc"
|
|
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
DispatchOrdID = rs("DOrdID") '调度单号
|
DispatchOrdClass = rs("DOrdClass") '调度单单据类型
|
DispatchOrdState = rs("DOrdState") '服务单状态(0未下发,1.2等待确认,3等待出车,4.5.6.7服务中,8已完成,9跑空单,10取消)
|
DispatchOrdCar = rs("车牌") '调度车辆
|
DispatchOrd_NS_Time = rs("调度时间") '开单时间
|
OrdPrice = int(rs("成交价")) '成交价
|
OrdPtOutHosp = rs("转出医院") '转出医院
|
OrdPtInHosp = rs("转入医院") '转入医院
|
DispatchOrdNo = rs("调度单号") '调度单编号
|
|
OrdDate=Right("0"&month(DispatchOrd_NS_Time),2)&Right("0"&day(DispatchOrd_NS_Time),2)
|
|
If DispatchOrdState=0 Then
|
DURL="###"
|
else
|
DURL="m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
|
End If
|
%>
|
<div class="col-md-4">
|
<div class="card-profile">
|
<h4><%=DispatchOrdNo%> -
|
<%
|
If DispatchOrdState<=3 Then
|
Response.Write "未出车"
|
Else
|
OrdStateTXT=DispatchOrdStateA(DispatchOrdState)
|
OrdStateTXT=Mid(OrdStateTXT,InStrRev(OrdStateTXT," ")+1)
|
Response.Write OrdStateTXT
|
End If
|
%>
|
</h4>
|
<!--<p></p>-->
|
<ul class="profile-contact">
|
<li><i class="fa fa-ambulance" style="width: 18px;text-align: center;"></i><%=DispatchOrd_NS_Time%></li>
|
<li><i class="fa fa-hospital-o" style="width: 18px;text-align: center;"></i><%Response.Write OrdPtOutHosp %>
|
</li>
|
<li><i class="fa fa-map-marker" style="width: 18px;text-align: center;"></i><%=OrdPtInHosp%></li>
|
<li><i class="fa fa-cny" style="width: 18px;text-align: center;"></i><%=OrdPrice%></li>
|
</ul>
|
<a href="<%=DURL%>" class="btn btn-primary btn-sm btn-block m-t-10">查看详情</a>
|
</div>
|
</div>
|
<% i=i+1
|
rs.movenext
|
Loop
|
rs.close()%>
|
|
</div>
|
<!--订单流水 End row-->
|
<%End If%>
|
|
</div>
|
<!-- End Wrapper-->
|
|
</div>
|
<!--End main content -->
|
<%
|
'==============================
|
'功能描述： 除去HTML标记
|
'不能保留<b><strong>等以及用户自定义的<和>
|
'==============================
|
Function Remove_HTML(Str1)
|
Do While InStr(1, Str1, "<", 1) >0
|
ilen1 = InStr(1, Str1, "<", 1)
|
ilen2 = InStr(1, Str1, ">", 1)
|
Str1 = Left(Str1, ilen1 -1) & Mid(Str1, ilen2 + 1)
|
Loop
|
If Str1<>"" And Not isnull(Str1) Then
|
Str1 = replace(Str1," "," ")
|
Str1 = replace(Str1,"↓","")
|
Str1 = replace(Str1,"↑","")
|
End If
|
Remove_HTML = Str1
|
End Function
|
Function FormatTime(d)
|
if IsDate(d) Then
|
'FormatTime = year(d)&"-"&right("00"&month(d),2)&"-"&right("00"&day(d),2)
|
FormatTime = year(d)&"-"&right("00"&month(d),2)&"-"&right("00"&day(d),2)
|
else
|
FormatTime = d
|
end if
|
End Function
|
%>
|
|
<script src="assets/js/jquery.nicescroll.js"></script>
|
<script src="assets/js/functions.js"></script>
|
<script>
|
// Time Picker
|
|
//$('#BookingService_".$UBidArray[$x]."').multiSelect();
|
|
//日期控件
|
<%If ReportType=1 Then%>
|
$('#reportrangeDay').daterangepicker({
|
format: 'YYYY-MM-DD',
|
startDate: "<%=searchDateJS%>",
|
minDate: '2020-01-01',
|
maxDate: new Date(),
|
dateLimit: {
|
days: 60
|
},
|
singleDatePicker: true,
|
showDropdowns: true,
|
showWeekNumbers: true,
|
timePicker: false,
|
timePickerIncrement: 1,
|
timePicker12Hour: true,
|
opens: 'left',
|
drops: 'down',
|
buttonClasses: ['btn', 'btn-sm'],
|
applyClass: 'btn-default',
|
cancelClass: 'btn-white',
|
"opens": "center",
|
locale: {
|
applyLabel: '确定',
|
cancelLabel: '取消',
|
daysOfWeek: ['一', '二', '三', '四', '五', '六', '日'],
|
monthNames: ['一月', '二月', '三月', '四月', '五月', '六月', '七月', '八月', '九月', '十月', '十一月', '十二月'],
|
firstDay: 1
|
}
|
}, function (start, end, label) {
|
//console.log( end.toISOString());
|
|
$('#reportrangeDay').html(end.format('YYYY年M月D日'));
|
window.location.href='?ReportType=<%=ReportType%>&searchDateType=<%=searchDateType%>&OrdDateType=<%=OrdDateType%>&searchDate='+end.format('YYYY-M-D');
|
//$('#OrdDateEnd').val(end.format('YYYY-MM-DD'));
|
//$('#OrderListSearch').submit()
|
|
});
|
<%else%>
|
$('#reportrangeDay').daterangepicker({
|
format: 'YYYY-MM-DD',
|
startDate: "<%=OrdDateStart%>",
|
endDate: "<%=OrdDateEnd%>",
|
minDate: '2020-01-01',
|
maxDate: '2030-12-31',
|
dateLimit: {
|
days: 92
|
},
|
showDropdowns: true,
|
showWeekNumbers: true,
|
timePicker: false,
|
timePickerIncrement: 1,
|
timePicker12Hour: true,
|
/*
|
ranges: {
|
//'今天': [moment(), moment()],
|
//'昨天': [moment().subtract(1, 'days'), moment().subtract(1, 'days')],
|
'最近7天': [moment().subtract(6, 'days'), moment()],
|
//'最近30天': [moment().subtract(29, 'days'), moment()],
|
'本月': [moment().startOf('month'), moment().endOf('month')],
|
'上月': [moment().subtract(1, 'month').startOf('month'), moment().subtract(1, 'month').endOf('month')]
|
},
|
*/
|
opens: 'left',
|
drops: 'down',
|
buttonClasses: ['btn', 'btn-sm'],
|
applyClass: 'btn-default',
|
cancelClass: 'btn-white',
|
separator: ' to ',
|
"opens": "center",
|
locale: {
|
applyLabel: '确定',
|
cancelLabel: '取消',
|
fromLabel: 'From',
|
toLabel: 'To',
|
customRangeLabel: '自定义',
|
daysOfWeek: ['一', '二', '三', '四', '五', '六', '日'],
|
monthNames: ['一月', '二月', '三月', '四月', '五月', '六月', '七月', '八月', '九月', '十月', '十一月', '十二月'],
|
firstDay: 1
|
}
|
}, function (start, end, label) {
|
//console.log(start.toISOString(), end.toISOString(), label);
|
if (start.format('YYYY-MM-DD')!=end.format('YYYY-MM-DD'))
|
{
|
$('#reportrangeDay').html(start.format('YY年M月D日') + '～' + end.format('M月D日'));
|
}else{
|
$('#reportrangeDay').html(start.format('YY年M月D日'));
|
}
|
window.location.href='?ReportType=<%=ReportType%>&searchDateType=5&OrdDateType=0&OrdDateStart='+start.format('YYYY-M-D')+'&OrdDateEnd='+end.format('YYYY-M-D');
|
});
|
<%end if%>
|
|
</script>
|
|
<script>
|
|
/*
|
Morris.Area({
|
element: 'morris-area-chart',
|
data: [<%For Y=Lbound(FormArray,2)+2 to Ubound(FormArray,2)
|
if FormArray(1,Y)<>"" then
|
Response.Write "{period: '"&FormatTime(FormArray(1,Y))&"',OrdSumInt: "&FormArray(2,Y)&",Ord1Int: "&FormArray(4,Y)&",Ord2Int: "&FormArray(7,Y)&"},"
|
end if
|
Next
|
%>],
|
lineColors: ['#F9C851', '#01c0c8', '#D5EEE9'],
|
xkey: 'period',
|
ykeys: ['OrdSumInt', 'Ord1Int', 'Ord2Int'],
|
labels: ['订单数量', '正常任务', '承包任务'],
|
ymax: 'auto 100',
|
pointSize: 0,
|
lineWidth: 0,
|
resize:true,
|
fillOpacity: 0.9,
|
behaveLikeLine: true,
|
gridLineColor: '#e0e0e0',
|
hideHover: false
|
|
});
|
|
$(document).ready(function() {
|
|
var sparklineLogin = function() {
|
$('#sales1').sparkline([20, 40, 30], {
|
type: 'pie',
|
height: '100',
|
resize: true,
|
sliceColors: ['#808f8f', '#fecd36', '#f1f2f7']
|
});
|
$('#sales2').sparkline([6, 10, 9, 11, 9, 10, 12], {
|
type: 'bar',
|
height: '154',
|
barWidth: '4',
|
resize: true,
|
barSpacing: '10',
|
barColor: '#25a6f7'
|
});
|
|
}
|
var sparkResize;
|
|
$(window).resize(function(e) {
|
clearTimeout(sparkResize);
|
sparkResize = setTimeout(sparklineLogin, 500);
|
});
|
sparklineLogin();
|
|
});
|
*/
|
|
|
</script>
|
|
<!-- End PAGE 页面JS -->
|
|
</body>
|
|
</html>
|
