<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<%
|
'Response.Cookies("OA")("adminID")=""
|
'Response.end
|
searchTXT=Request("searchTXT")
|
OrdState=request("OrdState")
|
OrdClassList=SafeRequest(Request("OrdClassList"))
|
OrdDateType=SafeRequest(Request("OrdDateType"))
|
OrdDateStart=SafeRequest(Request("OrdDateStart"))
|
OrdDateEnd=SafeRequest(Request("OrdDateEnd"))
|
state=request("state")
|
If state<>"" Then
|
stateSP=split(state,"|")
|
for i = 0 to UBOUND(stateSP)
|
If InStr(stateSP(i),"searchTXT=")=1 Then
|
searchTXT=Replace(stateSP(i),"searchTXT=","")
|
ElseIf InStr(stateSP(i),"OrdState=")=1 Then
|
OrdState=Replace(stateSP(i),"OrdState=","")
|
ElseIf InStr(stateSP(i),"OrdClassList=")=1 Then
|
OrdClassList=Replace(stateSP(i),"OrdClassList=","")
|
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"-->
|
<%
|
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")
|
End If
|
rs.close()
|
If OA_weixinAvatar="" Then OA_weixinAvatar="/resources/images/icon_avatar_default.png"
|
%>
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<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">
|
<title>每日订单</title>
|
<link href="css/main.css" type="text/css" rel="stylesheet">
|
|
<style>
|
*{margin:0;padding:0;}
|
li{list-style:none;}
|
a{text-decoration:none;}
|
.clear{zoom:1;}
|
.clear:after{content:'';display:block;clear:both;}
|
.fl{float:left;}
|
.fr{float:right;}
|
|
body{ font-size:16px;}
|
section .title{padding-left:20px;background:#F3F3F3;line-height:40px;font-size:16px;}
|
section .wrap{background:#fff;padding:0 0 20px 0;position:relative;}
|
.wrap .left .time{padding-left:20px;line-height:40px;background-size:6%;height:40px;}
|
.wrap .add_wrap{/* padding-left:40px;background:url(/resources/images/20160527shoujiye02.png) no-repeat 14px 14px;background-size:3%; */}
|
.wrap .address{line-height:42px;font-size:16px;padding-left:40px;width:280px;overflow:hidden;height:42px; }
|
.bg-t{background:url(/resources/images/20160527shoujiye04.png) no-repeat 14px 14px;}
|
.bg-b{background:url(/resources/images/20160527shoujiye06.png) no-repeat 14px -22px;}
|
.bg-c{background:url(/resources/images/20160527shoujiye05.png) no-repeat 14px -22px;}
|
|
.wrap .right{position:absolute;right:8px;top:10px;color:#A0A0A0;font-size:16px;}
|
|
|
|
</style>
|
|
</head>
|
<body>
|
<%
|
If OrdDateType="" Then OrdDateType=4 '默认显示本月日期单据
|
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)&" 23:59:59"
|
Else
|
OrdDateTypeName=OrdDateStart&" 至 "&OrdDateEnd
|
OrdDateTypeName1="时间段"
|
End If
|
SqlOrdDateType="between '"&OrdDateStart&"' and '"&OrdDateEnd&"'"
|
|
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(dd,DATEDIFF(dd,0,getdate()),0) and DATEADD(ss,-1,DATEADD(dd,DATEDIFF(dd,0,getdate()),1))"
|
End If
|
rs.close()
|
End If
|
|
'本月绩效
|
sql="select isnull(sum(EntourageDKP),0) from DispatchOrd_Entourage,DispatchOrd where DispatchOrdID=DispatchOrdIDDt and EntourageState<>4 and EntourageDKP>0 and DispatchOrdReturnDate "&SqlOrdDateType&" and EntourageOAid="&session("adminID")
|
rs.open Sql,objConn,1,1
|
OA_DKP_Sum=rs(0)
|
rs.close()
|
'本月提成
|
OA_DKPMoney_Sum=0
|
sql="select DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time,vtext from DispatchOrd_Entourage,DispatchOrd,dictionary where vtitle='DispatchOrdEntourage' and EntourageID=vID and DispatchOrdID=DispatchOrdIDDt and EntourageState<>4 and EntourageDKP>0 and DispatchOrdReturnDate "&SqlOrdDateType&" and EntourageOAid="&session("adminID")
|
rs.open Sql,objConn,1,1
|
do While not rs.Eof
|
EntourageName = rs("vtext") '职能名称
|
DispatchOrdPerfomance=rs("DispatchOrdPerfomance")
|
EntourageOT_is = rs("EntourageOT_is")
|
EntourageLong_is = rs("EntourageLong_is")
|
EntourageBetimesHH = rs("EntourageBetimesHH")
|
EntourageDKP = rs("EntourageDKP")
|
EntourageDKPScale = rs("EntourageDKPScale")
|
EntourageState_Time = rs("EntourageState_Time")
|
OA_DKPMoney=EntourageDKP_Money_A(DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time)
|
OA_DKPMoney_Sum=OA_DKPMoney_Sum+OA_DKPMoney
|
rs.movenext
|
loop
|
rs.close()
|
|
%>
|
|
<div class="desc">
|
<div class="my-img"><img src="<%=OA_weixinAvatar%>"></div>
|
<div class="user-info">
|
<span><%=OADepartment(OA_DepartmentID,"DepartmentName")%></span>
|
<span><%=OA_Name%></span>
|
<ul>
|
<li><span class="jf"><%=OrdDateTypeName%>绩效</span><span class="jfl"><%=OA_DKP_Sum%></span></li>
|
<li><span class="zhye"><%=OrdDateTypeName%>提成</span><span class="jfl"><%=OA_DKPMoney_Sum%> 元</span></li>
|
</ul>
|
</div>
|
</div>
|
<%
|
'默认显示字段
|
'If OrdState="" Then OrdState=2 '默认显示未出车单据
|
If OrdClassList="" Then OrdClassList="0" '默认显示全部类型单据
|
If OrdClassList="0" Then
|
OrdClassName="全部"
|
Else
|
sql="select vID,vtext from dictionary where vType>=1 and vtitle='OrderClass' and vOrder2='"&OrdClassList&"'"
|
rs.open Sql,objConn,1,1
|
If not rs.Eof Then OrdClassName = rs("vtext")
|
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,"|")
|
|
'单据类型表列
|
OrdClassTypes = "0,全部|"
|
sql="select vID,vtext,vOrder2 from dictionary where vType=1 and vtitle='OrderClass' order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
OrdClassTypes = OrdClassTypes & rs("vOrder2") &","& rs("vtext") & "|"
|
rs.movenext
|
Loop
|
rs.close()
|
OrdClassTypes = left(OrdClassTypes,len(OrdClassTypes)-1)
|
OrdClassTypesPS = SPLIT(OrdClassTypes,"|")
|
|
page_URL="&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&searchTXT="&searchTXT&"&h_menu1_1=1"
|
|
|
if searchTXT<>"" Then
|
searchSql=""
|
If Len(searchTXT)=12 And Not IsNumeric(Left(searchTXT,2)) And IsNumeric(Right(searchTXT,10)) Then
|
searchSql=" ServiceOrdID="&Right(searchTXT,10)&" and ServiceOrdClass='"&Left(searchTXT,2)&"' "
|
ElseIf Len(searchTXT)=10 And IsNumeric(searchTXT) Then
|
searchSql=" ServiceOrdID="&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=" DispatchOrdStartDate "&SqlOrdDateType&" "
|
If OrdState="0" Then
|
searchSql=searchSql&" and DispatchOrdState<>4 and DispatchOrd_AP_Check=0 "
|
ElseIf OrdState="1" Then
|
searchSql=searchSql&" and DispatchOrdState in (0) and DispatchOrd_AP_Check=0 "
|
ElseIf OrdState="2" Then
|
searchSql=searchSql&" and DispatchOrdState in (1,2) and DispatchOrd_AP_Check=0 "
|
ElseIf OrdState="4" Then
|
searchSql=" DispatchOrdState in (4,5,6,7) and DispatchOrd_AP_Check=0 "
|
ElseIf OrdState="100" Then
|
searchSql=" DispatchOrdState in (8,9) "
|
ElseIf OrdState="1000" Then
|
searchSql=" DispatchOrdState not in (0,10) "
|
Else
|
searchSql=searchSql&" and DispatchOrdState<>4 "
|
End If
|
If OrdClassList<>"0" Then
|
searchSql=searchSql&" and ServiceOrdClass='"&OrdClassList&"' "
|
End if
|
end if
|
|
acc1=clng(request("page"))
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 20
|
acc2=0
|
acc3=0
|
|
sql="select DispatchOrdID,DispatchOrdClass,DispatchOrdState,DispatchOrdStartDate,DispatchOrdReturnDate,DispatchOrdCarID,DispatchOrdStartDate,DispatchOrdTraStreet,DispatchOrdTraEnd,DispatchOrdTraVia,DispatchOrd_AP_Check,DispatchOrd_AP_ID,DispatchOrd_AP_Time,DispatchOrdPerfomance,DispatchOrdNo,DispatchOrd_NS_Time,DispatchOrd_Entourage.*,vtext from DispatchOrd,DispatchOrd_Entourage,dictionary where "&searchSql&" and vtitle='DispatchOrdEntourage' and EntourageID=vID and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and DispatchOrdReturnDate is not null order by DispatchOrdReturnDate desc"
|
'sql="select DispatchOrdID,DispatchOrdClass,DispatchOrdState,DispatchOrdStartDate,DispatchOrdReturnDate,DispatchOrdCarID,DispatchOrdStartDate,DispatchOrdTraStreet,DispatchOrdTraEnd,DispatchOrdTraVia,DispatchOrd_AP_Check,DispatchOrd_AP_ID,DispatchOrd_AP_Time,DispatchOrdPerfomance,DispatchOrdNo,DispatchOrd_NS_Time,DispatchOrd_Entourage.* from DispatchOrd,DispatchOrd_Entourage where "&searchSql&" and DispatchOrdIDDt=DispatchOrdID and EntourageOAid=7 and EntourageState<>4 and DispatchOrdReturnDate is not null order by DispatchOrdReturnDate desc"
|
Response.Write sql
|
rs.open sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=QuantityInt
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
acc3=rs.recordcount
|
end if
|
%>
|
|
|
<article>
|
<p style="font-size: 5px;margin: 5px;color: #999;">Tips:数据为参考值，以最终人事部统计为准。若发现计算出错，请联系IT廖俊良修改算法。</p>
|
|
<%i=1
|
ReturnDate_old=""
|
do while not rs.Eof and i<=QuantityInt
|
DispatchOrdID = rs("DispatchOrdID") '调度单号
|
DispatchOrdClass = rs("DispatchOrdClass") '调度单单据类型
|
DispatchOrdState = rs("DispatchOrdState") '服务单状态(0未下发,1.2等待确认,3等待出车,4.5.6.7服务中,8已完成,9跑空单,10取消)
|
DispatchOrdStartDate = rs("DispatchOrdStartDate") '调度单状态时间
|
DispatchOrdCarID = rs("DispatchOrdCarID") '调度车辆ID
|
DispatchOrdTraStreet = rs("DispatchOrdTraStreet") '出发地
|
DispatchOrdTraEnd = rs("DispatchOrdTraEnd") '目的地
|
DispatchOrdTraVia = rs("DispatchOrdTraVia") '途经
|
DispatchOrdReturnDate = rs("DispatchOrdReturnDate") '返回时间
|
DispatchOrd_AP_Check = rs("DispatchOrd_AP_Check") '审核状态(0未审核,1已审核)
|
DispatchOrd_AP_ID = rs("DispatchOrd_AP_ID") '审核人员ID
|
DispatchOrd_AP_Time = rs("DispatchOrd_AP_Time") '审核时间
|
DispatchOrdPerfomance = rs("DispatchOrdPerfomance") '订单绩效
|
|
EntourageLead = rs("EntourageLead") '是否领队
|
EntourageState = rs("EntourageState") '确认状态
|
EntourageState_Time= rs("EntourageState_Time")'确认时间
|
EntourageName = rs("vtext") '岗位
|
EntourageOT_is = rs("EntourageOT_is") '是否休息出车
|
EntourageLong_is= rs("EntourageLong_is") '是否超长途
|
EntourageBetimesHH= rs("EntourageBetimesHH")'提出出车N小时
|
EntourageOther = rs("EntourageOther") '其它情况
|
EntourageDKP = rs("EntourageDKP") '个人绩效
|
EntourageDKPScale= rs("EntourageDKPScale") '分成比例
|
EntourageEnd_Time= rs("EntourageEnd_Time") '个人情况提交时间
|
EntourageDKP_Money=EntourageDKP_Money_A(DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time)
|
DispatchOrdNo = DispatchOrdClass& year(rs("DispatchOrd_NS_Time"))&Right("0"&month(rs("DispatchOrd_NS_Time")),2)&Right("0"&day(rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&rs("DispatchOrdNo"),3) '调度单编号
|
|
i=i+1
|
|
ReturnDate=Right("0"&month(DispatchOrdReturnDate),2)&Right("0"&day(DispatchOrdReturnDate),2)
|
%>
|
|
<section>
|
<%If ReturnDate<>ReturnDate_old Then
|
ReturnDate_old=ReturnDate
|
%><p class="title"><%=Right("0"&month(DispatchOrdReturnDate),2)%>月<%=Right("0"&day(DispatchOrdReturnDate),2)%>日</p>
|
<%else%>
|
<p class="title" style="line-height: 10px;"> </p>
|
<%End if%>
|
|
|
<a href="m_DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>" class="detailed">
|
<div class="wrap">
|
<div class="left">
|
<p class="time"><%=Right("0"&Hour(DispatchOrdReturnDate),2) &":"& Right("0"&Minute(DispatchOrdReturnDate),2)%> <%'=DispatchOrdNo%></p>
|
<div class="add_wrap">
|
<p class="address bg-t"><%=DispatchOrdTraStreet%></p>
|
<%If DispatchOrdTraVia<>"" then%><p class="address bg-c"><%=DispatchOrdTraVia%></p><%End If%>
|
<p class="address bg-b"><%=DispatchOrdTraEnd%></p>
|
</div>
|
</div>
|
|
<%If EntourageDKP_Money>0 And not isnull(EntourageEnd_Time) then%>
|
<p class="right">￥<%=EntourageDKP_Money%></p>
|
<%else%>
|
<p class="right" style="color: #f00;"><span>未提交完成报告</span></p>
|
<%End if%>
|
|
</div>
|
</a>
|
</section>
|
|
|
<% i=i+1
|
rs.movenext
|
Loop
|
rs.close()%>
|
<%if i=1 then%>
|
<div class="massage">
|
<a href="#" class="detailed">
|
<ul>
|
<li><p class="mas">数据库中无数据！</p></li>
|
</ul>
|
</a>
|
</div>
|
<%end if%>
|
|
</article>
|
</body>
|
</html>
|
