<% Set rs = Server.CreateObject("ADODB.Recordset") DispatchOrdClass = SafeRequest(Request.form("DispatchOrdClass")) '单据类型 ServiceOrdID = SafeRequest(Request.form("ServiceOrdID")) '对应服务单号 DispatchOrdState = SafeRequest(Request.form("DispatchOrdState")) '调度单状态 DispatchOrdTraSDTime = SafeRequest(Request.form("DispatchOrdTraSDTime")) '拟出发时间 DispatchOrdCarID = SafeRequest(Request.form("DispatchOrdCarID")) '派遣车辆ID DispatchOrdCoName = SafeRequest(Request.form("DispatchOrdCoName")) '调度联系人姓名 DispatchOrdCoPhone = SafeRequest(Request.form("DispatchOrdCoPhone")) '调度联系人电话 ServiceOrdCoName = SafeRequest(Request.form("ServiceOrdCoName")) '联系人姓名 ServiceOrdCoPhone = StrTrim(SafeRequest(Request.form("ServiceOrdCoPhone"))) '联系人电话 DispatchOrdTraStreet = SafeRequest(Request.form("DispatchOrdTraStreet")) '实际出发地 DispatchOrdTraEnd = SafeRequest(Request.form("DispatchOrdTraEnd")) '实际目的地 DispatchOrdTraVia = SafeRequest(Request.form("DispatchOrdTraVia")) '实际途经地 DispatchOrd_Check = SafeRequest(Request.form("DispatchOrd_Check")) '下发/审核命令(0反审核,1审核,2下发微信,3直接强制完成) DispatchOrd_NS_Time = SafeRequest(Request.form("DispatchOrd_NS_Time")) '开单时间 DispatchOrdPerfomance = SafeRequest(Request.form("DispatchOrdPerfomance")) '订单绩效 StretcherMoney = SafeRequest(Request.form("StretcherMoney")) '担架费 AddMoneyType = SafeRequest(Request.form("AddMoneyType")) '附加项目 AddMoney = SafeRequest(Request.form("AddMoney")) '附加项目费用 AddMoneyExplain = SafeRequest(Request.form("AddMoneyExplain")) '附加项目说明 EntourageName_aid1 = SafeRequest(Request.form("EntourageName_aid1")) '外援人员1 EntourageName_aid2 = SafeRequest(Request.form("EntourageName_aid2")) '外援人员2 DispatchOrd_NS_ID = SafeRequest(Request.form("DispatchOrd_NS_ID")) '调度人员ID RecommendedCar = SafeRequest(Request.form("RecommendedCar")) '指定车型 DispatchOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '医护司备注 'Phone TEL_Phone = SafeRequest(Request.form("Phone")) '来电电话 TEL_Time = SafeRequest(Request.form("TEL_Time")) '来电时间 TEL_Remarks = SafeRequest(Request.form("TEL_Remarks")) '来电备注 TimeLength_Program = SafeRequest(Request.form("TimeLength_Program")) '大型活动保障时长 TimeLength_ICU = SafeRequest(Request.form("TimeLength_ICU")) '居家ICU时长 TimeLength_Wait = SafeRequest(Request.form("TimeLength_Wait")) '等待时长 DispatchOrdTraStreetMileage = SafeRequest(request("DispatchOrdTraStreetMileage")) '开始里程数 DispatchOrdTraEndMileage = SafeRequest(request("DispatchOrdTraEndMileage")) '结束里程数 If DispatchOrdClass="" Then DispatchOrdClass="SA" If DispatchOrdCoName="" Then DispatchOrdCoName=ServiceOrdCoName If DispatchOrdCoPhone="" Then DispatchOrdCoPhone=ServiceOrdCoPhone If DispatchOrdCarID="" Then DispatchOrdCarID=0 If DispatchOrd_NS_ID="" Then DispatchOrd_NS_ID=session("adminID") If DispatchOrdPerfomance="" Or not IsNumeric(DispatchOrdPerfomance) Then DispatchOrdPerfomance=0 If StretcherMoney="" Then StretcherMoney=0 If AddMoney="" Or Not isnumeric(AddMoney) Then AddMoney=0 If TimeLength_Program="" Then TimeLength_Program=0 If TimeLength_ICU="" Then TimeLength_ICU=0 If TimeLength_Wait="" Then TimeLength_Wait=0 If DispatchOrd_NS_Time="" Then DispatchOrd_NS_Time=Now() If AddMoneyType<>"" And AddMoneyType<>"0" And AddMoney>0 Then StretcherMoney=AddMoney '数据不完整 error="," 'If DispatchOrdCarID="0" Then error=error&"DispatchOrdCarLicense," If DispatchOrdCoName="" And DispatchOrdClass<>"SP" Then error=error&"DispatchOrdCoName," If DispatchOrdCoPhone="" And DispatchOrdClass<>"SP" And DispatchOrd_Check<>"3" Then error=error&"DispatchOrdCoPhone," If DispatchOrdTraSDTime="" And DispatchOrdClass="SP" Then error=error&"DispatchOrdTraSDTime," 'If Len(error)>2 Then Response.Redirect "/DispatchOrder.gds?Phone&="&TEL_Phone&"&SystemMessageType=4&SMT=4&error="&error '验证服务单是否正确 If ServiceOrdID<>"" Then sql="select top 1 ServiceOrdID,ServiceOrdUnitID,ServiceOrdCoName,ServiceOrdCoPhone from ServiceOrder where ServiceOrdID="&ServiceOrdID rs.open sql,objConn,1,1 If rs.eof Then Response.Redirect "/DispatchOrder.gds?SystemMessageType=4&SMT=1" Else ServiceOrdUnitID=rs("ServiceOrdUnitID") If DispatchOrdCoName="【隐】" Then DispatchOrdCoName=rs("ServiceOrdCoName") If DispatchOrdCoPhone="【隐】" Then DispatchOrdCoPhone=rs("ServiceOrdCoPhone") End If rs.close() End If '验证是否重复生成 If ServiceOrdID<>"" And DispatchOrd_Check="3" Then sql="select DispatchOrdID from DispatchOrd where DispatchOrdState not in (10) and ServiceOrdIDDt="&ServiceOrdID rs.open sql,objConn,1,1 If not rs.eof Then Response.Redirect "/m_DispatchOrder.gds?DispatchOrdID="&rs("DispatchOrdID") End If rs.close() End If '验证绩效计价是否正确 If DispatchOrdPerfomance=0 And ServiceOrdID<>"" Then sql="select DispatchOrdID from DispatchOrd where DispatchOrdState<>10 and ServiceOrdIDDt="&ServiceOrdID rs.open sql,objConn,1,1 If rs.eof Then ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '成交价 If ServiceOrdTraTxnPrice="" Or ServiceOrdTraTxnPrice="0" Then ServiceOrdTraTxnPrice=1 If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","") DispatchOrdPerfomance=ServiceOrdTraTxnPrice End If rs.close() End If '验证有没重复提交 sql="select DispatchOrdID from DispatchOrd where DispatchOrdCoPhone='"&DispatchOrdCoPhone&"' and DispatchOrd_NS_Time='"&DispatchOrd_NS_Time&"'" rs.open sql,objConn,1,1 if not rs.eof Then Response.Redirect "/DispatchOrder.gds?SystemMessageType=4&SMT=2&DispatchOrdID="&rs(0) End if rs.close() '留言保存 MessageContents = SafeRequest(request("MessageContents_form1")) If MessageContents<>"" And ServiceOrdID<>"" Then sql="insert into ServiceOrd_Message (ServiceOrdIDDt,MessageContents,MessageOAid) values ("&ServiceOrdID&",'"&MessageContents&"',"&session("adminID")&")" objConn.Execute sql End If '新调度单序号 sql="select top 1 DispatchOrdNo from DispatchOrd where CONVERT(VARCHAR(10),DispatchOrd_NS_Time,120)=CONVERT(VARCHAR(10),GETDATE(),120) and DispatchOrdClass='"&DispatchOrdClass&"' order by DispatchOrdNo desc" rs.open sql,objConn,1,1 If not rs.Eof Then DispatchOrdNo=rs(0)+1 Else DispatchOrdNo=1 End if rs.close() '写入新调度单 sql="insert into DispatchOrd (DispatchOrdClass,DispatchOrdStartDate,DispatchOrdCarID,DispatchOrdTraStreet,DispatchOrdTraEnd,DispatchOrdTraVia,DispatchOrdCoName,DispatchOrdCoPhone,DispatchOrd_NS_ID,DispatchOrd_NS_Time,EntourageName_aid1,EntourageName_aid2,DispatchOrdNo,DispatchOrdPerfomance,RecommendedCar,StretcherMoney,TimeLength_Program,TimeLength_ICU,TimeLength_Wait,DispatchOrdTaskRemarks) values ('"&DispatchOrdClass&"','"&DispatchOrd_NS_Time&"',"&DispatchOrdCarID&",'"&DispatchOrdTraStreet&"','"&DispatchOrdTraEnd&"','"&DispatchOrdTraVia&"','"&DispatchOrdCoName&"','"&DispatchOrdCoPhone&"',"&DispatchOrd_NS_ID&",'"&DispatchOrd_NS_Time&"','"&EntourageName_aid1&"','"&EntourageName_aid2&"',"&DispatchOrdNo&","&DispatchOrdPerfomance&",'"&RecommendedCar&"',"&StretcherMoney&","&TimeLength_Program&","&TimeLength_ICU&","&TimeLength_Wait&",'"&DispatchOrdTaskRemarks&"')" objConn.Execute sql sql="select top 1 DispatchOrdID from DispatchOrd where DispatchOrdStartDate='"&DispatchOrd_NS_Time&"' order by DispatchOrdID desc" rs.open sql,objConn,1,1 DispatchOrdID = rs(0) rs.close() If DispatchOrdTraSDTime<>"" Then sql="update DispatchOrd set DispatchOrdTraSDTime='"&DispatchOrdTraSDTime&"' where DispatchOrdID="&DispatchOrdID objConn.Execute sql End If '写入附加项目费用 If AddMoneyType<>"" And AddMoneyType<>"0" And AddMoney>0 And StretcherMoney>0 Then If ServiceOrdID="" Then ToServiceOrdID=0 Else ToServiceOrdID=ServiceOrdID End If sql="insert into PaidMoney_Add (ToServiceOrdID,ToDispatchOrdID,AddMoneyType,AddMoney,AddMoneyExplain,AddMoneyOAID) values ("&ToServiceOrdID&","&DispatchOrdID&","&AddMoneyType&","&AddMoney&",'"&AddMoneyExplain&"',"&session("adminID")&")" objConn.Execute sql Call OA_Running("修改调度单:"&DispatchOrdID&" 新增附加费用金额:"&AddMoney) End If '写入随行人员 EntourageLeadID = SafeRequest(Request.form("EntourageLeadID")) '领队ID sql="select vID from dictionary where vType=1 and vtitle='DispatchOrdEntourage' order by vOrder" rs.open sql,objConn,1,1 do while not rs.Eof EntourageID = rs("vID") EntourageOAid=SafeRequest(Request.form("Entourage_"&EntourageID)) EntourageOT_is = SafeRequest(Request("EntourageOT_is_"&EntourageID)) '加班出车 EntourageOT2_is = SafeRequest(Request("EntourageOT2_is_"&EntourageID)) '加班出车2 EntourageBetimesHH = SafeRequest(Request("EntourageBetimesHH_"&EntourageID)) '提前出车N小时 EntourageLong_is = SafeRequest(Request("EntourageLong_is_"&EntourageID)) '跟车 Stretcher_is = SafeRequest(Request("Stretcher_is_"&EntourageID)) '抬担架 If EntourageOT_is="" Then EntourageOT_is=0 If EntourageOT2_is="" Then EntourageOT2_is=0 If EntourageBetimesHH="" Then EntourageBetimesHH=0 If EntourageLong_is="" Then EntourageLong_is=0 If Stretcher_is="" Then Stretcher_is=0 If EntourageOT_is<>0 Or EntourageOT2_is<>0 Or EntourageBetimesHH>0 Then Check_is=0 Else Check_is=1 End If If EntourageLeadID="" And DispatchOrd_Check="3" And CStr(EntourageOAid)=CStr(session("adminID")) Then EntourageLeadID=EntourageID If EntourageOAid<>"" And EntourageOAid<>"0" Then EntourageLead=0 If CStr(EntourageLeadID)=CStr(EntourageID) Then EntourageLead=1 sql="insert into DispatchOrd_Entourage (DispatchOrdIDDt,EntourageID,EntourageOAid,EntourageLead,EntourageOT_is,EntourageOT2_is,EntourageBetimesHH,EntourageLong_is,Check_is,Stretcher_is,Entourage_Time) values ("&DispatchOrdID&","&EntourageID&","&EntourageOAid&","&EntourageLead&","&EntourageOT_is&","&EntourageOT2_is&","&EntourageBetimesHH&","&EntourageLong_is&","&Check_is&","&Stretcher_is&",'"&DispatchOrd_NS_Time&"')" objConn.Execute sql If EntourageLead=1 Then sql="update DispatchOrd set DispatchEmployeeGroup=(select top 1 OA_EmployeeGroup from OA_User where OA_User_ID="&EntourageOAid&") where DispatchOrdID="&DispatchOrdID objConn.Execute sql End If End if rs.movenext loop rs.close() '写入电话记录 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 If ServiceOrdID<>"" And DispatchOrd_Check<>"3" Then ServiceOrdPtCondition = SafeRequest(Request.form("ServiceOrdPtCondition")) '病情描述 ServiceOrdTaskRemarks = SafeRequest(Request.form("ServiceOrdTaskRemarks")) '医护司备注 ServiceOrdPtDoctor = SafeRequest(Request.form("ServiceOrdPtDoctor")) '患者医生 ServiceOrdPtDoctorPhone = SafeRequest(Request.form("ServiceOrdPtDoctorPhone")) '患者医生电话 TransferModeID = SafeRequest(Request.form("TransferModeID")) '转运方式 ServiceOrdVIP = SafeRequest(Request.form("ServiceOrdVIP")) 'VIP客户 ServiceOrdTraTxnPrice = SafeRequest(Request.form("ServiceOrdTraTxnPrice")) '成交价 ServiceOrdTraPrePayment = SafeRequest(Request.form("ServiceOrdTraPrePayment")) '需预付款 SettlementPrice = SafeRequest(Request.form("SettlementPrice")) '结算价 ServiceOrdTraPriceReason= SafeRequest(Request.form("ServiceOrdTraPriceReason")) '差价原因 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")) '企微绩效方案 ServiceOrdApptDate = SafeRequest(Request.form("ServiceOrdApptDate")) '预约时间 ServiceOrdPtDiagnosis = SafeRequest(Request.form("ServiceOrdPtDiagnosis")) '诊断 ServiceOrdOperationRemarks=SafeRequest(Request.form("ServiceOrdOperationRemarks")) '操作备注 ServiceOrdEstimatedOrderDate=SafeRequest(Request.form("ServiceOrdEstimatedOrderDate")) '预计派单时间 ServiceOrdEstimatedOrderDateOld=SafeRequest(Request.form("ServiceOrdEstimatedOrderDateOld")) '原预计派单时间 ServiceOrdViaDistance = SafeRequest(Request.form("ServiceOrdViaDistance")) '中途距离 ServiceOrdTraDistance = SafeRequest(Request.form("ServiceOrdTraDistance")) '距离 OrderLevel = SafeRequest(Request.form("OrderLevel")) '查看等级 ServiceOrdDepartureType = SafeRequest(Request.form("ServiceOrdDepartureType")) '预约类型 ConditionLevel = SafeRequest(Request.form("ConditionLevel")) '病重级别 DirectionType = SafeRequest(Request.form("DirectionType")) '转运去向 ServiceOrdPtOutHospID_New=SafeRequest(Request.form("ServiceOrdPtOutHospID")) '转出医院ID ServiceOrdPtInHospID_New= SafeRequest(Request.form("ServiceOrdPtInHospID")) '转入医院ID ServiceOrdPtOutHosp = SafeRequest(Request.form("ServiceOrdPtOutHosp")) '转出医院 ServiceOrdTraVia = SafeRequest(Request.form("ServiceOrdTraVia")) '转出地址 ServiceOrdPtInHosp = SafeRequest(Request.form("ServiceOrdPtInHosp")) '转入医院 ServiceOrdTraEnd = SafeRequest(Request.form("ServiceOrdTraEnd")) '转入地址 FromHQ2_is = SafeRequest(Request.form("FromHQ2_is")) '广州总部推送任务标记 If ServiceOrdTraTxnPrice="" Then ServiceOrdTraTxnPrice=0 If ServiceOrdTraPrePayment="" Then ServiceOrdTraPrePayment=0 If SettlementPrice="" Then SettlementPrice=0 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 ServiceOrdVIP="" Then ServiceOrdVIP=0 If InStr(ServiceOrdTraTxnPrice,",")>0 Then ServiceOrdTraTxnPrice=Replace(ServiceOrdTraTxnPrice,",","") If InStr(ServiceOrdTraPrePayment,",")>0 Then ServiceOrdTraPrePayment=Replace(ServiceOrdTraPrePayment,",","") If InStr(SettlementPrice,",")>0 Then SettlementPrice=Replace(SettlementPrice,",","") If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","") If ServiceOrdViaDistance<>"" And OrderLevel="2" Then ServiceOrdViaDistance = Replace(ServiceOrdViaDistance,"公里","") If ServiceOrdViaDistance="" Or Not isnumeric(ServiceOrdViaDistance) Then ServiceOrdViaDistance="0" ServiceOrdViaDistance = ServiceOrdViaDistance&"公里" Else ServiceOrdViaDistance="0" End If ServiceOrdTraDistance = Replace(ServiceOrdTraDistance,"公里","") If ServiceOrdTraDistance="" Or Not isnumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance="0" If ServiceOrdTraDistance="0" Then error=error&"ServiceOrdTraDistance," ServiceOrdTraDistance = ServiceOrdTraDistance&"公里" If OrderLevel="" Then OrderLevel=0 If ServiceOrdDepartureType="" Then ServiceOrdDepartureType=1 If ConditionLevel="" Then ConditionLevel=0 If DirectionType="" Then DirectionType=0 If ServiceOrdPtOutHospID_New="" Then ServiceOrdPtOutHospID_New=0 If ServiceOrdPtInHospID_New="" Then ServiceOrdPtInHospID_New=0 If FromHQ2_is="" Then FromHQ2_is=0 '验证单据ID是否正确 sql="select ServiceOrdID,ServiceOrdState,ServiceOrd_AP_Check,ServiceOrdUnitID,ServiceOrdClass,ServiceOrd_CC_Time,ServiceOrdNo 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") ServiceOrdClass=rs("ServiceOrdClass") ServiceOrd_CC_Time=rs("ServiceOrd_CC_Time") ServiceOrdNo=rs("ServiceOrdNo") End if rs.close() '关联服务单 sql="update DispatchOrd set ServiceOrdIDDt="&ServiceOrdID&" where DispatchOrdID="&DispatchOrdID objConn.Execute sql '查找合作单位ID ServiceOrdUnitSql=",ServiceOrdUnitID=0" 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 ServiceOrdUnitSql=",ServiceOrdUnitID="&rs("IntroducerUnitID") End If rs.close() End If '修改主诊医生,成交价等资料(服务单) sql="update ServiceOrder set ServiceOrdPtCondition='"&ServiceOrdPtCondition&"',ServiceOrdTaskRemarks='"&ServiceOrdTaskRemarks&"',ServiceOrdPtDoctor='"&ServiceOrdPtDoctor&"',ServiceOrdPtDoctorPhone='"&ServiceOrdPtDoctorPhone&"',ServiceOrdTraTxnPrice="&ServiceOrdTraTxnPrice&",ServiceOrdTraPrePayment="&ServiceOrdTraPrePayment&",SettlementPrice="&SettlementPrice&",ServiceOrdTraPriceReason='"&ServiceOrdTraPriceReason&"',ServiceOrdState=3,ServiceOrdStartDate=getdate(),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&ServiceOrdUnitSql&",ServiceOrdApptDate='"&ServiceOrdApptDate&"',ServiceOrdVIP="&ServiceOrdVIP&",ServiceOrdPtDiagnosis='"&ServiceOrdPtDiagnosis&"',ServiceOrdOperationRemarks='"&ServiceOrdOperationRemarks&"',ServiceOrdViaDistance='"&ServiceOrdViaDistance&"',ServiceOrdTraDistance='"&ServiceOrdTraDistance&"',ServiceOrdEstimatedOrderDate='"&ServiceOrdEstimatedOrderDate&"',OrderLevel="&OrderLevel&",ServiceOrdDepartureType="&ServiceOrdDepartureType&",ConditionLevel="&ConditionLevel&",DirectionType="&DirectionType&",FromHQ2_is="&FromHQ2_is&" where ServiceOrdID="&ServiceOrdID objConn.Execute sql '修改目前病情(单选项类) sql="delete from ServiceOrd_Condition where ServiceOrdCoID="&ServiceOrdID objConn.Execute sql 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=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 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&")" objConn.Execute sql End if Next '核销优惠券 Call CouponUse(ServiceOrdTraPriceReason,ServiceOrdID) '写入预计派单时间通知 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='【"&ServiceOrdNo&"派单时间提醒】'" objConn.Execute sql ElseIf ServiceOrdEstimatedOrderDate<>"" And ServiceOrdEstimatedOrderDateOld<>ServiceOrdEstimatedOrderDate Then sql="delete from Notification where NC_Name='【"&ServiceOrdNo&"派单时间提醒】'" 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 '关联费用单 sql="update PaidMoney set DispatchOrdIDDt="&DispatchOrdID&" where ServiceOrdIDDt="&ServiceOrdID objConn.Execute sql ElseIf ServiceOrdID<>"" And DispatchOrd_Check="3" Then '关联服务单 sql="update DispatchOrd set ServiceOrdIDDt="&ServiceOrdID&" where DispatchOrdID="&DispatchOrdID objConn.Execute sql sql="update ServiceOrder set ServiceOrdState=3,ServiceOrdStartDate=getdate() where ServiceOrdID="&ServiceOrdID objConn.Execute sql sql="update ServiceOrder set ServiceOrd_AP_Check=1,ServiceOrd_AP_Time=getdate(),ServiceOrd_AP_ID="&session("adminID")&" where ServiceOrdID="&ServiceOrdID&" and ServiceOrd_AP_Check=0" objConn.Execute sql '关联费用单 sql="update PaidMoney set DispatchOrdIDDt="&DispatchOrdID&" where ServiceOrdIDDt="&ServiceOrdID objConn.Execute sql End If '下发微信 If DispatchOrd_Check="2" And Len(error)<2 Then session("JsonKey")="1" '微信首次下发时间 sql="update DispatchOrd set DispatchOrdWeixinDate=getdate() where DispatchOrdWeixinDate is null and DispatchOrdID="&DispatchOrdID objConn.Execute sql ReturnURL="/weixin/message_send_DispatchOrder.gds?DispatchOrdID="&DispatchOrdID Call OA_Running("下发调度单:"&DispatchOrdID) '强制完成 ElseIf DispatchOrd_Check="3" And Len(error)<2 Then ActualSql=",DispatchOrdActualDate=getdate()" sql="update DispatchOrd_Entourage set EntourageState=3,EntourageState_Time=GETDATE() where DispatchOrdIDDt="&DispatchOrdID objConn.Execute sql If DispatchOrdTraStreetMileage<>"" Then MileageSql=MileageSql&",DispatchOrdTraStreetMileage="&DispatchOrdTraStreetMileage End If If DispatchOrdTraEndMileage<>"" Then MileageSql=MileageSql&",DispatchOrdTraEndMileage="&DispatchOrdTraEndMileage End If If OA_latitude="" or OA_longitude="" Then OA_latitude=0 OA_longitude=0 End If sql="update DispatchOrd set DispatchOrdState="&DispatchOrdState&",DispatchOrdStartDate=getdate(),DispatchOrd_OAName=(SELECT STUFF(( select ',' + OA_Name from DispatchOrd_Entourage,OA_User where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntourageName),DispatchOrd_OAEntourage=(SELECT STUFF(( select ',' + vtext from DispatchOrd_Entourage,OA_User,dictionary where OA_User_ID=EntourageOAid and DispatchOrdIDDt=DispatchOrdID and EntourageState<>4 and vtitle='DispatchOrdEntourage' and vID=EntourageID order by EntourageLead desc FOR XML PATH('')), 1, 1, '') AS EntouragePost)"&ActualSql&MileageSql&" where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID objConn.Execute sql ReturnURL="admin_save.gds?admin_save=38&NEWOrder=3&DispatchOrdID="&DispatchOrdID&"&DispatchOrdCarID="&DispatchOrdCarID&"&SetOutDateR="&DispatchOrd_NS_Time&"&ReturnDateR="&DispatchOrd_NS_Time Else ReturnURL="DispatchOrder.gds?DispatchOrdID="&DispatchOrdID End If Call OA_Running("新建调度单:"&DispatchOrdID) If ServiceOrdID<>"" Then objConn.Execute "exec OrdDataUP "&ServiceOrdID Else objConn.Execute "exec OrdDataUP "&DispatchOrdID End If rsRollbackTrans(objConn.Errors.count) '第三方平台数据更新 Call Get_UnitOrd(ServiceOrdUnitID,ServiceOrdID,ServiceOrdState,DispatchOrdState) If Len(error)>2 Then Response.Redirect ReturnURL&"&SystemMessageType=1&SMT=4&error="&error Response.Redirect ReturnURL&"&SystemMessageType=3&SMT=3" Response.End %>