<%@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"-->
|
<!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><%=DispatchOrdStateB(OrdState)%></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:14px;}
|
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>
|
<%
|
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=7 '默认显示全部日期单据
|
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&"&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=" DispatchOrd_AP_Check=1 "
|
ElseIf OrdState="1000" Then
|
searchSql=" DispatchOrdState not in (0,10) "
|
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
|
|
acc1=clng(request("page"))
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 20
|
acc2=0
|
acc3=0
|
|
sql="select DispatchOrd.*,ServiceOrdID,ServiceOrdClass,ServiceOrdApptDate,ServiceOrdTraProvince,ServiceOrdTraCity,ServiceOrdTraTxnPrice,ServiceOrdPtOutHospID,ServiceOrdPtOutHosp,ServiceOrdPtInHospID,ServiceOrdPtInHosp,EntourageLeadID=DispatchOrd_Entourage.EntourageOAid,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&" and DE.DispatchOrdIDDt=DispatchOrdID and DE.EntourageOAid="&session("adminID")&" 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
|
%>
|
<body>
|
<!--<div class="order_head" >客户留言信息</div>-->
|
|
<div class="buyersmessage">
|
<div class="table">
|
<table border="1">
|
<tr>
|
<%If OrdState="2" Or OrdState="3" then%>
|
<td><a href="?OrdState=2" style="color: #FFF;">等待确认</a></td>
|
<td><a href="?OrdState=3" style="color: #FFF;">等待出车</a></td>
|
<%ElseIf OrdState="8" Or OrdState="9" then%>
|
<td><a href="?OrdState=8" style="color: #FFF;">已返回</a></td>
|
<td><a href="?OrdState=9" style="color: #FFF;">跑空单</a></td>
|
<%End If%>
|
</tr>
|
</table>
|
</div>
|
<%i=1
|
do while not rs.Eof and i<=QuantityInt
|
DispatchOrdID = rs("DispatchOrdID") '调度单号
|
DispatchOrdClass = rs("DispatchOrdClass") '调度单单据类型
|
ServiceOrdID = rs("ServiceOrdID") '受理单号
|
ServiceOrdClass = rs("ServiceOrdClass") '受理单单据类型
|
DispatchOrdState = rs("DispatchOrdState") '服务单状态(0未下发,1.2等待确认,3等待出车,4.5.6.7服务中,8已完成,9跑空单,10取消)
|
DispatchOrdStartDate = rs("DispatchOrdStartDate") '调度单状态时间
|
DispatchOrdCarID = rs("DispatchOrdCarID") '调度车辆ID
|
ServiceOrdApptDate = rs("ServiceOrdApptDate") '预约日期
|
DispatchOrdCoName = rs("DispatchOrdCoName") '联系人姓名
|
DispatchOrdCoPhone = rs("DispatchOrdCoPhone") '联系人电话
|
ServiceOrdTraProvince = rs("ServiceOrdTraProvince") '出发地省份
|
ServiceOrdTraCity = rs("ServiceOrdTraCity") '出发地城市
|
DispatchOrdTraStreet = rs("DispatchOrdTraStreet") '出发地
|
DispatchOrdTraEnd = rs("DispatchOrdTraEnd") '目的地
|
DispatchOrdTraVia = rs("DispatchOrdTraVia") '实际途经地
|
DispatchOrdTraSDTime = rs("DispatchOrdTraSDTime") '拟出发时间
|
DispatchOrdActualDate = rs("DispatchOrdActualDate") '实出发时间
|
ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice") '成交价
|
DispatchOrd_AP_Check = rs("DispatchOrd_AP_Check") '审核状态(0未审核,1已审核)
|
DispatchOrd_AP_ID = rs("DispatchOrd_AP_ID") '审核人员ID
|
DispatchOrd_AP_Time = rs("DispatchOrd_AP_Time") '审核时间
|
ServiceOrdPtOutHospID = rs("ServiceOrdPtOutHospID") '转出医院ID
|
ServiceOrdPtOutHosp = rs("ServiceOrdPtOutHosp") '转出医院
|
ServiceOrdPtInHospID = rs("ServiceOrdPtInHospID") '转入医院ID
|
ServiceOrdPtInHosp = rs("ServiceOrdPtInHosp") '转入医院
|
|
EntourageLeadID = rs("EntourageLeadID") '领队ID
|
EntourageState = rs("EntourageState") '确认状态(1等待,2拒绝,3已确认)
|
EntourageEnd_Time = rs("EntourageEnd_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) '调度单编号
|
|
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 = "出发时间:"&DispatchOrdTraSDTime
|
EntourageStateTXT = DispatchOrdStateTXT&DispatchOrdTraEnd
|
|
ElseIf DispatchOrdState="4" Or DispatchOrdState="5" Or DispatchOrdState="6" Or DispatchOrdState="7" Then
|
OrdStartDateTXT = "出发时间:"&DispatchOrdActualDate
|
EntourageStateTXT = DispatchOrdStateTXT&DispatchOrdTraEnd
|
|
ElseIf DispatchOrdState="8" Or DispatchOrdState="9" Then
|
OrdStartDateTXT = "返回时间:"&DispatchOrdStartDate
|
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&" (个人未确认)"
|
%>
|
<section>
|
<p class="title" style="line-height: 10px;"> </p>
|
<a href="m_DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>" class="detailed">
|
<div class="wrap">
|
<div class="left">
|
<p class="time"><%=DispatchOrdNo%></p>
|
<div class="add_wrap">
|
<%If DispatchOrdState<>14 And 1=2 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>
|
</div>
|
|
<p class="right"><%=OrdStartDateTXT%></p>
|
|
</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%>
|
<!--massage end-->
|
|
|
|
</div>
|
|
|
</body>
|
</html>
|
