<%@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")
|
'默认显示字段
|
If OrdState="" Then OrdState=1 '默认显示咨询单
|
If OrdClassList="" Then OrdClassList="0" '默认显示全部类型单据
|
If OrdState="1" Then '咨询单
|
OrdListName = "咨询单查询"
|
ElseIf OrdState="2" Then '等待确认
|
OrdListName = "等待确认查询"
|
ElseIf OrdState="3" Then '等待出车
|
OrdListName = "等待出车查询"
|
ElseIf OrdState="4" Then '无效(取消单)
|
OrdListName = "无效(取消单)查询"
|
ElseIf OrdState="5" Then '未调度
|
OrdListName = "未调度查询"
|
ElseIf OrdState="6" Then '已调度
|
OrdListName = "已调度查询"
|
ElseIf OrdState="8" Then '已返回
|
OrdListName = "已返回查询"
|
ElseIf OrdState="9" Then '跑空单
|
OrdListName = "跑空单查询"
|
Else
|
OrdListName = "服务单查询"
|
End If
|
%>
|
<!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><%=OrdListName%></title>
|
<link href="css/main.css" type="text/css" rel="stylesheet">
|
</head>
|
<%
|
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
|
|
|
|
|
'时间段列表
|
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"
|
|
orderby=" ServiceOrdID desc"
|
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=" ServiceOrd_CC_Time "&SqlOrdDateType&" "
|
|
If isDepartment("020112")=1 And session("admin_OrderClass")<>"" Then
|
searchSql=" ServiceOrdClass in ('"&replace(session("admin_OrderClass"),",","','")&"') "
|
Else
|
searchSql=" (ServiceOrd_CC_ID in ("&session("adminID")&") or ServiceOrd_NS_ID in ("&session("adminID")&") or ServiceOrd_AP_ID in ("&session("adminID")&")) "
|
End If
|
If OrdState="0" Then '全部
|
searchSql=searchSql&" "
|
ElseIf OrdState="1" Then '咨询单
|
searchSql=searchSql&" and ServiceOrdState in (1) "
|
ElseIf OrdState="2" Then '等待确认
|
searchSql=searchSql&" and ServiceOrdState in (3) and DispatchOrdState in (1,2)"
|
ElseIf OrdState="3" Then '等待出车
|
searchSql=searchSql&" and ServiceOrdState in (3) and DispatchOrdState in (3)"
|
ElseIf OrdState="4" Then '无效(取消单)
|
searchSql=" ServiceOrd_AP_Time "&SqlOrdDateType&" and ServiceOrdState in (4) and (ServiceOrdClass in ('"&OrdClassListSql&"'))"
|
orderby=" ServiceOrd_AP_Time desc"
|
ElseIf OrdState="5" Then '未调度
|
searchSql=searchSql&" and ServiceOrdState in (2) "
|
ElseIf OrdState="6" Then '已调度
|
searchSql=searchSql&" and ServiceOrdState in (3) "
|
ElseIf OrdState="8" Then '已返回
|
searchSql=searchSql&" and ServiceOrdState in (3) and DispatchOrdState in (8)"
|
ElseIf OrdState="9" Then '跑空单
|
searchSql=searchSql&" and ServiceOrdState in (3) and DispatchOrdState in (9)"
|
Else
|
searchSql=searchSql&" and ServiceOrdState in ("&OrdState&") "
|
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 = 40
|
acc2=0
|
acc3=0
|
|
sql="select top 100 ServiceOrdID,ServiceOrdClass,ServiceOrdState,ServiceOrd_CC_Time,ServiceOrdNo,ServiceOrdTraStreet,ServiceOrdTraVia,ServiceOrdTraEnd,ServiceOrdCancelReason,ServiceOrdCancelReasonTXT,ServiceOrd_AP_Time,ServiceOrd_AP_ID,ServiceOrdTraTxnPrice,StretcherMoney,DispatchOrdID,DispatchOrd_NS_Time,DispatchOrdState,FromHQ_is,ServiceOrdPoints,UserPointsCost=isnull((select sum(Points_Score) from UserPoints where Points_State<>4 and Points_Type=1 and ServiceOrdIDDt=ServiceOrdID),0) from ServiceOrder LEFT JOIN DispatchOrd ON ServiceOrdIDDt=ServiceOrdID and DispatchOrdState not in (0,10) where "&searchSql&" order by "&orderby
|
'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="<%If OrdState="2" Then%>color: #000;<%else%>color: #FFF;<%End If%>">等待确认</a></td>
|
<td><a href="?OrdState=3" style="<%If OrdState="3" Then%>color: #000;<%else%>color: #FFF;<%End If%>">等待出车</a></td>
|
<%ElseIf OrdState="8" Or OrdState="9" then%>
|
<td><a href="?OrdState=8" style="<%If OrdState="8" Then%>color: #000;<%else%>color: #FFF;<%End If%>">已返回</a></td>
|
<td><a href="?OrdState=9" style="<%If OrdState="9" Then%>color: #000;<%else%>color: #FFF;<%End If%>">跑空单</a></td>
|
<%else%>
|
<td><a href="?OrdState=0" style="<%If OrdState="0" Then%>color: #000;<%else%>color: #FFF;<%End If%>">所有</a></td>
|
<td><a href="?OrdState=1" style="<%If OrdState="1" Then%>color: #000;<%else%>color: #FFF;<%End If%>">咨询单</a></td>
|
<td><a href="?OrdState=4" style="<%If OrdState="4" Then%>color: #000;<%else%>color: #FFF;<%End If%>">无效(取消单)</a></td>
|
<td><a href="?OrdState=5" style="<%If OrdState="5" Then%>color: #000;<%else%>color: #FFF;<%End If%>">未调度</a></td>
|
<td><a href="?OrdState=6" style="<%If OrdState="6" Then%>color: #000;<%else%>color: #FFF;<%End If%>">已调度</a></td>
|
<%End If%>
|
</tr>
|
</table>
|
</div>
|
<%i=1
|
do while not rs.Eof and i<=QuantityInt
|
ServiceOrdID = rs("ServiceOrdID") '服务单号
|
ServiceOrdClass = rs("ServiceOrdClass") '
|
ServiceOrdState = rs("ServiceOrdState") '状态ID
|
ServiceOrd_CC_Time = rs("ServiceOrd_CC_Time") '开单时间
|
ServiceOrdTraStreet = rs("ServiceOrdTraStreet") '出发地
|
ServiceOrdTraVia = rs("ServiceOrdTraVia") '途经地(计划)
|
ServiceOrdTraEnd = rs("ServiceOrdTraEnd") '目的地
|
ServiceOrdCancelReason= rs("ServiceOrdCancelReason")'取消类型
|
ServiceOrdCancelReasonTXT= rs("ServiceOrdCancelReasonTXT") '取消原因
|
ServiceOrd_AP_Time = rs("ServiceOrd_AP_Time") '审核时间
|
ServiceOrd_AP_ID = rs("ServiceOrd_AP_ID") '审核人员ID
|
ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice")'成交价
|
StretcherMoney = rs("StretcherMoney") '担架费
|
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) '服务单编号
|
|
DispatchOrdID = rs("DispatchOrdID") '调度单号
|
ServiceOrdTraSDTime = rs("DispatchOrd_NS_Time") '调度时间
|
DispatchOrdState = rs("DispatchOrdState") '调度单状态
|
FromHQ_is = rs("FromHQ_is") '是否有转内部转发
|
ServiceOrdPoints = rs("ServiceOrdPoints") '积分使用
|
UserPointsCost = rs("UserPointsCost") '订单积分成本
|
|
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=""
|
ServiceOrdStateTXT=""
|
If ServiceOrdState="1" Then
|
OrdStartDateTXT = "开单时间:"&FORMATDATETIME(ServiceOrd_CC_Time,vbShortDate) &" "& Right("0"&Hour(ServiceOrd_CC_Time),2) &":"& Right("0"&Minute(ServiceOrd_CC_Time),2)
|
ServiceOrdStateTXT = ServiceOrdStateA(ServiceOrdState)
|
|
ElseIf ServiceOrdState="2" Then
|
OrdStartDateTXT = "开单时间:"&FORMATDATETIME(ServiceOrd_CC_Time,vbShortDate) &" "& Right("0"&Hour(ServiceOrd_CC_Time),2) &":"& Right("0"&Minute(ServiceOrd_CC_Time),2)
|
EntourageStateTXT = ServiceOrdTraStreet
|
ServiceOrdStateTXT = ServiceOrdStateA(ServiceOrdState)
|
|
ElseIf ServiceOrdState="3" Then
|
If DispatchOrdState<>"" Then
|
OrdStartDateTXT = "调度时间:"&ServiceOrdTraSDTime
|
ServiceOrdStateTXT = DispatchOrdStateA(DispatchOrdState)
|
EntourageStateTXT = ServiceOrdTraStreet
|
Else
|
OrdStartDateTXT = "开单时间:"&FORMATDATETIME(ServiceOrd_CC_Time,vbShortDate) &" "& Right("0"&Hour(ServiceOrd_CC_Time),2) &":"& Right("0"&Minute(ServiceOrd_CC_Time),2)
|
EntourageStateTXT = ServiceOrdTraStreet
|
ServiceOrdStateTXT = ServiceOrdStateA(ServiceOrdState)
|
End If
|
|
ElseIf ServiceOrdState="4" Then
|
OrdStartDateTXT = "取消时间:"&ServiceOrd_AP_Time
|
'ServiceOrdStateTXT = ServiceOrdStateA(ServiceOrdState)
|
EntourageStateTXT = ""
|
ServiceOrdCancelReasonTXT="<br>"&ServiceOrdStateA(ServiceOrdState)&" 类型:"&CancelReasonA(ServiceOrdCancelReason)&"<br>原因:"&ServiceOrdCancelReasonTXT
|
|
End If
|
|
'出发地
|
If ServiceOrdTraVia<>"" Then
|
OrdTraVia=ServiceOrdTraVia
|
Else
|
OrdTraVia=ServiceOrdTraStreet
|
End If
|
|
If StretcherMoney>0 Then
|
If ServiceOrdState="1" Then
|
TraTxnPriceTXT="报价:"&ServiceOrdTraTxnPrice&"+"&StretcherMoney
|
Else
|
TraTxnPriceTXT="成交价:"&ServiceOrdTraTxnPrice&"+"&StretcherMoney
|
End If
|
ElseIf ServiceOrdTraTxnPrice=0 Then
|
TraTxnPriceTXT="未报价"
|
Else
|
If ServiceOrdState="1" Then
|
TraTxnPriceTXT="报价:"&ServiceOrdTraTxnPrice
|
Else
|
TraTxnPriceTXT="成交价:"&ServiceOrdTraTxnPrice
|
End If
|
End If
|
If ServiceOrdPoints>0 Then
|
TraTxnPriceTXT=TraTxnPriceTXT&" <font color=""#E91E63"">使用积分: "&ServiceOrdPoints&"</font>"
|
End If
|
If UserPointsCost>0 Then
|
TraTxnPriceTXT=TraTxnPriceTXT&" <font color=""#4CAF50"">积分成本: -"&UserPointsCost&"</font>"
|
End If
|
|
If DispatchOrdID<>"" Then
|
OrdURL="/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID
|
Else
|
OrdURL="/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
|
End If
|
|
|
%>
|
<div class="massage" style="height: inherit;">
|
<a href="<%=OrdURL%>" class="detailed">
|
<ul>
|
<li><p class="mas"<%If FromHQ_is="1" Then Response.Write " style=""color: #ff4aff;font-weight:700;"""%>><%=ServiceOrdNo%></p><p class="ms_time"><%=OrdStartDateTXT%></p></li>
|
<li class="mas_sec">出发:<%=EntourageStateTXT%><br>途经:<%=OrdTraVia%><br>目的:<%=ServiceOrdTraEnd%><br><%=TraTxnPriceTXT%><%=ServiceOrdCancelReasonTXT%>
|
<span class="mas_status"><%=ServiceOrdStateTXT%></span></li>
|
</ul>
|
</a>
|
</div>
|
<% 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%>
|
<div class="os_shopname"></div>
|
<div class="os_shopname"></div>
|
<div class="os_img">
|
<div class="posi" id="posi" >
|
<div class="ljgm"><a href="/m_ServiceOrder.gds?NEWOrder=2" class="bttt" style="color: #fff;background: #9a6d92;font-weight: 700;">新建任务单</a></div>
|
</div>
|
</div>
|
<!--massage end-->
|
|
|
|
</div>
|
|
|
</body>
|
</html>
|