<%@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")
|
Set rsDt = Server.CreateObject("ADODB.Recordset")
|
'session("adminID")=252
|
'个人信息
|
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=11 '默认显示本结算月日期单据
|
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
|
|
If InStr(OrdDateType,"11-")>=1 then
|
SqlDate=CInt(Mid(OrdDateType,4))
|
If day(now)>=25 Then
|
SqlDate1=-SqlDate
|
SqlDate2=-SqlDate+1
|
SqlOrdDateType=" between CAST(DATENAME(YEAR,DATEADD(MONTH,"&SqlDate1&",GETDATE()))+DATENAME(MONTH,DATEADD(MONTH,"&SqlDate1&",GETDATE()))+'25' AS DATE) and CAST(DATENAME(YEAR,DATEADD(MONTH,"&SqlDate2&",GETDATE()))+DATENAME(MONTH,DATEADD(MONTH,"&SqlDate2&",GETDATE()))+'25' AS DATE) "
|
Else
|
SqlDate1=-SqlDate-1
|
SqlDate2=-SqlDate
|
SqlOrdDateType=" between CAST(DATENAME(YEAR,DATEADD(MONTH,"&SqlDate1&",GETDATE()))+DATENAME(MONTH,DATEADD(MONTH,"&SqlDate1&",GETDATE()))+'25' AS DATE) and CAST(DATENAME(YEAR,DATEADD(MONTH,"&SqlDate2&",GETDATE()))+DATENAME(MONTH,DATEADD(MONTH,"&SqlDate2&",GETDATE()))+'25' AS DATE) "
|
End If
|
OrdDateTypeName=(month(DateAdd("m", SqlDate2, now())))&"月"
|
|
'ElseIf OrdDateType="11*1" Then
|
' If day(now)>=25 And month(now)>1 Then
|
' SqlDate2=1
|
' SqlOrdDateType=" between CAST(DATENAME(YEAR,DATEADD(MONTH,-1,GETDATE()))+DATENAME(MONTH,DATEADD(MONTH,0,GETDATE()))+'25' AS DATE) and CAST(DATENAME(YEAR,DATEADD(MONTH,1,GETDATE()))+DATENAME(MONTH,DATEADD(MONTH,1,GETDATE()))+'25' AS DATE) "
|
' Else
|
' SqlDate2=1
|
' SqlOrdDateType=" between CAST(DATENAME(YEAR,DATEADD(MONTH,0,GETDATE()))+DATENAME(MONTH,DATEADD(MONTH,1,GETDATE()))+'25' AS DATE) and CAST(DATENAME(YEAR,DATEADD(MONTH,1,GETDATE()))+DATENAME(MONTH,DATEADD(MONTH,2,GETDATE()))+'25' AS DATE) "
|
' End If
|
' OrdDateTypeName=(month(DateAdd("m", SqlDate2, now())))&"月"
|
' 'Response.Write SqlOrdDateType
|
ElseIf day(now)>=25 Then
|
OrdDateTypeName="本结算月"
|
SqlOrdDateType=" between CAST(DATENAME(YEAR,DATEADD(MONTH,0,GETDATE()))+DATENAME(MONTH,DATEADD(MONTH,0,GETDATE()))+'25' AS DATE) and CAST(DATENAME(YEAR,DATEADD(MONTH,1,GETDATE()))+DATENAME(MONTH,DATEADD(MONTH,1,GETDATE()))+'25' AS DATE) "
|
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
|
End If
|
'Response.Write SqlOrdDateType
|
'Response.end
|
|
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=" DispatchOrd_NS_Time "&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=searchSql&" and DispatchOrdState in (8,9) "
|
ElseIf OrdState="1000" Then
|
searchSql=" DispatchOrdState not in (0,10) "
|
Else
|
searchSql=searchSql&" and DispatchOrdState in (8,9) "
|
End If
|
If OrdClassList<>"0" And OrdClassList<>"" Then
|
searchSql=searchSql&" and ServiceOrdClass='"&OrdClassList&"' "
|
End if
|
end if
|
|
'本月绩效
|
sql="select isnull(sum(EntourageDKP),0),isnull(sum(DispatchOrdMileage),0) from DispatchOrd_Entourage,DispatchOrd where "&searchSql&" and DispatchOrdID=DispatchOrdIDDt and EntourageState<>4 and EntourageDKP>0 and EntourageOAid="&session("adminID")
|
rs.open Sql,objConn,1,1
|
OA_DKP_Sum=rs(0)
|
Mileage_Sum=rs(1)
|
rs.close()
|
'本月提成
|
OA_DKPMoney_Sum=0
|
OA_ConversionDistance_Sum=0
|
Stretcher_Money_Sum=0
|
EntourageOT_Money_Sum=0
|
Condition_Money_Sum=0
|
EntourageP1_Sum=0
|
EntourageP1_Int=0
|
'sql="select DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time,vtext,Stretcher_is,StretcherM=isnull((select sum(AddMoney) from (select AddMoney=(AddMoney/COUNT(a.Stretcher_is)) from DispatchOrd_Entourage as a,(select ToDispatchOrdID,AddMoneyType,AddMoney=sum(AddMoney) from PaidMoney_Add where ToDispatchOrdID=DispatchOrd_Entourage.DispatchOrdIDDt GROUP BY ToDispatchOrdID,AddMoneyType) as b where a.DispatchOrdIDDt=DispatchOrd_Entourage.DispatchOrdIDDt and b.ToDispatchOrdID=a.DispatchOrdIDDt and a.EntourageState<>4 and a.Stretcher_is=1 and b.AddMoneyType=2 GROUP BY AddMoney) as c),0) from DispatchOrd_Entourage,DispatchOrd,dictionary where "&searchSql&" and vtitle='DispatchOrdEntourage' and EntourageID=vID and DispatchOrdID=DispatchOrdIDDt and EntourageState<>4 and EntourageDKP>0 and EntourageOAid="&session("adminID")
|
sql="select DispatchOrdID,ServiceOrdType,OrdDistance=convert(money,Replace(Replace(ServiceOrdTraDistance,'公里',''),'km','')),TimeLength_Program,TimeLength_ICU,TimeLength_Wait,EntourageMileageFactor,DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time,DispatchOrd_NS_Time,vtext,Stretcher_is,EntourageP1,StretcherM=isnull((select sum(AddMoney) from (select AddMoney=(AddMoney/COUNT(a.Stretcher_is)) from DispatchOrd_Entourage as a,(select ToDispatchOrdID,AddMoneyType,AddMoney=sum(AddMoney) from PaidMoney_Add where ToDispatchOrdID=DispatchOrd_Entourage.DispatchOrdIDDt GROUP BY ToDispatchOrdID,AddMoneyType) as b where a.DispatchOrdIDDt=DispatchOrd_Entourage.DispatchOrdIDDt and b.ToDispatchOrdID=a.DispatchOrdIDDt and a.EntourageState<>4 and a.Stretcher_is=1 and b.AddMoneyType=2 GROUP BY AddMoney) as c),0),Condition_is=(select COUNT(id) from ServiceOrd_Condition where ConditionID in (4,22,24) and ServiceOrdCoID=ServiceOrdIDDt) from DispatchOrd_Entourage,DispatchOrd,dictionary,OA_User,ServiceOrder where "&searchSql&" and (ServiceOrdTraDistance like '%公里%' or ServiceOrdTraDistance like '%km%') and vtitle='DispatchOrdEntourage' and OA_User_ID=EntourageOAid and EntourageID=vID and DispatchOrdID=DispatchOrdIDDt and ServiceOrdID=ServiceOrdIDDt and EntourageState<>4 and EntourageOAid="&session("adminID")
|
'Response.Write sql
|
rs.open Sql,objConn,1,1
|
do While not rs.Eof
|
DispatchOrd_NS_Time = rs("DispatchOrd_NS_Time")
|
EntourageName = rs("vtext") '职能名称
|
DispatchOrdPerfomance=rs("DispatchOrdPerfomance")
|
EntourageOT_is = rs("EntourageOT_is")
|
EntourageLong_is = rs("EntourageLong_is")
|
EntourageBetimesHH = rs("EntourageBetimesHH")
|
EntourageState_Time = rs("EntourageState_Time")
|
EntourageDKP = rs("EntourageDKP")
|
EntourageDKPScale = rs("EntourageDKPScale")
|
Stretcher_is = rs("Stretcher_is")
|
StretcherM = FormatNumber(rs("StretcherM"),2,-1)
|
|
DispatchOrdID = rs("DispatchOrdID") '调度单号
|
ServiceOrdType = rs("ServiceOrdType")
|
OrdDistance = rs("OrdDistance") '实际公里数
|
TimeLength_Program = rs("TimeLength_Program")
|
TimeLength_ICU = rs("TimeLength_ICU")
|
TimeLength_Wait = rs("TimeLength_Wait")
|
EntourageP1 = rs("EntourageP1") '岗位里程价格 P1
|
EntourageMileageFactor=rs("EntourageMileageFactor")'个人里程系数
|
Stretcher_Money = Stretcher_is*StretcherM '担架费
|
Condition_is=rs("Condition_is") '特殊项目情况
|
If EntourageLong_is=1 And EntourageState_Time>="2021-1-1" Then Condition_is=0
|
Condition_Money=0
|
|
If datediff("s","2018-10-25 00:00:00",DispatchOrd_NS_Time)>0 Then '2018.10.25起的提成公式
|
Call EntourageDKP_Money_C(session("adminID"),DispatchOrdID,ServiceOrdType,OrdDistance,TimeLength_Program,TimeLength_ICU,TimeLength_Wait,EntourageMileageFactor,EntourageOT_is,EntourageBetimesHH,Stretcher_Money,EntourageP1,ConversionDistance,EntourageOT_Money,OA_DKPMoney,Condition_is,Condition_Money)
|
'Response.Write DispatchOrdID&" "&OA_ConversionDistance_Sum&"+"&ConversionDistance&"+"&Stretcher_Money&"+"&EntourageOT_Money&"<br>"
|
OA_ConversionDistance_Sum=OA_ConversionDistance_Sum+ConversionDistance
|
Stretcher_Money_Sum=Stretcher_Money_Sum+Stretcher_Money
|
EntourageOT_Money_Sum=EntourageOT_Money_Sum+EntourageOT_Money
|
Condition_Money_Sum=Condition_Money_Sum+Condition_Money
|
EntourageP1_Sum=EntourageP1_Sum+EntourageP1*ConversionDistance
|
|
DKPName="计提公里"
|
OA_DKP_Sum=OA_ConversionDistance_Sum
|
Else
|
OA_DKPMoney=EntourageDKP_Money_A(DispatchOrdPerfomance,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageDKP,EntourageDKPScale,EntourageState_Time)
|
OA_DKPMoney_Sum=OA_DKPMoney_Sum+OA_DKPMoney+Stretcher_is*StretcherM
|
DKPName="绩效"
|
End If
|
rs.movenext
|
loop
|
rs.close()
|
|
If OA_ConversionDistance_Sum>0 Then
|
EntourageP1=EntourageP1_Sum/OA_ConversionDistance_Sum
|
If datediff("s","2018-12-25 00:00:00",DispatchOrd_NS_Time)>0 Then '2018.12.25起的提成公式
|
OA_DKPMoney_Sum=EntourageDKP_Money_M1(session("adminID"),OA_ConversionDistance_Sum,Stretcher_Money_Sum,EntourageOT_Money_Sum,Condition_Money_Sum,EntourageP1)
|
else
|
OA_DKPMoney_Sum=EntourageDKP_Money_M(session("adminID"),OA_ConversionDistance_Sum,Stretcher_Money_Sum,EntourageOT_Money_Sum,EntourageP1)
|
End If
|
|
'Response.Write OA_DKPMoney_Sum&"+"&Stretcher_Money_Sum&"+"&EntourageOT_Money_Sum&"<br>"
|
End If
|
|
'本月提成(2021.3.26更新)
|
OA_DKPMoney_Sum=0
|
OA_ConversionDistance_Sum=0
|
Stretcher_Money_Sum=0
|
EntourageOT_Money_Sum=0
|
Condition_Money_Sum=0
|
EntourageP1_Sum=0
|
EntourageP1_Int=0
|
DKPName="计提公里"
|
sql="select OA_DKP_Sum=isnull(sum(ConversionDistance),0),OA_DKPMoney_Sum=isnull(SUM(ConversionDistance*EntourageP1+EntourageOT_Money+Stretcher_Money+Condition_Money),0) from DispatchOrd_Entourage,DispatchOrd where "&searchSql&" and DispatchOrdID=DispatchOrdIDDt and EntourageState<>4 and EntourageOAid="&session("adminID")
|
rs.open Sql,objConn,1,1
|
OA_DKP_Sum = rs("OA_DKP_Sum") '数量汇总
|
OA_DKPMoney_Sum = rs("OA_DKPMoney_Sum") '提成汇总
|
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%> <!--累计计提公里数:<%=OA_ConversionDistance_Sum%> 公里--></span>
|
<ul>
|
<%If OrdDateType="11" Then
|
hrefURL1="?OrdState=100&OrdDateType=11-1"
|
'hrefURL2="?OrdState=100&OrdDateType=11*1"
|
ElseIf InStr(OrdDateType,"11-")>=1 Then
|
SqlDate=CInt(Mid(OrdDateType,4))
|
hrefURL1="?OrdState=100&OrdDateType=11-"&SqlDate+1
|
If SqlDate=1 Then
|
hrefURL2="?OrdState=100&OrdDateType=11"
|
Else
|
hrefURL2="?OrdState=100&OrdDateType=11-"&SqlDate-1
|
End If
|
ElseIf OrdDateType="11*1" Then
|
hrefURL1="?OrdState=100&OrdDateType=11"
|
hrefURL2=""
|
ElseIf OrdDateType<>"5" then
|
hrefURL1="?OrdState=100&OrdDateType=5"
|
hrefURL2=""
|
Else
|
hrefURL1=""
|
hrefURL2=""
|
End If
|
%>
|
<%If hrefURL1<>"" Then%><div style="float:left;padding-top:3%;padding-left: 34%;margin-bottom: 4%;position:absolute;left:0;z-index: 59999;"><a href="<%=hrefURL1%>"><img src="/resources/images/xiangleft.png" width="100%"></a></div><%End If%>
|
<li><span class="jf"><%=OrdDateTypeName%><%=DKPName%></span><span class="jfl"><%=OA_DKP_Sum%></span></li>
|
<li><span class="zhye"><%=OrdDateTypeName%>提成</span><span class="jfl"><%=OA_DKPMoney_Sum%> 元</span></li>
|
<%If hrefURL2<>"" Then%><div style="float:right;padding-top: 3%;padding-left: 94%;margin-bottom: 4%;position:absolute;left:0;"><a href="<%=hrefURL2%>"><img src="/resources/images/xiangright.png" width="100%"></a></div><%End If%>
|
</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"
|
|
|
|
|
acc1=clng(request("page"))
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 200
|
acc2=0
|
acc3=0
|
|
'sql="select DispatchOrdID,DispatchOrdClass,DispatchOrdState,DispatchOrdStartDate,DispatchOrdActualDate,DispatchOrdReturnDate,DispatchOrdCarID,DispatchOrdStartDate,DispatchOrdTraStreet,DispatchOrdTraEnd,DispatchOrdTraVia,DispatchOrd_AP_Check,DispatchOrd_AP_ID,DispatchOrd_AP_Time,DispatchOrdPerfomance,DispatchOrdMileage,DispatchOrdNo,DispatchOrd_NS_Time,DispatchOrd_Entourage.*,StretcherM=isnull((select sum(AddMoney) from (select AddMoney=(AddMoney/COUNT(a.Stretcher_is)) from DispatchOrd_Entourage as a,(select ToDispatchOrdID,AddMoneyType,AddMoney=sum(AddMoney) from PaidMoney_Add where ToDispatchOrdID=DispatchOrd_Entourage.DispatchOrdIDDt GROUP BY ToDispatchOrdID,AddMoneyType) as b where a.DispatchOrdIDDt=DispatchOrd_Entourage.DispatchOrdIDDt and b.ToDispatchOrdID=a.DispatchOrdIDDt and a.EntourageState<>4 and a.Stretcher_is=1 and b.AddMoneyType=2 GROUP BY AddMoney) as c),0),vtext from DispatchOrd,DispatchOrd_Entourage,dictionary where "&searchSql&" and vtitle='DispatchOrdEntourage' and EntourageID=vID and DispatchOrdIDDt=DispatchOrdID and EntourageOAid="&session("adminID")&" and EntourageState<>4 order by DispatchOrdReturnDate desc"
|
'sql="select ServiceOrdID,DispatchOrdID,DispatchOrdClass,DispatchOrdState,DispatchOrdStartDate,DispatchOrdActualDate,DispatchOrdReturnDate,DispatchOrdCarID,DispatchOrdStartDate,DispatchOrdTraStreet,DispatchOrdTraEnd,DispatchOrdTraVia,DispatchOrd_AP_Check,DispatchOrd_AP_ID,DispatchOrd_AP_Time,DispatchOrdPerfomance,DispatchOrdMileage,DispatchOrdNo,DispatchOrd_NS_Time,ServiceOrdType,OrderLevel,ServiceOrdPtOutHospID,ServiceOrdPtOutHosp,ServiceOrdPtInHospID,ServiceOrdPtInHosp,OrdDistance=convert(money,Replace(Replace(ServiceOrdTraDistance,'公里',''),'km','')),EntourageP1,TimeLength_Program,TimeLength_ICU,TimeLength_Wait,DispatchOrd_Entourage.*,StretcherM=isnull((select sum(AddMoney) from (select AddMoney=(AddMoney/COUNT(a.Stretcher_is)) from DispatchOrd_Entourage as a,(select ToDispatchOrdID,AddMoneyType,AddMoney=sum(AddMoney) from PaidMoney_Add where ToDispatchOrdID=DispatchOrd_Entourage.DispatchOrdIDDt GROUP BY ToDispatchOrdID,AddMoneyType) as b where a.DispatchOrdIDDt=DispatchOrd_Entourage.DispatchOrdIDDt and b.ToDispatchOrdID=a.DispatchOrdIDDt and a.EntourageState<>4 and a.Stretcher_is=1 and b.AddMoneyType=2 GROUP BY AddMoney) as c),0),Condition_is=(select COUNT(id) from ServiceOrd_Condition where ConditionID in (4,22,24) and ServiceOrdCoID=ServiceOrdIDDt),vtext from DispatchOrd,DispatchOrd_Entourage,dictionary,OA_User,ServiceOrder where "&searchSql&" and vtitle='DispatchOrdEntourage' and OA_User_ID=EntourageOAid and EntourageID=vID and DispatchOrdID=DispatchOrdIDDt and ServiceOrdID=ServiceOrdIDDt and EntourageOAid="&session("adminID")&" and EntourageState<>4 order by DispatchOrdReturnDate desc"
|
sql="select ServiceOrdID,DispatchOrdID,DispatchOrdClass,DispatchOrdState,DispatchOrdStartDate,DispatchOrdActualDate,DispatchOrdReturnDate,DispatchOrdCarID,DispatchOrdStartDate,DispatchOrdTraStreet,DispatchOrdTraEnd,DispatchOrdTraVia,DispatchOrd_AP_Check,DispatchOrd_AP_ID,DispatchOrd_AP_Time,DispatchOrdPerfomance,DispatchOrdMileage,DispatchOrdNo,DispatchOrd_NS_Time,ServiceOrdType,OrderLevel,ServiceOrdPtOutHospID,ServiceOrdPtOutHosp,ServiceOrdPtInHospID,ServiceOrdPtInHosp,TimeLength_Program,TimeLength_ICU,TimeLength_Wait,OrdDistance=convert(money,Replace(Replace(ServiceOrdTraDistance,'公里',''),'km','')),DispatchOrd_Entourage.* from DispatchOrd,DispatchOrd_Entourage,ServiceOrder where "&searchSql&" and DispatchOrdID=DispatchOrdIDDt and ServiceOrdID=ServiceOrdIDDt and EntourageOAid="&session("adminID")&" and EntourageState<>4 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: 9px;margin: 5px;color: #f00;">Tips:结算日期为上月25号~当月24号,提成包括未审核部分,未包含航空、高铁等另计数据</p>
|
|
<%i=1
|
ReturnDate_old=""
|
do while not rs.Eof and i<=QuantityInt
|
ServiceOrdID = rs("ServiceOrdID") '服务单号
|
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") '途经
|
DispatchOrd_NS_Time = rs("DispatchOrd_NS_Time") '订单生成时间
|
DispatchOrdActualDate = rs("DispatchOrdActualDate") '实际出车时间
|
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") '订单绩效
|
DispatchOrdMileage = rs("DispatchOrdMileage") '实际里程数
|
OrdDistance = rs("OrdDistance") '绩效里程
|
|
ServiceOrdPtOutHospID = rs("ServiceOrdPtOutHospID") '转出医院ID
|
ServiceOrdPtOutHosp = rs("ServiceOrdPtOutHosp") '转出医院
|
ServiceOrdPtInHospID = rs("ServiceOrdPtInHospID") '转入医院ID
|
ServiceOrdPtInHosp = rs("ServiceOrdPtInHosp") '转入医院
|
|
EntourageLead = rs("EntourageLead") '是否领队
|
EntourageState = rs("EntourageState") '确认状态
|
EntourageState_Time= rs("EntourageState_Time")'确认时间
|
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") '个人情况提交时间
|
TimeLength_Program = rs("TimeLength_Program")
|
TimeLength_ICU = rs("TimeLength_ICU")
|
TimeLength_Wait = rs("TimeLength_Wait")
|
DKPEdit_Reason = rs("DKPEdit_Reason")
|
DKPEdit_OAid = rs("DKPEdit_OAid")
|
DKPEdit_Time = rs("DKPEdit_Time")
|
Stretcher_is = rs("Stretcher_is")
|
|
ConversionDistance = rs("ConversionDistance") '折算公里数 L
|
EntourageOT_Money = rs("EntourageOT_Money") '加班费
|
Stretcher_Money = rs("Stretcher_Money") '担架费
|
Condition_Money = rs("Condition_Money") '特殊项目金额
|
EntourageP1 = rs("EntourageP1") '绩效奖金基数P1
|
EntourageMileageFactor = rs("EntourageMileageFactor") '个人系数
|
EntourageDKP_Money = ConversionDistance*EntourageP1+EntourageOT_Money+Stretcher_Money+Condition_Money '提成金额
|
If EntourageLong_is=1 And EntourageState_Time>="2021-1-1" Then Condition_is=0
|
|
If ConversionDistance=0 Then
|
EntourageDKPTXT="计提金额：另计"
|
Else
|
EntourageDKPTXT="计提："&ConversionDistance&"公里 计提金额："&FormatNumber(EntourageDKP_Money,2,-1)&"元"
|
End If
|
If OrderLevel=2 Then
|
EntourageDKPTXT="Z计划 "&EntourageDKPTXT
|
End If
|
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(DispatchOrd_NS_Time),2)&Right("0"&day(DispatchOrd_NS_Time),2)
|
|
If DispatchOrdActualDate<>"" And DispatchOrdReturnDate<>"" Then
|
TaskTimeN=DateDiff("n",DispatchOrdActualDate,DispatchOrdReturnDate)
|
If TaskTimeN<60 Then
|
TaskTime=TaskTimeN&"分钟"
|
Else
|
TaskTime=CLng(TaskTimeN/60)&"小时"&TaskTimeN mod 60&"分钟"
|
End If
|
End If
|
If TimeLength_Program>0 And TimeLength_Program<1 Then TimeLength_Program="0"&TimeLength_Program
|
If TimeLength_ICU>0 And TimeLength_ICU<1 Then TimeLength_ICU="0"&TimeLength_ICU
|
If TimeLength_Wait>0 And TimeLength_Wait<1 Then TimeLength_Wait="0"&TimeLength_Wait
|
%>
|
|
<section>
|
|
|
|
<a href="m_DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>" class="detailed">
|
|
<p class="title"><%=Right("0"&month(DispatchOrd_NS_Time),2)%>-<%=Right("0"&day(DispatchOrd_NS_Time),2)%> <%=Right("0"&Hour(DispatchOrdReturnDate),2) &":"& Right("0"&Minute(DispatchOrdReturnDate),2)%> <%=DispatchOrdNo%>
|
<%If not isnull(EntourageEnd_Time) And DispatchOrd_AP_Check=1 then%>
|
<%If DispatchOrdState=9 Then Response.Write "跑空单 "%>
|
<%ElseIf DispatchOrd_AP_Check=0 then%>
|
等待审核 <%If DispatchOrdState=9 Then Response.Write "跑空单 "%>
|
<%else%>
|
<span style="color: #f00;">未提交完成报告</span>
|
<%End if%>
|
</p>
|
|
<%If EntourageOT_is="1" Or EntourageBetimesHH>0 Or Stretcher_is="1" Or Condition_Money>0 Or TimeLength_Program>0 Or TimeLength_ICU>0 Or TimeLength_Wait>0 Then%>
|
<%If datediff("s","2018-12-25 00:00:00",DispatchOrd_NS_Time)>0 Then%>
|
<p class="right" style="text-align:right;margin-right:20px"><font color="#ff0000" style="font-weight:bold">
|
<%If EntourageLong_is="1" then%>跟车 <%End If%>
|
<%If EntourageOT_is="1" then%>休息出车+<%=EntourageOT_Money%> <%End If%>
|
<%If EntourageBetimesHH>0 then%>提前出车<%=EntourageBetimesHH%>小时+<%=EntourageOT_Money%> <%End If%>
|
<%If Stretcher_is="1" then%>抬担架+<%=Stretcher_Money%> <%End If%>
|
<%If TimeLength_Program>0 then%>保障:<%=TimeLength_Program%>小时 <%End If%>
|
<%If TimeLength_ICU>0 then%>ICU:<%=TimeLength_ICU%>小时 <%End If%>
|
<%If TimeLength_Wait>0 then%>等待:<%=TimeLength_Wait%>小时 <%End If%>
|
<%
|
If Condition_Money>0 Then
|
ConditionTXT=""
|
sql="select vOrder2 from ServiceOrd_Condition,dictionary where vtitle='Condition' and ConditionID=vID and ConditionID in (4,22,24) and ServiceOrdCoID="&ServiceOrdID
|
rsDt.open sql,objConn,1,1
|
do while not rsDt.Eof
|
If ConditionTXT<>"" Then ConditionTXT=ConditionTXT&"、"
|
ConditionTXT=ConditionTXT&rsDt(0)
|
rsDt.movenext
|
Loop
|
rsDt.close()
|
If ConditionTXT<>"" Then Response.Write ConditionTXT&"+"&Condition_Money
|
End If
|
%>
|
|
</font>
|
</p>
|
<%else%>
|
<p class="right" style="text-align:right;margin-right:20px"><font color="#ff0000" style="font-weight:bold"> <%If EntourageOT_is="1" then%>休息出车 <%End If%><%If EntourageBetimesHH>0 then%>提前出车<%=EntourageBetimesHH%>小时 <%End If%><%If Stretcher_is="1" then%>抬担架 <%End If%></font>
|
</p>
|
<%End If%>
|
<%End If%>
|
<p class="right" style="text-align:right;margin-right:20px"><%=EntourageDKPTXT%></p>
|
|
|
<div class="wrap">
|
<div class="left">
|
<div class="add_wrap">
|
<%If DispatchOrdTraVia="" then%><p class="address bg-t"><%=DispatchOrdTraStreet%></p><%End If%>
|
<%If DispatchOrdTraVia<>"" then%><p class="address bg-t"><%If ServiceOrdPtOutHosp="814" Or ServiceOrdPtOutHosp="" Or ServiceOrdPtOutHosp="0" Then Response.Write DispatchOrdTraVia Else Response.Write HospA(ServiceOrdPtOutHosp,"HospName") End If%></p><%End If%>
|
<p class="address bg-b"><%If ServiceOrdPtInHosp="814" Or ServiceOrdPtInHosp="" Or ServiceOrdPtInHosp="0" Then Response.Write DispatchOrdTraEnd Else Response.Write HospA(ServiceOrdPtInHosp,"HospName") End If%></p>
|
</div>
|
<p class="time" style="color:#808080">绩效里程：<%=OrdDistance%>公里 用时：<%=TaskTime%></p>
|
</div>
|
|
|
|
</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>
|
