<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
|
<% Session.CodePage=65001 %>
|
<% Response.charset = "utf-8" %>
|
<!--#include virtual="/inc/odbc.asp"-->
|
<!--#include virtual="/inc/function.asp"-->
|
<!--#include virtual="/inc/core.asp"-->
|
<%
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
Set rsDt = Server.CreateObject("ADODB.Recordset")
|
|
method=trim(Request("method"))
|
errcode=""
|
if method="" Then
|
errcode=40001
|
errmsg="invalid method"
|
end If
|
|
'时间戳验证----------
|
UnixTime=trim(Request("UnixTime"))
|
Call MD5_UnixTime(UnixTime)
|
'时间戳验证---end
|
|
'签名验证----------
|
ApiSign=trim(Request("Sign"))
|
if ApiSign="" Then
|
errcode=40005
|
errmsg="invalid Sign"
|
ElseIf method="OA_MessageSend" Then
|
'不验签名
|
|
else
|
'待签名字符串
|
ReDim arr(Request.QueryString.Count+Request.Form.Count,2)
|
Dim v '所有表单值
|
Dim t '所有表单数量
|
v=Request.QueryString
|
If v<>"" And Request.Form<>"" Then
|
v=v&"&"&Request.Form
|
ElseIf Request.Form<>"" Then
|
v=Request.Form
|
End If
|
t=Request.QueryString.Count+Request.Form.Count
|
For i=0 To t-1
|
arr(i,1)=Split(Split(v,"&")(i),"=")(0)
|
arr(i,2)=Split(Split(v,"&")(i),"=")(1)
|
Next
|
For i = 0 To t-1
|
For j = i + 1 To t-1
|
If arr(i,1) > arr(j,1) Then
|
tmp1 = arr(i,1)
|
arr(i,1) = arr(j,1)
|
arr(j,1) = tmp1
|
tmp2 = arr(i,2)
|
arr(i,2) = arr(j,2)
|
arr(j,2) = tmp2
|
End If
|
Next
|
Next
|
For i = 0 To t-1
|
'response.write arr(i,1) & "=" & arr(i,2) & "<br>"
|
If arr(i,1)="Sign" Then
|
reserve=arr(i,2)
|
else
|
If arr(i,2)="timestamp" Then arr(i,2)=Date() &" "& Time()
|
sParaSort=sParaSort & arr(i,1) & arr(i,2)
|
sParaRunning=sParaRunning &"&"& arr(i,1) &"="& arr(i,2)
|
End if
|
Next
|
sign_type = "MD5"
|
input_charset="utf-8"
|
stringA=sParaSort&key
|
'response.write sParaSort & "<br>"
|
Private Function BuildRequestMysign(sParaSort)
|
'获得签名结果
|
Select Case sign_type
|
Case "MD5" BuildRequestMysign = Md5Sign(sParaSort,key,input_charset)
|
Case Else BuildRequestMysign = ""
|
End Select
|
End Function
|
sParaSort=BuildRequestMysign(sParaSort)
|
If CStr(ApiSign)<>CStr(sParaSort) Then
|
errcode=40006
|
errmsg="invalid Sign"
|
'签名调试
|
If is_test="1" And ApiSign="vicgame" Then errmsg="invalid stringA:"&stringA&",Sign:"&sParaSort
|
End If
|
End If
|
'签名验证---end
|
|
objConn.BeginTrans
|
|
If errcode="" then
|
select case method
|
case "APITest" '接口测试
|
TestData=trim(Request("Test")) '服务单状态
|
webJson="{""method"":""APITest"",""result"":1,""Test"":"""&TestData&"""}"
|
'查询服务单列表 end
|
|
case "ServiceOrder_List" '查询服务单列表
|
'必须
|
OrdState = trim(Request("OrdState")) '服务单状态
|
|
'可选
|
UserID = trim(Request("UserID")) '用户唯一ID
|
UnitOAID = trim(Request("UnitOAID")) '介绍人ID
|
OrdDateMode = trim(Request("OrdDateMode")) '时间查询模式(1服务单,2调度单)
|
OrdDateType = trim(Request("OrdDateType")) '时间段类型
|
OrdClassList= trim(Request("OrdClassList")) '服务单类型
|
OrdDateStart= trim(Request("OrdDateStart")) '自定义时间段-开始
|
OrdDateEnd = trim(Request("OrdDateEnd")) '自定义时间段-结束
|
searchTXT = trim(Request("searchTXT")) '按条件查找
|
page_no = trim(Request("page_no")) '页码(默认1)
|
page_size = trim(Request("page_size")) '每页显示数量(默认20,最大100)
|
OrdShow = trim(Request("OrdShow")) '显示类型(0正常,1统计)
|
|
'写入默认值
|
'If UserID="4" Then UserID=31982
|
If UserID="" Then UserID=0
|
If UnitOAID="" Then UnitOAID=0
|
If OrdDateType="" Then OrdDateType=5
|
If page_no="" Then page_no=1
|
If page_size="" Then page_size=20
|
If CInt(page_size)>100 Then page_size=100
|
If OrdShow="" Then OrdShow=0
|
If OrdDateMode="" Then OrdDateMode="1"
|
If OrdDateStart<>"" And OrdState="11" then
|
If DateDiff("d",OrdDateStart,Now())=7 Then OrdDateStart=DateAdd("d", -30, Now())
|
End If
|
total=0
|
StretcherMoney=0
|
If trim(Request("UserID"))="0" Then
|
errcode=40611
|
errmsg="invalid UserID"
|
End If
|
'查找数据库
|
If UnitOAID<>"0" And UnitOAID<>"" Then
|
'医院介绍人合作机制专用
|
sql="select HospID,IntroducerAdminDate from HospData,IntroducerData where HospIntroducerID=IntroducerID and IntroducerID="&UnitOAID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
UnitOASql=" and ServiceOrd_CC_Time>='"&rs(1)&"'"
|
do while not rs.Eof
|
UnitHospID=UnitHospID&","&rs(0)
|
rs.movenext
|
Loop
|
UnitOASql=UnitOASql&" and ServiceOrdPtOutHospID in (-1"&UnitHospID&")"
|
End If
|
rs.close()
|
|
'介绍人机制专用
|
sql="select IntroducerName from IntroducerData where IntroducerID="&UnitOAID
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
IntroducerName=rs(0)
|
If InStr(IntroducerName,"_")>1 Then
|
IntroducerSql=" and ServiceOrdIntroducer in ("&UnitOAID&")"
|
End If
|
End if
|
rs.close()
|
'Response.Write sql&"<br>"
|
End If
|
|
|
If OrdDateType="" Then
|
OrdDateType=5
|
'OrdDateTop=" top 20 "
|
End If
|
If OrdDateType="0" Then
|
if Not IsDate(OrdDateStart) Then OrdDateStart=""
|
if Not IsDate(OrdDateEnd) Then OrdDateEnd=""
|
If OrdDateStart="" And OrdDateEnd="" Then
|
OrdDateStart=Date()
|
OrdDateEnd=Date()&" 23:59:59"
|
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 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=4
|
OrdDateTypeName="本月"
|
OrdDateTypeName1=OrdDateTypeName
|
SqlOrdDateType="between DATEADD(mm,DATEDIFF(mm,0,getdate()),0) and dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,getdate())+1,0))"
|
End If
|
rs.close()
|
End if
|
|
if searchTXT<>"" Then
|
searchSql=""
|
If Len(searchTXT)=14 And Not IsNumeric(Left(searchTXT,2)) And IsNumeric(Mid(searchTXT,3,8)) And IsNumeric(Right(searchTXT,3)) And Mid(searchTXT,11,1)="-" Then
|
searchSql=" ServiceOrdClass='"&Left(searchTXT,2)&"' and CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&Mid(searchTXT,3,4)&"-"&Mid(searchTXT,7,2)&"-"&Mid(searchTXT,9,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"' "
|
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
|
ElseIf OrdState<>"" Then
|
If OrdDateMode="2" Then
|
searchSql=" ServiceOrdID in (select ServiceOrdIDDt from DispatchOrd where DispatchOrd_NS_Time "&SqlOrdDateType&") "
|
Else
|
searchSql=" ServiceOrd_CC_Time "&SqlOrdDateType&" "
|
End If
|
If OrdState="0" Then '日期内所有订单
|
searchSql=searchSql&""
|
ElseIf OrdState="-1" Then '所有订单
|
'searchSql=searchSql&" and ServiceOrdState not in (4) "
|
ElseIf OrdState="5" Then '服务中订单
|
searchSql=searchSql&" and ServiceOrdID in (select ServiceOrdIDDt from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState<8 and DispatchOrdState not in (10)) "
|
ElseIf OrdState="6" Then '服务完成订单
|
searchSql=searchSql&" and ServiceOrdID in (select ServiceOrdIDDt from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState>=8 and DispatchOrdState not in (10)) "
|
ElseIf OrdState="9" Then '跑空单
|
searchSql=searchSql&" and ServiceOrdID in (select ServiceOrdIDDt from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState=9) "
|
ElseIf OrdState="10" Then '服务评价
|
searchSql=searchSql&" and ServiceOrdID in (select ServiceOrdIDDt from DispatchOrd where DispatchOrdState in (6,7,8,9) and DispatchOrd_NS_Time "&SqlOrdDateType&") "
|
ElseIf OrdState="11" Then '发票申请
|
'searchSql=searchSql&" and ServiceOrdID in (select ServiceOrdIDDt from DispatchOrd where DispatchOrdState not in (10) and DispatchOrd_NS_Time "&SqlOrdDateType&") "
|
searchSql=searchSql&" and (ServiceOrdID in (select ServiceOrdIDDt from DispatchOrd where DispatchOrdState not in (10) and DispatchOrd_NS_Time "&SqlOrdDateType&")) "
|
Else
|
searchSql=searchSql&" and ServiceOrdState in ("&OrdState&") "
|
End If
|
If OrdClassList<>"" Then
|
searchSql=searchSql&" and ServiceOrdClass='"&OrdClassList&"' "
|
End if
|
Else
|
errcode=40100
|
errmsg="invalid OrdState"
|
end If
|
|
If searchSql<>"" Then
|
webJson=""
|
p=1
|
Set D_rs = Server.CreateObject("ADODB.Recordset")
|
If UserID<>0 Then
|
sql="select UserPhone from UserData where UserID="&UserID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
UserPhone=rs("UserPhone")
|
End If
|
rs.close()
|
If UserID=4 Then '测试用户专用 Or UserID=53
|
searchSql=searchSql&" and ServiceOrd_CC_Time>='2024-7-1' and ServiceOrdType=20 and ServiceOrdClass='BF'"
|
'searchSql=searchSql&" and ServiceOrdID=1016190316"
|
Else
|
If UserPhone<>"" And UserPhone<>"0" Then
|
searchSql=searchSql&" and (ServiceOrdUserID="&UserID&" or ServiceOrdCoPhone='"&UserPhone&"') and (ServiceOrdOperationRemarks<>'[客户未正式提交需求，可不联系]' or ServiceOrdOperationRemarks is null)" '只显示指定用户/电话
|
Else
|
searchSql=searchSql&" and ServiceOrdUserID="&UserID&" and (ServiceOrdOperationRemarks<>'[客户未正式提交需求，可不联系]' or ServiceOrdOperationRemarks is null)" '只显示指定用户
|
End If
|
End If
|
ElseIf UnitOASql<>"" Then '医院介绍人合作机制专用
|
searchSql=searchSql&UnitOASql&" and ServiceOrdState in (3)"
|
|
ElseIf IntroducerSql<>"" Then '单独介绍人机制专用
|
searchSql=searchSql&IntroducerSql
|
|
ElseIf UnitState<>2 Then
|
searchSql=searchSql&" and ServiceOrdUnitID="&UnitID '只显示指定商户
|
|
End If
|
If OrdShow="1" then
|
'各状态统计
|
OrdState1=0
|
OrdState2=0
|
OrdState3=0
|
OrdState4=0
|
OrdState5=0
|
OrdState6=0
|
total_OrdPrice=0
|
total_OrdInt=0
|
sql="select count(ServiceOrdID),ServiceOrdState,SUM(ServiceOrdTraTxnPrice) as TraTxnPrice from ServiceOrder where "&searchSql&" GROUP BY ServiceOrdState"
|
'Response.Write sql&"<br>"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
If rs(1)=1 Then
|
OrdState1=rs(0)
|
total_OrdInt=total_OrdInt+OrdState1
|
total_OrdPrice=total_OrdPrice+rs("TraTxnPrice")
|
ElseIf rs(1)=2 Then
|
OrdState2=rs(0)
|
total_OrdInt=total_OrdInt+OrdState2
|
total_OrdPrice=total_OrdPrice+rs("TraTxnPrice")
|
ElseIf rs(1)=3 Then
|
OrdState3=rs(0)
|
total_OrdInt=total_OrdInt+OrdState3
|
total_OrdPrice=total_OrdPrice+rs("TraTxnPrice")
|
ElseIf rs(1)=4 Then
|
'OrdState4=rs(0)
|
End If
|
rs.movenext
|
loop
|
rs.close()
|
sql="select count(ServiceOrdID),DispatchOrdState,sum(StretcherMoney) as StretcherMoney from (select ServiceOrdID,DispatchOrdState=(select top 1 DispatchOrdState from DispatchOrd where ServiceOrdID=ServiceOrdIDDt and DispatchOrdState not in (10) order by DispatchOrdState desc),StretcherMoney=(select SUM(StretcherMoney) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState<>10) from ServiceOrder where "&searchSql&" and ServiceOrdState in (3)) as aa GROUP BY DispatchOrdState"
|
'Response.Write sql&"<br>"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
If rs(1)=8 Then
|
OrdState6=OrdState6+rs(0)
|
total_OrdPrice=total_OrdPrice+rs("StretcherMoney")
|
ElseIf rs(1)=9 Then
|
OrdState4=OrdState4+rs(0)
|
total_OrdPrice=total_OrdPrice+rs("StretcherMoney")
|
Else
|
OrdState5=OrdState5+rs(0)
|
total_OrdPrice=total_OrdPrice+rs("StretcherMoney")
|
End If
|
rs.movenext
|
loop
|
rs.close()
|
totalJson=",""OrdState1"":"&OrdState1&",""OrdState2"":"&OrdState2&",""OrdState3"":"&OrdState3&",""OrdState4"":"&OrdState4&",""OrdState5"":"&OrdState5&",""OrdState6"":"&OrdState6&",""total_OrdInt"":"&total_OrdInt&",""total_OrdPrice"":"&total_OrdPrice
|
Else
|
'显示列表
|
'Response.Write sql&"<br>"
|
sql="select "&OrdDateTop&"*,PtOutHosp=isnull((select top 1 vtext from dictionary where vType=1 and vtitle='HospName' and vID=ServiceOrdPtOutHosp),CASE WHEN ServiceOrdTraVia<>'' THEN ServiceOrdTraVia ELSE ServiceOrdTraStreet END),PtInHosp=isnull((select top 1 vtext from dictionary where vType=1 and vtitle='HospName' and vID=ServiceOrdPtInHosp),ServiceOrdTraEnd) from ServiceOrder where "&searchSql&" order by ServiceOrdID desc"
|
'Response.Write sql&"<br>"
|
rs.open sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=page_size
|
rs.absolutepage=page_no
|
total=rs.recordcount
|
end If
|
do while not rs.Eof and p<=CInt(page_size)
|
ServiceOrdID = rs("ServiceOrdID") '服务单号
|
ServiceOrdUserID = rs("ServiceOrdUserID") '用户ID
|
ServiceOrdClass = rs("ServiceOrdClass") '单据类型
|
ServiceOrdType = rs("ServiceOrdType") '服务单类型
|
ServiceOrdState = rs("ServiceOrdState") '服务单状态
|
ServiceOrdStartDate = rs("ServiceOrdStartDate") '开单日期
|
ServiceOrdApptDate = rs("ServiceOrdApptDate") '预约日期
|
ServiceOrdCoName = rs("ServiceOrdCoName") '联系人姓名
|
ServiceOrdCoPhone = rs("ServiceOrdCoPhone") '联系人电话
|
ServiceOrdPtAge = rs("ServiceOrdPtAge") '患者年龄
|
ServiceOrdPtSex = rs("ServiceOrdPtSex") '患者性别
|
ServiceOrdTraProvince = rs("ServiceOrdTraProvince") '出发地省份
|
ServiceOrdTraCity = rs("ServiceOrdTraCity") '出发地城市
|
ServiceOrdTraStreet = rs("ServiceOrdTraStreet") '出发地
|
ServiceOrdTraEnd = rs("ServiceOrdTraEnd") '目的地
|
ServiceOrdTraVia = rs("ServiceOrdTraVia") '途经地(计划)
|
ServiceOrdTraDistance = rs("ServiceOrdTraDistance") '距离(公里)
|
ServiceOrdTraSDTime = rs("ServiceOrdTraSDTime") '拟出发时间
|
ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice") '成交价
|
ServiceOrdTraPrePayment=rs("ServiceOrdTraPrePayment") '需预付款
|
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") '审核时间
|
ServiceOrdVIP = rs("ServiceOrdVIP")
|
ServiceOrdUnitRemarks = rs("ServiceOrdUnitRemarks") '商户备注
|
PtOutHosp = rs("PtOutHosp") '转出医院
|
PtInHosp = rs("PtInHosp") '转入医院
|
Guest_Point = rs("Guest_Point") '用户评价情况 (0为未评价)
|
ServiceOrdIntroducer = rs("ServiceOrdIntroducer") '相关介绍人ID
|
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)
|
p=p+1
|
|
'转出转入医院
|
If PtOutHosp<>"" Then
|
If PtOutHosp<>"家中" Then
|
ServiceOrdTraStreet=PtOutHosp
|
End If
|
ServiceOrdTraVia=""
|
End If
|
If PtInHosp<>"" And PtInHosp<>"家中" Then
|
ServiceOrdTraEnd=PtInHosp
|
End If
|
If InStr(ServiceOrdTraStreet,",")>1 Then ServiceOrdTraStreet=Mid(ServiceOrdTraStreet,InStr(ServiceOrdTraStreet,",")+1)
|
If InStr(ServiceOrdTraEnd,",")>1 Then ServiceOrdTraEnd=Mid(ServiceOrdTraEnd,InStr(ServiceOrdTraEnd,",")+1)
|
|
If ServiceOrdTraSDTime<>"" Then
|
ServiceOrdTraSDTime=FORMATDATETIME(ServiceOrdTraSDTime,vbShortDate) &" "& Right("0"&Hour(ServiceOrdTraSDTime),2) &":"& Right("0"&Minute(ServiceOrdTraSDTime),2)
|
End If
|
If ServiceOrdApptDate<>"" Then
|
If year(ServiceOrdApptDate)>=2016 Then
|
ServiceOrdApptDate=FORMATDATETIME(ServiceOrdApptDate,vbShortDate) &" "& Right("0"&Hour(ServiceOrdApptDate),2) &":"& Right("0"&Minute(ServiceOrdApptDate),2)
|
Else
|
ServiceOrdApptDate=""
|
End If
|
End If
|
|
'调度单数据
|
D_Json=""
|
StretcherMoney=0
|
If ServiceOrdState=3 Then
|
sql="select * from DispatchOrd where ServiceOrdIDDt="&ServiceOrdID&" and DispatchOrdState>=0 order by DispatchOrdID"
|
'Response.Write sql
|
D_rs.open sql,objConn,1,1
|
do while not D_rs.Eof
|
DispatchOrdID = D_rs("DispatchOrdID") '调度单号
|
DispatchOrdClass = D_rs("DispatchOrdClass") '调度单单据类型
|
DispatchOrdState = D_rs("DispatchOrdState") '服务单状态
|
DispatchOrdStartDate = D_rs("DispatchOrdStartDate") '最后修改时间
|
DispatchOrd_NS_Time = D_rs("DispatchOrd_NS_Time") '派单时间
|
DispatchOrdCarID = D_rs("DispatchOrdCarID") '调度车辆ID
|
DispatchOrd_AP_ID = D_rs("DispatchOrd_AP_ID") '审核人员ID
|
DispatchOrd_AP_Time = D_rs("DispatchOrd_AP_Time") '审核时间
|
DispatchOrdActualDate = D_rs("DispatchOrdActualDate") '实际出发时间
|
DispatchOrdReturnDate = D_rs("DispatchOrdReturnDate") '实际返回时间
|
StretcherMoney = StretcherMoney+D_rs("StretcherMoney") '担架费
|
DispatchOrdNo = DispatchOrdClass& year(D_rs("DispatchOrd_NS_Time"))&Right("0"&month(D_rs("DispatchOrd_NS_Time")),2)&Right("0"&day(D_rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&D_rs("DispatchOrdNo"),3) '调度单编号
|
|
If DispatchOrdState<>10 Then i=i+1
|
|
D_Json=D_Json&",{""DispatchOrdID"":"""&DispatchOrdID&""",""DispatchOrdNo"":"""&DispatchOrdNo&""",""DispatchState"":"""&DispatchOrdStateA(DispatchOrdState)&""",""DispatchDate"":"""&DispatchOrd_NS_Time&""",""ActualDate"":"""&DispatchOrdActualDate&""",""ReturnDate"":"""&DispatchOrdReturnDate&""",""UpdateDate"":"""&DispatchOrdStartDate&"""}"
|
|
D_rs.movenext
|
Loop
|
If D_Json<>"" Then D_Json=Mid(D_Json,2)
|
D_rs.close()
|
End If
|
|
'发票状态
|
If OrdState="11" Then
|
sql="select count(InvoiceID),AuditStatus from InvoiceData where AuditStatus<>4 and ServiceOrderIDPK="&ServiceOrdID&" GROUP BY AuditStatus order by AuditStatus"
|
D_rs.open sql,objConn,1,1
|
if not D_rs.Eof Then
|
InvoiceState = D_rs(1)
|
If InvoiceState="3" Then
|
InvoiceStateTXT ="已开票"
|
Else
|
InvoiceState=1
|
InvoiceStateTXT ="已申请"
|
End If
|
Else
|
InvoiceState=0
|
InvoiceStateTXT ="未申请"
|
End if
|
D_rs.close()
|
Else
|
InvoiceState=0
|
InvoiceStateTXT=""
|
End If
|
|
'查找相关介绍人
|
If ServiceOrdIntroducer<>"" And IsNumeric(ServiceOrdIntroducer) Then
|
sql="select IntroducerName from IntroducerData where IntroducerID="&ServiceOrdIntroducer
|
D_rs.open sql,objConn,1,1
|
if not D_rs.eof Then
|
ServiceOrdIntroducer=D_rs(0)
|
End if
|
D_rs.close()
|
End If
|
|
webJson = webJson&",{""ServiceOrdID"":"""&ServiceOrdID&""",""OrdUserID"":"&ServiceOrdUserID&",""ServiceOrdNo"":"""&ServiceOrdNo&""",""ServiceOrdType"":"""&ServiceOrdTypeA(ServiceOrdType)&""",""ServiceOrdState"":"""&ServiceOrdStateA(ServiceOrdState)&""",""StartDate"":"""&ServiceOrd_CC_Time&""",""CoName"":"""&ServiceOrdCoName&""",""CoPhone"":"""&ServiceOrdCoPhone&""",""TraStreet"":"""&ServiceOrdTraStreet&""",""TraVia"":"""&ServiceOrdTraVia&""",""TraEnd"":"""&ServiceOrdTraEnd&""",""Price"":"""&ServiceOrdTraTxnPrice&""",""Introducer"":"""&ServiceOrdIntroducer&""",""Stretcher"":"""&StretcherMoney&""",""PrePayment"":"""&ServiceOrdTraPrePayment&""",""DispatchList"":["&D_Json&"],""UnitRemarks"":"""&ServiceOrdUnitRemarks&""",""Guest_Point"":"""&Guest_Point&""",""InvoiceState"":"""&InvoiceState&""",""InvoiceStateTXT"":"""&InvoiceStateTXT&"""}"
|
|
rs.movenext
|
loop
|
rs.close()
|
If webJson<>"" Then webJson=Mid(webJson,2)
|
End If
|
ElseIf errcode="" Then
|
errcode=40101
|
errmsg="invalid OrdState"
|
End If
|
|
If errcode="" Then
|
webJson="{""method"":""ServiceOrder_List"",""result"":1,""total"":"&total&totalJson&",""OrderList"":["&webJson&"]}"
|
End If
|
'查询服务单列表 end
|
|
case "ServiceOrder_Detail" '查询服务单详情
|
'必须
|
ServiceOrdID=trim(Request("ServiceOrdID")) '服务单ID
|
|
'可选
|
UserID = trim(Request("UserID")) '用户唯一ID
|
UnitOAID = trim(Request("UnitOAID")) '介绍人ID
|
DispatchOrdID=trim(Request("DispatchOrdID"))'调度单ID
|
|
'写入默认值
|
total=0
|
StretcherMoney=0
|
If UserID="" Then UserID=0
|
|
'查找数据库
|
If ServiceOrdID="undefined" Then '防订单号出错
|
sql="select top 1 ServiceOrdID from ServiceOrder where ServiceOrdUserID="&UserID&" order by ServiceOrdID desc"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdID = rs("ServiceOrdID") '服务单号
|
End If
|
rs.close()
|
End If
|
|
If UnitOAID<>"0" And UnitOAID<>"" Then '介绍人合作机制专用
|
sql="select HospID,IntroducerAdminDate from HospData,IntroducerData where HospIntroducerID=IntroducerID and IntroducerID="&UnitOAID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
UnitOASql=" and ServiceOrd_CC_Time>='"&rs(1)&"'"
|
do while not rs.Eof
|
UnitHospID=UnitHospID&","&rs(0)
|
rs.movenext
|
Loop
|
UnitOASql=UnitOASql&" and ServiceOrdPtOutHospID in (-1"&UnitHospID&")"
|
End If
|
rs.close()
|
End If
|
|
If ServiceOrdID<>"" Then
|
If UserID<>0 Then
|
'UnitSql=UnitSql&" and ServiceOrdUserID="&UserID '只显示指定用户
|
ElseIf UnitOASql<>"" Then
|
UnitSql=UnitSql&UnitOASql '介绍人合作机制专用
|
ElseIf UnitState<>2 Then
|
UnitSql=UnitSql&" and ServiceOrdUnitID="&UnitID '只显示指定商户
|
End If
|
sql="select *,PtOutHosp=isnull((select top 1 vtext from dictionary where vType=1 and vtitle='HospName' and vID=ServiceOrdPtOutHosp),CASE WHEN ServiceOrdTraVia<>'' THEN ServiceOrdTraVia ELSE ServiceOrdTraStreet END),PtInHosp=isnull((select top 1 vtext from dictionary where vType=1 and vtitle='HospName' and vID=ServiceOrdPtInHosp),ServiceOrdTraEnd) from ServiceOrder where ServiceOrdID="&ServiceOrdID & UnitSql
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
ServiceOrdID = rs("ServiceOrdID") '服务单号
|
ServiceOrdUserID = rs("ServiceOrdUserID") '用户ID
|
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") '患者年龄
|
ServiceOrdPtIDCard = rs("ServiceOrdPtIDCard") '患者身份证
|
ServiceOrdPtSex = rs("ServiceOrdPtSex") '患者性别
|
ServiceOrdPtNat = rs("ServiceOrdPtNat") '患者国籍
|
ServiceOrdPtOutHospID = rs("ServiceOrdPtOutHospID") '转出医院ID
|
ServiceOrdPtOutHosp = rs("ServiceOrdPtOutHosp") '转出医院
|
ServiceOrdPtInHospID = rs("ServiceOrdPtInHospID") '转入医院ID
|
ServiceOrdPtInHosp = rs("ServiceOrdPtInHosp") '转入医院
|
ServiceOrdPtServices = rs("ServiceOrdPtServices") '科室
|
ServiceOrdPtDiagnosis = DealInput3(rs("ServiceOrdPtDiagnosis")) '诊断
|
ServiceOrdPtCondition = DealInput3(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") '成交价
|
ServiceOrdTraPrePayment = rs("ServiceOrdTraPrePayment") '需预付款
|
SettlementPrice = rs("SettlementPrice") '结算价
|
ServiceOrdTraPriceReason=rs("ServiceOrdTraPriceReason")'差价原因
|
ServiceOrdTraPaidPrice = rs("ServiceOrdTraPaidPrice") '已支付金额
|
ServiceOrdPoints = rs("ServiceOrdPoints") '订单使用积分
|
|
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") '服务单审核时间
|
ServiceOrdVIP = rs("ServiceOrdVIP") 'VIP客户
|
ServiceOrdUnitRemarks = DealInput3(rs("ServiceOrdUnitRemarks")) '商户备注
|
ServiceOrdCancelReason = rs("ServiceOrdCancelReason") '取消原因
|
ServiceOrdCancelReasonTXT=rs("ServiceOrdCancelReasonTXT")'取消原因备注
|
PtOutHosp = rs("PtOutHosp") '转出医院
|
PtInHosp = rs("PtInHosp") '转入医院
|
|
If ServiceOrdCancelReason<>"" And ServiceOrdCancelReason<>"0" Then ServiceOrdCancelReason=CancelReasonA(ServiceOrdCancelReason)
|
If IsNumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance=ServiceOrdTraDistance&"公里"
|
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 ServiceOrdTraSDTime<>"" Then
|
ServiceOrdTraSDTime=FORMATDATETIME(ServiceOrdTraSDTime,vbShortDate) &" "& Right("0"&Hour(ServiceOrdTraSDTime),2) &":"& Right("0"&Minute(ServiceOrdTraSDTime),2)
|
End If
|
If ServiceOrdApptDate<>"" Then
|
If year(ServiceOrdApptDate)>=2016 Then
|
ServiceOrdApptDate=FORMATDATETIME(ServiceOrdApptDate,vbShortDate) &" "& Right("0"&Hour(ServiceOrdApptDate),2) &":"& Right("0"&Minute(ServiceOrdApptDate),2)
|
Else
|
ServiceOrdApptDate=""
|
End If
|
End If
|
|
'转出转入医院
|
If PtOutHosp<>"" Then
|
If PtOutHosp<>"家中" Then
|
ServiceOrdTraStreet=PtOutHosp
|
End If
|
ServiceOrdTraVia=""
|
End If
|
If PtInHosp<>"" And PtInHosp<>"家中" Then
|
ServiceOrdTraEnd=PtInHosp
|
End If
|
'If InStr(ServiceOrdTraStreet,",")>1 Then ServiceOrdTraStreet=Mid(ServiceOrdTraStreet,InStr(ServiceOrdTraStreet,",")+1)
|
'If InStr(ServiceOrdTraEnd,",")>1 Then ServiceOrdTraEnd=Mid(ServiceOrdTraEnd,InStr(ServiceOrdTraEnd,",")+1)
|
|
'目前病情
|
Set Co_rs = Server.CreateObject("ADODB.Recordset")
|
sql="select ConditionID,vOrder2,vtext from dictionary,ServiceOrd_Condition where vType>=1 and vtitle='Condition' and ConditionID=vID and ServiceOrdCoID="&ServiceOrdID&" order by vOrder,vID"
|
'Response.Write sql
|
Co_rs.open sql,objConn,1,1
|
Co_Json=""
|
do while not Co_rs.Eof
|
ConditionID = Co_rs("ConditionID")
|
Co_vOrder2 = Co_rs("vOrder2") '病情
|
Co_vtext = Co_rs("vtext") '状态
|
|
Co_Json=Co_Json&",{""ConditionName"":"""&Co_vOrder2&""",""ConditionState"":"""&Co_vtext&"""}"
|
|
Co_rs.movenext
|
Loop
|
If Co_Json<>"" Then Co_Json=Mid(Co_Json,2)
|
Co_rs.close()
|
|
'病情图片
|
Pic_Json=""
|
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)
|
Pic_Json=Pic_Json&","""&cpic&""""
|
ServiceOrdUnitRemarks=Replace(ServiceOrdUnitRemarks,","&cpic,"")
|
ServiceOrdUnitRemarks=Replace(ServiceOrdUnitRemarks,cpic,"")
|
s=s+1
|
Loop
|
If Pic_Json<>"" Then
|
Pic_Json=Mid(Pic_Json,2)
|
End If
|
End If
|
|
'附加服务 Service options
|
'1 单选(是否需要呼机机)
|
'2 多项目的单选(服务级别)
|
'3 项目的多选(多选类)
|
'4 带数字选项的单选(步梯担抬服务)
|
'5 文本输入(客户备注类)
|
sql="select dictionary.*,ServiceOptionsValue,ServiceOptionsID from dictionary LEFT JOIN ServiceOrder_Options ON vID=ServiceOptionsID and ServiceOrdSoID="&ServiceOrdID&" where vtitle='ServiceOptions' and vType>=1 order by vOrder,vID,id"
|
Co_rs.open sql,objConn,1,1
|
SO_Json=""
|
SO_JsonTXT=""
|
do while not Co_rs.Eof
|
SO_ID = Co_rs("vID") '服务ID
|
SO_Name = Co_rs("vtext") '服务标题
|
SO_Type = Co_rs("vType") '服务类型
|
SO_SDid = Co_rs("vOrder2") '服务说明ID
|
SO_Content= Co_rs("vMono") '服务默认参数(单选0否,1是 | 多项单选0不选 | 多选"1,2,3"| 数字单选"是否,默认值,最小值,最大值" | 文本项"默认文本")
|
SO_Value = Co_rs("ServiceOptionsValue")
|
SO_VID = Co_rs("ServiceOptionsID")
|
|
SO_Json=SO_Json&",{""SO_ID"":"&SO_ID&",""SO_Type"":"&SO_Type&",""SO_Name"":"""&SO_Name&""",""SO_SDid"":"""&SO_SDid&""""
|
|
If SO_Type=1 Or SO_Type=11 Then '1 单选(是否需要呼机机)
|
If SO_Value="" or isnull(SO_Value) Then SO_Value=SO_Content
|
SO_Json=SO_Json&",""SO_Content"":[],""SO_Value"":"""&SO_Value&"""}"
|
|
ElseIf SO_Type=2 Or SO_Type=12 Then '2 多项目的单选(服务级别)
|
SO_ContentSP=split(SO_Content,",")
|
If SO_Value="" or isnull(SO_Value) Then SO_Value=SO_ContentSP(0)-1
|
SO_Content=""
|
for z=1 to ubound(SO_ContentSP)
|
If SO_ID=4 And z=1 Then
|
ContentExplain="患者清醒，能下床活动，生活全部或部分自理者。"
|
ElseIf SO_ID=4 And z=2 Then
|
ContentExplain="患者生命垂危、病情多变，生活部分自理或完全不能自理。如随时需要进行应急抢救的病员以及大面积灼伤，大手术后病人，ICU病人，24小时专人守护。"
|
ElseIf SO_ID=4 And z=3 Then
|
ContentExplain="患者病情稳定，但生活不能完全自理。如颅脑外伤或者脑卒中后遗症病人。"
|
ElseIf SO_ID=8 And z=1 Then
|
ContentExplain="仅配司机"
|
ElseIf SO_ID=8 And z=2 Then
|
ContentExplain="配护士和司机"
|
ElseIf SO_ID=8 And z=3 Then
|
ContentExplain="配医生、护士和司机"
|
ElseIf SO_ID=13 And z=1 Then
|
ContentExplain="常见四肢骨折已处理、无其他基础疾病、意识清醒的长期卧床患者"
|
ElseIf SO_ID=13 And z=2 Then
|
ContentExplain="被转运人患常见病、癌症等生命体征平稳，意识属于嗜睡或者昏迷状态的病情稳定患者"
|
ElseIf SO_ID=13 And z=3 Then
|
ContentExplain="被转运人生命体征暂时稳定，但病情可能在转运过程中出现变化或加重，或者有使用呼吸机的患者"
|
ElseIf SO_ID=13 And z=4 Then
|
ContentExplain="被转运人生命体征不稳定、有使用呼吸机、病情可能随时危及生命"
|
Else
|
ContentExplain=""
|
End If
|
SO_Content=SO_Content&",{""ContentOption"":"""&SO_ContentSP(z)&""",""ContentExplain"":"""&ContentExplain&"""}"
|
Next
|
If SO_Content<>"" Then SO_Content=Mid(SO_Content,2)
|
SO_Json=SO_Json&",""SO_Content"":["&SO_Content&"],""SO_Value"":"""&SO_Value&"""}"
|
|
ElseIf SO_Type=3 Then '3 项目的多选(多选类)
|
SO_ContentSP=split(SO_Content,",")
|
SO_Content=""
|
for z=0 to ubound(SO_ContentSP)
|
SO_Content=SO_Content&","""&SO_ContentSP(z)&""""
|
Next
|
If SO_Content<>"" Then SO_Content=Mid(SO_Content,2)
|
SO_Json=SO_Json&",""SO_Content"":["&SO_Content&"],""SO_Value"":["&SO_Value&"]}"
|
|
ElseIf SO_Type=5 And SO_ID="9" Then
|
SO_ContentSP=split(SO_Content,",")
|
If SO_Value="" or isnull(SO_Value) Then SO_Value=SO_ContentSP(0)&","&SO_ContentSP(1)
|
SO_Content=""
|
SO_Content=SO_Content&",0.5,1,1.5,2,2.5,3,3.5,4,4.5,5"
|
If SO_Content<>"" Then SO_Content=Mid(SO_Content,2)
|
SO_Json=SO_Json&",""SO_Content"":["&SO_Content&"],""SO_Value"":["&SO_Value&"]}"
|
|
ElseIf SO_Type=4 Or SO_Type=5 Then '4 带数字选项的单选(步梯担抬服务)
|
SO_ContentSP=split(SO_Content,",")
|
If SO_Value="" or isnull(SO_Value) Then SO_Value=SO_ContentSP(0)&","&SO_ContentSP(1)
|
SO_Content=""
|
If ubound(SO_ContentSP)=3 Then
|
for z=SO_ContentSP(2) to SO_ContentSP(3)
|
SO_Content=SO_Content&","&z
|
Next
|
End If
|
If SO_Content<>"" Then SO_Content=Mid(SO_Content,2)
|
SO_Json=SO_Json&",""SO_Content"":["&SO_Content&"],""SO_Value"":["&SO_Value&"]}"
|
|
ElseIf SO_Type=6 Or SO_Type=16 Then '5 文本输入(客户备注类)
|
If SO_Value="" or isnull(SO_Value) Then SO_Value=SO_Content
|
SO_Json=SO_Json&",""SO_Content"":[],""SO_Value"":"""&SO_Value&"""}"
|
|
Else
|
SO_Json=SO_Json&",""SO_Content"":[],""SO_Value"":"""&SO_Value&"""}"
|
End If
|
|
If SO_VID=1 Or SO_VID=9 Or SO_VID=10 Then
|
SO_JsonTXT=SO_JsonTXT&" "&Replace(SO_Name,"我需要","")
|
End If
|
|
Co_rs.movenext
|
Loop
|
If SO_Json<>"" Then SO_Json=Mid(SO_Json,2)
|
Co_rs.close()
|
|
'调度单数据
|
If ServiceOrdState=3 Then
|
Set D_rs = Server.CreateObject("ADODB.Recordset")
|
sql="select * from DispatchOrd where ServiceOrdIDDt="&ServiceOrdID&" and DispatchOrdState>=0 order by DispatchOrdID"
|
'Response.Write sql
|
D_rs.open sql,objConn,1,1
|
D_Json=""
|
do while not D_rs.Eof
|
DispatchOrdID = D_rs("DispatchOrdID") '调度单号
|
DispatchOrdClass = D_rs("DispatchOrdClass") '调度单单据类型
|
DispatchOrdState = D_rs("DispatchOrdState") '服务单状态
|
DispatchOrdStartDate = D_rs("DispatchOrdStartDate") '最后修改时间
|
DispatchOrd_NS_Time = D_rs("DispatchOrd_NS_Time") '派单时间
|
DispatchOrdCarID = D_rs("DispatchOrdCarID") '调度车辆ID
|
DispatchOrd_AP_ID = D_rs("DispatchOrd_AP_ID") '审核人员ID
|
DispatchOrd_AP_Time = D_rs("DispatchOrd_AP_Time") '审核时间
|
DispatchOrdActualDate = D_rs("DispatchOrdActualDate") '实际出发时间
|
DispatchOrdReturnDate = D_rs("DispatchOrdReturnDate") '实际返回时间
|
StretcherMoney = StretcherMoney+D_rs("StretcherMoney") '担架费
|
DispatchOrdNo = DispatchOrdClass& year(D_rs("DispatchOrd_NS_Time"))&Right("0"&month(D_rs("DispatchOrd_NS_Time")),2)&Right("0"&day(D_rs("DispatchOrd_NS_Time")),2) & "-"&Right("00"&D_rs("DispatchOrdNo"),3) '调度单编号
|
|
If DispatchOrdState<>10 Then i=i+1
|
|
D_Json=D_Json&",{""DispatchOrdID"":"""&DispatchOrdID&""",""DispatchOrdNo"":"""&DispatchOrdNo&""",""DispatchState"":"""&DispatchOrdStateA(DispatchOrdState)&""",""DispatchDate"":"""&DispatchOrd_NS_Time&""",""ActualDate"":"""&DispatchOrdActualDate&""",""ReturnDate"":"""&DispatchOrdReturnDate&""",""UpdateDate"":"""&DispatchOrdStartDate&""",""CarID"":"""&CarDataA(DispatchOrdCarID,"","CarLicense")&""",""CarIMEI"":"""&CarDataA(DispatchOrdCarID,"","CarIMEI")&"""}"
|
|
D_rs.movenext
|
Loop
|
If D_Json<>"" Then D_Json=Mid(D_Json,2)
|
D_rs.close()
|
End If
|
|
'收款情况
|
Set P_rs = Server.CreateObject("ADODB.Recordset")
|
P_Json=""
|
isRefund=0
|
sql="select PaidMoney.id,vtext,PaidMoney,PaidMoneyType,PaidMoneyTime,PaidMoneyOaID,PaidMoney_AP_Check,PaidMoney_AP_ID,PaidMoney_AP_Time,PaidMoneyMono from PaidMoney,dictionary where vtitle='PaidMoneyType' and vType>=1 and vID=PaidMoneyType and PaidMoney<>0 and PaidMoney_AP_Check>=0 and ServiceOrdIDDt="&ServiceOrdID&" order by PaidMoneyTime"
|
P_rs.open sql,objConn,1,1
|
PaidMoney_Check=0
|
sunPaidMoney=0
|
do while not P_rs.Eof
|
PaidMoneyID = P_rs("ID") '收款单号
|
PaidMoneyName = P_rs("vtext") '收款方式名称
|
PaidMoneyType = P_rs("PaidMoneyType") '收款方式ID
|
PaidMoney = P_rs("PaidMoney") '收款金额
|
PaidMoneyTime = P_rs("PaidMoneyTime") '收款时间
|
PaidMoneyOaID = P_rs("PaidMoneyOaID") '收款操作人员ID
|
PaidMoney_AP_Check= P_rs("PaidMoney_AP_Check") '审核状态(0未审核,1已审核)
|
PaidMoney_AP_ID = P_rs("PaidMoney_AP_ID") '审核人员ID
|
PaidMoney_AP_Time = P_rs("PaidMoney_AP_Time") '审核时间
|
PaidMoneyMono = P_rs("PaidMoneyMono") '收款备注
|
|
If PaidMoney_AP_Check>=0 Then sunPaidMoney=sunPaidMoney+PaidMoney
|
If PaidMoney_AP_Check=0 Then PaidMoney_Check=1
|
If PaidMoney<0 Then isRefund=1
|
|
P_Json=P_Json&",{""PaidID"":"""&PaidMoneyID&""",""PaidTime"":"""&PaidMoneyTime&""",""PaidMethod"":"""&PaidMoneyName&""",""PaidRemarks"":"""&PaidMoneyMono&""",""PaidMoney"":"""&PaidMoney&""",""PaidCheck"":"""&AP_Check_A(PaidMoney_AP_Check)&"""}"
|
P_rs.movenext
|
Loop
|
If P_Json<>"" Then P_Json=Mid(P_Json,2)
|
P_rs.close()
|
|
'发票信息
|
Set I_rs = Server.CreateObject("ADODB.Recordset")
|
I_Json=""
|
sql="select * from InvoiceData where AuditStatus<>4 and ServiceOrderIDPK="&ServiceOrdID
|
I_rs.open sql,objConn,1,1
|
do while not I_rs.Eof
|
InvoiceID = I_rs("InvoiceID") '开票信息ID
|
InvoiceType = I_rs("InvoiceType") '开票类型
|
InvoiceName = I_rs("InvoiceName") '发票抬头
|
InvoiceMakeout = I_rs("InvoiceMakeout") '发票备注
|
InvoiceCompanyPhone= I_rs("InvoiceCompanyPhone")'企业电话
|
InvoiceCompanyID = I_rs("InvoiceCompanyID") '纳税识别号
|
InvoiceCompanyAdd = I_rs("InvoiceCompanyAdd") '企业注册地址
|
InvoiceCompanyBank= I_rs("InvoiceCompanyBank")'企业开户银行
|
InvoiceCompanyBankNo=I_rs("InvoiceCompanyBankNo")'企业银行账号
|
InvoiceZipCode = I_rs("InvoiceZipCode") '邮编
|
Invoice_strAdd = I_rs("Invoice_strAdd") '邮寄地址
|
Invoice_strName = I_rs("Invoice_strName") '联系人
|
Invoice_strPhone = I_rs("Invoice_strPhone") '联系电话
|
ApplicationTime = I_rs("ApplicationTime") '申请时间
|
AuditTime = I_rs("AuditTime") '处理时间
|
AuditStatus = I_rs("AuditStatus") '处理状态
|
AuditOAID = I_rs("AuditOAID") '处理人
|
AuditMakeout = I_rs("AuditMakeout") '处理备注
|
InvoiceMoney = I_rs("InvoiceMoney") '发票金额
|
InvoiceNo = I_rs("InvoiceNo") '发票编号
|
InvoiceURL = I_rs("InvoiceURL") '发票链接
|
|
I_Json=I_Json&",{""InvoiceID"":"""&InvoiceID&""",""InvoiceType"":"""&InvoiceType&""",""InvoiceName"":"""&InvoiceName&""",""InvoiceMakeout"":"""&InvoiceMakeout&""",""InvoiceCompanyPhone"":"""&InvoiceCompanyPhone&""",""InvoiceCompanyID"":"""&InvoiceCompanyID&""",""InvoiceCompanyAdd"":"""&InvoiceCompanyAdd&""",""InvoiceCompanyBank"":"""&InvoiceCompanyBank&""",""InvoiceCompanyBankNo"":"""&InvoiceCompanyBankNo&""",""InvoiceZipCode"":"""&InvoiceZipCode&""",""Invoice_strAdd"":"""&Invoice_strAdd&""",""Invoice_strName"":"""&Invoice_strName&""",""Invoice_strPhone"":"""&Invoice_strPhone&""",""InvoiceStatus"":"""&AuditStatus&"""}"
|
I_rs.movenext
|
Loop
|
If I_Json<>"" Then I_Json=Mid(I_Json,2)
|
I_rs.close()
|
|
'积分使用情况
|
UserPoints=0
|
If ServiceOrdPoints="" Or isnull(ServiceOrdPoints) Then ServiceOrdPoints=0
|
If ServiceOrdUserID<>"0" And ServiceOrdUserID<>"" Then
|
Set P_rs = Server.CreateObject("ADODB.Recordset")
|
I_Json=""
|
sql="select isnull(SUM(Points_Score),0) Points_Score from UserPoints where ToUserID="&ServiceOrdUserID
|
P_rs.open sql,objConn,1,1
|
UserPoints = P_rs("Points_Score")
|
'Response.Write UserPoints
|
P_rs.close()
|
End If
|
|
If ServiceOrdState=4 Then
|
ServiceOrdStateTXT="已取消"
|
UserPoints=0
|
ElseIf ServiceOrdState=3 Then
|
ServiceOrdStateTXT="已调度"
|
UserPoints=0
|
ElseIf isRefund=1 Then
|
ServiceOrdStateTXT="退款申请"
|
UserPoints=UserPoints+ServiceOrdPoints
|
ElseIf ServiceOrd_AP_Check=1 And ServiceOrdState<>"4" Then
|
ServiceOrdStateTXT="已审核"
|
UserPoints=0
|
ElseIf ServiceOrdTraTxnPrice>0 And ServiceOrdState<=1 Then
|
ServiceOrdStateTXT="咨询单"
|
UserPoints=UserPoints+ServiceOrdPoints
|
ElseIf ServiceOrdTraTxnPrice>0 And ServiceOrdState<>"4" Then
|
ServiceOrdStateTXT="已报价"
|
UserPoints=0
|
Else
|
ServiceOrdStateTXT="未报价"
|
UserPoints=UserPoints+ServiceOrdPoints
|
End If
|
ServiceOrdTraPriceReason="" '报价备注隐藏
|
webJson="{""method"":""ServiceOrder_Detail"",""result"":1,""OrdUserID"":"&ServiceOrdUserID&",""ServiceOrdID"":"""&ServiceOrdID&""",""ServiceOrdNo"":"""&ServiceOrdNo&""",""ServiceOrdType"":"""&ServiceOrdTypeA(ServiceOrdType)&""",""ServiceOrdState"":"""&ServiceOrdStateTXT&""",""StartDate"":"""&ServiceOrd_CC_Time&""",""ApptDate"":"""&ServiceOrdApptDate&""",""CoName"":"""&ServiceOrdCoName&""",""CoPhone"":"""&ServiceOrdCoPhone&""",""CoTies"":"""&ServiceOrdCoTies&""",""PtName"":"""&ServiceOrdPtName&""",""IDCard"":"""&ServiceOrdPtIDCard&""",""PtAge"":"""&ServiceOrdPtAge&""",""PtSex"":"""&ServiceOrdPtSex&""",""PtNat"":"""&ServiceOrdPtNat&""",""OutHosp"":"""&HospA(ServiceOrdPtOutHosp,"HospName")&""",""InHosp"":"""&HospA(ServiceOrdPtInHosp,"HospName")&""",""PtServices"":"""&ServiceOrdPtServices&""",""PtDiagnosis"":"""&ServiceOrdPtDiagnosis&""",""Condition"":"""&ServiceOrdPtCondition&""",""Conditions"":["&Co_Json&"],""ServiceOptions"":["&SO_Json&"],""ServiceOptionsTXT"":"""&SO_JsonTXT&""",""Doctor"":"""&ServiceOrdPtDoctor&""",""DoctorPhone"":"""&DoctorPhone&""",""TraStreet"":"""&ServiceOrdTraStreet&""",""TraVia"":"""&ServiceOrdTraVia&""",""TraEnd"":"""&ServiceOrdTraEnd&""",""PriceReason"":"""&ServiceOrdTraPriceReason&""",""Price"":"""&ServiceOrdTraTxnPrice&""",""SettlementPrice"":"""&SettlementPrice&""",""PaidPrice"":"""&ServiceOrdTraPaidPrice&""",""Stretcher"":"""&StretcherMoney&""",""PrePayment"":"""&ServiceOrdTraPrePayment&""",""sunPaidMoney"":"""&sunPaidMoney&""",""ConditionPic"":["&Pic_Json&"],""DispatchList"":["&D_Json&"],""PaidList"":["&P_Json&"],""InvoiceData"":["&I_Json&"],""UnitRemarks"":"""&ServiceOrdUnitRemarks&""",""ServiceOrdCancelReason"":"""&ServiceOrdCancelReason&""",""ServiceOrdCancelReasonTXT"":"""&ServiceOrdCancelReasonTXT&""",""ServiceOrdTraDistance"":"""&ServiceOrdTraDistance&""",""ServiceOrdPoints"":"""&ServiceOrdPoints&""",""UserPoints"":"""&UserPoints&"""}"
|
|
Else
|
errcode=40201
|
errmsg="invalid ServiceOrdID:"&ServiceOrdID
|
end if
|
rs.close()
|
|
Else
|
errcode=40200
|
errmsg="empty ServiceOrdID"
|
End If
|
'查询服务单详情 end
|
|
case "ServiceOrder_APP" '生成服务单
|
'必须
|
ServiceOrdType = trim(Request("OrdType")) '服务单类型
|
ServiceOrdCoPhone= trim(Request("CoPhone")) '联系人电话
|
If ServiceOrdType="1" Then ServiceOrdType="20"
|
|
'可选
|
UserID = trim(Request("UserID")) '用户唯一ID
|
ServiceOrdClass = trim(Request("OrdClass")) '单据类型
|
'ServiceOrdState = trim(Request("OrdState")) '服务单状态
|
ServiceOrdApptDate= trim(Request("ApptDate")) '预约日期
|
ServiceOrdCoName= trim(Request("CoName")) '联系人姓名
|
ServiceOrdCoTies= trim(Request("CoTies")) '联系人与患者关系
|
ServiceOrdPtName= trim(Request("PtName")) '患者姓名
|
ServiceOrdPtAge = trim(Request("PtAge")) '患者年龄
|
ServiceOrdPtSex = trim(Request("PtSex")) '患者性别
|
ServiceOrdPtNat = trim(Request("PtNat")) '患者国籍
|
|
ServiceOrdPtOutHosp = trim(Request("OutHosp")) '转出医院
|
ServiceOrdPtInHosp = trim(Request("InHosp")) '转入医院
|
ServiceOrdPtServices = trim(Request("PtServices")) '科室
|
ServiceOrdPtDiagnosis = trim(Request("PtDiagnosis")) '诊断
|
ServiceOrdPtCondition = trim(Request("Condition")) '病情描述
|
ServiceOrdPtDoctor = trim(Request("Doctor")) '患者医生
|
ServiceOrdPtDoctorPhone = trim(Request("DoctorPhone")) '患者医生电话
|
|
ServiceOrdTraStreet = trim(Request("TraStreet")) '出发地
|
ServiceOrdTraEnd = trim(Request("TraEnd")) '目的地
|
ServiceOrdTraVia = trim(Request("TraVia")) '途经地
|
ServiceOrdTraDistance = trim(Request("TraDistance")) '预估距离
|
|
ServiceOrdTraOfferPrice = trim(Request("OfferPrice")) '标准报价
|
ServiceOrdTraTxnPrice = trim(Request("Price")) '成交价
|
SettlementPrice = trim(Request("SettlementPrice")) '结算价
|
|
TransferModeID = trim(Request("TransferModeID")) '转运方式
|
ServiceOrdUnitRemarks = trim(Request("UnitRemarks")) '商户备注
|
ServiceOrdIntroducer = trim(Request("UnitIntroducerID")) '商户介绍人ID
|
|
Referrals = trim(Request("Referrals")) '推介人信息
|
|
PayQRcodeURL = trim(Request("PayQRcodeURL")) '外部支付二维码链接
|
|
ServiceOptions = trim(Request("ServiceOptions")) '附加服务项
|
submitOrdValue = trim(Request("submitOrdValue")) '转跳网址
|
|
'写入默认值
|
If UserID="" Then UserID=0
|
If ServiceOrdClass="" Then ServiceOrdClass="BF"
|
If ServiceOrdState="" Then ServiceOrdState=1
|
ServiceOrdStartDate=now()
|
ServiceOrd_CC_Time=now()
|
RecommendUserID=0
|
OrdSourceID=0
|
|
If ServiceOrdTraUnitPrice="" Then ServiceOrdTraUnitPrice=0
|
If ServiceOrdTraOfferPrice="" Then ServiceOrdTraOfferPrice=0
|
If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
|
If SettlementPrice="" Then SettlementPrice=0
|
If ServiceOrdState="" Then ServiceOrdState=1
|
'If InStr(ServiceOrdTraDistance,"公里")>0 Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance,"公里","")
|
'If InStr(ServiceOrdTraDistance,"米")>0 Then ServiceOrdTraDistance=CInt(Replace(ServiceOrdTraDistance,"米",""))/1000
|
If ServiceOrdTraDistance="" Then ServiceOrdTraDistance=0
|
If ServiceOrd_Sale_ID="" Then ServiceOrd_Sale_ID="177"
|
If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID=session("adminID")
|
If ServiceOrdPtOutHospID_New="" Then ServiceOrdPtOutHospID_New=0
|
If ServiceOrdPtInHospID_New="" Then ServiceOrdPtInHospID_New=0
|
If ServiceOrdPtOutHospID="" Then ServiceOrdPtOutHospID=0
|
If ServiceOrdPtInHospID="" Then ServiceOrdPtInHospID=0
|
If ServiceOrdVIP="" Then ServiceOrdVIP=0
|
If TransferModeID="" Then TransferModeID="1"
|
If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID=0
|
If Referrals="undefined" Then Referrals=""
|
If ServiceOrdUnitRemarks="undefined" Then ServiceOrdUnitRemarks=""
|
If ServiceOrdUnitRemarks="1" Then
|
ServiceOrdUnitRemarks="高铁转运"
|
ElseIf ServiceOrdUnitRemarks="2" Then
|
ServiceOrdUnitRemarks="航空转运"
|
ElseIf ServiceOrdUnitRemarks="3" Then
|
ServiceOrdUnitRemarks="医疗包机"
|
ElseIf ServiceOrdUnitRemarks="4" Then
|
ServiceOrdUnitRemarks="直升机转运"
|
End If
|
If UserID=0 Then
|
'第三方数据
|
If ServiceOrdPtInHosp<>"" Then
|
ServiceOrdUnitRemarks = "转入医院:"&ServiceOrdPtInHosp&", "&ServiceOrdUnitRemarks
|
End If
|
If ServiceOrdPtOutHosp<>"" Then
|
ServiceOrdUnitRemarks = "转出医院:"&ServiceOrdPtOutHosp&", "&ServiceOrdUnitRemarks
|
End If
|
|
Else
|
'客户端数据
|
|
'途经地
|
If ServiceOrdPtOutHosp<>"" Then
|
ServiceOrdTraVia=Replace(ServiceOrdPtOutHosp,"|",",")
|
End If
|
|
'出发地
|
If ServiceOrdTraVia<>"" Then
|
ServiceOrdTraStreet="广东省广州市白云区兆丰路151号"
|
Else
|
ServiceOrdTraStreet=ServiceOrdPtOutHosp
|
End If
|
|
'目的地
|
If ServiceOrdPtInHosp<>"" Then
|
ServiceOrdTraEnd=Replace(ServiceOrdPtInHosp,"|",",")
|
End If
|
|
End If
|
|
'数据不完整
|
If (ServiceOrdState="1" Or ServiceOrdState="4") And (ServiceOrdCoPhone="" Or ServiceOrdClass="" Or ServiceOrdTraDistance="" Or ServiceOrdType="") Then
|
errcode=40300
|
errmsg="empty Data"
|
elseIf ServiceOrdState="2" Then
|
error=","
|
If ServiceOrdCoPhone="" Or ServiceOrdClass="" Then error=error&"ServiceOrdCoPhone,"
|
If ServiceOrdTraDistance="" Then error=error&"ServiceOrdTraDistance,"
|
If ServiceOrdCoName="" Then error=error&"ServiceOrdCoName,"
|
'If ServiceOrdApptDate="" Then error=error&"ServiceOrdApptDate,"
|
If ServiceOrdPtName="" Then error=error&"ServiceOrdPtName,"
|
'If ServiceOrdPtOutHosp="" Then error=error&"ServiceOrdPtOutHosp,"
|
If ServiceOrdTraStreet="" Then error=error&"ServiceOrdTraStreet,"
|
If ServiceOrdTraEnd="" Then error=error&"ServiceOrdTraEnd,"
|
If ServiceOrdTraTxnPrice="" Then error=error&"ServiceOrdTraTxnPrice,"
|
errcode=40301
|
errmsg="empty Data"
|
End if
|
|
|
'验证有没重复提交
|
sql="select ServiceOrdID,ServiceOrdUserID,ServiceOrdCoPhone,ServiceOrdNo,ServiceOrdTraTxnPrice from ServiceOrder where ServiceOrdCoPhone='"&ServiceOrdCoPhone&"' and ServiceOrdUnitRemarks='"&ServiceOrdUnitRemarks&"' and ServiceOrdTraVia='"&ServiceOrdTraVia&"' and ServiceOrdTraStreet='"&ServiceOrdTraStreet&"' and ServiceOrdTraEnd='"&ServiceOrdTraEnd&"' and DATEDIFF(s,ServiceOrd_CC_Time,'"&ServiceOrd_CC_Time&"')<30"
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
ServiceOrdID = rs("ServiceOrdID")
|
UserID = rs("ServiceOrdUserID")
|
UserPhone = rs("ServiceOrdCoPhone")
|
ServiceOrdNo = rs("ServiceOrdNo")
|
ServiceOrdTraTxnPrice= rs("ServiceOrdTraTxnPrice")
|
errcode=1
|
errmsg="重复提交"
|
webJson="{""method"":""ServiceOrder_APP"",""result"":1,""UserID"":"&UserID&",""UserPhone"":"""&UserPhone&""",""ServiceOrdID"":"""&ServiceOrdID&""",""ServiceOrdNo"":"""&ServiceOrdNo&""",""OrdPrice"":"""&ServiceOrdTraTxnPrice&"""}"
|
End if
|
rs.close()
|
|
'API来源
|
If APPID<>"" Then
|
sql="select vID from dictionary where vtitle='OrdSource' and vType=1 and vOrder2='"&APPID&"'"
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
OrdSourceID=rs(0)
|
Else
|
OrdSourceID=4
|
End if
|
rs.close()
|
End If
|
|
If errcode="" Then
|
'查询推介人信息
|
If Referrals<>"" Then
|
'按个人用户查询
|
sql="select ToUserID from UserPhone where strPhone='"&Referrals&"'"
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
RecommendUserID=rs(0)
|
End if
|
rs.close()
|
'按机构介绍人名称查询
|
sql="select IntroducerID from IntroducerData where IntroducerName='"&Referrals&"' or IntroducerTEL='"&Referrals&"'"
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
UPUserSource="Iid"&rs(0)
|
End if
|
rs.close()
|
If UPUserSource<>"" And RecommendUserID<>0 Then
|
UserSource = "Rid"&RecommendUserID&"|"&UPUserSource&"|UP"
|
ElseIf RecommendUserID<>0 Then
|
UserSource = "Rid"&RecommendUserID&"|UP"
|
ElseIf UPUserSource<>0 Then
|
UserSource = UPUserSource&"|UP"
|
End If
|
End If
|
|
'注册&查询用户ID
|
If UserID=0 And ServiceOrdCoPhone<>"" And Len(ServiceOrdCoPhone) And Left(ServiceOrdCoPhone,1)="1" And IsNumeric(ServiceOrdCoPhone) Then
|
UserPhone=ServiceOrdCoPhone
|
UserName=ServiceOrdCoName
|
Call User_Login(UserID,UserPhone,wxOriginalID,wxOpenid,wxUnionID,UserSource,UserName)
|
ElseIf UserID<>0 Then
|
Call User_Login(UserID,UserPhone,wxOriginalID,wxOpenid,wxUnionID,UserSource,UserName)
|
End If
|
|
If UserSource<>"" Then '用户来源
|
UserSourceSP = SPLIT(UserSource,"|")
|
for i=0 to ubound(UserSourceSP)
|
If InStr(UserSourceSP(i),"Iid")>=1 Then
|
'介绍人信息
|
Iid=Replace(UserSourceSP(i),"Iid","")
|
If IsNumeric(Iid) And ServiceOrdIntroducer="" Then ServiceOrdIntroducer=Iid
|
End If
|
Next
|
End If
|
|
'查找相关介绍人
|
If ServiceOrdIntroducer="" Then
|
sql="select top 1 IntroducerID from IntroducerData where IntroducerState=1 and IntroducerUnitID="&UnitID
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
ServiceOrdIntroducer=rs(0)
|
End if
|
rs.close()
|
End If
|
'南方医院9折优惠信息
|
'If ServiceOrdIntroducer="72" Then
|
' ServiceOrdTraPriceReason="南方医院9折优惠"
|
'End If
|
|
'新服务单序号
|
sql="select top 1 ServiceOrdNo from ServiceOrder where CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),GETDATE(),120) order by ServiceOrdNo desc"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdNo=rs(0)+1
|
Else
|
ServiceOrdNo=1
|
End if
|
rs.close()
|
|
|
|
'写入新服务单
|
sql="insert into ServiceOrder (ServiceOrdUserID,ServiceOrdClass,ServiceOrdType,ServiceOrdState,ServiceOrdStartDate,ServiceOrdApptDate,ServiceOrdCoName,ServiceOrdCoPhone,ServiceOrdCoTies,ServiceOrdPtName,ServiceOrdPtAge,ServiceOrdPtSex,ServiceOrdPtNat,ServiceOrdPtOutHospID,ServiceOrdPtOutHosp,ServiceOrdPtInHospID,ServiceOrdPtInHosp,ServiceOrdPtServices,ServiceOrdPtDiagnosis,ServiceOrdPtCondition,ServiceOrdPtDoctor,ServiceOrdPtDoctorPhone,ServiceOrdTraProvince,ServiceOrdTraCity,ServiceOrdTraStreet,ServiceOrdTraStreetCoo,ServiceOrdTraEnd,ServiceOrdTraEndCoo,ServiceOrdTraVia,ServiceOrdTraDistance,ServiceOrdTraDuration,ServiceOrdTraUnitPrice,ServiceOrdTraOfferPrice,ServiceOrdTraTxnPrice,SettlementPrice,ServiceOrdTraPriceReason,ServiceOrd_CC_ID,ServiceOrd_CC_Time,ServiceOrdNo,ServiceOrd_Sale_ID,ServiceOrdIntroducer,ServiceOrdVIP,ServiceOrdUnitID,ServiceOrdUnitRemarks,PayQRcodeURL,RecommendUserID,ServiceOrdSource) values ("&UserID&",'"&ServiceOrdClass&"',"&ServiceOrdType&","&ServiceOrdState&",'"&ServiceOrdStartDate&"','"&ServiceOrdApptDate&"','"&ServiceOrdCoName&"','"&ServiceOrdCoPhone&"','"&ServiceOrdCoTies&"','"&ServiceOrdPtName&"','"&ServiceOrdPtAge&"','"&ServiceOrdPtSex&"','"&ServiceOrdPtNat&"',"&ServiceOrdPtOutHospID_New&","&ServiceOrdPtOutHospID&","&ServiceOrdPtInHospID_New&","&ServiceOrdPtInHospID&",'"&ServiceOrdPtServices&"','"&ServiceOrdPtDiagnosis&"','"&ServiceOrdPtCondition&"','"&ServiceOrdPtDoctor&"','"&ServiceOrdPtDoctorPhone&"','"&ServiceOrdTraProvince&"','"&ServiceOrdTraCity&"','"&ServiceOrdTraStreet&"','"&ServiceOrdTraStreetCoo&"','"&ServiceOrdTraEnd&"','"&ServiceOrdTraEndCoo&"','"&ServiceOrdTraVia&"','"&ServiceOrdTraDistance&"','"&ServiceOrdTraDuration&"',"&ServiceOrdTraUnitPrice&","&ServiceOrdTraOfferPrice&","&ServiceOrdTraTxnPrice&","&SettlementPrice&",'"&ServiceOrdTraPriceReason&"',"&ServiceOrd_CC_ID&",getdate(),"&ServiceOrdNo&","&ServiceOrd_Sale_ID&",'"&ServiceOrdIntroducer&"',"&ServiceOrdVIP&","&UnitID&",'"&ServiceOrdUnitRemarks&"','"&PayQRcodeURL&"',"&RecommendUserID&","&OrdSourceID&")"
|
'Response.Write sql
|
objConn.Execute sql
|
sql="select top 1 ServiceOrdID,ServiceOrd_CC_Time from ServiceOrder where ServiceOrdCoPhone='"&ServiceOrdCoPhone&"' order by ServiceOrdID desc"
|
rs.open sql,objConn,1,1
|
ServiceOrdID = rs(0)
|
ServiceOrd_CC_Time=rs(1)
|
rs.close()
|
|
'咨询单转为服务单
|
If ServiceOrdState="2" And adminID<>"" then
|
sql="update ServiceOrder set ServiceOrd_NS_ID="&adminID&",ServiceOrd_NS_Time=getdate() where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
End If
|
|
'小程序入口生成订单自动备注(没联系人姓名)，submitOrdValue="1" 表示自动报价的
|
If ServiceOrdCoName="" And submitOrdValue="1" Then
|
sql="update ServiceOrder set ServiceOrdOperationRemarks='[客户未正式提交需求，可不联系]' where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
Elseif ServiceOrdCoName="" Then
|
sql="update ServiceOrder set ServiceOrdOperationRemarks='[客户未正式提交需求]' where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
End If
|
|
'写入目前病情(单选项类)
|
'sql="select vOrder from dictionary where vType=2 and vtitle='Condition' order by vOrder,vID"
|
'rs.open sql,objConn,1,1
|
'do while not rs.Eof
|
' ConditionOrder=rs("vOrder")
|
' ConditionID=trim(Request("ConditionID_"&ConditionOrder))
|
' If ConditionID<>"" Then
|
' sql="insert into ServiceOrd_Condition (ServiceOrdCoID,ConditionID) values ("&ServiceOrdID&","&ConditionID&")"
|
' objConn.Execute sql
|
' End if
|
'rs.movenext
|
'loop
|
'rs.close()
|
|
'写入转运方式(多选项)
|
TransferModeIDSP = SPLIT(TransferModeID,",")
|
for i = 0 to UBOUND(TransferModeIDSP)
|
TransferModeID = TransferModeIDSP(i)
|
If TransferModeID<>"" then
|
sql="insert into ServiceOrd_TransferMode (ServiceOrdTMID,TransferModeID) values ("&ServiceOrdID&","&TransferModeID&")"
|
objConn.Execute sql
|
End if
|
Next
|
|
'写入附加服务项
|
If ServiceOptions<>"" Then
|
'Call OA_Running(1000,ServiceOptions)
|
'Response.Write ServiceOptions
|
If instr(ServiceOptions,"[")>0 And instr(ServiceOptions,"]")>0 Then
|
ServiceOptions=replace(ServiceOptions,"\""","""")
|
%>
|
<script language="jscript" runat="server">
|
Array.prototype.get = function(i)
|
{
|
return this[i];
|
};
|
function getjson(str){
|
try{
|
eval("var jsonStr = (" + str + ")");
|
}catch(ex){
|
var jsonStr = null;
|
}
|
return jsonStr;
|
}
|
</script>
|
<%
|
str=ServiceOptions
|
'str=right(str,len(str)-instr(str,"[")+1)
|
'str=left(str,InstrRev(str,"]"))
|
set obj = getjson(str)
|
|
for i=0 to obj.length-1
|
SO_ID = obj.get(i).SO_ID
|
SO_Value = obj.get(i).SO_Value
|
'Response.Write SO_ID&"|"&SO_Value&"<br>"
|
If SO_ID<>"" And SO_Value<>"" Then
|
SO_ValueSP=split(SO_Value,",")
|
If (Cstr(SO_ValueSP(0))<>"" And Cstr(SO_ValueSP(0))<>"0") Or SO_ID="4" Or SO_ID="8" Then
|
sql="Insert into ServiceOrder_Options (ServiceOrdSoID,ServiceOptionsID,ServiceOptionsValue) values ("&ServiceOrdID&","&SO_ID&",'"&SO_Value&"')"
|
objConn.Execute sql
|
End If
|
End If
|
Next
|
Else
|
'Response.Write "不是json对像<br>"
|
End If
|
End If
|
ServiceOrdNo = ServiceOrdClass& year(ServiceOrd_CC_Time)&Right("0"&month(ServiceOrd_CC_Time),2)&Right("0"&day(ServiceOrd_CC_Time),2) & "-"&Right("00"&ServiceOrdNo,3)
|
|
webJson="{""method"":""ServiceOrder_APP"",""result"":1,""UserID"":"&UserID&",""UserPhone"":"""&UserPhone&""",""ServiceOrdID"":"""&ServiceOrdID&""",""ServiceOrdNo"":"""&ServiceOrdNo&""",""OrdPrice"":"""&ServiceOrdTraTxnPrice&"""}"
|
|
'营销小程序数据更新(48小时内有效)
|
sql="select top 1 id,iuid,uuid from UserUUID where ToUserID="&UserID&" and DATEDIFF(hh,LoginTime,getdate())<=48 order by LoginTime desc"
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
UserUUID=rs("id")
|
iuid=rs("iuid")
|
uuid=rs("uuid")
|
orderSource=2
|
Call Get_TritonshAPI(UserUUID,0,ServiceOrdID,iuid,ServiceOrdCoName,ServiceOrdCoPhone,0,orderSource)
|
End If
|
rs.close()
|
|
If (ServiceOrdCoName<>"" Or submitOrdValue<>"1") Then
|
If NC_OAIDs<>"" Then
|
If Mid(NC_OAIDs,1,1)="," Then NC_OAIDs=Mid(NC_OAIDs,2)
|
If Right(NC_OAIDs,1)="," Then NC_OAIDs=Mid(NC_OAIDs,1,Len(NC_OAIDs)-1)
|
sql="select OA_User_ID,OA_weixinUserID from OA_User where OA_execLevel>=0 and OA_User_ID in ("&NC_OAIDs&")"
|
rs.open sql,objConn,1,1
|
if not rs.Eof Then
|
do while not rs.Eof
|
ADMINuserID = ADMINuserID&","& rs("OA_User_ID")
|
ADMINwxuserID=ADMINwxuserID&"|"& rs("OA_weixinUserID")
|
rs.movenext
|
Loop
|
NC_OAID = Mid(ADMINuserID,2)
|
touser = Mid(ADMINwxuserID,2)
|
else
|
touser=""
|
NC_OAID="78"
|
end if
|
rs.close()
|
Else
|
touser=""
|
NC_OAID="78"
|
End If
|
|
If touser<>"" Then
|
'微信OA信息推送
|
%>
|
<!--#include virtual="/inc/JsonPost_1000006.gds"-->
|
<%
|
'touser="liaojunliang|ylkx_diaodu"
|
agentid=1000006
|
articles="{"
|
articles=articles&"""title"": ""【"&UnitUser(UnitID,"UnitName")&"新订单】"","
|
articles=articles&"""description"": ""服务单号："&ServiceOrdNo&"\n下单时间："&Now()&""","
|
articles=articles&"""url"": ""https://sys.966120.com.cn/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&""""
|
articles=articles&"}"
|
call WeiXin_MessageSend(access_token,touser,agentid,articles)
|
End If
|
|
'写入通知中心
|
'NC_OAID="78"
|
NC_Name="【"&UnitUser(UnitID,"UnitName")&"新订单】"
|
NC_Content="服务单号："&ServiceOrdNo&" 下单时间："&Now()&""
|
NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
|
NC_PageUrlM=""
|
Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
|
End If
|
|
End If
|
'生成服务单 end
|
|
case "PaidMoney_APP" '新建费用单
|
'必须
|
ServiceOrdID = trim(Request("ServiceOrdID")) '服务单ID
|
PaidMoneyType = trim(Request("PaidMoneyType")) '支付方式
|
PaidMoney = trim(Request("PaidMoney")) '支付金额
|
|
'可选
|
DispatchOrdID=trim(Request("DispatchOrdID")) '调度单ID
|
PaidMoneyMono = trim(Request("PaidRemarks")) '支付备注
|
PaidMoneyTimestamp= UnixTime
|
|
'默认值
|
If PaidMoney="" Then PaidMoney=0
|
PaidMoneyCheck=0
|
PaidMoneyMono = PaidMoneyMono&"["&UnitUser(UnitID,"UnitName")&"]"
|
|
'数据不完整
|
If PaidMoney="" Or PaidMoney="0" Or PaidMoneyType="" Or ServiceOrdID="" Then
|
errcode=40400
|
errmsg="empty Data"
|
'支付记录
|
ElseIf PaidMoneyType<>"" And IsNumeric(PaidMoney) And PaidMoneyTimestamp<>"" Then
|
'服务单信息
|
sql="select top 1 ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo,ServiceOrdPoints,ServiceOrdTraTxnPrice,ServiceOrdTraPaidPrice,StretcherMoney=isnull((select SUM(StretcherMoney) from DispatchOrd where DispatchOrdState>0 and ServiceOrdIDDt=ServiceOrdID),0) from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdClass = rs("ServiceOrdClass")
|
ServiceOrd_CC_Time = rs("ServiceOrd_CC_Time")
|
ServiceOrdTraTxnPrice=rs("ServiceOrdTraTxnPrice")
|
ServiceOrdTraPaidPrice=rs("ServiceOrdTraPaidPrice")
|
StretcherMoney = rs("StretcherMoney")
|
ServiceOrdPoints = rs("ServiceOrdPoints")
|
If ServiceOrdPoints="" Or isnull(ServiceOrdPoints) Then ServiceOrdPoints=0
|
ServiceOrdNo = rs("ServiceOrdNo")
|
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)
|
End if
|
rs.close()
|
'调度单信息
|
If DispatchOrdID="" Then
|
sql="select DispatchOrdID from DispatchOrd where ServiceOrdIDDt="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
DispatchOrdID = rs("DispatchOrdID")
|
End if
|
rs.close()
|
End If
|
If DispatchOrdID<>"" Then
|
sql="select OA_weixinUserID,DispatchOrdClass,DispatchOrd_NS_Time,DispatchOrdNo from DispatchOrd,DispatchOrd_Entourage,OA_User where EntourageLead=1 and EntourageState=3 and EntourageOAid=OA_User_ID and DispatchOrdIDDt=DispatchOrdID and OA_weixinUserID<>'' and DispatchOrdID="&DispatchOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
OA_weixinUserID = rs("OA_weixinUserID")
|
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) '调度单编号
|
touser=OA_weixinUserID&"|"
|
End if
|
rs.close()
|
End If
|
'检查是否重复提交支付信息
|
If PaidMoney>0 And (PaidMoneyType=3 Or PaidMoneyType=4) Then
|
sql="select id from PaidMoney where (ServiceOrdIDDt="&ServiceOrdID&") and PaidMoney="&PaidMoney&" and PaidMoneyType="&PaidMoneyType&" and PaidMoneyMono='"&PaidMoneyMono&"'"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
PaidMoney=0
|
End if
|
rs.close()
|
End If
|
|
|
If PaidMoney>0 Then
|
Call PaidMoneyA(ServiceOrdID,DispatchOrdID,PaidMoney,PaidMoneyType,PaidMoneyTimestamp,PaidMoneyMono,PaidMoneyCheck)
|
|
'积分使用
|
OrdTotal_fee=(ServiceOrdTraTxnPrice+StretcherMoney)-ServiceOrdTraPaidPrice
|
If clng(OrdTotal_fee)=clng(PaidMoney+ServiceOrdPoints) And clng(ServiceOrdPoints)>0 Then
|
'sql="insert into PaidMoney (PaidMoneyClass,ServiceOrdIDDt,DispatchOrdIDDt,PaidMoney,PaidMoneyType,PaidMoneyOaID,PaidMoneyTimestamp,PaidMoneyMono,PaidMoney_AP_Check,PaidMoney_AP_Time,PaidMoney_AP_ID) values ('FI',"&ServiceOrdID&","&DispatchOrdID&","&ServiceOrdPoints&",9,"&UnitID&",'"&PaidMoneyTimestamp&"','积分支付',1,getdate(),"&UnitID&")"
|
'objConn.Execute sql
|
End If
|
webJson="{""method"":""PaidMoney_APP"",""result"":1,""ServiceOrdID"":"""&ServiceOrdID&"""}"
|
|
'微信OA信息推送
|
'<!--#include virtual="/inc/JsonPost_1000006.gds"-->
|
'touser=touser&"liaojunliang|ylkx_diaodu"
|
'agentid=1000006
|
'articles="{"
|
' articles=articles&"""title"": ""【"&UnitUser(UnitID,"UnitName")&"订单支付成功】"","
|
' If DispatchOrdNo<>"" Then
|
' articles=articles&"""description"": ""调度单号："&DispatchOrdNo&"\n支付金额："&PaidMoney&"元\n支付时间："&Now()&""","
|
' articles=articles&"""url"": ""https://sys.966120.com.cn/m_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&""""
|
' Else
|
' articles=articles&"""description"": ""服务单号："&ServiceOrdNo&"\n支付金额："&PaidMoney&"元\n支付时间："&Now()&""","
|
' articles=articles&"""url"": ""https://sys.966120.com.cn/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&""""
|
' End If
|
'articles=articles&"}"
|
'call WeiXin_MessageSend(access_token,touser,agentid,articles)
|
|
Else
|
errcode=40401
|
errmsg="支付金额不可为0"
|
End if
|
End if
|
'新建费用单 end
|
|
case "PaidMoney_Refund" '新建退款申请单
|
'必须
|
ServiceOrdID = trim(Request("ServiceOrdID")) '服务单ID
|
|
isRefund=0
|
TraPaidPrice=0
|
ServiceOrdState=4
|
DispatchOrdID=0
|
PaidMoneyTimestamp= UnixTime
|
'检查是否有可退款的订单
|
If ServiceOrdID<>"" Then
|
sql="select ServiceOrdIDDt,PaidMoneyType,PaidMoney,PaidMoneyMono from PaidMoney where PaidMoneyMono like '%退款%' and PaidMoney_AP_Check>=0 and ServiceOrdIDDt="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
errcode=40402
|
errmsg="退款申请已受理"
|
End if
|
rs.close()
|
If errcode="" Then
|
sql="select ServiceOrdID,ServiceOrdTraPaidPrice,ServiceOrdState,ServiceOrdClass,ServiceOrdNo,ServiceOrd_CC_Time from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ServiceOrdID = rs("ServiceOrdID")
|
TraPaidPrice = rs("ServiceOrdTraPaidPrice") '已支付金额
|
ServiceOrdState = rs("ServiceOrdState") '服务单状态
|
ServiceOrdNo = rs("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)
|
End if
|
rs.close()
|
If TraPaidPrice<=0 Then
|
errcode=40403
|
errmsg="没可退款"
|
ElseIf ServiceOrdState=3 Then '已出调度单
|
sql="select DispatchOrdID,DispatchOrdState from DispatchOrd where DispatchOrdState<=3 and ServiceOrdIDDt="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
DispatchOrdID=rs("DispatchOrdID")
|
isRefund=1 '可退款
|
Else
|
errcode=40405
|
errmsg="已出车"
|
End if
|
rs.close()
|
ElseIf ServiceOrdState<>4 Then '未出调度单
|
isRefund=1 '可退款
|
Else '订单已取消
|
errcode=40404
|
errmsg="订单已取消"
|
End If
|
End If
|
If isRefund=1 Then
|
sql="select id,PaidMoneyType,PaidMoney,PaidMoneyMono=left(PaidMoneyMono,CHARINDEX('[',PaidMoneyMono)-1) from PaidMoney where PaidMoneyType in (3,4) and PaidMoney>0 and PaidMoney_AP_Check>=0 and ServiceOrdIDDt="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If rs.Eof Then
|
isRefund=0
|
errcode=40406
|
errmsg="没可退款"
|
rs.close()
|
Else
|
'写入申请退款单
|
do While not rs.Eof
|
PaidMoneyID = rs("id") '支付单ID
|
PaidMoney = -rs("PaidMoney") '支付金额
|
PaidMoneyType= rs("PaidMoneyType")
|
PaidMoneyMono=rs("PaidMoneyMono")&"[线上退款] "&PaidMoneyMono&" 收款编号:"&PaidMoneyID
|
sql="insert into PaidMoney (PaidMoneyClass,ServiceOrdIDDt,DispatchOrdIDDt,PaidMoney,PaidMoneyType,PaidMoneyOaID,PaidMoneyTimestamp,PaidMoneyMono) values ('FI',"&ServiceOrdID&","&DispatchOrdID&","&PaidMoney&","&PaidMoneyType&","&UnitID&",'"&PaidMoneyTimestamp&"','"&PaidMoneyMono&"')"
|
objConn.Execute sql
|
rs.movenext
|
Loop
|
rs.close()
|
sql="select top 1 id from PaidMoney where PaidMoneyOaID="&UnitID&" order by id desc"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
PaidMoneyID=rs("id")
|
End If
|
rs.close()
|
'查询退款审核人员
|
touser=""
|
sql="select OA_User_ID,OA_weixinUserID from OA_User where OA_execLevel>=0 and OA_Power like '%030209%'"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
NC_OAID = rs("OA_User_ID")
|
OA_weixinUserID = rs("OA_weixinUserID")
|
touser=touser&"|"&OA_weixinUserID
|
rs.movenext
|
Loop
|
rs.close()
|
'touser="ylkx_vicgame"
|
'微信OA信息推送
|
If touser<>"" Then
|
agentid=21
|
articles="{"
|
articles=articles&"""title"": ""【客户退款申请】"","
|
articles=articles&"""description"": ""服务单号："&ServiceOrdNo&"\n退款金额："&PaidMoney&"元\n申请时间："&Now()&""","
|
articles=articles&"""url"": ""https://sys.966120.com.cn/m_PaidMoneyRefund.gds?PaidMoneyID="&PaidMoneyID&""""
|
articles=articles&"}"
|
call WeiXin_MessageSend21(access_token,touser,agentid,articles)
|
End If
|
'写入通知中心
|
'NC_OAID="78"
|
NC_Name="【客户退款申请】"
|
NC_Content="服务单号："&ServiceOrdNo&" n退款金额："&PaidMoney&"元 n申请时间："&Now()&""
|
NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
|
NC_PageUrlM=""
|
Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
|
|
webJson="{""method"":""PaidMoney_Refund"",""result"":1}"
|
End If
|
End If
|
End If
|
'申请退款单
|
If isRefund=1 Then
|
|
End If
|
|
|
|
'新建退款申请单 end
|
|
case "ServiceOrder_DEL" '取消服务单
|
'必须
|
ServiceOrdID = trim(Request("ServiceOrdID")) '服务单ID
|
|
'可选
|
DELRemarks = trim(Request("DELRemarks")) '取消原因
|
|
'默认值
|
|
'数据不完整
|
If ServiceOrdID="" Then
|
errcode=40500
|
errmsg="empty Data"
|
'取消服务单(未调试的)
|
Else
|
If UnitState<>2 And UnitID<>14 Then UnitSql=" and ServiceOrdUnitID="&UnitID '只显示指定商户
|
sql="select ServiceOrdCoName,ServiceOrdCoPhone,ServiceOrdState,ToUserUUID,ServiceOrdUserID from ServiceOrder where ServiceOrdID="&ServiceOrdID & UnitSql
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
ServiceOrdState=rs("ServiceOrdState")
|
ServiceOrdCoName=rs("ServiceOrdCoName")
|
ServiceOrdCoPhone=rs("ServiceOrdCoPhone")
|
ToUserUUID=rs("ToUserUUID")
|
UserID=rs("ServiceOrdUserID")
|
Else
|
errcode=40501
|
errmsg="invalid ServiceOrdID"
|
End if
|
rs.close()
|
If ServiceOrdState=3 And Left(errcode,1)<>"4" Then
|
errcode=40502
|
errmsg="服务单已开始服务,不可自助取消"
|
ElseIf ServiceOrdState=4 And Left(errcode,1)<>"4" Then
|
errcode=40503
|
errmsg="服务单已取消"
|
ElseIf Left(errcode,1)<>"4" Then
|
sql="update ServiceOrder set ServiceOrdState=4,ServiceOrdPoints=0,ServiceOrd_AP_ID=0,ServiceOrd_AP_Time=getdate(),ServiceOrdCancelReason=9,ServiceOrdOperationRemarks='',ServiceOrdCancelReasonTXT='"&DELRemarks&"' where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
sql="delete from UserPoints where Points_Type=6 and ServiceOrdIDDt="&ServiceOrdID&" and ToUserID="&UserID
|
objConn.Execute sql
|
sql="delete from PaidMoney where PaidMoneyType=9 and ServiceOrdIDDt="&ServiceOrdID
|
objConn.Execute sql
|
webJson="{""method"":""ServiceOrder_DEL"",""result"":1,""ServiceOrdID"":"""&ServiceOrdID&"""}"
|
|
'营销小程序数据更新
|
If ToUserUUID<>"0" And ToUserUUID<>"" Then
|
sql="select top 1 id,iuid from UserUUID where id="&ToUserUUID
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
iuid=rs("iuid")
|
Call Get_TritonshAPI(ToUserUUID,1,ServiceOrdID,iuid,ServiceOrdCoName,ServiceOrdCoPhone,0,0)
|
End If
|
rs.close()
|
End If
|
|
If NC_OAIDs<>"" Then
|
If Mid(NC_OAIDs,1,1)="," Then NC_OAIDs=Mid(NC_OAIDs,2)
|
If Right(NC_OAIDs,1)="," Then NC_OAIDs=Mid(NC_OAIDs,1,Len(NC_OAIDs)-1)
|
sql="select OA_User_ID,OA_weixinUserID from OA_User where OA_execLevel>=0 and OA_User_ID in ("&NC_OAIDs&")"
|
rs.open sql,objConn,1,1
|
if not rs.Eof Then
|
do while not rs.Eof
|
ADMINuserID = ADMINuserID&","& rs("OA_User_ID")
|
ADMINwxuserID=ADMINwxuserID&"|"& rs("OA_weixinUserID")
|
rs.movenext
|
Loop
|
NC_OAID = Mid(ADMINuserID,2)
|
touser = Mid(ADMINwxuserID,2)
|
else
|
touser=""
|
NC_OAID="78"
|
end if
|
rs.close()
|
Else
|
touser=""
|
NC_OAID="78"
|
End If
|
If touser<>"" Then
|
'微信OA信息推送
|
%>
|
<!--#include virtual="/inc/JsonPost_1000006.gds"-->
|
<%
|
'touser="liaojunliang|ylkx_diaodu"
|
agentid=1000006
|
articles="{"
|
articles=articles&"""title"": ""【"&UnitUser(UnitID,"UnitName")&"客户主动取消】"","
|
articles=articles&"""description"": ""服务单号："&ServiceOrdNo&"\n取消时间："&Now()&""","
|
articles=articles&"""url"": ""https://sys.966120.com.cn/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&""""
|
articles=articles&"}"
|
call WeiXin_MessageSend(access_token,touser,agentid,articles)
|
End If
|
End If
|
End if
|
'取消服务单 end
|
|
case "ServiceOrder_Data" '服务单数据汇总
|
'必须
|
searchDate = trim(Request("searchDate")) '开始日期
|
ReportType = trim(Request("ReportType")) '日期类型(0自定义,1日,2周,3月,4年,5整月)
|
|
'可选
|
searchDateEnd = trim(Request("searchDateEnd")) '结束日期
|
OrdDateMode = trim(Request("OrdDateMode")) '时间查询模式(1服务单,2调度单)
|
UnitOAID = trim(Request("UnitOAID")) '介绍人ID
|
|
'默认值
|
If ReportType="" Then ReportType="1"
|
If OrdDateMode="" Then OrdDateMode="1"
|
If searchDate="" Then searchDate=date()
|
|
|
searchDate="'"&searchDate&"'"
|
If ReportType="0" And searchDateEnd<>"" then '0自定义
|
SqlDate=" between "&searchDate&" and '"&searchDateEnd&" 23:59:59' "
|
DateFF="d"
|
DateDD="d"
|
ElseIf ReportType="1" then '日
|
SqlDate=" between dateadd(ms,0,DATEDIFF(d,0,"&searchDate&")) and dateadd(ms,3,DATEDIFF(d,-1,"&searchDate&")) "
|
DateFF="h"
|
DateDD="d"
|
ElseIf ReportType="2" Then '周
|
SqlDate=" between DATEADD(wk,DATEDIFF(wk,0,"&searchDate&"),0)-1 and DATEADD(ss,0,DATEADD(wk,DATEDIFF(wk,0,"&searchDate&"),0)+6) "
|
DateFF="d"
|
DateDD="ww"
|
ElseIf ReportType="3" Then '月
|
SqlDate=" between DATEADD(mm, DATEDIFF(m,0,"&searchDate&"),0) and dateadd(ms,-3,DATEADD(mm, DATEDIFF(m,0,"&searchDate&")+1,0)) "
|
DateFF="d"
|
DateDD="m"
|
ElseIf ReportType="4" Then '年
|
SqlDate=" between DATEADD(yy,DATEDIFF(yy,0,"&searchDate&"),0) and dateadd(ms,-3,DATEADD(yy,DATEDIFF(yy,0,"&searchDate&")+1,0)) "
|
DateFF="d"
|
DateDD="yyyy"
|
ElseIf ReportType="5" Then '整月
|
SqlDate=" between DATEADD(mm,DATEDIFF(mm,0,"&searchDate&"),0) and dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,"&searchDate&")+1,0)) "
|
DateFF="d"
|
DateDD="m"
|
Else
|
errcode=40600
|
errmsg="empty Date"
|
End If
|
'UnitID=2
|
|
'数据不完整
|
If errcode="" Then
|
sql=Replace(Replace(SqlDate," between","select ")," and ",",")
|
'Response.Write sql&"<br>"
|
rs.open sql,objConn,1,1
|
DateA=rs(0)
|
DateB=rs(1)
|
DateB=dateadd(DateFF,-1,DateB)
|
DateC=DateA
|
rs.close()
|
DateDay = DateDiff("d",DateA,DateB)+1
|
'Response.Write DateA&"~"&DateB
|
'Response.End
|
Sum_OrdInt=0
|
Sum_TraTxnPrice=0
|
DateC=DateA
|
dataArr1=""
|
dataArr2=""
|
If UnitOAID<>"0" And UnitOAID<>"" Then '介绍人合作机制专用
|
sql="select HospID,IntroducerAdminDate from HospData,IntroducerData where HospIntroducerID=IntroducerID and IntroducerID="&UnitOAID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
UnitOASql=" and ServiceOrd_CC_Time>='"&rs(1)&"'"
|
do while not rs.Eof
|
UnitHospID=UnitHospID&","&rs(0)
|
rs.movenext
|
Loop
|
UnitOASql=UnitOASql&" and ServiceOrdPtOutHospID in (-1"&UnitHospID&")"
|
End If
|
rs.close()
|
End If
|
|
If UnitOASql<>"" Then
|
searchSql=searchSql&UnitOASql&" and ServiceOrdState in (3) " '南方医院合作专用
|
ElseIf UnitState<>2 Then
|
searchSql=searchSql&" and ServiceOrdUnitID="&UnitID '只显示指定商户
|
End If
|
If OrdDateMode="2" Then '按调度单查询
|
If ReportType="1" then '日
|
sql="select OrdInt=SUM(OrdInt),TraTxnPrice=isnull(SUM(TraTxnPrice),0),yy,mm,dd,hh from (select OrdInt=COUNT(ServiceOrdID),isnull(SUM(ServiceOrdTraTxnPrice),0)+(select isnull(SUM(StretcherMoney),0) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState<>10) as TraTxnPrice,yy=YEAR(DispatchOrd_NS_Time),mm=MONTH(DispatchOrd_NS_Time),dd=day(DispatchOrd_NS_Time),hh=DATEPART(hh,DispatchOrd_NS_Time) from ServiceOrder,DispatchOrd where DispatchOrd_NS_Time "&SqlDate&searchSql&" and ServiceOrdID=ServiceOrdIDDt and DispatchOrdState>=8 and DispatchOrdState not in (10) and ServiceOrdState not in (1,4) GROUP BY YEAR(DispatchOrd_NS_Time),MONTH(DispatchOrd_NS_Time),day(DispatchOrd_NS_Time),DATEPART(hh,DispatchOrd_NS_Time),ServiceOrdID) as aa GROUP BY yy,mm,dd,hh order by yy,mm,dd,hh"
|
DateFF="h"
|
ElseIf ReportType="2" Or ReportType="3" Or ReportType="5" Then '周
|
sql="select OrdInt=SUM(OrdInt),TraTxnPrice=isnull(SUM(TraTxnPrice),0),yy,mm,dd,hh from (select OrdInt=COUNT(ServiceOrdID),isnull(SUM(ServiceOrdTraTxnPrice),0)+(select isnull(SUM(StretcherMoney),0) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState<>10) as TraTxnPrice,yy=YEAR(DispatchOrd_NS_Time),mm=MONTH(DispatchOrd_NS_Time),dd=day(DispatchOrd_NS_Time),hh=0 from ServiceOrder,DispatchOrd where DispatchOrd_NS_Time "&SqlDate&searchSql&" and ServiceOrdID=ServiceOrdIDDt and DispatchOrdState>=8 and DispatchOrdState not in (10) and ServiceOrdState not in (1,4) GROUP BY YEAR(DispatchOrd_NS_Time),MONTH(DispatchOrd_NS_Time),day(DispatchOrd_NS_Time),ServiceOrdID) as aa GROUP BY yy,mm,dd,hh order by yy,mm,dd,hh"
|
DateFF="d"
|
ElseIf ReportType="4" Then '年
|
sql="select OrdInt=SUM(OrdInt),TraTxnPrice=isnull(SUM(TraTxnPrice),0),yy,mm,dd,hh from (select OrdInt=COUNT(ServiceOrdID),isnull(SUM(ServiceOrdTraTxnPrice),0)+(select isnull(SUM(StretcherMoney),0) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState<>10) as TraTxnPrice,yy=YEAR(DispatchOrd_NS_Time),mm=MONTH(DispatchOrd_NS_Time),dd=1,hh=0 from ServiceOrder,DispatchOrd where DispatchOrd_NS_Time "&SqlDate&searchSql&" and ServiceOrdID=ServiceOrdIDDt and DispatchOrdState>=8 and DispatchOrdState not in (10) and ServiceOrdState not in (1,4) GROUP BY YEAR(DispatchOrd_NS_Time),MONTH(DispatchOrd_NS_Time),ServiceOrdID) as aa GROUP BY yy,mm,dd,hh order by yy,mm,dd,hh"
|
DateFF="m"
|
ElseIf ReportType="0" Then '自定义
|
sql="select OrdInt=SUM(OrdInt),TraTxnPrice=isnull(SUM(TraTxnPrice),0),yy,mm,dd,hh from (select OrdInt=COUNT(ServiceOrdID),isnull(SUM(ServiceOrdTraTxnPrice),0)+(select isnull(SUM(StretcherMoney),0) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState<>10) as TraTxnPrice,yy=YEAR(DispatchOrd_NS_Time),mm=MONTH(DispatchOrd_NS_Time),dd=day(DispatchOrd_NS_Time),hh=0 from ServiceOrder,DispatchOrd where DispatchOrd_NS_Time "&SqlDate&searchSql&" and ServiceOrdID=ServiceOrdIDDt and DispatchOrdState>=8 and DispatchOrdState not in (10) and ServiceOrdState not in (1,4) GROUP BY YEAR(DispatchOrd_NS_Time),MONTH(DispatchOrd_NS_Time),day(DispatchOrd_NS_Time),DATEPART(hh,DispatchOrd_NS_Time),ServiceOrdID) as aa GROUP BY yy,mm,dd,hh order by yy,mm,dd,hh"
|
DateFF="h"
|
End If
|
Else '按服务单查询
|
If ReportType="1" then '日
|
sql="select OrdInt=SUM(OrdInt),TraTxnPrice=isnull(SUM(TraTxnPrice),0),yy,mm,dd,hh from (select OrdInt=COUNT(ServiceOrdID),isnull(SUM(ServiceOrdTraTxnPrice),0)+(select isnull(SUM(StretcherMoney),0) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState<>10) as TraTxnPrice,yy=YEAR(ServiceOrd_CC_Time),mm=MONTH(ServiceOrd_CC_Time),dd=day(ServiceOrd_CC_Time),hh=DATEPART(hh,ServiceOrd_CC_Time) from ServiceOrder where ServiceOrd_CC_Time "&SqlDate&searchSql&" and ServiceOrdState not in (1,4) GROUP BY YEAR(ServiceOrd_CC_Time),MONTH(ServiceOrd_CC_Time),day(ServiceOrd_CC_Time),DATEPART(hh,ServiceOrd_CC_Time),ServiceOrdID) as aa GROUP BY yy,mm,dd,hh order by yy,mm,dd,hh"
|
DateFF="h"
|
ElseIf ReportType="2" Or ReportType="3" Or ReportType="5" Then '周
|
sql="select OrdInt=SUM(OrdInt),TraTxnPrice=isnull(SUM(TraTxnPrice),0),yy,mm,dd,hh from (select OrdInt=COUNT(ServiceOrdID),isnull(SUM(ServiceOrdTraTxnPrice),0)+(select isnull(SUM(StretcherMoney),0) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState<>10) as TraTxnPrice,yy=YEAR(ServiceOrd_CC_Time),mm=MONTH(ServiceOrd_CC_Time),dd=day(ServiceOrd_CC_Time),hh=0 from ServiceOrder where ServiceOrd_CC_Time "&SqlDate&searchSql&" and ServiceOrdState not in (1,4) GROUP BY YEAR(ServiceOrd_CC_Time),MONTH(ServiceOrd_CC_Time),day(ServiceOrd_CC_Time),ServiceOrdID) as aa GROUP BY yy,mm,dd,hh order by yy,mm,dd,hh"
|
DateFF="d"
|
ElseIf ReportType="4" Then '年
|
sql="select OrdInt=SUM(OrdInt),TraTxnPrice=isnull(SUM(TraTxnPrice),0),yy,mm,dd,hh from (select OrdInt=COUNT(ServiceOrdID),isnull(SUM(ServiceOrdTraTxnPrice),0)+(select isnull(SUM(StretcherMoney),0) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState<>10) as TraTxnPrice,yy=YEAR(ServiceOrd_CC_Time),mm=MONTH(ServiceOrd_CC_Time),dd=1,hh=0 from ServiceOrder where ServiceOrd_CC_Time "&SqlDate&searchSql&" and ServiceOrdState not in (1,4) GROUP BY YEAR(ServiceOrd_CC_Time),MONTH(ServiceOrd_CC_Time),ServiceOrdID) as aa GROUP BY yy,mm,dd,hh order by yy,mm,dd,hh"
|
DateFF="m"
|
ElseIf ReportType="0" Then '自定义
|
sql="select OrdInt=SUM(OrdInt),TraTxnPrice=isnull(SUM(TraTxnPrice),0),yy,mm,dd,hh from (select OrdInt=COUNT(ServiceOrdID),isnull(SUM(ServiceOrdTraTxnPrice),0)+(select isnull(SUM(StretcherMoney),0) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState<>10) as TraTxnPrice,yy=YEAR(ServiceOrd_CC_Time),mm=MONTH(ServiceOrd_CC_Time),dd=day(ServiceOrd_CC_Time),hh=0 from ServiceOrder where ServiceOrd_CC_Time "&SqlDate&searchSql&" and ServiceOrdState not in (1,4) GROUP BY YEAR(ServiceOrd_CC_Time),MONTH(ServiceOrd_CC_Time),day(ServiceOrd_CC_Time),DATEPART(hh,ServiceOrd_CC_Time),ServiceOrdID) as aa GROUP BY yy,mm,dd,hh order by yy,mm,dd,hh"
|
DateFF="h"
|
End If
|
End If
|
'Response.Write sql&"<br>"
|
'Response.end
|
rs.open sql,objConn,1,1
|
D_Json=""
|
do While not rs.Eof
|
OrdInt = rs("OrdInt") '订单数量
|
TraTxnPrice = int(rs("TraTxnPrice"))'金额汇总
|
yy = rs("yy")
|
mm = rs("mm")
|
dd = rs("dd")
|
hh = rs("hh")
|
Sum_OrdInt = Sum_OrdInt+OrdInt
|
Sum_TraTxnPrice=Sum_TraTxnPrice+TraTxnPrice
|
D_Json=D_Json&",{""SumDate"":"""&yy&"/"&Right("0"&mm,2)&"/"&Right("0"&dd,2)&""",""yy"":"""&yy&""",""mm"":"""&mm&""",""dd"":"""&dd&""",""hh"":"""&hh&""",""OrdInt"":"""&OrdInt&""",""OrdPrice"":"""&TraTxnPrice&"""}"
|
rs.movenext
|
loop
|
rs.close()
|
If D_Json<>"" Then D_Json=Mid(D_Json,2)
|
webJson="{""method"":""ServiceOrder_Data"",""result"":1,""DateStart"":"""&DateA&""",""DateEnd"":"""&DateB&""",""total_OrdInt"":"""&Sum_OrdInt&""",""total_OrdPrice"":"""&Sum_TraTxnPrice&""",""Detailed"":["&D_Json&"]}"
|
End if
|
'服务单数据汇总 end
|
|
case "WeiXinPush" '推送设置
|
'必须
|
OAid = trim(request("OAid"))
|
PowerID = trim(request("PowerID"))
|
Pis = trim(request("Pis")) '服务单ID
|
|
'可选
|
|
'默认值
|
|
'数据不完整
|
|
If OAid<>"" And PowerID<>"" And Pis<>"" then
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select OA_Power from OA_User where OA_User_ID="&OAid
|
rs.open sql,objConn,1,1
|
If not rs.eof Then
|
OA_Power=rs("OA_Power")
|
If Pis=1 Then
|
If InStr(OA_Power,","&PowerID&",")<=0 Then
|
OA_Power=OA_Power&PowerID&","
|
End If
|
Else
|
If InStr(OA_Power,","&PowerID&",")>=1 Then
|
OA_Power=Replace(OA_Power,","&PowerID&",",",")
|
End If
|
End If
|
End If
|
rs.close()
|
sql="update OA_User set OA_Power='"&OA_Power&"' where OA_User_ID="&OAid
|
objConn.Execute sql
|
webJson="{""method"":""WeiXinPush"",""result"":1}"
|
Else
|
errcode=40504
|
errmsg="invalid DATA"
|
End If
|
'推送设置 end
|
|
case "OA_MessageSend" '微信OA信息推送
|
'必须
|
touser = trim(Request("touser")) '推送人ID
|
title = trim(Request("title")) '信息标题
|
description= trim(Request("description")) '信息内容
|
|
'可选
|
url= trim(Request("url")) '转跳链接
|
If url<>"" Then url=Replace(url,"|","&")
|
If url<>"" Then url=Replace(url,"*","=")
|
|
'默认值
|
If touser="上海萃图" Then
|
touser="liaojunliang"
|
End If
|
|
'数据不完整
|
If touser="" Or title="" Or description="" or url="" Then
|
errcode=40505
|
errmsg="empty Data"
|
Else
|
%>
|
<!--#include virtual="/inc/JsonPost_1000006.gds"-->
|
<%
|
agentid=1000006
|
articles="{"
|
articles=articles&"""title"": ""【"&title&"】"","
|
articles=articles&"""description"": """&description&""""
|
If url<>"" then articles=articles&",""url"": """&url&""""
|
articles=articles&"}"
|
call WeiXin_MessageSend(access_token,touser,agentid,articles)
|
webJson="{""APPID"":"""&APPID&""",""method"":"""&method&""",""result"":1}"
|
End if
|
'微信OA信息推送 end
|
|
case "ServiceOrder_Edit" '修改服务单
|
'必须
|
ServiceOrdID = trim(Request("ServiceOrdID")) '服务单ID
|
|
|
'可选
|
UserID = trim(Request("UserID")) '用户唯一ID
|
ServiceOrdApptDate= trim(Request("ApptDate")) '预约日期
|
ServiceOrdCoPhone= trim(Request("CoPhone")) '联系人电话
|
ServiceOrdCoName= trim(Request("CoName")) '联系人姓名
|
ServiceOrdCoTies= trim(Request("CoTies")) '联系人与患者关系
|
ServiceOrdPtName= trim(Request("PtName")) '患者姓名
|
ServiceOrdPtAge = trim(Request("PtAge")) '患者年龄
|
ServiceOrdPtIDCard= trim(Request("IDCard")) '患者身份证
|
ServiceOrdPtSex = trim(Request("PtSex")) '患者性别
|
ServiceOrdPtNat = trim(Request("PtNat")) '患者国籍
|
|
ServiceOrdTraStreet = trim(Request("TraStreet")) '出发地地址
|
ServiceOrdTraVia = trim(Request("TraVia")) '途经地地址
|
ServiceOrdTraEnd = trim(Request("TraEnd")) '目的地地址
|
|
ServiceOrdPtOutHosp = trim(Request("OutHosp")) '转出医院
|
ServiceOrdPtInHosp = trim(Request("InHosp")) '转入医院
|
ServiceOrdPtServices = trim(Request("PtServices")) '科室
|
ServiceOrdPtDiagnosis = trim(Request("PtDiagnosis")) '诊断
|
ServiceOrdPtCondition = trim(Request("Condition")) '病情描述
|
ServiceOrdPtDoctor = trim(Request("Doctor")) '患者医生
|
ServiceOrdPtDoctorPhone = trim(Request("DoctorPhone")) '患者医生电话
|
|
ServiceOrdUnitRemarks = trim(Request("UnitRemarks")) '商户备注
|
|
ServiceOptions = trim(Request("ServiceOptions")) '附加服务项
|
ServiceOrdTraDistance = trim(Request("TraDistance")) '预估距离
|
ServiceOrdTraTxnPrice = trim(Request("Price")) '成交价
|
SettlementPrice = trim(Request("SettlementPrice")) '结算价
|
|
ServiceOrdPoints = trim(Request("OrdPoints")) '使用积分
|
|
'写入默认值
|
If UserID="" Then UserID=0
|
If ServiceOrdState="" Then ServiceOrdState=1
|
|
If ServiceOrdTraUnitPrice="" Then ServiceOrdTraUnitPrice=0
|
If ServiceOrdTraOfferPrice="" Then ServiceOrdTraOfferPrice=0
|
If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0
|
If ServiceOrdState="" Then ServiceOrdState=1
|
'If InStr(ServiceOrdTraDistance,"公里")>0 Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance,"公里","")
|
'If InStr(ServiceOrdTraDistance,"米")>0 Then ServiceOrdTraDistance=CInt(Replace(ServiceOrdTraDistance,"米",""))/1000
|
If ServiceOrdTraDistance="" Then ServiceOrdTraDistance=0
|
If ServiceOrd_Sale_ID="" Then ServiceOrd_Sale_ID="null"
|
If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID=session("adminID")
|
If ServiceOrdPtOutHospID_New="" Then ServiceOrdPtOutHospID_New=0
|
If ServiceOrdPtInHospID_New="" Then ServiceOrdPtInHospID_New=0
|
If ServiceOrdPtOutHospID="" Then ServiceOrdPtOutHospID=0
|
If ServiceOrdPtInHospID="" Then ServiceOrdPtInHospID=0
|
If ServiceOrdVIP="" Then ServiceOrdVIP=0
|
If TransferModeID="" Then TransferModeID="1"
|
If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID=0
|
If ServiceOrdPrice="" Then ServiceOrdPrice=0
|
If SettlementPrice="" Then SettlementPrice=0
|
If ServiceOrdUnitRemarks="undefined" Then ServiceOrdUnitRemarks=""
|
If ServiceOrdPoints="undefined" Or ServiceOrdPoints="" Then ServiceOrdPoints=0
|
|
If UserID=0 And (ServiceOrdPtOutHosp<>"" Or ServiceOrdPtInHosp<>"") Then
|
'第三方数据
|
If ServiceOrdPtInHosp<>"" Then
|
ServiceOrdUnitRemarks = "转入医院:"&ServiceOrdPtInHosp&", "&ServiceOrdUnitRemarks
|
End If
|
If ServiceOrdPtOutHosp<>"" Then
|
ServiceOrdUnitRemarks = "转出医院:"&ServiceOrdPtOutHosp&", "&ServiceOrdUnitRemarks
|
End If
|
Else
|
'客户端数据
|
|
'途经地
|
If ServiceOrdPtOutHosp<>"" Then
|
ServiceOrdTraVia=Replace(ServiceOrdPtOutHosp,"|",",")
|
End If
|
|
'出发地
|
If ServiceOrdTraVia<>"" Then
|
ServiceOrdTraStreet="广东省广州市白云区兆丰路151号"
|
Else
|
ServiceOrdTraStreet=ServiceOrdPtOutHosp
|
End If
|
|
'目的地
|
If ServiceOrdPtInHosp<>"" Then
|
ServiceOrdTraEnd=Replace(ServiceOrdPtInHosp,"|",",")
|
End If
|
|
End If
|
|
'数据不完整
|
If ServiceOrdID="" Or Not IsNumeric(ServiceOrdID) Then
|
errcode=40300
|
errmsg="empty Data"
|
End If
|
|
If UserID<>0 Then
|
UnitSql=UnitSql&" and ServiceOrdUserID="&UserID '只显示指定用户
|
ElseIf UnitState<>2 Then
|
UnitSql=UnitSql&" and ServiceOrdUnitID="&UnitID '只显示指定商户
|
End If
|
sql="select * from ServiceOrder where ServiceOrd_AP_Check=0 and ServiceOrdID="&ServiceOrdID & UnitSql
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
if not rs.eof Then
|
ServiceOrdID = rs("ServiceOrdID") '服务单号
|
ServiceOrdUserID = rs("ServiceOrdUserID")
|
ServiceOrdUnitID = rs("ServiceOrdUnitID")
|
ServiceOrdClass = rs("ServiceOrdClass")
|
ServiceOrd_CC_Time = rs("ServiceOrd_CC_Time")
|
ServiceOrdNo = rs("ServiceOrdNo")
|
ServiceOrdTraTxnPrice_old=rs("ServiceOrdTraTxnPrice")'原成交价
|
ServiceOrdTraPaidPrice=rs("ServiceOrdTraPaidPrice") '已支付金额
|
If rs("ServiceOrdUserUpdateTime")=rs("ServiceOrd_CC_Time") Then
|
NewEdit="1"
|
End If
|
If ServiceOrdTraTxnPrice<>"" Then
|
OrdPrice=ServiceOrdTraTxnPrice-ServiceOrdTraPaidPrice
|
Else
|
OrdPrice=ServiceOrdTraTxnPrice_old-ServiceOrdTraPaidPrice
|
End If
|
Else
|
errcode=40304
|
errmsg="empty ServiceOrd"
|
End If
|
rs.close()
|
|
If errcode="" Then
|
|
'注册&查询用户ID
|
If UserID=0 And ServiceOrdCoPhone<>"" And Len(ServiceOrdCoPhone) And Left(ServiceOrdCoPhone,1)="1" And IsNumeric(ServiceOrdCoPhone) Then
|
UserPhone=ServiceOrdCoPhone
|
UserName=ServiceOrdCoName
|
Call User_Login(UserID,UserPhone,wxOriginalID,wxOpenid,wxUnionID,UserSource,UserName)
|
End If
|
'用户可用积分验证
|
If UserID<>0 And ServiceOrdPoints>0 Then
|
sql="delete from UserPoints where Points_Type=6 and ServiceOrdIDDt="&ServiceOrdID&" and ToUserID="&UserID
|
objConn.Execute sql
|
sql="delete from PaidMoney where PaidMoneyType=9 and ServiceOrdIDDt="&ServiceOrdID
|
objConn.Execute sql
|
sql="select isnull(SUM(Points_Score),0) from UserPoints where ToUserID="&UserID
|
rs.open sql,objConn,1,1
|
If rs(0)<ServiceOrdPoints Then
|
ServiceOrdPoints=rs(0)
|
End If
|
rs.close()
|
End If
|
|
'修改服务单
|
If UserID=0 And ServiceOrdUserID<>"" Then UserID=ServiceOrdUserID
|
If ServiceOrdApptDate<>"" Then UpSql=UpSql&",ServiceOrdApptDate='"&ServiceOrdApptDate&"'"
|
If ServiceOrdCoPhone<>"" Then UpSql=UpSql&",ServiceOrdCoPhone='"&ServiceOrdCoPhone&"'"
|
If ServiceOrdCoName<>"" Then UpSql=UpSql&",ServiceOrdCoName='"&ServiceOrdCoName&"'"
|
'If ServiceOrdCoName<>"" Then UpSql=UpSql&",ServiceOrdCoName='"&ServiceOrdCoName&"'"
|
If ServiceOrdCoTies<>"" Then UpSql=UpSql&",ServiceOrdCoTies='"&ServiceOrdCoTies&"'"
|
If ServiceOrdPtName<>"" Then UpSql=UpSql&",ServiceOrdPtName='"&ServiceOrdPtName&"'"
|
If ServiceOrdPtAge<>"" Then UpSql=UpSql&",ServiceOrdPtAge='"&ServiceOrdPtAge&"'"
|
If ServiceOrdPtIDCard<>"" Then UpSql=UpSql&",ServiceOrdPtIDCard='"&ServiceOrdPtIDCard&"'"
|
If ServiceOrdPtSex<>"" Then UpSql=UpSql&",ServiceOrdPtSex='"&ServiceOrdPtSex&"'"
|
If ServiceOrdPtNat<>"" Then UpSql=UpSql&",ServiceOrdPtNat='"&ServiceOrdPtNat&"'"
|
|
If ServiceOrdTraStreet<>"" Then UpSql=UpSql&",ServiceOrdTraStreet='"&ServiceOrdTraStreet&"'"
|
If ServiceOrdTraVia<>"" Then UpSql=UpSql&",ServiceOrdTraVia='"&ServiceOrdTraVia&"'"
|
If ServiceOrdTraEnd<>"" Then UpSql=UpSql&",ServiceOrdTraEnd='"&ServiceOrdTraEnd&"'"
|
If ServiceOrdPtServices<>"" Then UpSql=UpSql&",ServiceOrdPtServices='"&ServiceOrdPtServices&"'"
|
If ServiceOrdPtDiagnosis<>"" Then UpSql=UpSql&",ServiceOrdPtDiagnosis='"&ServiceOrdPtDiagnosis&"'"
|
If ServiceOrdPtCondition<>"" Then UpSql=UpSql&",ServiceOrdPtCondition='"&ServiceOrdPtCondition&"'"
|
If ServiceOrdPtDoctor<>"" Then UpSql=UpSql&",ServiceOrdPtDoctor='"&ServiceOrdPtDoctor&"'"
|
If ServiceOrdPtDoctorPhone<>"" Then UpSql=UpSql&",ServiceOrdPtDoctorPhone='"&ServiceOrdPtDoctorPhone&"'"
|
If ServiceOrdUnitRemarks<>"" Then UpSql=UpSql&",ServiceOrdUnitRemarks='"&ServiceOrdUnitRemarks&"'"
|
If ServiceOrdTraDistance<>"" Then UpSql=UpSql&",ServiceOrdTraDistance='"&ServiceOrdTraDistance&"'"
|
If SettlementPrice<>"" Then UpSql=UpSql&",SettlementPrice="&SettlementPrice
|
If ServiceOrdTraTxnPrice<>"" Then UpSql=UpSql&",ServiceOrdTraTxnPrice="&ServiceOrdTraTxnPrice
|
'If ServiceOrdTraTxnPrice<>0 Or ServiceOrdPtName<>"" Or ServiceOrdCoName<>"" Then UpSql=UpSql&",ServiceOrdOperationRemarks=replace(ServiceOrdOperationRemarks,'[客户未正式提交需求，可不联系]','')"
|
UpSql=UpSql&",ServiceOrdOperationRemarks=replace(replace(ServiceOrdOperationRemarks,'[客户未正式提交需求，可不联系]',''),'[客户未正式提交需求]','')"
|
If ServiceOrdPoints<>0 Then UpSql=UpSql&",ServiceOrdPoints="&ServiceOrdPoints
|
|
sql="update ServiceOrder set ServiceOrdUserID="&UserID&UpSql&",ServiceOrdUserUpdateTime=GETDATE() where ServiceOrdID="&ServiceOrdID
|
'Response.Write sql
|
objConn.Execute sql
|
|
ServiceOrdNo = ServiceOrdClass& year(ServiceOrd_CC_Time)&Right("0"&month(ServiceOrd_CC_Time),2)&Right("0"&day(ServiceOrd_CC_Time),2) & "-"&Right("00"&ServiceOrdNo,3)
|
|
'写入订单使用积分项
|
If UserID<>0 And ServiceOrdPoints>0 Then
|
If ServiceOrdPoints>0 Then
|
PaidMoneyTimestamp= UnixTime
|
sql="Insert into UserPoints (ToUserID,Points_Score,Points_Type,Points_State,ServiceOrdIDDt,Points_Value1) values ("&UserID&","&-ServiceOrdPoints&",6,1,"&ServiceOrdID&",'"&ServiceOrdNo&"')"
|
objConn.Execute sql
|
sql="insert into PaidMoney (PaidMoneyClass,ServiceOrdIDDt,PaidMoney,PaidMoneyType,PaidMoneyOaID,PaidMoneyTimestamp,PaidMoneyMono,PaidMoney_AP_Check,PaidMoney_AP_Time,PaidMoney_AP_ID) values ('FI',"&ServiceOrdID&","&ServiceOrdPoints&",9,"&UnitID&",'"&PaidMoneyTimestamp&"','积分支付',1,getdate(),"&UnitID&")"
|
objConn.Execute sql
|
sql="update ServiceOrder set ServiceOrdTraPaidPrice=(select sum(PaidMoney) from PaidMoney where PaidMoney_AP_Check<>-1 and ServiceOrdIDDt=ServiceOrdID) where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
End If
|
End If
|
|
'写入附加服务项
|
sql="delete from ServiceOrder_Options where ServiceOptionsID>0 and ServiceOptionsID<1000 and ServiceOrdSoID="&ServiceOrdID
|
objConn.Execute sql
|
|
If ServiceOptions<>"" Then
|
'Call OA_Running(1000,ServiceOptions)
|
'Response.Write ServiceOptions
|
If instr(ServiceOptions,"[")>0 And instr(ServiceOptions,"]")>0 Then
|
ServiceOptions=replace(ServiceOptions,"\""","""")
|
%>
|
<script language="jscript" runat="server">
|
Array.prototype.get = function(i)
|
{
|
return this[i];
|
};
|
function getjson(str){
|
try{
|
eval("var jsonStr = (" + str + ")");
|
}catch(ex){
|
var jsonStr = null;
|
}
|
return jsonStr;
|
}
|
</script>
|
<%
|
str=ServiceOptions
|
'str=right(str,len(str)-instr(str,"[")+1)
|
'str=left(str,InstrRev(str,"]"))
|
set obj = getjson(str)
|
|
for i=0 to obj.length-1
|
SO_ID = obj.get(i).SO_ID
|
SO_Value = obj.get(i).SO_Value
|
'Response.Write SO_ID&"|"&SO_Value&"<br>"
|
If SO_ID<>"" And SO_Value<>"" Then
|
SO_ValueSP=split(SO_Value,",")
|
If (Cstr(SO_ValueSP(0))<>"" And Cstr(SO_ValueSP(0))<>"0") Or SO_ID="4" Or SO_ID="8" Or SO_ID="11" Or SO_ID="12" Or SO_ID="13" Or SO_ID="14" Or SO_ID="15" Or SO_ID="16" Then
|
sql="Insert into ServiceOrder_Options (ServiceOrdSoID,ServiceOptionsID,ServiceOptionsValue) values ("&ServiceOrdID&","&SO_ID&",'"&SO_Value&"')"
|
objConn.Execute sql
|
End If
|
End If
|
Next
|
Else
|
'Response.Write "不是json对像<br>"
|
End If
|
End If
|
|
'写入目前病情(单选项类)
|
'sql="select vOrder from dictionary where vType=2 and vtitle='Condition' order by vOrder,vID"
|
'rs.open sql,objConn,1,1
|
'do while not rs.Eof
|
' ConditionOrder=rs("vOrder")
|
' ConditionID=trim(Request("ConditionID_"&ConditionOrder))
|
' If ConditionID<>"" Then
|
' sql="insert into ServiceOrd_Condition (ServiceOrdCoID,ConditionID) values ("&ServiceOrdID&","&ConditionID&")"
|
' objConn.Execute sql
|
' End if
|
'rs.movenext
|
'loop
|
'rs.close()
|
|
|
|
webJson="{""method"":""ServiceOrder_Edit"",""result"":1,""ServiceOrdID"":"""&ServiceOrdID&""",""ServiceOrdNo"":"""&ServiceOrdNo&""",""OrdPrice"":"""&OrdPrice&"""}"
|
|
If NC_OAIDs<>"" Then
|
If Mid(NC_OAIDs,1,1)="," Then NC_OAIDs=Mid(NC_OAIDs,2)
|
If Right(NC_OAIDs,1)="," Then NC_OAIDs=Mid(NC_OAIDs,1,Len(NC_OAIDs)-1)
|
sql="select OA_User_ID,OA_weixinUserID from OA_User where OA_execLevel>=0 and OA_User_ID in ("&NC_OAIDs&")"
|
rs.open sql,objConn,1,1
|
if not rs.Eof Then
|
do while not rs.Eof
|
ADMINuserID = ADMINuserID&","& rs("OA_User_ID")
|
ADMINwxuserID=ADMINwxuserID&"|"& rs("OA_weixinUserID")
|
rs.movenext
|
Loop
|
NC_OAID = Mid(ADMINuserID,2)
|
touser = Mid(ADMINwxuserID,2)
|
else
|
touser=""
|
NC_OAID="78"
|
end if
|
rs.close()
|
Else
|
touser=""
|
NC_OAID="78"
|
End If
|
|
If NewEdit="1" Then
|
If touser<>"" Then
|
'微信OA信息推送
|
%>
|
<!--#include virtual="/inc/JsonPost_1000006.gds"-->
|
<%
|
'touser="liaojunliang|ylkx_diaodu"
|
agentid=1000006
|
articles="{"
|
articles=articles&"""title"": ""【"&UnitUser(UnitID,"UnitName")&"新订单】"","
|
articles=articles&"""description"": ""服务单号："&ServiceOrdNo&"\n下单时间："&Now()&""","
|
articles=articles&"""url"": ""https://sys.966120.com.cn/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&""""
|
articles=articles&"}"
|
call WeiXin_MessageSend(access_token,touser,agentid,articles)
|
End If
|
|
'写入通知中心
|
'NC_OAID="78"
|
NC_Name="【"&UnitUser(UnitID,"UnitName")&"新订单】"
|
NC_Content="服务单号："&ServiceOrdNo&" 下单时间："&Now()&""
|
NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
|
NC_PageUrlM=""
|
Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
|
Else
|
'写入通知中心
|
'NC_OAID="78"
|
NC_Name="【"&UnitUser(UnitID,"UnitName")&"服务单修改】"
|
NC_Content="服务单号："&ServiceOrdNo&" 修改时间："&Now()&""
|
NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID
|
NC_PageUrlM=""
|
Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM)
|
End If
|
|
End If
|
'修改服务单 end
|
|
case "Dictionary" '系统字典信息查询
|
'必须
|
Category = trim(Request("Category")) '类目vtitle
|
|
'可选
|
DataKeyID = trim(Request("DataID")) '查询项
|
DataKey = trim(Request("DataKey")) '字典关键词
|
UserID = trim(Request("DataKey")) '用户唯一ID
|
|
'查询数据库
|
If Category<>"" Then '其它
|
If DataKey<>"" Then
|
If DataKeyID="id" Or DataKeyID="ID" Or DataKeyID="Id" Then
|
searchSql=" and vid in ("&DataKey&") "
|
ElseIf DataKeyID="1" Or DataKeyID="Data1" Then
|
searchSql=" and vtext='"&DataKey&"' "
|
ElseIf DataKeyID="2" Or DataKeyID="Data2" Then
|
searchSql=" and vType="&DataKey&" "
|
ElseIf DataKeyID="3" Or DataKeyID="Data3" Then
|
searchSql=" and vMono='"&DataKey&"' "
|
ElseIf DataKeyID="4" Or DataKeyID="Data4" Then
|
searchSql=" and vOrder="&DataKey&" "
|
ElseIf DataKeyID="5" Or DataKeyID="Data5" Then
|
searchSql=" and vOrder2='"&DataKey&"' "
|
End If
|
End If
|
sql="select * from dictionary where vtitle='"&Category&"' and vType>=1"&searchSql&" order by vOrder,vID,id"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
webJson=webJson&",{""ID"":"&rs("vID")&",""Data1"":"""&rs("vtext")&""",""Data2"":"&rs("vType")&",""Data3"":"""&rs("vMono")&""",""Data4"":"&rs("vOrder")&",""Data5"":"""&rs("vOrder2")&""",""DataID"":"&rs("id")&"}"
|
rs.movenext
|
Loop
|
rs.close
|
End If
|
|
If webJson<>"" Then
|
webJson=Mid(webJson,2)
|
End If
|
If InStr(webJson,"账号或密码错误")>0 Then
|
webJson=Replace(webJson,"{""ret"":20001,""msg"":""账号或密码错误""}","")
|
End If
|
webJson="{""method"":""Dictionary"",""result"":1,""Category"":"""&Category&""",""Dictionary"":["&webJson&"]}"
|
'字典信息查询 end
|
|
case "DictionaryEdit" '系统字典信息修改
|
'必须
|
ID = trim(Request("DataID")) '字典ID
|
|
'可选
|
vID = trim(Request("ID")) 'int型
|
vtext = trim(Request("Data1")) 'nvarchar(512)
|
vType = trim(Request("Data2")) 'int型
|
vMono = trim(Request("Data3")) 'nvarchar(50)
|
vOrder = trim(Request("Data4")) 'money型
|
vOrder2 = trim(Request("Data5")) 'nvarchar(500)
|
|
|
'查询数据库
|
If ID<>"" Then '其它
|
If vID<>"" And IsNumeric(vID) Then UPSql=UPSql&",vID="&vID
|
If vtext<>"" Then UPSql=UPSql&",vtext='"&vtext&"'"
|
If vType<>"" And IsNumeric(vType) Then UPSql=UPSql&",vType="&vType
|
If vMono<>"" Then UPSql=UPSql&",vMono='"&vMono&"'"
|
If vOrder<>"" And IsNumeric(vOrder) Then UPSql=UPSql&",vOrder="&vOrder
|
If vOrder2<>"" Then UPSql=UPSql&",vOrder2='"&vOrder2&"'"
|
If UPSql<>"" Then
|
UPSql=Mid(UPSql,2)
|
sql="update dictionary set "&UPSql&" where id="&ID
|
objConn.Execute sql
|
End If
|
End If
|
webJson="{""method"":""DictionaryEdit"",""result"":1}"
|
'字典信息修改 end
|
|
case "DispatchOrder_Detail" '调度单信息查询
|
'必须
|
DispatchOrdID = trim(Request("DispatchOrdID")) '调度单ID
|
|
'可选
|
UserID = trim(Request("UserID")) ' 用户唯一ID
|
|
'查询数据库
|
If IsNumeric(DispatchOrdID) Then
|
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
|
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) '调度单编号
|
rs.close()
|
Guest_Point=0
|
If ServiceOrdID<>"" Then
|
sql="select Guest_Point,Guest_Evaluate from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
Guest_Point=rs("Guest_Point")
|
Guest_Evaluate=rs("Guest_Evaluate")
|
End If
|
rs.close()
|
If Guest_Point>0 Then Guest_Point=1
|
End If
|
|
sql="select vID,vOrder2,DispatchOrd_Entourage.id,EntourageOAid,EntourageLead,OA_Name,OA_weixinAvatar,OA_Img,OA_Img_64,vtext,Guest_PointE,Guest_Point_1,Guest_Point_2,Guest_Point_3 from DispatchOrd_Entourage,OA_User,dictionary where vtitle='DispatchOrdEntourage' and EntourageID=vID and OA_User_ID=EntourageOAid and EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" order by EntourageLead desc,vID desc"
|
rs.open sql,objConn,1,1
|
i=0
|
do while not rs.Eof
|
If EntourageName="司机" Then exit do
|
EntourageID = rs("vID")
|
OA_CompetencyID = rs("vOrder2")
|
EId = rs("id")
|
EntourageOAid = rs("EntourageOAid")
|
OA_Name = rs("OA_Name")
|
OA_Img = rs("OA_Img")
|
OA_Img_64 = rs("OA_Img_64")
|
If OA_Img_64="" Or isnull(OA_Img_64) Then
|
OA_Img_64 = rs("OA_weixinAvatar")
|
If OA_Img_64="" Then OA_Img_64 = OAImgURL&"icon_avatar_default.png"
|
Else
|
OA_Img_64 = OAImgURL&OA_Img_64
|
End If
|
If OA_Img="" Or isnull(OA_Img) Then
|
OA_Img=OA_Img_64
|
Else
|
OA_Img = OAImgURL&OA_Img
|
End If
|
Guest_PointE = rs("Guest_PointE")
|
Guest_Point_1 = rs("Guest_Point_1")
|
Guest_Point_2 = rs("Guest_Point_2")
|
Guest_Point_3 = rs("Guest_Point_3")
|
OA_Name=Replace(OA_Name,"（外援医生）","")
|
OA_Name=Replace(OA_Name,"司机001","")
|
If rs("vtext")="司机" Then
|
EntourageName = OA_Name&" "&rs("vtext")
|
EntouragePostName = rs("vtext")
|
Guest_Point_1_Name = "快捷安全"
|
Guest_Point_2_Name = "服务态度"
|
Guest_Point_3_Name = "舒适平稳"
|
rs.movenext
|
If not rs.Eof Then
|
If rs("OA_Name")<>"司机001" Then
|
OA_Name2 = rs("OA_Name")
|
OA_Img2 = rs("OA_Img")
|
OA_Img2_64 = rs("OA_Img_64")
|
If OA_Img2_64="" Or isnull(OA_Img2_64) Then
|
OA_Img2_64 = rs("OA_weixinAvatar")
|
If OA_Img2_64="" Then OA_Img2_64 = OAImgURL&"icon_avatar_default.png"
|
Else
|
OA_Img2_64 = OAImgURL&OA_Img2_64
|
End If
|
If OA_Img2="" Or isnull(OA_Img2) Then
|
OA_Img2=OA_Img2_64
|
Else
|
OA_Img2 = OAImgURL&OA_Img2
|
End If
|
EntourageName_2 = OA_Name2&" "&rs("vtext")
|
Driver2Json=",""EntourageName_2"":"""&EntourageName_2&""",""EntourageImg_64_2"":"""&OA_Img2_64&""",""EntourageImg_2"":"""&OA_Img2&""""
|
End If
|
Else
|
rs.moveprevious
|
End If
|
Else
|
'EntourageName=Left(OA_Name,1)
|
'For t = 1 to Len(OA_Name)-1
|
' EntourageName=EntourageName&"*"
|
'Next
|
'EntourageName = EntourageName&" "&rs("vtext")
|
EntourageName = OA_Name&" "&rs("vtext")
|
EntouragePostName = rs("vtext")
|
Guest_Point_1_Name = "专业技能"
|
Guest_Point_2_Name = "服务态度"
|
Guest_Point_3_Name = "健康指导"
|
End If
|
EntourageJson=EntourageJson&",{""EId"":"&EId&",""EntourageName"":"""&EntourageName&""",""EntouragePostName"":"""&EntouragePostName&""",""EntourageImg_64"":"""&OA_Img_64&""",""EntourageImg"":"""&OA_Img&""""&Driver2Json&",""Guest_Point_1_Name"":"""&Guest_Point_1_Name&""",""Guest_Point_2_Name"":"""&Guest_Point_2_Name&""",""Guest_Point_3_Name"":"""&Guest_Point_3_Name&""",""Guest_Point_1"":"&Guest_Point_1&",""Guest_Point_2"":"&Guest_Point_2&",""Guest_Point_3"":"&Guest_Point_3&",""Guest_PointE"":"""&Guest_PointE&"""}"
|
rs.movenext
|
Loop
|
rs.close
|
If EntourageJson<>"" Then
|
EntourageJson=Mid(EntourageJson,2)
|
End If
|
webJson="{""method"":""DispatchOrder_Detail"",""result"":1,""DispatchOrdID"":"""&DispatchOrdID&""",""DispatchOrdState"":"""&DispatchOrdState&""",""DispatchCar"":"""&CarDataA(DispatchOrdCarID,"","CarLicense")&""",""Guest_Point"":"&Guest_Point&",""Guest_Evaluate"":"""&Guest_Evaluate&""",""Entourage"":["&EntourageJson&"],""Reward"":[5,10]}"
|
|
Else
|
rs.close()
|
errcode=40316
|
errmsg="invalid DispatchOrdID"
|
End If
|
|
Else
|
errcode=40315
|
errmsg="invalid DispatchOrdID"
|
End If
|
|
|
'调度单信息查询 end
|
|
case "OrdEvaluateSave" '订单评价
|
ServiceOrdID = trim(request("ServiceOrdID"))
|
DispatchOrdID = trim(request("DispatchOrdID"))
|
UserID = trim(request("UserID"))
|
if ServiceOrdID="" or DispatchOrdID="" or UserID="" then
|
errcode=40310
|
errmsg="invalid Date"
|
end If
|
|
Guest_Reward = trim(request("Reward"))
|
If Guest_Reward="-1" Then Guest_Reward=trim(request("other_Reward"))
|
Guest_Evaluate = trim(request("contents"))
|
Entourage = trim(request("Entourage"))
|
Guest_Impression= ""
|
If Guest_Reward="" Then Guest_Reward=0
|
If Guest_Point="" Then Guest_Point=1
|
If Not IsNumeric(ServiceOrdID) Then ServiceOrdID=0
|
If errcode="" Then
|
sql="select ServiceOrdID,ServiceOrdUserID from ServiceOrder where Guest_Point=0 and ServiceOrdID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
if rs.Eof then
|
errcode=40310
|
errmsg="invalid ServiceOrd"
|
ElseIf UserID="" Or UserID="0" Then
|
UserID=rs("ServiceOrdUserID")
|
end if
|
rs.close()
|
End If
|
|
If errcode="" Then
|
|
If Entourage<>"" Then
|
'Response.Write Entourage
|
If instr(Entourage,"[")>0 And instr(Entourage,"]")>0 Then%>
|
<script language="jscript" runat="server">
|
Array.prototype.get = function(i)
|
{
|
return this[i];
|
};
|
function getjson(str){
|
try{
|
eval("var jsonStr = (" + str + ")");
|
}catch(ex){
|
var jsonStr = null;
|
}
|
return jsonStr;
|
}
|
</script>
|
<%
|
str=Entourage
|
'str=right(str,len(str)-instr(str,"[")+1)
|
'str=left(str,InstrRev(str,"]"))
|
set obj = getjson(str)
|
|
for i=0 to obj.length-1
|
EId = obj.get(i).EId
|
Guest_Point_1 = obj.get(i).Guest_Point_1
|
Guest_Point_2 = obj.get(i).Guest_Point_2
|
Guest_Point_3 = obj.get(i).Guest_Point_3
|
If Guest_Point_1="" Then Guest_Point_1=0
|
If Guest_Point_2="" Then Guest_Point_2=0
|
If Guest_Point_3="" Then Guest_Point_3=0
|
sql="select EntourageID from dbo.DispatchOrd_Entourage where EntourageID in (1,2) and id="&EId
|
rs.open sql,objConn,1,1
|
If Not rs.Eof then
|
sql="update DispatchOrd_Entourage set Guest_Point_1="&Guest_Point_1&",Guest_Point_2="&Guest_Point_2&",Guest_Point_3="&Guest_Point_3&" from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and EntourageID=vID and EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" and vtext='司机'"
|
objConn.Execute sql
|
Else
|
sql="update DispatchOrd_Entourage set Guest_Point_1="&Guest_Point_1&",Guest_Point_2="&Guest_Point_2&",Guest_Point_3="&Guest_Point_3&" where id="&EId
|
objConn.Execute sql
|
end if
|
rs.close()
|
|
Next
|
Else
|
'Response.Write "不是json对像<br>"
|
End If
|
End If
|
|
sql="update ServiceOrder set Guest_openid='"&Guest_openid&"',Guest_Point="&Guest_Point&",Guest_Impression='"&Guest_Impression&"',Guest_Evaluate='"&Guest_Evaluate&"',Guest_Time=getdate() where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
|
If UserID<>"" And UserID<>"0" And 1=2 Then '2021.3.12停止
|
'评论送优惠券
|
sql="select id from Coupon where DateDiff(hh,CouponDate,getDate())<=24 and ToUserID="&UserID
|
rs.open sql,objConn,1,1
|
If rs.Eof then
|
'发优惠券： 市内50 省内100 省外200
|
CouponNO=DTimeID()&getIDnumbers(6)
|
CouponMoney=50
|
CouponRemarks=""
|
CouponName="50元现金券-（限广州市出发，广州市区内任务单使用）"
|
sql="Insert into Coupon (CouponNO,CouponName,CouponMoney,CouponDate_Ent,CouponRemarks,ServiceOrdIDPK,ToUserID) values ('"&CouponNO&"','"&CouponName&"',"&CouponMoney&",getdate()+365,'"&CouponRemarks&"',0,"&UserID&")"
|
objConn.Execute sql
|
|
CouponNO=DTimeID()&getIDnumbers(6)
|
CouponMoney=100
|
CouponRemarks=""
|
CouponName="100元现金券-（限广州市出发，广州市外、广东省内任务单使用）"
|
sql="Insert into Coupon (CouponNO,CouponName,CouponMoney,CouponDate_Ent,CouponRemarks,ServiceOrdIDPK,ToUserID) values ('"&CouponNO&"','"&CouponName&"',"&CouponMoney&",getdate()+365,'"&CouponRemarks&"',0,"&UserID&")"
|
objConn.Execute sql
|
|
CouponNO=DTimeID()&getIDnumbers(6)
|
CouponMoney=200
|
CouponRemarks=""
|
CouponName="200元现金券-（限广州市出发，广东省外任务单使用）"
|
sql="Insert into Coupon (CouponNO,CouponName,CouponMoney,CouponDate_Ent,CouponRemarks,ServiceOrdIDPK,ToUserID) values ('"&CouponNO&"','"&CouponName&"',"&CouponMoney&",getdate()+365,'"&CouponRemarks&"',0,"&UserID&")"
|
objConn.Execute sql
|
end if
|
rs.close()
|
End If
|
|
webJson="{""method"":""OrdEvaluateSave"",""result"":1,""Guest_Reward"":"&Guest_Reward&",""CXURL"":"""&CXURL&"""}"
|
End If
|
|
|
'订单评价 end
|
|
case "OrdEvaluateSave2" '订单评价(新2020.12.22)
|
ServiceOrdID = trim(request("ServiceOrdID"))
|
DispatchOrdID = trim(request("DispatchOrdID"))
|
UserID = trim(request("UserID"))
|
if ServiceOrdID="" or DispatchOrdID="" or UserID="" then
|
errcode=40310
|
errmsg="invalid Date"
|
end If
|
|
Guest_Reward = trim(request("Reward"))
|
If Guest_Reward="-1" Then Guest_Reward=trim(request("other_Reward"))
|
Guest_Evaluate = trim(request("contents"))
|
Entourage = trim(request("Entourage"))
|
Guest_Impression= ""
|
If Guest_Reward="" Then Guest_Reward=0
|
If Guest_Point="" Then Guest_Point=1
|
If Not IsNumeric(ServiceOrdID) Then ServiceOrdID=0
|
If Guest_Evaluate="undefined" Then Guest_Evaluate=""
|
If errcode="" Then
|
sql="select ServiceOrdID,ServiceOrdUserID from ServiceOrder where Guest_Point=0 and ServiceOrdID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
if rs.Eof then
|
errcode=40310
|
errmsg="invalid ServiceOrd"
|
ElseIf UserID="" Or UserID="0" Then
|
UserID=rs("ServiceOrdUserID")
|
end if
|
rs.close()
|
End If
|
|
If errcode="" Then
|
|
If Entourage="[9]" Then '满意评价
|
sql="update DispatchOrd_Entourage set Guest_PointE=',9' where EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID
|
objConn.Execute sql
|
|
ElseIf Entourage<>"" Then '不满意评价
|
'Response.Write Entourage
|
If instr(Entourage,"[")>0 And instr(Entourage,"]")>0 Then%>
|
<script language="jscript" runat="server">
|
Array.prototype.get = function(i)
|
{
|
return this[i];
|
};
|
function getjson(str){
|
try{
|
eval("var jsonStr = (" + str + ")");
|
}catch(ex){
|
var jsonStr = null;
|
}
|
return jsonStr;
|
}
|
</script>
|
<%
|
str=Entourage
|
'str=right(str,len(str)-instr(str,"[")+1)
|
'str=left(str,InstrRev(str,"]"))
|
set obj = getjson(str)
|
|
for i=0 to obj.length-1
|
EId = obj.get(i).EId
|
Guest_PointE = obj.get(i).Guest_PointE
|
If Guest_PointE="" Then Guest_PointE=",8"
|
sql="select EntourageID from dbo.DispatchOrd_Entourage where EntourageID in (1,2) and id="&EId
|
rs.open sql,objConn,1,1
|
If Not rs.Eof then
|
sql="update DispatchOrd_Entourage set Guest_PointE='"&Guest_PointE&"' from DispatchOrd_Entourage,dictionary where vtitle='DispatchOrdEntourage' and EntourageID=vID and EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID&" and vtext='司机'"
|
objConn.Execute sql
|
Else
|
sql="update DispatchOrd_Entourage set Guest_PointE='"&Guest_PointE&"' where id="&EId
|
objConn.Execute sql
|
end if
|
rs.close()
|
Next
|
Else
|
'Response.Write "不是json对像<br>"
|
End If
|
End If
|
|
sql="update ServiceOrder set Guest_openid='"&Guest_openid&"',Guest_Point="&Guest_Point&",Guest_Impression='"&Guest_Impression&"',Guest_Evaluate='"&Guest_Evaluate&"',Guest_Time=getdate() where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
|
If UserID<>"" And UserID<>"0" And 1=2 Then '2021.3.12停止
|
'评论送优惠券
|
sql="select id from Coupon where DateDiff(hh,CouponDate,getDate())<=24 and ToUserID="&UserID
|
rs.open sql,objConn,1,1
|
If rs.Eof then
|
'发优惠券： 市内50 省内100 省外200
|
CouponNO=DTimeID()&getIDnumbers(6)
|
CouponMoney=50
|
CouponRemarks=""
|
CouponName="50元现金券-（限市内使用）"
|
sql="Insert into Coupon (CouponNO,CouponName,CouponMoney,CouponDate_Ent,CouponRemarks,ServiceOrdIDPK,ToUserID) values ('"&CouponNO&"','"&CouponName&"',"&CouponMoney&",getdate()+365,'"&CouponRemarks&"',0,"&UserID&")"
|
objConn.Execute sql
|
|
CouponNO=DTimeID()&getIDnumbers(6)
|
CouponMoney=100
|
CouponRemarks=""
|
CouponName="100元现金券-（限省内跨市使用）"
|
sql="Insert into Coupon (CouponNO,CouponName,CouponMoney,CouponDate_Ent,CouponRemarks,ServiceOrdIDPK,ToUserID) values ('"&CouponNO&"','"&CouponName&"',"&CouponMoney&",getdate()+365,'"&CouponRemarks&"',0,"&UserID&")"
|
objConn.Execute sql
|
|
CouponNO=DTimeID()&getIDnumbers(6)
|
CouponMoney=200
|
CouponRemarks=""
|
CouponName="200元现金券-（限省外跨省使用）"
|
sql="Insert into Coupon (CouponNO,CouponName,CouponMoney,CouponDate_Ent,CouponRemarks,ServiceOrdIDPK,ToUserID) values ('"&CouponNO&"','"&CouponName&"',"&CouponMoney&",getdate()+365,'"&CouponRemarks&"',0,"&UserID&")"
|
objConn.Execute sql
|
end if
|
rs.close()
|
End If
|
|
webJson="{""method"":""OrdEvaluateSave"",""result"":1,""Guest_Reward"":"&Guest_Reward&",""CXURL"":"""&CXURL&"""}"
|
End If
|
|
|
'订单评价(新2020.12.22) end
|
|
case "InvoiceDataSave" '发票申请
|
ServiceOrdID = trim(request("ServiceOrdID"))
|
UserID = trim(request("UserID"))
|
InvoiceID = trim(request("InvoiceID"))
|
InvoiceType = trim(request("InvoiceType"))
|
InvoiceName = trim(request("InvoiceName")) '发票抬头
|
InvoiceMakeout = trim(request("InvoiceMakeout"))'发票备注
|
InvoiceCompanyPhone = trim(request("InvoiceCompanyPhone"))'企业电话
|
InvoiceCompanyID = trim(request("InvoiceCompanyID")) '纳税识别号
|
InvoiceCompanyAdd = trim(request("InvoiceCompanyAdd")) '企业注册地址
|
InvoiceCompanyBank = trim(request("InvoiceCompanyBank"))'企业开户银行
|
InvoiceCompanyBankNo= trim(request("InvoiceCompanyBankNo"))'企业银行账号
|
InvoiceZipCode = trim(request("InvoiceZipCode")) '邮编
|
Invoice_strAdd = trim(request("Invoice_strAdd")) '邮寄地址
|
Invoice_strName = trim(request("Invoice_strName")) '联系人
|
Invoice_strPhone = trim(request("Invoice_strPhone")) '联系电话
|
Invoice_strEmail = trim(request("Invoice_strEmail"))
|
errcode=0
|
title=""
|
|
if ServiceOrdID="" or UserID="" then
|
errcode=40321
|
errmsg="invalid OrdID/UserID"
|
ElseIf not IsNumeric(InvoiceType) Then
|
errcode=40322
|
errmsg="invalid InvoiceType"
|
end If
|
|
If Invoice_strEmail<>"" Then Invoice_strEmail=Replace(Invoice_strEmail,"%40","@")
|
|
If errcode=0 Then
|
If InvoiceID="" Or InvoiceID="0" Then
|
sql="select InvoiceID from InvoiceData where AuditStatus not in (3,4) and ServiceOrderIDPK="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof then
|
InvoiceID = rs("InvoiceID")
|
end if
|
rs.close()
|
End If
|
If InvoiceID="" Or InvoiceID="0" Then
|
sql="insert into InvoiceData (ServiceOrderIDPK, InvoiceType, InvoiceName, InvoiceMakeout, InvoiceCompanyPhone, InvoiceCompanyID, InvoiceCompanyAdd, InvoiceCompanyBank, InvoiceCompanyBankNo, InvoiceZipCode, Invoice_strAdd, Invoice_strName, Invoice_strPhone,Invoice_strEmail) values ("&ServiceOrdID&","&InvoiceType&",'"&InvoiceName&"','"&InvoiceMakeout&"','"&InvoiceCompanyPhone&"','"&InvoiceCompanyID&"','"&InvoiceCompanyAdd&"','"&InvoiceCompanyBank&"','"&InvoiceCompanyBankNo&"','"&InvoiceZipCode&"','"&Invoice_strAdd&"','"&Invoice_strName&"','"&Invoice_strPhone&"','"&Invoice_strEmail&"')"
|
objConn.Execute sql
|
title="新的发票申请(小程序)"
|
description=InvoiceName&",有一个新的发票申请,请即时处理"
|
InvoiceID=0
|
Else
|
sql="update InvoiceData set InvoiceType="&InvoiceType&",InvoiceName='"&InvoiceName&"',InvoiceMakeout='"&InvoiceMakeout&"',InvoiceCompanyPhone='"&InvoiceCompanyPhone&"',InvoiceCompanyID='"&InvoiceCompanyID&"',InvoiceCompanyAdd='"&InvoiceCompanyAdd&"',InvoiceCompanyBank='"&InvoiceCompanyBank&"',InvoiceCompanyBankNo='"&InvoiceCompanyBankNo&"',InvoiceZipCode='"&InvoiceZipCode&"',Invoice_strAdd='"&Invoice_strAdd&"',Invoice_strName='"&Invoice_strName&"',Invoice_strPhone='"&Invoice_strPhone&"',Invoice_strEmail='"&Invoice_strEmail&"' where AuditStatus not in (3,4) and InvoiceID="&InvoiceID
|
objConn.Execute sql
|
title="发票申请修改(小程序)"
|
description=InvoiceName&",有一个发票申请修改了,请即时处理"
|
End If
|
sql="SELECT OA_weixinID=STUFF((SELECT '|' + OA_weixinUserID from OA_User where OA_Power like '%030205%' and OA_execLevel>=1 FOR XML PATH('')), 1, 1, '')"
|
rs.open sql,objConn,1,1
|
If not rs.Eof then
|
touser = rs("OA_weixinID")
|
end if
|
rs.close()
|
If touser<>"" And title<>"" Then
|
'微信OA信息推送
|
%>
|
<!--#include virtual="/inc/JsonPost_1000006.gds"-->
|
<%
|
'touser="liaojunliang|ylkx_vicgame"
|
agentid=1000006
|
articles="{"
|
articles=articles&"""title"": ""【"&title&"】"","
|
articles=articles&"""description"": """&description&""","
|
articles=articles&"""url"": ""https://sys.966120.com.cn/m_Invoice.gds?InvoiceID="&InvoiceID&"&ServiceOrdID="&ServiceOrdID&"&order_type=11"""
|
articles=articles&"}"
|
call WeiXin_MessageSend(access_token,touser,agentid,articles)
|
End If
|
webJson="{""method"":""InvoiceDataSave"",""result"":1,""ServiceOrdID"":"&ServiceOrdID&"}"
|
End If
|
|
'发票申请 end
|
|
case "ServiceOptions" '附加服务项
|
Set Co_rs = Server.CreateObject("ADODB.Recordset")
|
sql="select * from dictionary where vtitle='ServiceOptions' and vType>=1 order by vOrder,vID,id"
|
Co_rs.open sql,objConn,1,1
|
SO_Json=""
|
do while not Co_rs.Eof
|
SO_ID = Co_rs("vID") '服务ID
|
SO_Name = Co_rs("vtext") '服务标题
|
SO_Type = Co_rs("vType") '服务类型
|
SO_SDid = Co_rs("vOrder2") '服务说明ID
|
SO_Content= Co_rs("vMono") '服务默认参数(单选0否,1是 | 多项单选0不选 | 多选"1,2,3"| 数字单选"是否,默认值,最小值,最大值" | 文本项"默认文本")
|
SO_Value = ""
|
|
SO_Json=SO_Json&",{""SO_ID"":"&SO_ID&",""SO_Type"":"&SO_Type&",""SO_Name"":"""&SO_Name&""",""SO_SDid"":"""&SO_SDid&""""
|
|
If SO_Type=1 Or SO_Type=11 Then '1 单选(是否需要呼机机)
|
If SO_Value="" or isnull(SO_Value) Then SO_Value=SO_Content
|
SO_Json=SO_Json&",""SO_Content"":[],""SO_Value"":"""&SO_Value&"""}"
|
|
ElseIf SO_Type=2 Or SO_Type=12 Then '2 多项目的单选(服务级别)
|
SO_ContentSP=split(SO_Content,",")
|
If SO_Value="" or isnull(SO_Value) Then SO_Value=SO_ContentSP(0)-1
|
SO_Content=""
|
for z=1 to ubound(SO_ContentSP)
|
If SO_ID=4 And z=1 Then
|
ContentExplain="患者清醒，能下床活动，生活全部或部分自理者。"
|
ElseIf SO_ID=4 And z=2 Then
|
ContentExplain="患者生命垂危、病情多变，生活部分自理或完全不能自理。如随时需要进行应急抢救的病员以及大面积灼伤，大手术后病人，ICU病人，24小时专人守护。"
|
ElseIf SO_ID=4 And z=3 Then
|
ContentExplain="患者病情稳定，但生活不能完全自理。如颅脑外伤或者脑卒中后遗症病人。"
|
ElseIf SO_ID=8 And z=1 Then
|
ContentExplain="一名司机 + 一名医生 + 一名护士"
|
ElseIf SO_ID=8 And z=2 Then
|
ContentExplain="一名司机 + 一名护士"
|
ElseIf SO_ID=8 And z=3 Then
|
ContentExplain="两名司机"
|
ElseIf SO_ID=8 And z=4 Then
|
ContentExplain="一名司机"
|
Else
|
ContentExplain=""
|
End If
|
SO_Content=SO_Content&",{""ContentOption"":"""&SO_ContentSP(z)&""",""ContentExplain"":"""&ContentExplain&"""}"
|
Next
|
If SO_Content<>"" Then SO_Content=Mid(SO_Content,2)
|
SO_Json=SO_Json&",""SO_Content"":["&SO_Content&"],""SO_Value"":"""&SO_Value&"""}"
|
|
ElseIf SO_Type=3 Then '3 项目的多选(多选类)
|
SO_ContentSP=split(SO_Content,",")
|
SO_Content=""
|
for z=0 to ubound(SO_ContentSP)
|
SO_Content=SO_Content&","""&SO_ContentSP(z)&""""
|
Next
|
If SO_Content<>"" Then SO_Content=Mid(SO_Content,2)
|
SO_Json=SO_Json&",""SO_Content"":["&SO_Content&"],""SO_Value"":["&SO_Value&"]}"
|
|
ElseIf SO_Type=4 Or SO_Type=14 Then '4 带数字选项的单选(步梯担抬服务)
|
SO_ContentSP=split(SO_Content,",")
|
If SO_Value="" or isnull(SO_Value) Then SO_Value=SO_ContentSP(0)&","&SO_ContentSP(1)
|
SO_Content=""
|
If ubound(SO_ContentSP)=3 Then
|
for z=SO_ContentSP(2) to SO_ContentSP(3)
|
SO_Content=SO_Content&","&z
|
Next
|
End If
|
If SO_Content<>"" Then SO_Content=Mid(SO_Content,2)
|
SO_Json=SO_Json&",""SO_Content"":["&SO_Content&"],""SO_Value"":["&SO_Value&"]}"
|
|
ElseIf SO_Type=5 Or SO_Type=15 Then '5 文本输入(客户备注类)
|
If SO_Value="" or isnull(SO_Value) Then SO_Value=SO_Content
|
SO_Json=SO_Json&",""SO_Content"":[],""SO_Value"":"""&SO_Value&"""}"
|
|
Else
|
SO_Json=SO_Json&",""SO_Content"":[],""SO_Value"":"""&SO_Value&"""}"
|
End If
|
|
Co_rs.movenext
|
Loop
|
If SO_Json<>"" Then SO_Json=Mid(SO_Json,2)
|
Co_rs.close()
|
webJson="{""method"":""ServiceOptions"",""result"":1,""ServiceOptions"":["&SO_Json&"]}"
|
'附加服务项 end
|
|
case else
|
errcode=40004
|
errmsg="invalid method"
|
end Select
|
End If
|
|
rsRollbackTrans(objConn.Errors.count)
|
|
If Left(errcode,1)="4" Or webJson="" Then
|
If errcode="" Then
|
errcode=-1
|
errmsg="error"
|
End If
|
webJson="{""APPID"":"""&APPID&""",""method"":"""&method&""",""result"":2,""errcode"":"&errcode&",""errmsg"":"""&errmsg&"""}"
|
Call OA_Running(UnitID,webJson)
|
ElseIf method="PaidMoney_APP" Then
|
OkJson="{""APPID"":"""&APPID&""",""method"":"""&method&""",""result"":1,""Running"":"""&sParaRunning&"""}"
|
Call OA_Running(UnitID,OkJson)
|
Else
|
OkJson="{""APPID"":"""&APPID&""",""method"":"""&method&""",""result"":1,""Running"":"""&sParaRunning&"""}"
|
'Call OA_Running(UnitID,OkJson)
|
End If
|
|
Response.Write webJson
|
|
%>
|
|
<%If method="Article_detail" And trim(Request("aa"))="1" then%>
|
<textarea><%=webJson%></textarea>
|
<%End if%>
|
