<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<%
|
'Response.Cookies("OA")("adminID")=""
|
'Response.end
|
searchTXT=Request("searchTXT")
|
OrdState=request("OrdState")
|
OrdClassList=SafeRequest(Request("OrdClassList"))
|
OrderType=SafeRequest(Request("OrderType"))
|
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=","")
|
ElseIf InStr(stateSP(i),"OrderType=")=1 Then
|
OrderType=Replace(stateSP(i),"OrderType=","")
|
End If
|
Next
|
End If
|
if OrdState="" then Response.Redirect "/"
|
state=OrdState
|
If OrderType="2" Then
|
WebTitle="特殊任务列表"
|
Else
|
WebTitle="个人任务列表"
|
End If
|
|
acc1=clng(request("page"))
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 20
|
acc2=0
|
acc3=0
|
%>
|
<!--#include virtual="/weixin/OAuth2.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<!--#include virtual="/weixin/sha1.gds"-->
|
<%If acc1=1 Then%>
|
<!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">
|
<meta name="keywords" content="">
|
<meta name="description" content="">
|
<meta name="author" content="">
|
<link rel="icon" href="assets/images/favicon.png" type="image/png">
|
<title><%=WebTitle%></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">
|
|
<!-- 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]-->
|
|
</head>
|
|
<body class="sticky-header">
|
|
|
<!--Start left side Menu-->
|
<div class="left-side sticky-left-side">
|
|
<!--logo-->
|
<div class="logo">
|
<a href="index.html"><img src="assets/images/logo.png" alt=""></a>
|
</div>
|
|
<div class="logo-icon text-center">
|
<a href="index.html"><img src="assets/images/logo-icon.png" alt=""></a>
|
</div>
|
<!--logo-->
|
|
<div class="left-side-inner">
|
<!--Sidebar nav-->
|
<!--#include virtual="/menu_left_new.gds"-->
|
<!--End sidebar nav-->
|
|
</div>
|
</div>
|
<!--End left side menu-->
|
<%End If%>
|
<%
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
'默认显示字段
|
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
|
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
|
|
|
If OrdState<>"0" then
|
OrdListName = DispatchOrdStateA(OrdState)&"查询"
|
Else
|
OrdListName = "服务单查询"
|
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&"&OrderType="&OrderType&"&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,3) and DispatchOrd_AP_Check=0 "
|
WebTitle=WebTitle&" - 未出车"
|
ElseIf OrdState="4" Then '执行中
|
searchSql=" DispatchOrdState in (4,5,6,7) and DispatchOrd_AP_Check=0 "
|
WebTitle=WebTitle&" - 执行中"
|
ElseIf OrdState="100" Then
|
searchSql=" DispatchOrd_AP_Check=1 "
|
ElseIf OrdState="1000" Then '最近任务
|
searchSql=" DispatchOrdState not in (0,10) "
|
WebTitle=WebTitle&" - 最近任务"
|
Else
|
searchSql=searchSql&" and DispatchOrdState in ("&OrdState&") and DispatchOrd_AP_Check=0 "
|
End If
|
If OrdClassList<>"0" Then
|
searchSql=searchSql&" and ServiceOrdClass='"&OrdClassList&"' "
|
End if
|
end If
|
|
'服务类型
|
OAidSql=" and DE.EntourageOAid="&session("adminID")
|
If OrderType<>"" Then
|
searchSql=searchSql&" and ServiceOrdType in (select vID from dictionary where vtitle='ServiceOrderType' and vType="&OrderType&") "
|
sumSql=" and ServiceOrdType in (select vID from dictionary where vtitle='ServiceOrderType' and vType="&OrderType&") "
|
End If
|
|
|
'临时不显示2021-8-1后提成
|
onDKPData="2021-8-1"
|
|
'数量统计
|
OrdInt1=0
|
OrdInt2=0
|
OrdInt3=0
|
sql="select DATEADD(mm,DATEDIFF(mm,0,getdate()),0) , dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,getdate())+1,0))"
|
rs.open sql,objConn,1,1
|
sumSql=sumSql&" and DispatchOrdStartDate between '"&rs(0)&"' and '"&rs(1)&"' "
|
rs.close()
|
sql="select DispatchOrdState,count(DispatchOrdID) from DispatchOrd,ServiceOrder,DispatchOrd_Entourage as DE where DispatchOrdIDDt=DispatchOrdID and ServiceOrdIDDt=ServiceOrdID and EntourageState<>4 and DispatchOrdState not in (0,10)"&sumSql&OAidSql&" GROUP BY DispatchOrdState order by DispatchOrdState"
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
If rs("DispatchOrdState")<=3 Then
|
OrdInt1=OrdInt1+rs(1)
|
ElseIf rs("DispatchOrdState")>=4 And rs("DispatchOrdState")<=7 Then
|
OrdInt2=OrdInt2+rs(1)
|
Else
|
OrdInt3=OrdInt3+rs(1)
|
End If
|
rs.movenext
|
Loop
|
rs.close()
|
'显示列表
|
sql="select DispatchOrd.*,ServiceOrdID,ServiceOrdClass,ServiceOrdType,ServiceOrdApptDate,ServiceOrdTraProvince,ServiceOrdTraCity,ServiceOrdTraTxnPrice,ServiceOrdPtOutHospID,ServiceOrdPtOutHosp,ServiceOrdPtInHospID,ServiceOrdPtInHosp,EntourageLeadID=DispatchOrd_Entourage.EntourageOAid,OrdDistance=convert(money,Replace(Replace(ServiceOrdTraDistance,'公里',''),'km','')),DispatchOrd_Entourage.*,DE.* from (DispatchOrd LEFT JOIN ServiceOrder on ServiceOrdIDDt=ServiceOrdID) LEFT JOIN DispatchOrd_Entourage on DispatchOrdIDDt=DispatchOrdID and EntourageLead=1 and EntourageState<>4,DispatchOrd_Entourage as DE where "&searchSql&OAidSql&" and DE.DispatchOrdIDDt=DispatchOrdID and DE.EntourageState<>4 order by DispatchOrdID 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
|
%>
|
<%If acc1=1 Then%>
|
<!-- 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" placeholder="Search here..." />
|
</form>
|
|
<!--notification menu start -->
|
<div class="menu-right">
|
<ul class="notification-menu">
|
|
<li class="btn-default dropdown-toggle">
|
<%If DispatchOrdNo<>"" Then
|
Response.Write OrderLevelA(OrderLevel)&"调度单："&DispatchOrdNo
|
Else
|
Response.Write WebTitle
|
End If
|
%>
|
</li>
|
|
</ul>
|
</div>
|
<!--notification menu end -->
|
|
</div>
|
<!-- header section end-->
|
|
|
|
<!--body wrapper start-->
|
<div class="wrapper">
|
|
<!--Start Page Title-->
|
|
<!--End Page Title-->
|
|
<!--Start row-->
|
<div class="row">
|
<div class="col-md-12">
|
<!-- Start cover-->
|
<div class="profile-cover">
|
<div class="overlay-profile"></div>
|
<div class="profile-inner">
|
<!--/.profile-info-->
|
<div class="profile-stats">
|
<ul>
|
<li>
|
<a href="?OrdState=2&OrderType=<%=OrderType%>" style="color: #FFF;"><h4><%=OrdInt1%></h4><p>未出车</p></a>
|
</li>
|
<li>
|
<a href="?OrdState=4&OrderType=<%=OrderType%>" style="color: #FFF;"><h4><%=OrdInt2%></h4><p>执行中</p></a>
|
</li>
|
<li>
|
<a href="?OrdState=1000&OrderType=<%=OrderType%>" style="color: #FFF;"><h4><%=OrdInt3%></h4><p>本月完成任务</p></a>
|
</li>
|
</ul>
|
</div>
|
</div>
|
</div>
|
<!-- End cover-->
|
</div>
|
</div>
|
<!--End row-->
|
|
|
<!--Start row-->
|
<div class="row">
|
|
<div class="col-md-12" id="Task_List">
|
<!--/.hite-box-->
|
<%End If%>
|
<%i=1
|
do while not rs.Eof and i<=QuantityInt
|
ServiceOrdID = rs("ServiceOrdID") '服务单号
|
ServiceOrdType = rs("ServiceOrdType") '服务类型
|
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")
|
|
EntourageLeadID = rs("EntourageLeadID") '领队ID
|
EntourageState = rs("EntourageState") '确认状态(1等待,2拒绝,3已确认)
|
EntourageEnd_Time = rs("EntourageEnd_Time") '个人情况提交时间
|
|
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 ServiceOrdTypeB(ServiceOrdType,"vType")=2 Then
|
OrderURL="/SpecialOrder.gds?DispatchOrdID="&DispatchOrdID
|
Else
|
OrderURL="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
|
End If
|
|
If ConversionDistance=0 Then
|
EntourageDKPTXT="计提金额：另计"
|
Else
|
EntourageDKPTXT="计提："&ConversionDistance&"公里 计提金额："&FormatNumber(EntourageDKP_Money,2,-1)&"元"
|
End If
|
If OrderLevel=2 Then
|
EntourageDKPTXT="Z计划 "&EntourageDKPTXT
|
End If
|
'临时不显示2021-8-1后提成
|
If datediff("s",onDKPData&" 00:00:00",DispatchOrd_NS_Time)>0 Then EntourageDKPTXT=""
|
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) '调度单编号
|
|
|
'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
|
|
If isnull(EntourageOAid) Then EntourageOAid=0
|
|
If ServiceOrdTraSDTime<>"" Then
|
ServiceOrdTraSDTime=FORMATDATETIME(ServiceOrdTraSDTime,vbShortDate) &" "& Right("0"&Hour(ServiceOrdTraSDTime),2) &":"& Right("0"&Minute(ServiceOrdTraSDTime),2)
|
End If
|
If ServiceOrdApptDate<>"" Then
|
ServiceOrdApptDate=FORMATDATETIME(ServiceOrdApptDate,vbShortDate) &" "& Right("0"&Hour(ServiceOrdApptDate),2) &":"& Right("0"&Minute(ServiceOrdApptDate),2)
|
End If
|
|
OrdStartDateTXT=""
|
EntourageStateTXT=""
|
DispatchOrdStateTXT=""
|
'途经地
|
If DispatchOrdTraVia<>"" then
|
OrdTraVia = SPLIT(DispatchOrdTraVia,"=>")
|
for j = 0 to UBOUND(OrdTraVia)
|
DispatchOrdStateTXT=DispatchOrdStateTXT&Trim(OrdTraVia(j))&"<br>"
|
Next
|
End if
|
If DispatchOrdState="1" Or DispatchOrdState="2" Then
|
'OrdStartDateTXT = "出发时间:"&DispatchOrdTraSDTime
|
If EntourageState=1 then
|
EntourageStateTXT="等待确认"
|
ElseIf EntourageState=2 Then
|
EntourageStateTXT="拒绝"
|
ElseIf EntourageState=3 Then
|
EntourageStateTXT="已确认"
|
Else
|
EntourageStateTXT="未下发"
|
End If
|
DispatchOrdStateTXT = DispatchOrdStateTXT&DispatchOrdStateA(DispatchOrdState)
|
|
ElseIf DispatchOrdState="3" Then
|
If DispatchOrdTraSDTime="" Or isnull(DispatchOrdTraSDTime) Then DispatchOrdTraSDTime="未出车"
|
OrdStartDateTXT = ""
|
EntourageStateTXT = DispatchOrdStateTXT&DispatchOrdTraEnd
|
|
ElseIf DispatchOrdState="4" Or DispatchOrdState="5" Or DispatchOrdState="6" Or DispatchOrdState="7" Then
|
OrdStartDateTXT = Right("0"&month(DispatchOrdActualDate),2)&"/"&Right("0"&day(DispatchOrdActualDate),2)&" "&Right("0"&Hour(DispatchOrdActualDate),2) &":"& Right("0"&Minute(DispatchOrdActualDate),2)
|
EntourageStateTXT = DispatchOrdStateTXT&DispatchOrdTraEnd
|
|
ElseIf DispatchOrdState="8" Or DispatchOrdState="9" Then
|
OrdStartDateTXT = Right("0"&month(DispatchOrdStartDate),2)&"/"&Right("0"&day(DispatchOrdStartDate),2)&" "&Right("0"&Hour(DispatchOrdStartDate),2) &":"& Right("0"&Minute(DispatchOrdStartDate),2)
|
EntourageStateTXT = DispatchOrdStateTXT&DispatchOrdTraEnd
|
|
End If
|
|
DispatchOrdStateTXT = DispatchOrdStateA(DispatchOrdState)
|
'If OrdStartDateTXT="" Then OrdStartDateTXT=DispatchOrdStateTXT
|
|
If (EntourageEnd_Time="" Or isnull(EntourageEnd_Time)) And DispatchOrdState=8 Then DispatchOrdStateTXT=DispatchOrdStateTXT&" (个人未确认)"
|
%>
|
<a href="<%=OrderURL%>" class="detailed">
|
<div class="white-box">
|
<div class="post-header">
|
<div>
|
<h4><%=DispatchOrdNo%></h4>
|
<p><%=DispatchOrdStateTXT&" "&OrdStartDateTXT%></p>
|
</div>
|
</div> <!-- /.post-header-->
|
<div class="post-desc">
|
<div class="white-box" style="padding: 10px;margin-bottom: 0px;">
|
<ul class="timeline timeline-compact">
|
<%If DispatchOrdTraVia<>"" then%>
|
<li class="latest">
|
<div class="timeline-title"><%If ServiceOrdPtOutHosp="814" Or ServiceOrdPtOutHosp="" Or ServiceOrdPtOutHosp="0" Then Response.Write DispatchOrdTraVia Else Response.Write HospA(ServiceOrdPtOutHosp,"HospName") End If%></div>
|
</li>
|
<%End If%>
|
<%If ServiceOrdPtOutHosp<>ServiceOrdPtInHosp then%>
|
<li>
|
<div class="timeline-title"><%=PtInHospName%></div>
|
<div class="timeline-description"><%If ServiceOrdPtInHosp="814" Or ServiceOrdPtInHosp="" Or ServiceOrdPtInHosp="0" Then Response.Write DispatchOrdTraEnd Else Response.Write HospA(ServiceOrdPtInHosp,"HospName") End If%></div>
|
</li>
|
<%End If%>
|
|
</ul>
|
</div>
|
</div>
|
<div class="comment-info">
|
<ul>
|
<%If EntourageLong_is="1" then%><li><i class="fa fa-ambulance"></i> 跟车</li><%End If%>
|
<%If EntourageOT_is="1" then%><li><i class="fa fa-ambulance"></i> 休息出车+<%=EntourageOT_Money%></li><%End If%>
|
<%If EntourageBetimesHH>0 then%><li><i class="fa fa-plus-square"></i> 提前出车<%=EntourageBetimesHH%>小时+<%=EntourageOT_Money%></li><%End If%>
|
<%If Stretcher_is="1" then%><li><i class="fa fa-wheelchair"></i> 抬担架+<%=Stretcher_Money%></li><%End If%>
|
<%If TimeLength_Program>0 then%><li><i class="fa fa-medkit"></i> 保障：<%=TimeLength_Program%>小时</li><%End If%>
|
<%If TimeLength_ICU>0 then%><li><i class="fa fa-user-md"></i> ICU：<%=TimeLength_ICU%>小时</li><%End If%>
|
<%If TimeLength_Wait>0 then%><li><i class="fa fa-taxi"></i> 等待：<%=TimeLength_Wait%>小时</li><%End If%>
|
<%If datediff("s",onDKPData&" 00:00:00",DispatchOrd_NS_Time)<0 Then%><li><i class="fa fa-dashboard"></i> 绩效里程：<%=OrdDistance%>公里</li><%End If%>
|
<%If TaskTime<>"" Then%><li><i class="fa fa-clock-o"></i> 用时：<%=TaskTime%></li><%End If%>
|
</ul>
|
</div>
|
</div><!-- /.white-box-->
|
</a>
|
<% i=i+1
|
rs.movenext
|
Loop
|
rs.close()%>
|
<%If acc1=1 Then%>
|
</div>
|
</div>
|
<%If acc1<acc2 Then%>
|
<div class="col-md-12" id="loadDiv"><a onclick="loadData()" class="btn btn-primary btn-sm btn-block m-t-10">点击加载更多...</a></div>
|
<input id="acc1" type="hidden" value="<%=acc1%>">
|
<input id="acc2" type="hidden" value="<%=acc2%>">
|
<%End If%>
|
|
<!--End row-->
|
|
|
|
</div>
|
<!-- End Wrapper-->
|
|
|
|
</div>
|
<!--End main content -->
|
|
|
|
<!--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>
|
<script src="assets/js/jquery.nicescroll.js"></script>
|
<script src="assets/js/functions.js"></script>
|
|
<script src="assets/plugins/jquery-validation/jquery.validate.min.js"></script>
|
<script src="assets/plugins/sweetalert/sweet-alert.js"></script>
|
<!-- End core plugin -->
|
|
<!-- BEGIN PAGE LEVEL SCRIPTS -->
|
|
<script>
|
|
//--按钮操作--BEGIN
|
var loadData = function(){
|
var acc1=parseInt($('#acc1').val())+1
|
var acc2=parseInt($('#acc2').val())
|
$.ajax({
|
type: "GET",
|
url: "Task_List_new.gds",//需要跳转到的界面 the page you want to post data
|
data: {
|
//要传给后台的数据 the data you should send to background
|
OrdState:'<%=OrdState%>',
|
OrderType:'<%=OrderType%>',
|
page:acc1
|
},
|
dataType:'html',
|
success: function(data) {
|
//console.log(data);
|
$("#Task_List").show();
|
$(data).appendTo($("#Task_List"));
|
$('#acc1').val(acc1);
|
if (acc1==acc2){document.getElementById('loadDiv').style.display='none';}
|
}
|
})
|
};
|
//--按钮操作--End
|
</script>
|
|
</body>
|
|
</html>
|
<%End If%>
|
