<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%> <% '合法性验证 PositionURL=Request.ServerVariables("URL") if Request.ServerVariables("QUERY_STRING")<>"" then PositionURL=PositionURL&"?"&Request.ServerVariables("QUERY_STRING") If InStr(PositionURL,"&sign")>=1 Then PositionURL=Mid(PositionURL,1,InStr(PositionURL,"&sign")-1) URLSign=SignArgs(PositionURL) Sign1=request("sign") If URLSign<>Sign1 Then 'Response.Redirect "/OrdEvaluateError.asp" End If '------------- ServiceOrdID=request("ServiceOrdID") isPrePayment=request("isPrePayment") openid=request("openid") if ServiceOrdID="" then Response.Redirect "/OrdEvaluateError.asp" If isPrePayment="" Then isPrePayment=0 Total_fee=0 StretcherMoney=0 %> 快线福祉车 <% Set rs = Server.CreateObject("ADODB.Recordset") '相关受理单 If ServiceOrdID="" Then Response.Redirect "/OrdEvaluateError.asp" End If sql="select * from Welcab.dbo.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") '科室 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") '目的地坐标 ServiceOrdTraVia = rs("ServiceOrdTraVia") '途经地 ServiceOrdTraDistance = rs("ServiceOrdTraDistance") '距离(公里) ServiceOrdTraDuration = rs("ServiceOrdTraDuration") '预计行程时间 ServiceOrdTraUnitPrice= rs("ServiceOrdTraUnitPrice") '单价/公里 ServiceOrdTraOfferPrice=rs("ServiceOrdTraOfferPrice") '标准报价 ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice") '成交价 ServiceOrdTraPaidPrice= rs("ServiceOrdTraPaidPrice") '已支付金额 ServiceOrdTraPrePayment=rs("ServiceOrdTraPrePayment") '需预付款 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 Guest_Point = rs("Guest_Point") If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0 If ServiceOrdTraPaidPrice="" Then ServiceOrdTraPaidPrice=0 If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0 If Len(ServiceOrdCoPhone)=11 Then ServiceOrdCoPhone=Left(ServiceOrdCoPhone,5)&"****"&right(ServiceOrdCoPhone,2) Else ServiceOrdCoPhone="" End If 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 isPrePayment="1" Then Total_fee=ServiceOrdTraPrePayment-ServiceOrdTraPaidPrice Else Total_fee=ServiceOrdTraTxnPrice+StretcherMoney-ServiceOrdTraPaidPrice End If If Total_fee<0 Then Total_fee=0 Else Response.Redirect "/OrdEvaluateError.asp" End If rs.close() If Guest_Point<>0 And Total_fee<=0 Then Response.Redirect "/OrdEvaluateOK.asp" Response.End() End If If DispatchOrdCarID<>"" And DispatchOrdCarID<>"0" Then DispatchOrdCarLicense=CarDataA(DispatchOrdCarID,"","CarLicense") End if %>
快线福祉车
<%If ServiceOrdType<>"14" And ServiceOrdType<>"15" And ServiceOrdType<>"16" And ServiceOrdType<>"17" 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") End If rs.close() ElseIf ServiceOrdTraVia<>"" then OrdTraVia = SPLIT(ServiceOrdTraVia,"=>") PtOutHospName=Trim(OrdTraVia(0)) End if If PtOutHospName<>"" Then%>
出发地：
<%=PtOutHospName%>
<%End If%> <%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") End If rs.close() Else PtInHospName=ServiceOrdTraEnd End If If PtInHospName<>"" Then%>
目的地：
<%=PtInHospName%>
<%End If%>
<%If ServiceOrdCoName<>"" then%>
　联系人： <%=ServiceOrdCoName%>
<%End If%> <%If ServiceOrdCoPhone<>"" then%>
联系电话： <%=ServiceOrdCoPhone%>
<%End If%> <%If ServiceOrdPtName<>"" then%>
患者姓名： <%=ServiceOrdPtName%>
<%End If%> <%If ServiceOrdApptDate<>"" then%>
预约时间： <%=ServiceOrdApptDate%>
<%End If%> <%End If%> <%If ServiceOrdTraTxnPrice>0 Then 'ServiceOrdTraTxnPrice 成交价 'ServiceOrdTraPrePayment 需预付款 'StretcherMoney 附加费用 'ServiceOrdTraPaidPrice 已支付金额 %>
订单金额： ￥<%=ServiceOrdTraTxnPrice%>
<%If StretcherMoney>0 Then%>
附加费用： ￥<%=StretcherMoney%>
<%End If%> <%If ServiceOrdPoints>0 Then%>
使用积分： <%=ServiceOrdPoints%>
<%End If%> <%If ServiceOrdTraPaidPrice-ServiceOrdPoints>0 Then%>
　已支付： ￥<%=ServiceOrdTraPaidPrice%>
<%End If%> <%End If%>
<% If Total_fee>0 Then tips1 = "请先支付出车预付订金 "&Total_fee&"元" %>
待支付<%If isPrePayment="1" Then%>定金<%else%>金额：<%End If%> ￥<%=FormatNumber(Round(Total_fee,2),2,True)%>
<% Else tips1 = "您已支付了定金 "&ServiceOrdTraPaidPrice&"元" %>
<%End If%> <%If isPrePayment = "1" And ServiceOrdType<>"14" And ServiceOrdType<>"15" And ServiceOrdType<>"16" And ServiceOrdType<>"17" Then %>
　　<%=ServiceOrdCoName%>,您好！<%=tips1%>，我们的团队去到出发地 <%=PtOutHospName%> 后，收齐 <%=ServiceOrdTraTxnPrice-Total_fee%> 元后再出发至 <%=PtInHospName%>。然后给您开具全额 <%=ServiceOrdTraTxnPrice%>元 的医疗转运票据。如医护已经出车，该定金无法退回，请知悉。有疑问欢迎随时拨打服务热线 (020) 966120，谢谢！
<%ElseIf DispatchOrdState>=6 And ServiceOrdType<>"14" And ServiceOrdType<>"15" And ServiceOrdType<>"16" And ServiceOrdType<>"17" And Guest_Point=0 Then%>
';">
若需了解更多信息，欢迎拨打服务热线：
(020) 966120
<%End if%>
广东民航医疗快线有限公司