<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<%
|
'Response.Cookies("OA")("adminID")=""
|
'Response.end
|
DispatchOrdID=request("DispatchOrdID")
|
closeWindow=SafeRequest(Request("closeWindow"))
|
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=","")
|
End If
|
Next
|
End If
|
if DispatchOrdID="" then Response.Redirect "/"
|
state=DispatchOrdID%>
|
<!--#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">
|
<title>服务评价</title>
|
<link href="css/main.css" type="text/css" rel="stylesheet">
|
</head>
|
<%
|
errmsg=trim(Request("errmsg"))
|
if errmsg<>"" then
|
Response.Write "<script type=""text/javascript"">alert('"&errmsg&"');</script>"
|
end if
|
%>
|
<%
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
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是)
|
DispatchOrdCarID = rs("DispatchOrdCarID") '派遣车辆ID
|
DispatchOrdTraSDTime = rs("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
|
StretcherMoney = rs("StretcherMoney") '担架费
|
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) '调度单编号
|
|
Else
|
Response.Redirect "/m_DispatchOrder_List.gds?DispatchOrdID="&DispatchOrdID&"&SystemMessageType=4&SMT=9"
|
End If
|
rs.close()
|
|
'相关受理单
|
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") '预约日期
|
ServiceOrdCoName = rs("ServiceOrdCoName") '联系人姓名
|
ServiceOrdCoPhone = rs("ServiceOrdCoPhone") '联系人电话
|
ServiceOrdCoTies = rs("ServiceOrdCoTies") '联系人与患者关系
|
ServiceOrdPtName = rs("ServiceOrdPtName") '患者姓名
|
ServiceOrdPtAge = rs("ServiceOrdPtAge") '患者年龄
|
ServiceOrdPtSex = rs("ServiceOrdPtSex") '患者性别
|
ServiceOrdPtNat = rs("ServiceOrdPtNat") '患者国籍
|
ServiceOrdPtOutHosp = rs("ServiceOrdPtOutHosp") '转出医院
|
ServiceOrdPtServices = rs("ServiceOrdPtServices") '科室
|
ServiceOrdPtDiagnosis = rs("ServiceOrdPtDiagnosis") '诊断
|
ServiceOrdPtCondition = rs("ServiceOrdPtCondition") '病情描述
|
ServiceOrdPtDoctor = rs("ServiceOrdPtDoctor") '患者医生
|
ServiceOrdPtDoctorPhone=rs("ServiceOrdPtDoctorPhone") '患者医生电话
|
ServiceOrdTraProvince = rs("ServiceOrdTraProvince") '出发地省份
|
ServiceOrdTraCity = rs("ServiceOrdTraCity") '出发地城市
|
ServiceOrdTraStreet = rs("ServiceOrdTraStreet") '出发地
|
ServiceOrdTraStreetCoo= rs("ServiceOrdTraStreetCoo") '出发地坐标
|
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") '服务单审核时间
|
ServiceOrdUnitID = rs("ServiceOrdUnitID") '第三方ID
|
PayQRcodeURL = rs("PayQRcodeURL") '第三方支付链接
|
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&"公里"
|
End If
|
rs.close()
|
End If
|
|
dURL=dwzURL("/GuestOrder.php?DispatchOrdID="&DispatchOrdID)
|
%>
|
|
<body>
|
<div id="m_Orer">
|
<!--#include virtual="/m_DispatchOrder_header.gds"-->
|
<!--<div class="order_head"><a href="order_List.asp"><font></font></a>调度详情</div>-->
|
<!--<div class="os_status"><span class="os_statusfirst">订单状态：等待卖家发货</span><span class="os_refresh">刷新</span></div>-->
|
|
<!--<div class="os_line"></div>-->
|
<div class="os_shopname">服务评价二维码</div>
|
<div class="os_shopname" style="text-align: center;"><div id="output"></div></div>
|
|
<script src="/js/jquery-1.12.3.min.js"></script>
|
<script type="text/javascript" src="/js/jquery.qrcode.min.js"></script>
|
<script>
|
jQuery(function(){
|
jQuery('#output').qrcode({
|
render: "table", //table方式
|
width: 300, //宽度
|
height:300, //高度
|
text: "http://<%=dURL%>" //任意内容
|
});
|
})
|
</script>
|
</div>
|
|
|
<%
|
'微信JS-SDK
|
timestamp = ToUnixTime(now(),+8)
|
wxnonceStr = "5P1QYH5OEW6BCXTo"
|
wxticket = Getjsapi_ticket()
|
wxurl = WEBURL&Request.ServerVariables("URL")
|
if Request.ServerVariables("QUERY_STRING")<>"" then wxurl=wxurl&"?"&Request.ServerVariables("QUERY_STRING")
|
wxOri = "jsapi_ticket="&wxticket&"&noncestr="&wxnonceStr&"×tamp="×tamp&"&url="&wxurl
|
wxSha1 = hex_sha1(wxOri)
|
%>
|
<script src="https://res.wx.qq.com/open/js/jweixin-1.2.0.js"></script>
|
<script>
|
wx.config({
|
debug: false,
|
appId: '<%=corpid%>',
|
timestamp: <%=timestamp%>,
|
nonceStr: '<%=wxnonceStr%>',
|
signature: '<%=wxSha1%>',
|
jsApiList: [
|
'checkJsApi',
|
'openLocation',
|
'getLocation',
|
'closeWindow'
|
]
|
});
|
|
</script>
|
<script src="/js/zepto.min.js"></script>
|
|
<IFRAME id="HiddenFrame" name="HiddenFrame" WIDTH=0 HEIGHT=0 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no BORDERCOLOR=#ffffff></IFRAME>
|
</body>
|
</html>
|
|
|
