<% Set rs = Server.CreateObject("ADODB.Recordset") ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '单据ID DispatchOrdID = SafeRequest(Request.form("DispatchOrdID")) '调度单ID ServiceOrdUserID = SafeRequest(Request.form("ServiceOrdUserID")) '用户ID ServiceOrdClass = SafeRequest(Request.form("ServiceOrdClass")) '单据类型 ServiceOrdAreaType = SafeRequest(Request.form("ServiceOrdAreaType")) '服务单区域 ServiceOrdType = SafeRequest(Request.form("ServiceOrdType")) '服务单类型 ServiceOrdState = SafeRequest(Request.form("ServiceOrdState")) '服务单状态 ServiceOrdStartDate = SafeRequest(Request.form("ServiceOrdStartDate")) '开单日期 ServiceOrdApptDate = SafeRequest(Request.form("ServiceOrdApptDate")) '预约日期 ServiceOrdEstimatedOrderDate=SafeRequest(Request.form("ServiceOrdEstimatedOrderDate")) '预计派单时间 ServiceOrdEstimatedOrderDateOld=SafeRequest(Request.form("ServiceOrdEstimatedOrderDateOld")) '原预计派单时间 ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '联系人姓名 ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '联系人电话 ServiceOrdCoTies = SafeRequest(Request.form("ServiceOrdCoTies")) '联系人与患者关系 ServiceOrdPtName = SafeRequest(Request.form("ServiceOrdPtName")) '患者姓名 ServiceOrdPtAge = SafeRequest(Request.form("ServiceOrdPtAge")) '患者年龄 ServiceOrdPtKG = SafeRequest(Request.form("ServiceOrdPtKG")) '患者体重 ServiceOrdPtSex = SafeRequest(Request.form("ServiceOrdPtSex")) '患者性别 ServiceOrdPtNat = SafeRequest(Request.form("ServiceOrdPtNat")) '患者国籍 ServiceOrdPtIDCard = SafeRequest(Request.form("ServiceOrdPtIDCard")) '患者身份证 ServiceOrdPtOutHospID_New=SafeRequest(Request.form("ServiceOrdPtOutHospID")) '转出医院ID ServiceOrdPtOutHosp = SafeRequest(Request.form("ServiceOrdPtOutHosp")) '转出医院 ServiceOrdPtInHospID_New= SafeRequest(Request.form("ServiceOrdPtInHospID")) '转入医院ID ServiceOrdPtInHosp = SafeRequest(Request.form("ServiceOrdPtInHosp")) '转入医院 ServiceOrdPtServices = SafeRequest(Request.form("ServiceOrdPtServices")) '转出科室 ServiceOrdPtServicesID = SafeRequest(Request.form("ServiceOrdPtServicesID")) '转出科室ID ServiceOrdPtInServices = SafeRequest(Request.form("ServiceOrdPtInServices")) '转入科室 ServiceOrdPtInServicesID= SafeRequest(Request.form("ServiceOrdPtInServicesID")) '转入科室ID ServiceOrdPtDiagnosis = SafeRequest(Request.form("ServiceOrdPtDiagnosis")) '诊断 ServiceOrdPtCondition = SafeRequest(Request.form("ServiceOrdPtCondition")) '病情描述 ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '医护司备注 ServiceOrdPtDoctor = SafeRequest(Request.form("ServiceOrdPtDoctor")) '患者医生 ServiceOrdPtDoctorPhone = SafeRequest(Request.form("ServiceOrdPtDoctorPhone")) '患者医生电话 ServiceOrdTraProvince = SafeRequest(Request.form("province")) '出发地省份 ServiceOrdTraCity = SafeRequest(Request.form("city")) '出发地城市 ServiceOrdTraStreet = SafeRequest(Request.form("ServiceOrdTraStreet")) '出发地 ServiceOrdTraStreetCoo = SafeRequest(Request.form("ServiceOrdTraStreetCoo")) '出发地坐标 ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '目的地 ServiceOrdTraEndCoo = SafeRequest(Request.form("ServiceOrdTraEndCoo")) '目的地坐标 ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '途经地 ServiceOrdViaDistance = SafeRequest(Request.form("ServiceOrdViaDistance")) '中途距离(公里) ServiceOrdTraDistance = SafeRequest(Request.form("ServiceOrdTraDistance")) '距离(公里) ServiceOrdTraDuration = SafeRequest(Request.form("ServiceOrdTraDuration")) '预计行程时间 ServiceOrdTraUnitPrice = SafeRequest(Request.form("ServiceOrdTraUnitPrice")) '单价/公里 ServiceOrdTraOfferPrice = SafeRequest(Request.form("ServiceOrdTraOfferPrice")) '标准报价 ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '成交价 ServiceOrdTraPrePayment = SafeRequest(Request.form("ServiceOrdTraPrePayment")) '需预付款 SettlementPrice = SafeRequest(Request.form("SettlementPrice")) '结算价 ServiceOrdTraPriceReason= SafeRequest(Request.form("ServiceOrdTraPriceReason")) '差价原因 TEL_Phone = SafeRequest(Request.form("Phone")) '来电电话 TEL_Time = SafeRequest(Request.form("TEL_Time")) '来电时间 TEL_Remarks = SafeRequest(Request.form("TEL_Remarks")) '来电备注 TransferModeID = SafeRequest(Request.form("TransferModeID")) '转运方式 ServiceOrdVIP = SafeRequest(Request.form("ServiceOrdVIP")) 'VIP客户 ServiceOrd_CC_ID = SafeRequest(Request.form("ServiceOrd_CC_ID")) '客服人员ID ServiceOrd_Sale_ID = SafeRequest(Request.form("ServiceOrd_Sale_ID")) '销售人员ID ServiceOrdIntroducer = SafeRequest(Request.form("ServiceOrdIntroducer")) '介绍人 ServiceOrd_work_ID = SafeRequest(Request.form("ServiceOrd_work_ID")) '主要企微客服ID ServiceOrd_work_IDs = SafeRequest(Request.form("ServiceOrd_work_IDs")) '其他企微客服ID ServiceOrd_work_is = SafeRequest(request.form("ServiceOrd_work_is")) '是否企微成交 CommissionScenarioID = SafeRequest(request.form("CommissionScenarioID")) '企微绩效方案 ReturnChannel = SafeRequest(Request.form("ReturnChannel")) '回访获知966120的渠道 ReturnChannelOther = SafeRequest(Request.form("ReturnChannelOther")) '回访获知966120的渠道(其它) VisitDict = SafeRequest(Request.form("VisitDict")) '回访记录(评价类型) ServiceOrdVisit = SafeRequest(Request.form("ServiceOrdVisit")) '回访记录 ServiceOrdVisit_old = SafeRequest(Request.form("ServiceOrdVisit_old")) '原回访记录 ServiceOrdOperationRemarks= SafeRequest(Request.form("ServiceOrdOperationRemarks")) '操作备注 CancelReason = SafeRequest(Request.form("CancelReason")) '取消原因 CancelReasonTXT = SafeRequest(Request.form("CancelReasonTXT")) '取消原因备注 CancelReasonTXT = CancelReasonTXT&"[取消操作:"&OAUser(session("adminID"),"UserName")&"]" ServiceOrdSource = SafeRequest(Request.form("ServiceOrdSource")) '订单来源 OrderLevel = SafeRequest(Request.form("OrderLevel")) '查看等级 ServiceOrdDepartureType = SafeRequest(Request.form("ServiceOrdDepartureType")) '预约类型 ConditionLevel = SafeRequest(Request.form("ConditionLevel")) '病重级别 DirectionType = SafeRequest(Request.form("DirectionType")) '转运去向 ServiceOrd_m = SafeRequest(Request.form("ServiceOrd_m")) '来源入口 FromHQ2_is = SafeRequest(Request.form("FromHQ2_is")) '广州总部推送任务标记 ServiceOrd_Check = SafeRequest(Request.form("ServiceOrd_Check")) '当前审核操作 EditDataForm = SafeRequest(Request.form("EditDataForm")) '当前修改项目 SaveOpenerCommission ServiceOrdID SaveFollowers ServiceOrdID Call RequestForm(Origin) session("Origin")=Origin 'response.write Origin 'response.end If ServiceOrdTraUnitPrice="" Then ServiceOrdTraUnitPrice=0 If ServiceOrdTraOfferPrice="" Then ServiceOrdTraOfferPrice=0 If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0 If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0 If SettlementPrice="" Then SettlementPrice=0 If ServiceOrdState="" Then ServiceOrdState=1 If ServiceOrd_Sale_ID="" Then ServiceOrd_Sale_ID="null" If ServiceOrd_work_ID="" Then ServiceOrd_work_ID="null" If ServiceOrd_work_is="" Then ServiceOrd_work_is=0 If CommissionScenarioID="" Then CommissionScenarioID=0 If ServiceOrd_CC_ID="" Then ServiceOrd_CC_ID="ServiceOrd_CC_ID" If ServiceOrd_CC_ID="0" Then ServiceOrd_CC_ID=session("adminID") If CancelReason="" Then CancelReason=0 If ServiceOrdSource="" Then ServiceOrdSource=0 'If InStr(ServiceOrdTraDistance,"公里")>0 Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance,"公里","") 'If InStr(ServiceOrdTraDistance,"米")>0 Then ServiceOrdTraDistance=CInt(Replace(ServiceOrdTraDistance,"米",""))/1000 If ServiceOrdViaDistance="" Or OrderLevel<>"2" Then ServiceOrdViaDistance=0 If ServiceOrdTraDistance="" Then ServiceOrdTraDistance=0 If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","") If ServiceOrdPtOutHospID_New="" Then ServiceOrdPtOutHospID_New=0 If ServiceOrdPtInHospID_New="" Then ServiceOrdPtInHospID_New=0 If ServiceOrdVIP="" Then ServiceOrdVIP=0 If ServiceOrdOperationRemarks<>"" Then ServiceOrdOperationRemarks=replace(replace(ServiceOrdOperationRemarks,"[客户未正式提交需求，可不联系]",""),"[客户未正式提交需求]","") If ServiceOrdVisit<>"" And ServiceOrdVisit_old<>ServiceOrdVisit Then RV_Point=0 sql="select id from DispatchOrd_Entourage,DispatchOrd where EntourageState<>4 and DispatchOrdIDDt=DispatchOrdID and ServiceOrdIDDt="&ServiceOrdID rs.open sql,objConn,1,1 do while not rs.Eof DE_id=rs("id") RV_PointE=SafeRequest(Request.form("RV_PointE_"&DE_id)) If RV_PointE<>"" Then RV_Point=RV_Point+1 sql="update DispatchOrd_Entourage set RV_PointE='"&RV_PointE&"' where id="&DE_id objConn.Execute sql End If rs.movenext loop rs.close() SqlVisit=",ServiceOrdVisit='"&ServiceOrdVisit&"',ServiceOrdVisit_time=getdate(),ServiceOrdVisit_ID="&session("adminID") If VisitDict<>"" Then SqlVisit=SqlVisit&",ServiceOrdVisit_Dict='"&VisitDict&"'" If RV_Point>0 Then SqlVisit=SqlVisit&",RV_Point="&RV_Point ElseIf ServiceOrdVisit="" Then SqlVisit=",ServiceOrdVisit_Dict=null,ServiceOrdVisit=null,ServiceOrdVisit_time=null,ServiceOrdVisit_ID=null,RV_Point=0" End If If ReturnChannel="其他（手动填写）" Then If ReturnChannelOther="" Then ReturnChannelOther="其它" SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannelOther&"'" ElseIf ReturnChannel<>"" Then SqlVisit=SqlVisit&",ServiceOrdReturnChannel='"&ReturnChannel&"'" Else SqlVisit=SqlVisit&",ServiceOrdReturnChannel=null" End If SMT=3 ServiceOrdTraPrePayment=Replace(ServiceOrdTraPrePayment,",","") SettlementPrice=Replace(SettlementPrice,",","") ServiceOrdTraOfferPrice=Replace(ServiceOrdTraOfferPrice,",","") ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","") If ServiceOrdPtServicesID="" Then ServiceOrdPtServicesID=0 If ServiceOrdPtInServicesID="" Then ServiceOrdPtInServicesID=0 If OrderLevel="" Then OrderLevel=0 If ServiceOrdDepartureType="" Then ServiceOrdDepartureType=1 If ConditionLevel="" Then ConditionLevel=0 If DirectionType="" Then DirectionType=0 If ServiceOrdUserID="" Then ServiceOrdUserID=0 If FromHQ2_is="" Then FromHQ2_is=0 If EditDataForm<>"" Then EditDataForm="["&EditDataForm&"] ID" '数据不完整 If ServiceOrdID="" Or Not IsNumeric(ServiceOrdID) Then Response.Redirect "/ServiceOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=1" If ServiceOrdState="1" And (ServiceOrdCoPhone="" Or ServiceOrdClass="" Or ServiceOrdTraDistance="") Then Response.Redirect "/ServiceOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=1&error=,ServiceOrdCoPhone," If ServiceOrdState="2" And ServiceOrd_m<>"1" 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," If ServiceOrdSource="0" Then error=error&"ServiceOrdSource," 'If ConditionLevel="0" Then error=error&"ConditionLevel," 'If DirectionType="0" Then error=error&"DirectionType," If ServiceOrdPtServicesID="0" Then error=error&"ServiceOrdPtServicesID," If ServiceOrdPtInServicesID="0" Then error=error&"ServiceOrdPtInServicesID," If Len(error)>2 Then Response.Redirect "/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=4&error="&error ElseIf ServiceOrd_m="1" Then '手机端默认值 If ServiceOrdCoPhone="" Then ServiceOrdCoPhone="" If ServiceOrdTraProvince="" Then ServiceOrdTraProvince="" If ServiceOrdTraCity="" Then ServiceOrdTraCity="" If ServiceOrdTraStreet="" And ServiceOrdClass<>"" Then sql="select vMono from dictionary where vType=1 and vtitle='OrderClass' and vOrder2='"&ServiceOrdClass&"'" rs.open sql,objConn,1,1 If not rs.Eof Then ServiceOrdTraStreet=rs(0) End If rs.close() End If If ServiceOrdTraVia="" Then ServiceOrdTraVia=ServiceOrdPtOutHosp If ServiceOrdTraEnd="" Then ServiceOrdTraEnd=ServiceOrdPtInHosp error="," If ServiceOrdCoName="" Then error=error&"ServiceOrdCoName," If ServiceOrdPtName="" Then error=error&"ServiceOrdPtName," 'If ConditionLevel="0" Then error=error&"ConditionLevel," 'If DirectionType="0" Then error=error&"DirectionType," If ServiceOrdPtOutHospID_New="" Then error=error&"ServiceOrdPtOutHospID," If ServiceOrdPtInHospID_New="" Then error=error&"ServiceOrdPtInHospID," If Len(error)>2 Then Response.Redirect "/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&SystemMessageType=4&SMT=4&error="&error End if '验证单据ID是否正确 sql="select ServiceOrdID,ServiceOrdState,ServiceOrd_AP_Check,ServiceOrdUnitID,ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo,ServiceOrdCoName,ServiceOrdCoPhone,ServiceOrdTraVia,ServiceOrdTraEnd,ServiceOrdTraTxnPrice,ServiceOrdPtOutHospID,ServiceOrdPtInHospID,ToUserUUID from ServiceOrder where ServiceOrdID="&ServiceOrdID rs.open sql,objConn,1,1 if rs.eof Then session("Origin")="" Response.Redirect "/ServiceOrder.gds?SystemMessageType=4&SMT=1&Phone&="&TEL_Phone Else ServiceOrd_AP_Check=rs("ServiceOrd_AP_Check") Old_ServiceOrdState=rs("ServiceOrdState") ServiceOrdUnitID=rs("ServiceOrdUnitID") Old_ServiceOrdClass=rs("ServiceOrdClass") If ServiceOrdClass="" Then ServiceOrdClass=Old_ServiceOrdClass ServiceOrd_CC_Time=rs("ServiceOrd_CC_Time") ServiceOrdNo=rs("ServiceOrdNo") Old_ServiceOrdCoName=rs("ServiceOrdCoName") Old_ServiceOrdCoPhone=rs("ServiceOrdCoPhone") Old_ServiceOrdTraVia=rs("ServiceOrdTraVia") Old_ServiceOrdTraEnd=rs("ServiceOrdTraEnd") Old_ServiceOrdTraTxnPrice=rs("ServiceOrdTraTxnPrice") Old_ServiceOrdPtOutHospID=rs("ServiceOrdPtOutHospID") Old_ServiceOrdPtInHospID=rs("ServiceOrdPtInHospID") ToUserUUID=rs("ToUserUUID") End if rs.close() '注册&查询用户ID If ServiceOrdCoPhone<>"" And Len(ServiceOrdCoPhone) And Left(ServiceOrdCoPhone,1)="1" And IsNumeric(ServiceOrdCoPhone) Then UserID=ServiceOrdUserID UserPhone=ServiceOrdCoPhone UserName=ServiceOrdCoName Call User_Login(UserID,UserPhone,wxOriginalID,wxOpenid,wxUnionID,UserSource,UserName) sql="update ServiceOrder set ServiceOrdUserID="&UserID&" where ServiceOrdUserID<>"&UserID&" and ServiceOrdID="&ServiceOrdID objConn.Execute sql Else UserID=0 End If '留言保存 MessageContents = SafeRequest(request("MessageContents_form1")) If MessageContents<>"" Then sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")" objConn.Execute sql End If '新服务单序号 If Old_ServiceOrdClass<>ServiceOrdClass Then 'sql="select top 1 ServiceOrdNo from ServiceOrder where CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&ServiceOrd_CC_Time&"',120) and ServiceOrdClass='"&ServiceOrdClass&"' order by ServiceOrdNo desc" sql="select top 1 ServiceOrdNo from ServiceOrder where DATEPART(yyyy,ServiceOrd_CC_Time)=DATEPART(yyyy,'"&ServiceOrd_CC_Time&"') and DATEPART(m,ServiceOrd_CC_Time)=DATEPART(m,'"&ServiceOrd_CC_Time&"') and DATEPART(d,ServiceOrd_CC_Time)=DATEPART(d,'"&ServiceOrd_CC_Time&"') and ServiceOrdClass='"&ServiceOrdClass&"' 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() ServiceOrdEstimatedOrderDate="" ServiceOrdNo_UPSql=",ServiceOrdNo="&ServiceOrdNo End If '咨询单转服务单 If Old_ServiceOrdState="1" And ServiceOrdState="2" Then ServiceOrdSql=",ServiceOrdState=2,ServiceOrdStartDate=getdate(),ServiceOrd_NS_ID="&session("adminID")&",ServiceOrd_NS_Time=getdate()" SMT=7 '取消服务单并转为咨询单 ElseIf Old_ServiceOrdState="2" And ServiceOrdState="4" Then ServiceOrdSql=",ServiceOrdPoints=0,ServiceOrdState=1,ServiceOrdStartDate=ServiceOrd_CC_Time,ServiceOrd_NS_ID=null,ServiceOrd_NS_Time=null,ServiceOrdCancelReason="&CancelReason&",ServiceOrdCancelReasonTXT='"&CancelReasonTXT&"'" SMT=8 '取消积分使用 sql="delete from PaidMoney where PaidMoneyType=9 and ServiceOrdIDDt="&ServiceOrdID objConn.Execute sql sql="delete from UserPoints where Points_Type=6 and ServiceOrdIDDt="&ServiceOrdID objConn.Execute sql '反核销优惠券 Call CouponReverseUse(ServiceOrdTraPriceReason,ServiceOrdID) ServiceOrdTraPriceReason="" Call OA_Running("取消服务单:"&ServiceOrdID) '作废咨询单 ElseIf (Old_ServiceOrdState="1" Or Old_ServiceOrdState="2") And ServiceOrdState="5" Then ServiceOrdSql=",ServiceOrdPoints=0,ServiceOrdState=4,ServiceOrd_AP_ID="&session("adminID")&",ServiceOrd_AP_Time=getdate(),ServiceOrdCancelReason="&CancelReason&",ServiceOrdCancelReasonTXT='"&CancelReasonTXT&"'" SMT=9 '营销小程序数据更新 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) End If rs.close() End If '取消积分使用 sql="delete from PaidMoney where PaidMoneyType=9 and ServiceOrdIDDt="&ServiceOrdID objConn.Execute sql sql="delete from UserPoints where Points_Type=6 and ServiceOrdIDDt="&ServiceOrdID objConn.Execute sql '反核销优惠券 Call CouponReverseUse(ServiceOrdTraPriceReason,ServiceOrdID) ServiceOrdTraPriceReason="" Call OA_Running("作废服务单:"&ServiceOrdID) '还原服务单 ElseIf Old_ServiceOrdState="4" And ServiceOrdState="2" Then ServiceOrdSql=",ServiceOrdState=2,ServiceOrdStartDate=getdate(),ServiceOrd_NS_ID="&session("adminID")&",ServiceOrd_NS_Time=getdate(),ServiceOrdCancelReason=null,ServiceOrdCancelReasonTXT=''" SMT=10 Call OA_Running("还原服务单:"&ServiceOrdID) End If '查找医院ID If ServiceOrdPtOutHosp<>"" Then If InStr(ServiceOrdPtOutHosp,"|")>0 Then ServiceOrdPtOutHosp=Mid(ServiceOrdPtOutHosp,1,InStr(ServiceOrdPtOutHosp,"|")-1) sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtOutHosp&"'" rs.open sql,objConn,1,1 If not rs.Eof Then ServiceOrdPtOutHospID=rs(0) Else rs.close() sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc" rs.open sql,objConn,1,1 If not rs.Eof Then ServiceOrdPtOutHospID=rs(0)+1 Else ServiceOrdPtOutHospID=1 End if sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtOutHospID&",'"&ServiceOrdPtOutHosp&"','HospName',1,'医院名称')" objConn.Execute sql End If rs.close() If ServiceOrdPtOutHospID_New="0" Then sql="select HospID from HospData where HospState=1 and HospName='"&ServiceOrdPtOutHosp&"'" rs.open sql,objConn,1,1 If not rs.Eof Then ServiceOrdPtOutHospID_New=rs(0) End If rs.close() End If Else ServiceOrdPtOutHospID=0 End If If ServiceOrdPtInHosp<>"" then If InStr(ServiceOrdPtInHosp,"|")>0 Then ServiceOrdPtInHosp=Mid(ServiceOrdPtInHosp,1,InStr(ServiceOrdPtInHosp,"|")-1) sql="select vID from dictionary where vType=1 and vtitle='HospName' and vtext='"&ServiceOrdPtInHosp&"'" rs.open sql,objConn,1,1 If not rs.Eof Then ServiceOrdPtInHospID=rs(0) Else rs.close() sql="select top 1 vID from dictionary where vtitle='HospName' order by vID desc" rs.open sql,objConn,1,1 If not rs.Eof Then ServiceOrdPtInHospID=rs(0)+1 Else ServiceOrdPtInHospID=1 End if sql="insert into dictionary (vID,vtext,vtitle,vType,vMono) values ("&ServiceOrdPtInHospID&",'"&ServiceOrdPtInHosp&"','HospName',1,'医院名称')" objConn.Execute sql End If rs.close() If ServiceOrdPtInHospID_New="0" Then sql="select HospID from HospData where HospState=1 and HospName='"&ServiceOrdPtInHosp&"'" rs.open sql,objConn,1,1 If not rs.Eof Then ServiceOrdPtInHospID_New=rs(0) End If rs.close() End If Else ServiceOrdPtInHospID=0 End If '查找合作单位ID If ServiceOrdIntroducer<>"" And IsNumeric(ServiceOrdIntroducer) Then sql="select IntroducerID,IntroducerName,IntroducerUnitID from IntroducerData where IntroducerUnitID<>'' and IntroducerID="&ServiceOrdIntroducer rs.open sql,objConn,1,1 If not rs.Eof Then ServiceOrdUnitID=rs("IntroducerUnitID") End If rs.close() End If '写入电话记录 If TEL_Phone<>"" then sql="select CallRecordID from CallRecord where CallRecord_Phine='"&TEL_Phone&"' and CallRecord_StartTime between dateadd(Ss,-10,'"&TEL_Time&"') and dateadd(Ss,10,'"&TEL_Time&"')" rs.open sql,objConn,1,1 If not rs.eof Then sql="update CallRecord set CallRecord_OAUserID="&session("adminID")&",CallRecord_EndTime=getdate(),CallRecord_OrdClass='"&ServiceOrdClass&"',CallRecord_OrdID="&ServiceOrdID&",CallRecord_Record='"&TEL_Remarks&"' where CallRecordID="&rs(0) objConn.Execute sql Else sql="insert into CallRecord (CallRecord_Phine,CallRecord_OAUserID,CallRecord_StartTime,CallRecord_EndTime,CallRecord_Type,CallRecord_OrdClass,CallRecord_OrdID,CallRecord_Record) values ('"&TEL_Phone&"',"&session("adminID")&",'"&TEL_Time&"',getdate(),1,'"&ServiceOrdClass&"',"&ServiceOrdID&",'"&TEL_Remarks&"')" objConn.Execute sql End if rs.close() End If '敏感信息修改 CoSql="" If ServiceOrdCoName<>"【隐】" Then CoSql=CoSql&",ServiceOrdCoName='"&ServiceOrdCoName&"'" If ServiceOrdCoPhone<>"【隐】" Then CoSql=CoSql&",ServiceOrdCoPhone='"&ServiceOrdCoPhone&"'" If ServiceOrdPtName<>"【隐】" Then CoSql=CoSql&",ServiceOrdPtName='"&ServiceOrdPtName&"'" If ServiceOrdPtAge<>"【隐】" Then CoSql=CoSql&",ServiceOrdPtAge='"&ServiceOrdPtAge&"'" If ServiceOrdPtServicesID<>"-2" Then CoSql=CoSql&",ServiceOrdPtServicesID="&ServiceOrdPtServicesID&"" If ServiceOrdPtServices<>"【隐】" Then CoSql=CoSql&",ServiceOrdPtServices='"&ServiceOrdPtServices&"'" If ServiceOrdPtInServicesID<>"-2" Then CoSql=CoSql&",ServiceOrdPtInServicesID="&ServiceOrdPtInServicesID&"" If ServiceOrdPtInServices<>"【隐】" Then CoSql=CoSql&",ServiceOrdPtInServices='"&ServiceOrdPtInServices&"'" '修改服务单(自动审核) sql="update ServiceOrder set ServiceOrdClass='"&ServiceOrdClass&"',ServiceOrdAreaType="&ServiceOrdAreaType&",ServiceOrdType="&ServiceOrdType&",ServiceOrdApptDate='"&ServiceOrdApptDate&"',ServiceOrdEstimatedOrderDate='"&ServiceOrdEstimatedOrderDate&"',ServiceOrdCoTies='"&ServiceOrdCoTies&"',ServiceOrdPtSex='"&ServiceOrdPtSex&"',ServiceOrdPtNat='"&ServiceOrdPtNat&"',ServiceOrdPtIDCard='"&ServiceOrdPtIDCard&"',ServiceOrdPtOutHospID="&ServiceOrdPtOutHospID_New&",ServiceOrdPtOutHosp="&ServiceOrdPtOutHospID&",ServiceOrdPtInHospID="&ServiceOrdPtInHospID_New&",ServiceOrdPtInHosp="&ServiceOrdPtInHospID&",ServiceOrdPtDiagnosis='"&ServiceOrdPtDiagnosis&"',ServiceOrdPtCondition='"&ServiceOrdPtCondition&"',ServiceOrdTaskRemarks='"&ServiceOrdTaskRemarks&"',ServiceOrdPtDoctor='"&ServiceOrdPtDoctor&"',ServiceOrdPtDoctorPhone='"&ServiceOrdPtDoctorPhone&"',ServiceOrdTraProvince='"&ServiceOrdTraProvince&"',ServiceOrdTraCity='"&ServiceOrdTraCity&"',ServiceOrdTraStreet='"&ServiceOrdTraStreet&"',ServiceOrdTraStreetCoo='"&ServiceOrdTraStreetCoo&"',ServiceOrdTraEnd='"&ServiceOrdTraEnd&"',ServiceOrdTraEndCoo='"&ServiceOrdTraEndCoo&"',ServiceOrdTraVia='"&ServiceOrdTraVia&"',ServiceOrdViaDistance='"&ServiceOrdViaDistance&"',ServiceOrdTraDistance='"&ServiceOrdTraDistance&"',ServiceOrdTraDuration='"&ServiceOrdTraDuration&"',ServiceOrdTraUnitPrice="&ServiceOrdTraUnitPrice&",ServiceOrdTraOfferPrice="&ServiceOrdTraOfferPrice&",ServiceOrdTraTxnPrice="&ServiceOrdTraTxnPrice&",ServiceOrdTraPrePayment="&ServiceOrdTraPrePayment&",SettlementPrice="&SettlementPrice&",ServiceOrdTraPriceReason='"&ServiceOrdTraPriceReason&"',ServiceOrd_CC_ID="&ServiceOrd_CC_ID&",ServiceOrd_Sale_ID="&ServiceOrd_Sale_ID&",ServiceOrdIntroducer='"&ServiceOrdIntroducer&"',ServiceOrd_work_ID="&ServiceOrd_work_ID&",ServiceOrd_work_IDs='"&ServiceOrd_work_IDs&"',ServiceOrd_work_is="&ServiceOrd_work_is&",CommissionScenarioID="&CommissionScenarioID&",ServiceOrdUnitID="&ServiceOrdUnitID&""&ServiceOrdSql&",ServiceOrdVIP="&ServiceOrdVIP&SqlVisit&",ServiceOrdOperationRemarks='"&ServiceOrdOperationRemarks&"',ServiceOrdSource="&ServiceOrdSource&",OrderLevel="&OrderLevel&",ServiceOrdDepartureType="&ServiceOrdDepartureType&",ConditionLevel="&ConditionLevel&",DirectionType="&DirectionType&",ServiceOrdPtKG='"&ServiceOrdPtKG&"',FromHQ2_is="&FromHQ2_is&CoSql&ServiceOrdNo_UPSql&" where ServiceOrdID="&ServiceOrdID '&",ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID") 'Response.Write sql objConn.Execute sql '修改相关调度单 CoSql="" If ServiceOrdCoPhone<>"【隐】" Then CoSql=",DispatchOrdCoPhone='"&ServiceOrdCoPhone&"'" sql="update DispatchOrd set DispatchOrdPerfomance="&ServiceOrdTraTxnPrice&",DispatchOrdCoName='"&ServiceOrdCoName&"',DispatchOrdTraVia='"&ServiceOrdTraVia&"',DispatchOrdTraEnd='"&ServiceOrdTraEnd&"'"&CoSql&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdCoName='"&Old_ServiceOrdCoName&"' and DispatchOrdCoPhone='"&Old_ServiceOrdCoPhone&"' and DispatchOrdTraVia='"&Old_ServiceOrdTraVia&"' and DispatchOrdTraEnd='"&Old_ServiceOrdTraEnd&"' and DispatchOrdPerfomance="&Old_ServiceOrdTraTxnPrice&" and DispatchOrdState not in (10) and ServiceOrdIDDt="&ServiceOrdID 'Call GetBody("https://api.966120.com.cn/v1/dottmedAPI.php","OrdID="&DispatchOrdID&"&method="&method) 'Response.Write sql objConn.Execute sql '修改目前病情(单选项类) sql="select vOrder from dictionary where vType=2 and vtitle='Condition' order by vOrder,vID" rs.open sql,objConn,1,1 If not rs.Eof Then ConditionOrder=rs("vOrder") ConditionID=SafeRequest(Request.form("ConditionID_"&ConditionOrder)) If ConditionID<>"" Then sql="delete from ServiceOrd_Condition where ServiceOrdCoID="&ServiceOrdID objConn.Execute sql do while not rs.Eof ConditionOrder=rs("vOrder") ConditionID=SafeRequest(Request.form("ConditionID_"&ConditionOrder)) If ConditionID<>"" Then sql="insert into ServiceOrd_Condition (ServiceOrdCoID,ConditionID) values ("&ServiceOrdID&","&ConditionID&")" objConn.Execute sql End If If ConditionID="4" Then sql=" update ServiceOrder set AMV_is=1 where ServiceOrdID="&ServiceOrdID objConn.Execute sql ElseIf ConditionID="3" Then sql=" update ServiceOrder set AMV_is=0 where ServiceOrdID="&ServiceOrdID objConn.Execute sql End If rs.movenext Loop End If End If rs.close() '写入诊断ICD OrdICD_ID = SafeRequest(Request.form("OrdICD_ID")) '诊断ICD_ID OrdICD_ID_old = SafeRequest(Request.form("OrdICD_ID_old")) If OrdICD_ID<>OrdICD_ID_old Then sql="delete from ServiceOrder_ICD where ServiceOrdIDDt="&ServiceOrdID objConn.Execute sql If OrdICD_ID<>"" then OrdICD_IDSP = SPLIT(OrdICD_ID,",") for i=1 to ubound(OrdICD_IDSP)-1 If OrdICD_IDSP(i)<>"" Then sql="insert into ServiceOrder_ICD (ServiceOrdIDDt,icd_id) values ("&ServiceOrdID&","&OrdICD_IDSP(i)&")" objConn.Execute sql End If Next End If End If '修改转运方式(多选项) sql="delete from ServiceOrd_TransferMode where ServiceOrdTMID="&ServiceOrdID objConn.Execute sql 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&")" 'Response.Write sql objConn.Execute sql End if Next '核销优惠券 Call CouponUse(ServiceOrdTraPriceReason,ServiceOrdID) '审核服务单(自动审核) 'If ServiceOrd_Check="1" And ServiceOrd_AP_Check="0" Then If ServiceOrd_AP_Check="0" Then sql="update ServiceOrder set ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID objConn.Execute sql SMT=5 End If '反审核服务单 If ServiceOrd_Check="0" And ServiceOrd_AP_Check="1" Then sql="update ServiceOrder set ServiceOrd_AP_Check=0,ServiceOrd_AP_Time=null,ServiceOrd_AP_ID=null where ServiceOrdID="&ServiceOrdID objConn.Execute sql SMT=6 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) If SMT=9 Or (ServiceOrdEstimatedOrderDate="" And ServiceOrdEstimatedOrderDateOld<>"") Then sql="delete from Notification where NC_Name like '%派单时间提醒】' and NC_PageUrl like '%"&ServiceOrdID&"%'" objConn.Execute sql ElseIf ServiceOrdEstimatedOrderDate<>"" And ServiceOrdEstimatedOrderDateOld<>ServiceOrdEstimatedOrderDate Then sql="delete from Notification where NC_Name like '%派单时间提醒】' and NC_PageUrl like '%"&ServiceOrdID&"%'" objConn.Execute sql NC_OAID="78" NC_Name="【"&ServiceOrdNo&"派单时间提醒】" NC_Content="服务单:"&ServiceOrdNo&",已到预定的派单时间,请即时处理" NC_PageUrl="/ServiceOrder.gds?ServiceOrdID="&ServiceOrdID NC_PageUrlM=ServiceOrdEstimatedOrderDate Call Notification_Add(NC_OAID,NC_Name,NC_Content,NC_PageUrl,NC_PageUrlM) End If session("Origin")="" If ServiceOrdState="2" And ServiceOrd_m="1" Then ReturnURL="m_DispatchOrder.gds?ServiceOrdID="&ServiceOrdID&"&NEWOrder=3&Perfomance="&Perfomance&"&Stretcher="&Stretcher ElseIf ServiceOrd_m="1" Then ReturnURL="m_DispatchOrder.gds?ServiceOrdID="&ServiceOrdID&"&DispatchOrdID="&DispatchOrdID Else ReturnURL="ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&h_menu1_1="&session("h_menu1_1") End If Call OA_Running("修改服务单"&EditDataForm&":"&ServiceOrdID) objConn.Execute "exec OrdDataUP "&ServiceOrdID rsRollbackTrans(objConn.Errors.count) '第三方平台数据更新 Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState) '写入相关销售人员通知(暂停推送2020.9.17) If ServiceOrdPtOutHospID_New<>"0" And ServiceOrdPtInHospID_New<>"0" And OrderLevel<>"1" And (cstr(Old_ServiceOrdPtOutHospID)<>cstr(ServiceOrdPtOutHospID_New) Or cstr(Old_ServiceOrdPtInHospID)<>cstr(ServiceOrdPtInHospID_New)) And 1=2 Then %> <% touser="" sql="SELECT STUFF((select ',' + HospOAID from HospData where HospID in ("&ServiceOrdPtOutHospID_New&","&ServiceOrdPtInHospID_New&") and HospOAID<>'' and HospOAID is not null FOR XML PATH('')), 1, 1, '')" rs.open sql,objConn,1,1 HospOAIDs=rs(0) rs.close() If not isnull(HospOAIDs) Then HospOAIDPS = SPLIT(HospOAIDs,",") HospOAIDs="" for z = 0 to UBOUND(HospOAIDPS) If HospOAIDPS(z)<>"" Then HospOAIDs=HospOAIDs&","&HospOAIDPS(z) End If Next If HospOAIDs<>"" Then HospOAIDs=Mid(HospOAIDs,2) touser = "" If HospOAIDs<>"" Then sql="select OA_weixinUserID,OA_Name from OA_User where OA_execLevel>=0 and OA_User_ID in ("&HospOAIDs&")" rs.open sql,objConn,1,1 do while not rs.Eof touser = touser&"|"&rs("OA_weixinUserID") MessageName=MessageName&"、"&rs("OA_Name") rs.movenext loop rs.close() If touser<>"" Then touser=Mid(touser,2) MessageName=Mid(MessageName,2) End If End If 'touser="ylkx_vicgame" If touser<>"" Then '订单留言 MessageContents="订单推送给"&MessageName sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")" objConn.Execute sql '微信OA信息下发接口 appUrl="https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token="&access_token args1="{" args1=args1&"""touser"": """&touser&"""," '成员ID列表（消息接收者，多个接收者用‘|’分隔，最多支持1000个）。特殊情况：指定为@all，则向关注该企业应用的全部成员发送 |liaojunliang args1=args1&"""toparty"": """"," '部门ID列表，多个接收者用‘|’分隔，最多支持100个。当touser为@all时忽略本参数 args1=args1&"""totag"": """"," '标签ID列表，多个接收者用‘|’分隔。当touser为@all时忽略本参数 args1=args1&"""agentid"": 1000006," '企业应用的id，整型。可在应用的设置页面查看 args1=args1&"""msgtype"": ""news""," args1=args1&"""news"": {" args1=args1&"""articles"":[" args1=args1&"{" args1=args1&"""title"": ""【新服务单】"&ServiceOrdNo&"""," args1=args1&"""description"": """ If ServiceOrdApptDate<>"" Then args1=args1&"预约时间："&ServiceOrdApptDate&"\n" If ServiceOrdPtInHosp="家中" Then ServiceOrdPtInHosp=ServiceOrdTraEnd args1=args1&"出发地："&ServiceOrdPtOutHosp&"\n目的地："&ServiceOrdPtInHosp&"（约"&ServiceOrdTraDistance&"）""," args1=args1&"""url"": """&WEBURL&"/m_ServiceOrder.gds?ServiceOrdID="&ServiceOrdID&"&OrdEdit=NO""," args1=args1&"""picurl"": """"" args1=args1&"}" args1=args1&"]" args1=args1&"}" args1=args1&"}" call PostBody(appUrl,args1) End If End If End If Response.Redirect ReturnURL&"&SystemMessageType=3&SMT="&SMT Response.End %>