<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<%
|
'Response.Cookies("OA")("adminID")=""
|
'Response.end
|
ServiceOrdID=request("ServiceOrdID")
|
NEWOrder=request("NEWOrder")
|
DispatchOrdID=request("DispatchOrdID")
|
closeWindow=SafeRequest(Request("closeWindow"))
|
OrdEdit=SafeRequest(Request("OrdEdit"))
|
OldOrder=request("OldOrder")
|
state=request("state")
|
If state<>"" Then
|
stateSP=split(state,"|")
|
for i = 0 to UBOUND(stateSP)
|
If InStr(stateSP(i),"DispatchOrdID=")=1 Then
|
DispatchOrdID=Replace(stateSP(i),"DispatchOrdID=","")
|
ElseIf InStr(stateSP(i),"closeWindow=")=1 Then
|
closeWindow=Replace(stateSP(i),"closeWindow=","")
|
ElseIf InStr(stateSP(i),"ServiceOrdID=")=1 Then
|
ServiceOrdID=Replace(stateSP(i),"ServiceOrdID=","")
|
ElseIf InStr(stateSP(i),"NEWOrder=")=1 Then
|
NEWOrder=Replace(stateSP(i),"NEWOrder=","")
|
ElseIf InStr(stateSP(i),"OrdEdit=")=1 Then
|
NEWOrder=Replace(stateSP(i),"OrdEdit=","")
|
ElseIf InStr(stateSP(i),"OldOrder=")=1 Then
|
OldOrder=Replace(stateSP(i),"OldOrder=","")
|
End If
|
Next
|
End If
|
if DispatchOrdID="" And ServiceOrdID="" then Response.Redirect "/"
|
If DispatchOrdID<>"" Then
|
state=DispatchOrdID
|
Else
|
state=ServiceOrdID
|
End If
|
|
%>
|
<!--#include virtual="/weixin/OAuth2.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<!--#include virtual="/weixin/sha1.gds"-->
|
<!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>调度单</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-->
|
<ul class="nav nav-pills nav-stacked custom-nav">
|
<li><a href="m_DispatchOrder_new.gds?DispatchOrdID=<%=DispatchOrdID%>"><i class="ion-android-clipboard"></i> <span>调度单基本信息</span></a></li>
|
<%If DispatchOrdID="3016015879" then%><li><a href="MRP_CarStock_m.gds?DispatchOrdID=<%=DispatchOrdID%>&order_type=10"><i class="icon-note"></i> <span>物料进出登记</a></li><%End if%>
|
<!--<li><a href="#"><i class="icon-note"></i> <span>出车前后物品核查单</a></li>
|
<li><a href="#"><i class="icon-note"></i> <span>危重患者转运记录单</a></li>
|
<li><a href="#"><i class="icon-note"></i> <span>紧急情况处理单</a></li>-->
|
<%If DispatchOrdState<>14 then%><li><a href="m_DispatchOrder_PaidMoney.gds?DispatchOrdID=<%=DispatchOrdID%>&order_type=6"><i class="ion-social-yen-outline"></i> <span>费用支付信息</span></a></li><%End if%>
|
<li><a href="m_DispatchOrder_Hotel.gds?DispatchOrdID=<%=DispatchOrdID%>&order_type=7"><i class="ion-ios-home-outline"></i> <span>住宿申请</span></a></li>
|
<li><a href="m_DispatchOrder_Update.gds?DispatchOrdID=<%=DispatchOrdID%>&order_type=8"><i class="ion-ios-cloud-upload-outline"></i> <span>文档上传</span></a></li>
|
<li><a href="m_DispatchOrder_GuestQR.gds?DispatchOrdID=<%=DispatchOrdID%>&order_type=9"><i class="ion-ios-chatboxes-outline"></i> <span>服务评价</span></a></li>
|
<%If DispatchOrdState=8 Or DispatchOrdState=9 then%><li><a href="m_DispatchOrder_End.gds?DispatchOrdID=<%=DispatchOrdID%>&order_type=5"><i class="icon-note"></i> <span>转运完成报告单</span></a></li><%End if%>
|
|
</ul>
|
<!--End sidebar nav-->
|
|
</div>
|
</div>
|
<!--End left side menu-->
|
|
<%
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
If DispatchOrdID<>"" Then
|
If OldOrder<>"Yes" and 1=2 Then '检查之前执行的订单状态
|
sql="select top 1 DispatchOrdID,DispatchOrdClass,DispatchOrd_NS_Time,DispatchOrdNo,EntourageLead from DispatchOrd_Entourage,DispatchOrd where DispatchOrdID=DispatchOrdIDDt and EntourageState<>4 and EntourageEnd_Time is null and DispatchOrdState<8 and DispatchOrd_NS_Time>='2021-1-1' and DispatchOrdIDDt<>"&DispatchOrdID&" and EntourageOAid="&session("adminID")&" order by DispatchOrdStartDate desc"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
Old_DispatchOrdID = rs("DispatchOrdID")
|
Old_DispatchOrdNo = rs("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)
|
If rs("EntourageLead")=1 Then
|
alertTXT="您之前执行的订单："&Old_DispatchOrdNo&"未返回，请先处理。"
|
Else
|
alertTXT="您之前执行的订单："&Old_DispatchOrdNo&"未返回，请先通知领队处理。"
|
End If
|
%>
|
<script LANGUAGE="javascript">
|
alert('<%=alertTXT%>');
|
window.location.replace('/m_DispatchOrder.gds?DispatchOrdID=<%=Old_DispatchOrdID%>&OldOrder=Yes');
|
</script>
|
<%Response.End()
|
End If
|
rs.close()
|
End If
|
|
sql="select * from DispatchOrd where DispatchOrdState>0 and DispatchOrdID="&DispatchOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
DispatchOrdID = rs("DispatchOrdID") '调度单号
|
DispatchOrdClass = rs("DispatchOrdClass") '单据类型
|
ServiceOrdID = rs("ServiceOrdIDDt") '对应受理单号
|
DispatchOrdState = rs("DispatchOrdState") '调度单状态
|
DispatchOrdStartDate = rs("DispatchOrdStartDate") '调度单状态时间
|
DispatchOrd_NS_ID = rs("DispatchOrd_NS_ID") '开单人ID
|
DispatchOrd_NS_Time = rs("DispatchOrd_NS_Time") '开单时间
|
DispatchOrd_AP_ID = rs("DispatchOrd_AP_ID") '审核人ID
|
DispatchOrd_AP_Time = rs("DispatchOrd_AP_Time") '审核时间
|
DispatchOrd_AP_Check = rs("DispatchOrd_AP_Check") '是否审核(0否,1是)
|
DispatchOrd_AP_Reason = rs("DispatchOrd_AP_Reason") '审核原因
|
DispatchOrdCarID = rs("DispatchOrdCarID") '派遣车辆ID
|
DispatchOrdTraSDTime = rs("DispatchOrdTraSDTime") '拟出发时间
|
If year(DispatchOrdTraSDTime)<2010 then DispatchOrdTraSDTime=""
|
DispatchOrdActualDate = rs("DispatchOrdActualDate") '实际出车时间
|
DispatchOrdArriveDate = rs("DispatchOrdArriveDate") '实际到达时间
|
DispatchOrdReturnDate = rs("DispatchOrdReturnDate") '实际返回时间
|
DispatchOrdTraDistance = rs("DispatchOrdTraDistance") '实际距离
|
DispatchOrdTraStreet = rs("DispatchOrdTraStreet") '实际出发地
|
DispatchOrdTraEnd = rs("DispatchOrdTraEnd") '实际目的地
|
DispatchOrdTraVia = rs("DispatchOrdTraVia") '实际途经地
|
DispatchOrdCoName = rs("DispatchOrdCoName") '调度联系人
|
DispatchOrdCoPhone = rs("DispatchOrdCoPhone") '调度联系电话
|
DispatchOrdTraStreetMileage= rs("DispatchOrdTraStreetMileage")'开始里程数
|
DispatchOrdTraEndMileage= rs("DispatchOrdTraEndMileage")'结束里程数
|
DispatchOrdMileage = rs("DispatchOrdMileage") '实际里程数
|
DispatchOrdGasoline = rs("DispatchOrdGasoline") '油耗
|
DispatchOrdRemarks = rs("DispatchOrdRemarks") '行驶备注记录
|
EntourageName_aid1 = rs("EntourageName_aid1") '外援人员1
|
EntourageName_aid2 = rs("EntourageName_aid2") '外援人员2
|
DispatchOrdPerfomance = rs("DispatchOrdPerfomance")
|
RecommendedCar = rs("RecommendedCar") '指定车型
|
CarStItm_OAId = rs("CarStItm_OAId") '物品清单检查人ID
|
CarSeatBelt_OAId = rs("CarSeatBelt_OAId") '系安全带检查人ID
|
StretcherMoney = rs("StretcherMoney") '担架费
|
DispatchOrdTaskRemarks = rs("DispatchOrdTaskRemarks") '医护司备注
|
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) '调度单编号
|
Call OA_Running("手机端打开调度单:"&DispatchOrdNo&" ID:"&DispatchOrdID)
|
|
Else
|
Response.Redirect "/m_DispatchOrder_List.gds?DispatchOrdID="&DispatchOrdID&"&SystemMessageType=4&SMT=9"
|
End If
|
rs.close()
|
StreetMileage=SafeRequest(Request("StreetMileage"))
|
If StreetMileage<>"" And StreetMileage<>"0" Then DispatchOrdTraStreetMileage=StreetMileage
|
EndMileage=SafeRequest(Request("EndMileage"))
|
If EndMileage<>"" And EndMileage<>"0" Then DispatchOrdTraEndMileage=EndMileage
|
|
'查看权限验证
|
sql="select EntourageOAid,EntourageID from DispatchOrd_Entourage where EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" and EntourageOAid="&session("adminID")
|
rs.open sql,objConn,1,1
|
If rs.Eof Then
|
rs.close()
|
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
|
If isDepartment("0702")=0 And isDepartment("020112")=0 And CInt(DispatchOrd_NS_ID)<>CInt(session("adminID")) Then Response.Redirect "/m_logout.html"
|
PowerOrderLevel=0
|
OAEntourageID=0
|
Else
|
PowerOrderLevel=1
|
OAEntourageID=rs("EntourageID")
|
End If
|
rs.close()
|
|
'领队情况
|
isCarUpdate="0"
|
sql="select DispatchOrd_Entourage.id,EntourageOAid,EntourageLead,OA_weixinUserID,EntourageState,EntourageState_Time,OA_Name,OA_weixinAvatar,vtext from DispatchOrd_Entourage,OA_User,dictionary where vtitle='DispatchOrdEntourage' and EntourageID=vID and OA_User_ID=EntourageOAid and EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
If rs("EntourageLead")="1" Then
|
EntourageLeadID=rs("EntourageOAid")
|
End If
|
If (rs("vtext")="司机") And DispatchOrdState<4 And CInt(session("adminID"))=CInt(rs("EntourageOAid")) Then
|
isCarUpdate="1"
|
End If
|
rs.movenext
|
loop
|
rs.close()
|
ElseIf ServiceOrdID<>"" Then
|
|
Else
|
Response.Redirect "/m_DispatchOrder_List.gds?DispatchOrdID="&DispatchOrdID&"&SystemMessageType=4&SMT=9"
|
End If
|
|
'相关受理单
|
OrderLevel=0
|
If ServiceOrdID<>"" then
|
sql="select * from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof then
|
ServiceOrdID = rs("ServiceOrdID") '服务单号
|
ServiceOrdClass = rs("ServiceOrdClass") '单据类型
|
ServiceOrdType = rs("ServiceOrdType") '服务单类型
|
ServiceOrdState = rs("ServiceOrdState") '服务单状态
|
ServiceOrdStartDate = rs("ServiceOrdStartDate") '开单日期
|
ServiceOrdApptDate = rs("ServiceOrdApptDate") '预约日期
|
If year(ServiceOrdApptDate)<2010 then ServiceOrdApptDate=""
|
ServiceOrdCoName = rs("ServiceOrdCoName") '联系人姓名
|
ServiceOrdCoPhone = rs("ServiceOrdCoPhone") '联系人电话
|
ServiceOrdCoTies = rs("ServiceOrdCoTies") '联系人与患者关系
|
ServiceOrdPtName = rs("ServiceOrdPtName") '患者姓名
|
ServiceOrdPtAge = rs("ServiceOrdPtAge") '患者年龄
|
ServiceOrdPtSex = rs("ServiceOrdPtSex") '患者性别
|
ServiceOrdPtNat = rs("ServiceOrdPtNat") '患者国籍
|
ServiceOrdPtOutHosp = rs("ServiceOrdPtOutHosp") '转出医院
|
ServiceOrdPtOutHospID = rs("ServiceOrdPtOutHospID") '转出医院ID
|
ServiceOrdPtInHosp = rs("ServiceOrdPtInHosp") '转入医院
|
ServiceOrdPtInHospID = rs("ServiceOrdPtInHospID") '转入医院ID
|
ServiceOrdPtServices = rs("ServiceOrdPtServices") '转出科室
|
ServiceOrdPtServicesID= rs("ServiceOrdPtServicesID") '转出科室ID
|
ServiceOrdPtInServices = rs("ServiceOrdPtInServices") '转入科室
|
ServiceOrdPtInServicesID= rs("ServiceOrdPtInServicesID") '转入科室ID
|
ServiceOrdPtDiagnosis = rs("ServiceOrdPtDiagnosis") '诊断
|
ServiceOrdPtCondition = rs("ServiceOrdPtCondition") '备注
|
ServiceOrdPtDoctor = rs("ServiceOrdPtDoctor") '患者医生
|
ServiceOrdPtDoctorPhone=rs("ServiceOrdPtDoctorPhone") '患者医生电话
|
ServiceOrdTraProvince = rs("ServiceOrdTraProvince") '出发地省份
|
ServiceOrdTraCity = rs("ServiceOrdTraCity") '出发地城市
|
ServiceOrdTraStreet = rs("ServiceOrdTraStreet") '出发地
|
ServiceOrdTraStreetCoo= rs("ServiceOrdTraStreetCoo") '出发地坐标
|
ServiceOrdTraVia = rs("ServiceOrdTraVia") '途经
|
ServiceOrdTraEnd = rs("ServiceOrdTraEnd") '目的地
|
ServiceOrdTraEndCoo = rs("ServiceOrdTraEndCoo") '目的地坐标
|
ServiceOrdTraDistance = rs("ServiceOrdTraDistance") '距离(公里)
|
ServiceOrdTraDuration = rs("ServiceOrdTraDuration") '预计行程时间
|
ServiceOrdTraUnitPrice= rs("ServiceOrdTraUnitPrice") '单价/公里
|
ServiceOrdTraOfferPrice=rs("ServiceOrdTraOfferPrice") '标准报价
|
ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice") '成交价
|
ServiceOrdTraPaidPrice= rs("ServiceOrdTraPaidPrice") '已支付金额
|
ServiceOrdTraPriceReason=rs("ServiceOrdTraPriceReason")'差价原因
|
ServiceOrd_CC_ID = rs("ServiceOrd_CC_ID") '第一次接单人员ID
|
ServiceOrd_CC_Time = rs("ServiceOrd_CC_Time") '第一次接单时间
|
ServiceOrd_NS_ID = rs("ServiceOrd_NS_ID") '确认服务单人员ID
|
ServiceOrd_NS_Time = rs("ServiceOrd_NS_Time") '确认服务单时间
|
ServiceOrd_AP_Check = rs("ServiceOrd_AP_Check") '服务单审核状态(0未审核,1已审核)
|
ServiceOrd_AP_ID = rs("ServiceOrd_AP_ID") '服务单审核人员ID
|
ServiceOrd_AP_Time = rs("ServiceOrd_AP_Time") '服务单审核时间
|
ServiceOrdIntroducer = rs("ServiceOrdIntroducer") '介绍人
|
ServiceOrd_Sale_ID = rs("ServiceOrd_Sale_ID") '销售人员ID
|
ServiceOrdUnitID = rs("ServiceOrdUnitID") '第三方ID
|
ServiceOrdUnitRemarks = rs("ServiceOrdUnitRemarks") '第三方订单备注
|
OrderLevel = rs("OrderLevel") '查看等级
|
ServiceOrdVisit = rs("ServiceOrdVisit") '回访记录
|
ServiceOrdNo = ServiceOrdClass& year(rs("ServiceOrd_CC_Time"))&Right("0"&month(rs("ServiceOrd_CC_Time")),2)&Right("0"&day(rs("ServiceOrd_CC_Time")),2) & "-"&Right("00"&rs("ServiceOrdNo"),3)
|
If IsNumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance=ServiceOrdTraDistance&"公里"
|
If NEWOrder<>"" Then DispatchOrdPerfomance=ServiceOrdTraTxnPrice
|
End If
|
rs.close()
|
sql="select id from ServiceOrd_TransferMode where ServiceOrdTMID="&ServiceOrdID&" and TransferModeID=1"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
TransferMode=1
|
TransferModeTXT="3 确认出车 （先选择司机、车辆）"
|
Else
|
TransferMode=0
|
TransferModeTXT="1 确认出车"
|
End If
|
rs.close()
|
If ServiceOrdClass<>"" And DispatchOrdClass="" Then
|
sql="select top 1 vID,vtext,vOrder2 from dictionary where vtext in (select top 1 replace(vtext,'服务单','调度单') from dictionary where vtitle='OrderClass' and vOrder2='"&ServiceOrdClass&"') and vtitle='OrderClass' and vType=2"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
DispatchOrdClass=rs("vOrder2")
|
End If
|
rs.close()
|
End If
|
End If
|
|
'操作人员是否相关人员
|
is_AdminOrd=0
|
If ServiceOrd_CC_ID<>"" And is_AdminOrd=0 Then
|
If CInt(session("adminID"))=CInt(ServiceOrd_CC_ID) Then
|
is_AdminOrd=1
|
End If
|
End If
|
If ServiceOrd_NS_ID<>"" And is_AdminOrd=0 Then
|
If CInt(session("adminID"))=CInt(ServiceOrd_NS_ID) Then
|
is_AdminOrd=1
|
End If
|
End If
|
If ServiceOrd_AP_ID<>"" And is_AdminOrd=0 Then
|
If CInt(session("adminID"))=CInt(ServiceOrd_AP_ID) Then
|
is_AdminOrd=1
|
End If
|
End If
|
If DispatchOrd_NS_ID<>"" And is_AdminOrd=0 Then
|
If CInt(session("adminID"))=CInt(DispatchOrd_NS_ID) Then
|
is_AdminOrd=1
|
End If
|
End If
|
If DispatchOrd_AP_ID<>"" And is_AdminOrd=0 Then
|
If CInt(session("adminID"))=CInt(DispatchOrd_AP_ID) Then
|
is_AdminOrd=1
|
End If
|
End If
|
If isDepartment("020112")=1 And is_AdminOrd=0 Then
|
is_AdminOrd=1
|
End If
|
|
'行程默认信息
|
If DispatchOrdTraStreet="" Then DispatchOrdTraStreet=ServiceOrdTraStreet
|
If DispatchOrdTraVia="" Then DispatchOrdTraVia=ServiceOrdTraVia
|
If DispatchOrdTraEnd="" Then DispatchOrdTraEnd=ServiceOrdTraEnd
|
If DispatchOrdCoName="" Then DispatchOrdCoName=ServiceOrdCoName
|
If DispatchOrdCoPhone="" Then DispatchOrdCoPhone=ServiceOrdCoPhone
|
|
'行驶里程
|
If DispatchOrdMileage=0 And DispatchOrdTraStreetMileage<>0 And DispatchOrdTraEndMileage<>0 Then
|
DispatchOrdMileage1=DispatchOrdTraEndMileage-DispatchOrdTraStreetMileage
|
DispatchOrdGasoline1=""
|
Else
|
DispatchOrdMileage1=DispatchOrdMileage
|
DispatchOrdGasoline1=DispatchOrdGasoline
|
End If
|
|
'审核状态
|
If DispatchOrdState="8" Or DispatchOrdState="9" Then
|
If DispatchOrd_AP_Check="1" then
|
DispatchOrd_CheckTXT = DispatchOrdStateA(12)
|
ElseIf DispatchOrd_AP_Check="0" And DispatchOrdMileage>0 then
|
DispatchOrd_CheckTXT = "等待审核"
|
ElseIf DispatchOrd_AP_Check="0" And DispatchOrdMileage=0 then
|
DispatchOrd_CheckTXT = "未提交"
|
End If
|
If DispatchOrd_AP_Reason<>"" Then DispatchOrd_CheckTXT=DispatchOrd_CheckTXT&" "&DispatchOrd_AP_Reason
|
If DispatchOrd_CheckTXT<>"" Then DispatchOrd_CheckTXT="（"&DispatchOrd_CheckTXT&" ）"
|
End If
|
|
'第三方相关信息
|
CPicInt=0
|
If ServiceOrdUnitRemarks<>"" And not isnull(ServiceOrdUnitRemarks) Then
|
s=0
|
do While InStr(ServiceOrdUnitRemarks,"http")>0 And s<=500
|
cpic=Mid(ServiceOrdUnitRemarks,InStr(ServiceOrdUnitRemarks,"http"))
|
If InStr(cpic,".jpg")>0 Then
|
cc=InStr(cpic,".jpg")+3
|
ElseIf InStr(cpic,".jpga")>0 Then
|
cc=InStr(cpic,".jpga")+4
|
ElseIf InStr(cpic,".png")>0 Then
|
cc=InStr(cpic,".png")+3
|
ElseIf InStr(cpic,".bmp")>0 Then
|
cc=InStr(cpic,".bmp")+3
|
End If
|
cpic=Left(cpic,cc)
|
ConditionPic=ConditionPic&","&cpic
|
ServiceOrdUnitRemarks=Replace(ServiceOrdUnitRemarks,cpic,"")
|
s=s+1
|
Loop
|
If ConditionPic<>"" Then
|
'ConditionPic=Mid(ConditionPic,2)
|
ConditionPic=SPLIT(ConditionPic,",")
|
CPicInt=UBOUND(ConditionPic)
|
End If
|
End If
|
|
If DispatchOrdCarID<>"" And DispatchOrdCarID<>"0" Then
|
DispatchOrdCarLicense=CarDataA(DispatchOrdCarID,"","CarLicense")
|
ElseIf (DispatchOrdState=3 Or DispatchOrdState=2) And CInt(session("adminID"))=CInt(EntourageLeadID) Then
|
DispatchOrdCarLicense="点击选择车辆"
|
Else
|
DispatchOrdCarLicense="未指派"
|
End If
|
%>
|
<!-- 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">
|
<%=OrderLevelA(OrderLevel)&"调度单："&DispatchOrdNo%>
|
</li>
|
|
</ul>
|
</div>
|
<!--notification menu end -->
|
|
</div>
|
<!-- header section end-->
|
|
|
|
<!--body wrapper start-->
|
<div class="wrapper" id="win_Orer">
|
|
<!--Start Page Title-->
|
<div class="page-title-box">
|
<h4 class="page-title"><%=replace(DispatchOrdStateA(DispatchOrdState),"全部确定：","")&DispatchOrd_CheckTXT%></h4>
|
<div class="clearfix"></div>
|
</div>
|
<!--End Page Title-->
|
|
|
<!-- Start 行程-->
|
<div class="white-box">
|
<h2 class="header-title">行程</h2>
|
<ul class="timeline timeline-compact">
|
<li class="latest">
|
<div class="timeline-date">出发地</div>
|
<div class="timeline-title"><a onclick="lbs_distance('<%=DispatchOrdTraStreet%>','<%=DispatchOrdTraStreet%>')" style="color: #2196F3;"><%=DispatchOrdTraStreet%></a></div>
|
</li>
|
|
<%'途经地
|
If DispatchOrdTraVia<>"" then%>
|
<%OrdTraVia = SPLIT(DispatchOrdTraVia,"=>")
|
If UBOUND(OrdTraVia)>=1 Then
|
for j = 0 to UBOUND(OrdTraVia)
|
%>
|
<li>
|
<div class="timeline-date">途经</div>
|
<div class="timeline-title"><a onclick="lbs_distance('<%=Trim(OrdTraVia(j))%>','<%=Trim(OrdTraVia(j))%>')" style="color: #F13F11;"><%=DispatchOrdTraEnd%></a></div>
|
</li>
|
<%Next
|
ElseIf UBOUND(OrdTraVia)=0 Then
|
DispatchOrdTraViaTXT=Trim(OrdTraVia(0))
|
End If%>
|
<%End if%>
|
|
<%'转出医院
|
If ServiceOrdID<>"" then%>
|
<%If ServiceOrdPtOutHospID<>"" And ServiceOrdPtOutHospID<>"0" And ServiceOrdPtOutHospID<>"153" Then
|
sql="select HospName,HospLevel,HopsProvince,HopsCity,HopsArea,HospAddress from HospData where HospID="&ServiceOrdPtOutHospID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
PtOutHospName=rs("HospName")
|
PtOutHopsProvince=rs("HopsProvince")
|
PtOutHopsCity=rs("HopsCity")
|
PtOutHopsArea=rs("HopsArea")
|
PtOutHospAddress=rs("HospAddress")
|
If PtOutHospAddress<>"" Then
|
address=PtOutHopsProvince&PtOutHopsCity&PtOutHopsArea&PtOutHospAddress
|
else
|
address=DispatchOrdTraViaTXT
|
If InStr(address,"市")<=0 And PtOutHopsCity<>"" Then
|
address=PtOutHopsCity&address
|
End If
|
If InStr(address,"省")<=0 And PtOutHopsProvince<>"" Then
|
address=PtOutHopsProvince&address
|
End If
|
End If
|
%>
|
<li class="latest" onclick="lbs_distance('<%=PtOutHospName%>','<%=address%>')">
|
<div class="timeline-date">转出医院</div>
|
<div class="timeline-title"><%=PtOutHospName%></div>
|
<div class="timeline-description"><%=PtOutHopsProvince&PtOutHopsCity&PtOutHopsArea&PtOutHospAddress%><br><%=HospitalDepartment(ServiceOrdPtServicesID)%> <%=ServiceOrdPtServices%></div>
|
</li>
|
<%
|
End If
|
rs.close()
|
Else
|
If PtOutHospAddress<>"" Then
|
address=PtOutHopsProvince&PtOutHopsCity&PtOutHopsArea&PtOutHospAddress
|
else
|
address=DispatchOrdTraViaTXT
|
If InStr(address,"市")<=0 And PtOutHopsCity<>"" Then
|
address=PtOutHopsCity&address
|
End If
|
If InStr(address,"省")<=0 And PtOutHopsProvince<>"" Then
|
address=PtOutHopsProvince&address
|
End If
|
End If
|
%>
|
<li onclick="lbs_distance('<%=PtOutHospName%>','<%=address%>')">
|
<div class="timeline-date"><%If PtOutHospName="" Then%>途经<%else%>转出地址<%End If%></div>
|
<div class="timeline-title"><%=PtOutHospName%></div>
|
<div class="timeline-description"><%=DispatchOrdTraViaTXT%></div>
|
</li>
|
<%End if%>
|
<%End if%>
|
|
<%'转入医院
|
If ServiceOrdID<>"" then%>
|
<%If ServiceOrdPtInHospID<>"" And ServiceOrdPtInHospID<>"0" And ServiceOrdPtInHospID<>"153" Then
|
sql="select HospName,HospLevel,HopsProvince,HopsCity,HopsArea,HospAddress from HospData where HospID="&ServiceOrdPtInHospID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
PtInHospName=rs("HospName")
|
PtInHospProvince=rs("HopsProvince")
|
PtInHospCity=rs("HopsCity")
|
PtInHospArea=rs("HopsArea")
|
PtInHospAddress=rs("HospAddress")
|
If PtInHospAddress<>"" Then
|
address=PtInHospProvince&PtInHospCity&PtInHospArea&PtInHospAddress
|
else
|
address=DispatchOrdTraEnd
|
If InStr(address,"市")<=0 And PtInHospCity<>"" Then
|
address=PtInHospCity&address
|
End If
|
If InStr(address,"省")<=0 And PtInHospProvince<>"" Then
|
address=PtInHospProvince&address
|
End If
|
End If
|
%>
|
<li onclick="lbs_distance('<%=DispatchOrdTraEnd%>','<%=address%>')">
|
<div class="timeline-date">转入医院</div>
|
<div class="timeline-title"><%=PtInHospName%></div>
|
<div class="timeline-description"><%=PtInHospProvince&PtInHospCity&PtInHospArea&PtInHospAddress%><br><%=HospitalDepartment(ServiceOrdPtInServicesID)%> <%=ServiceOrdPtInServices%></div>
|
</li>
|
<%
|
End If
|
rs.close()
|
Else
|
If PtInHospAddress<>"" Then
|
address=PtInHospProvince&PtInHospCity&PtInHospArea&PtInHospAddress
|
else
|
address=DispatchOrdTraEnd
|
If InStr(address,"市")<=0 And PtInHospCity<>"" Then
|
address=PtInHospCity&address
|
End If
|
If InStr(address,"省")<=0 And PtInHospProvince<>"" Then
|
address=PtInHospProvince&address
|
End If
|
End If
|
%>
|
<li onclick="lbs_distance('<%=DispatchOrdTraEnd%>','<%=address%>')">
|
<div class="timeline-date"><%If PtInHospName="" Then%>目的地<%else%>转入地址<%End If%></div>
|
<div class="timeline-title"><%=PtInHospName%></div>
|
<div class="timeline-description"><%=DispatchOrdTraEnd%></div>
|
</li>
|
<%End if%>
|
<%End if%>
|
|
</ul>
|
</div>
|
<!-- End 行程-->
|
|
<!--Start 人员-->
|
<div class="row">
|
<div class="col-md-12" id="EntourageDiv">
|
<div class="row">
|
|
<div class="col-md-3">
|
<div class="user-box" onclick="JS_CarDialogOpen('EntourageDiv')">
|
<div class="user-img">
|
<img src="assets/images/users/avatar-1.jpg" alt=""/>
|
</div>
|
<div class="user-info">
|
<h4>John Doe</h4>
|
<p>example@gmail.com</p>
|
<span>Admin</span>
|
</div>
|
</div>
|
</div> <!-- /.col-md-3-->
|
|
|
<div class="col-md-3">
|
<div class="user-box" onclick="JS_CarDialogOpen('EntourageDiv')">
|
<div class="user-img">
|
<img src="assets/images/users/avatar-2.jpg" alt=""/>
|
</div>
|
<div class="user-info">
|
<h4>John Doe</h4>
|
<p>example@gmail.com</p>
|
<span>Admin</span>
|
</div>
|
</div>
|
</div> <!-- /.col-md-3-->
|
|
|
|
<div class="col-md-3">
|
<div class="user-box" onclick="JS_CarDialogOpen('EntourageDiv')">
|
<div class="user-img">
|
<img src="assets/images/users/avatar-3.jpg" alt=""/>
|
</div>
|
<div class="user-info">
|
<h4>John Doe</h4>
|
<p>example@gmail.com</p>
|
<span>Admin</span>
|
</div>
|
</div>
|
</div> <!-- /.col-md-3-->
|
|
|
|
<div class="col-md-3">
|
<div class="user-box" onclick="JS_CarDialogOpen('EntourageDiv')">
|
<div class="user-img">
|
<img src="assets/images/users/avatar-4.jpg" alt=""/>
|
</div>
|
<div class="user-info">
|
<h4>John Doe</h4>
|
<p>example@gmail.com</p>
|
<span>Admin</span>
|
</div>
|
</div>
|
</div> <!-- /.col-md-3-->
|
|
|
|
</div>
|
</div>
|
</div>
|
<script>
|
//打开查询对话框
|
function JS_CarDialogOpen(DivID,SearchTXT,page){
|
if (page==undefined && SearchTXT==undefined){JS_dialogSetUp(DivID,1,'JS_CarDialogOpen');}
|
$.ajax({
|
type: "POST",
|
dataType:'json',
|
url: "Search_Car_ajax.gds",
|
data: {
|
OrdClass:"<%=DispatchOrdClass%>",
|
CarSearchTXT:SearchTXT,
|
page:page
|
},
|
success:function(data){
|
//console.log(data);
|
if (data!=''){
|
if (data.result==1){
|
//表头
|
dialog_Header="";
|
for (i=0;i<data.Header.length;i++){
|
dialog_Header=dialog_Header+"<th>"+data.Header[i]+"</th>";
|
}
|
document.getElementById('dialog_Header').innerHTML=dialog_Header;
|
//内容
|
dialog_tbody="";
|
for (i=0;i<data.CarList.length;i++){
|
dialog_tbody=dialog_tbody+"<tr>";
|
dialog_tbody=dialog_tbody+"<td>"+data.CarList[i].CarLicense+"</td>";
|
dialog_tbody=dialog_tbody+"<td>"+data.CarList[i].CarModels+"</td>";
|
dialog_tbody=dialog_tbody+"</tr>";
|
}
|
for (i=i;i<10;i++){
|
dialog_tbody=dialog_tbody+"<tr>";
|
dialog_tbody=dialog_tbody+"<td> </td>";
|
dialog_tbody=dialog_tbody+"<td> </td>";
|
dialog_tbody=dialog_tbody+"</tr>";
|
}
|
document.getElementById('dialog_tbody').innerHTML=dialog_tbody;
|
//分页
|
JS_dialogPage(data.acc1,data.acc2,'JS_CarDialogOpen',DivID,data.SearchTXT);
|
|
}else{
|
alert(data.Error);
|
}
|
}
|
}
|
});
|
if (page==undefined && SearchTXT==undefined){JS_dialogOpen(DivID);}
|
}
|
</script>
|
|
<!--End 人员-->
|
|
</div>
|
<!-- End Wrapper-->
|
|
<!--Start 查询窗口-->
|
<script>
|
//初始化对话框
|
function JS_dialogSetUp(DivID,dialogType,JSName)
|
{
|
//列表搜索
|
dialog_box="";
|
if(dialogType==1){
|
dialog_box="<div class=\"search-box-top\"><form onSubmit=\""+JSName+"("+DivID+",document.getElementById('dialog_Search').value);return false;\"><input id=\"DivID\" type=\"hidden\" value=\"\"><div class=\"input-group\"><input id=\"dialog_Search\" class=\"form-control input-search\" placeholder=\"Search...\" type=\"text\"><span class=\"input-group-btn\"><button class=\"btn btn-primary\" type=\"button\" onclick=\""+JSName+"("+DivID+",document.getElementById('dialog_Search').value)\"><i class=\"fa fa-search\"></i></button><button class=\"btn btn-primary\" type=\"button\" onclick=\"JS_dialogClose()\" style=\"margin-left: 6px;\"><i class=\"fa ion-close\"></i></button></span></div></form></div>";
|
dialog_box=dialog_box+"<div class=\"table-wrap\"><table class=\"table table table-hover m-0\"><thead><tr id=\"dialog_Header\"></tr></thead><tbody id=\"dialog_tbody\"></tbody></table></div>"
|
dialog_box=dialog_box+"<ul class=\"pagination m-t-10\" id=\"dialog_pagination\"></ul>"
|
}
|
document.getElementById('dialog_box').innerHTML=dialog_box;
|
}
|
//分页
|
function JS_dialogPage(acc1,acc2,JSName,DivID,SearchTXT)
|
{
|
dialog_pagination="";
|
if (acc2>1){
|
|
if (acc1>1){dialog_pagination=dialog_pagination+"<li><a onclick=\""+JSName+"('"+DivID+"','"+SearchTXT+"',"+(acc1-1)+")\" aria-label=\"Previous\"><span aria-hidden=\"true\">«</span></a></li>";}
|
for (i=1;i<=acc2;i++){
|
if (acc1==i){
|
dialog_pagination=dialog_pagination+"<li class=\"active\"><a>"+i+"</a></li>";
|
}else{
|
dialog_pagination=dialog_pagination+"<li><a onclick=\""+JSName+"('"+DivID+"','"+SearchTXT+"',"+i+")\">"+i+"</a></li>";
|
}
|
}
|
if (acc2>acc1){dialog_pagination=dialog_pagination+"<li><a onclick=\""+JSName+"('"+DivID+"','"+SearchTXT+"',"+(acc1+1)+")\" aria-label=\"Next\"><span aria-hidden=\"true\">»</span></a></li>";}
|
}
|
document.getElementById('dialog_pagination').innerHTML=dialog_pagination;
|
}
|
|
//打开对话框
|
function JS_dialogOpen(DivID)
|
{
|
var sTop=document.documentElement.scrollTop;
|
if (sTop==0) {sTop=document.body.scrollTop;}
|
var sLeft= document.documentElement.scrollLeft;
|
if (sLeft==0) {sLeft=document.body.scrollLeft;}
|
var dTop = document.getElementById(DivID).getBoundingClientRect().top;
|
var dLeft = document.getElementById(DivID).getBoundingClientRect().left;
|
var dBottom = document.getElementById(DivID).getBoundingClientRect().bottom;
|
if (dTop<200) {dTop=150;}else{dTop=dTop-50;}
|
if (dBottom<600){dTop=dTop-(600-dBottom);}
|
//if (dLeft<120) {dLeft=120;}
|
win_Dialog.style.display="block";
|
win_Dialog.style.left=(dLeft)+"px";
|
win_Dialog.style.top=(sTop+dTop)+"px";
|
win_Dialog.style.display='block';
|
document.getElementById('DivID').value=DivID;
|
}
|
//关闭对话框
|
function JS_dialogClose(DivID){
|
document.getElementById('win_Orer').style.display='';
|
document.getElementById('win_Dialog').style.display='none';
|
document.body.scrollTop=document.getElementById(document.getElementById('DivID').value).getBoundingClientRect().top;
|
}
|
|
</script>
|
<div id="win_Dialog" class="dialogJshadow" style="display:none;">
|
<div class="row">
|
<div class="col-md-12">
|
<div id="dialog_box" class="white-box" style="border: 1px solid #e1e1e1;margin-right:0;margin-left:0"></div>
|
</div>
|
</div>
|
</div>
|
<!--End 查询窗口-->
|
|
|
|
</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>
|
<!-- End core plugin -->
|
|
</body>
|
|
</html>
|
