<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<%Response.Buffer = True
|
Server.ScriptTimeOut=240000
|
'On Error Resume Next
|
%>
|
<!--#include virtual="/inc/chkadmin_for_wx.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<!--#include virtual="/inc/core.asp"-->
|
|
<%
|
objConn.BeginTrans
|
|
ServiceOrdID = SafeRequest(request("ServiceOrdID"))
|
DispatchOrdID = SafeRequest(request("DispatchOrdID"))
|
EntourageLeadID = SafeRequest(request("EntourageLeadID")) '领队ID
|
DispatchOrdCarID= SafeRequest(request("DispatchOrdCarID"))
|
weixin = SafeRequest(request("weixin"))
|
DispatchOrd_Check= SafeRequest(request("DispatchOrd_Check"))
|
DispatchOrd_AP_Reason=SafeRequest(request("DispatchOrd_AP_Reason"))
|
|
'转运情况
|
DispatchOrdActualDate = SafeRequest(request("DispatchOrdActualDate")) '出发时间
|
DispatchOrdReturnDate = SafeRequest(request("DispatchOrdReturnDate")) '返回时间
|
DispatchOrdTraStreet = SafeRequest(request("DispatchOrdTraStreet")) '出发地
|
DispatchOrdTraEnd = SafeRequest(request("DispatchOrdTraEnd")) '目的地
|
DispatchOrdTraStreetMileage = SafeRequest(request("DispatchOrdTraStreetMileage")) '开始里程数
|
DispatchOrdTraEndMileage = SafeRequest(request("DispatchOrdTraEndMileage")) '结束里程数
|
'DispatchOrdMileage = SafeRequest(request("DispatchOrdMileage")) '转运实际里程(公里)
|
DispatchOrdResult = SafeRequest(request("DispatchOrdResult")) '转运结果
|
If DispatchOrdResult="0" Then DispatchOrdResult=SafeRequest(request("DispatchOrdResult_0")) '转运结果(其它)
|
If DispatchOrdMileage="" And Not IsNumeric(DispatchOrdMileage) Then DispatchOrdMileage=0
|
DispatchOrdRemarks = SafeRequest(request("DispatchOrdRemarks")) '备注说明
|
DispatchOrdPerfomance = SafeRequest(request("DispatchOrdPerfomance")) '调度单绩效
|
If DispatchOrdPerfomance="" Then DispatchOrdPerfomance=0
|
If DispatchOrdTraStreetMileage="" And Not IsNumeric(DispatchOrdTraStreetMileage) Then DispatchOrdTraStreetMileage=0
|
If DispatchOrdTraEndMileage="" And Not IsNumeric(DispatchOrdTraEndMileage) Then DispatchOrdTraEndMileage=0
|
DispatchOrdMileage=DispatchOrdTraEndMileage-DispatchOrdTraStreetMileage
|
ServiceOrdTraDistance = SafeRequest(request("ServiceOrdTraDistance")) '绩效距离
|
If ServiceOrdTraDistance="" Or Not isnumeric(ServiceOrdTraDistance) Then ServiceOrdTraDistance="0"
|
If ServiceOrdTraDistance<>"" Then ServiceOrdTraDistance=Replace(ServiceOrdTraDistance," ","")
|
ServiceOrdTraDistance = ServiceOrdTraDistance&"公里"
|
ServiceOrdPtServices = SafeRequest(Request("ServiceOrdPtServices")) '转出科室
|
ServiceOrdPtServicesID = SafeRequest(Request("ServiceOrdPtServicesID")) '转出科室ID
|
ServiceOrdPtInServices = SafeRequest(Request("ServiceOrdPtInServices")) '转入科室
|
ServiceOrdPtInServicesID= SafeRequest(Request("ServiceOrdPtInServicesID")) '转入科室ID
|
|
|
'发生费用
|
DispatchOrdLuqiaoFee = SafeRequest(request("DispatchOrdLuqiaoFee")) '路桥费
|
DispatchOrdGasolineFee = SafeRequest(request("DispatchOrdGasolineFee"))'油费
|
DispatchOrdTravelFee = SafeRequest(request("DispatchOrdTravelFee")) '差旅费
|
DispatchOrdOtherFee = SafeRequest(request("DispatchOrdOtherFee")) '其它费用
|
DispatchOrdOtherFee_TXT = SafeRequest(request("DispatchOrdOtherFee_TXT"))'其它费用说明
|
If DispatchOrdLuqiaoFee="" Then DispatchOrdLuqiaoFee=0
|
If DispatchOrdGasolineFee="" Then DispatchOrdGasolineFee=0
|
If DispatchOrdTravelFee="" Then DispatchOrdTravelFee=0
|
If DispatchOrdOtherFee="" Then DispatchOrdOtherFee=0
|
|
'氧气、易耗品、药品消耗
|
DispatchOrdOxygen = SafeRequest(request("DispatchOrdOxygen")) '氧气
|
DispatchOrdConsumables = SafeRequest(request("DispatchOrdConsumables"))'易耗品
|
DispatchOrdDrugs = SafeRequest(request("DispatchOrdDrugs")) '药品
|
|
'附加时长
|
TimeLength_Program = SafeRequest(Request.form("TimeLength_Program")) '大型活动保障时长
|
TimeLength_ICU = SafeRequest(Request.form("TimeLength_ICU")) '居家ICU时长
|
TimeLength_Wait = SafeRequest(Request.form("TimeLength_Wait")) '等待时长
|
If TimeLength_Program="" Then TimeLength_Program=0
|
If TimeLength_ICU="" Then TimeLength_ICU=0
|
If TimeLength_Wait="" Then TimeLength_Wait=0
|
|
'车辆使用情况
|
CarInspectionID = SafeRequest(request("CarInspectionID"))
|
CarInspection = SafeRequest(request("CarInspection"))
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
if DispatchOrdID<>"" Then
|
If IsDate(DispatchOrdActualDate) And DispatchOrdActualDate<>"" Then ActualDateSql=",DispatchOrdActualDate='"&DispatchOrdActualDate&"'"
|
If IsDate(DispatchOrdReturnDate) And DispatchOrdReturnDate<>"" Then ReturnDateSql=",DispatchOrdReturnDate='"&DispatchOrdReturnDate&"'"
|
If DispatchOrdTraStreet<>"" Then TraStreetSql=",DispatchOrdTraStreet='"&DispatchOrdTraStreet&"'"
|
If DispatchOrdTraEnd<>"" Then TraEndSql=",DispatchOrdTraEnd='"&DispatchOrdTraEnd&"'"
|
If DispatchOrd_Check="" then
|
sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",11,"&session("adminID")&")"
|
objConn.Execute sql
|
IsEndSql=",DispatchOrdIsEndDate=getdate()"
|
EquipmentOASql=",EquipmentOAid="&session("adminID")&" ,EquipmentTime=getdate()"
|
End If
|
|
'修改调度单
|
sql="update DispatchOrd set DispatchOrdIsEnd=1"&IsEndSql&",DispatchOrdTraEndMileage="&DispatchOrdTraEndMileage&",DispatchOrdTraStreetMileage="&DispatchOrdTraStreetMileage&",DispatchOrdMileage="&DispatchOrdMileage&",DispatchOrdLuqiaoFee="&DispatchOrdLuqiaoFee&",DispatchOrdGasolineFee="&DispatchOrdGasolineFee&",DispatchOrdTravelFee="&DispatchOrdTravelFee&",DispatchOrdOtherFee="&DispatchOrdOtherFee&",DispatchOrdOtherFee_TXT='"&DispatchOrdOtherFee_TXT&"',DispatchOrdOxygen='"&DispatchOrdOxygen&"',DispatchOrdConsumables='"&DispatchOrdConsumables&"',DispatchOrdDrugs='"&DispatchOrdDrugs&"',DispatchOrdRemarks='"&DispatchOrdRemarks&"',DispatchOrdPerfomance="&DispatchOrdPerfomance&ActualDateSql&ReturnDateSql&TraStreetSql&TraEndSql&",TimeLength_Program="&TimeLength_Program&",TimeLength_ICU="&TimeLength_ICU&",TimeLength_Wait="&TimeLength_Wait&",DispatchOrdUpdateOAid="&session("adminID")&",DispatchOrdUpdateTime=getdate() where DispatchOrdState<>10 and DispatchOrdID="&DispatchOrdID
|
objConn.Execute sql
|
|
'修改服务单
|
If ServiceOrdID<>"" And ServiceOrdTraDistance<>"" And ServiceOrdTraDistance<>"0公里" Then
|
sql="update ServiceOrder set ServiceOrdTraDistance='"&ServiceOrdTraDistance&"' where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
End If
|
If ServiceOrdID<>"" Then
|
CoSql=""
|
If ServiceOrdPtServicesID<>"" Then CoSql=CoSql&",ServiceOrdPtServicesID="&ServiceOrdPtServicesID&""
|
If ServiceOrdPtServices<>"" Then CoSql=CoSql&",ServiceOrdPtServices='"&ServiceOrdPtServices&"'"
|
If ServiceOrdPtInServicesID<>"" Then CoSql=CoSql&",ServiceOrdPtInServicesID="&ServiceOrdPtInServicesID&""
|
If ServiceOrdPtInServices<>"" Then CoSql=CoSql&",ServiceOrdPtInServices='"&ServiceOrdPtInServices&"'"
|
If CoSql<>"" Then
|
sql="update ServiceOrder set ServiceOrdUserID=ServiceOrdUserID"&CoSql&" where ServiceOrdID="&ServiceOrdID
|
objConn.Execute sql
|
End If
|
End If
|
|
'参加人员情况
|
EId = SafeRequest(request("EId")) '人员ID
|
EId_SP = SPLIT(EId,", ")
|
for i=0 to ubound(EId_SP)
|
EId = EId_SP(i)
|
EntourageOT_is = SafeRequest(Request("EntourageOT_is_"&EId)) '休息出车
|
EntourageOT2_is = SafeRequest(Request("EntourageOT2_is_"&EId)) '加班出车2
|
EntourageLong_is = SafeRequest(Request("EntourageLong_is_"&EId)) '超长途
|
EntourageBetimesHH = SafeRequest(Request("EntourageBetimesHH_"&EId)) '提前出车N小时
|
EntourageOther = SafeRequest(Request("EntourageOther_"&EId)) '其它情况
|
Stretcher_is = SafeRequest(Request("Stretcher_is_"&EId)) '抬担架
|
If EntourageOT_is="" Then EntourageOT_is=0
|
If EntourageOT2_is="" Then EntourageOT2_is=0
|
If EntourageLong_is="" Then EntourageLong_is=0
|
If Stretcher_is="" Then Stretcher_is=0
|
If EntourageBetimesHH="" Then EntourageBetimesHH=0
|
'更新加班审核状态
|
sql="update DispatchOrd_Entourage set Check_is=0,Check_Time=null,Check_OAid=null where ((Check_is=1 and (EntourageOT_is<>0 or EntourageOT2_is<>0 or EntourageBetimesHH>0)) or (Check_is=2 and (EntourageOT_is<>"&EntourageOT_is&" or EntourageOT2_is<>"&EntourageOT2_is&" or EntourageBetimesHH<"&EntourageBetimesHH&"))) and id="&EId
|
objConn.Execute sql
|
'更新加班状态
|
sql="update DispatchOrd_Entourage set EntourageOT_is="&EntourageOT_is&",EntourageOT2_is="&EntourageOT2_is&",EntourageLong_is="&EntourageLong_is&",EntourageBetimesHH="&EntourageBetimesHH&",EntourageOther='"&EntourageOther&"',Stretcher_is="&Stretcher_is&" where id="&EId
|
objConn.Execute sql
|
'写入提交完成时间
|
sql="update DispatchOrd_Entourage set EntourageEnd_Time=getdate() where EntourageEnd_Time is null and id="&EId
|
objConn.Execute sql
|
|
Next
|
|
'人员绩效
|
call EntourageDKP_A(DispatchOrdID,DispatchOrdPerfomance)
|
|
'设备使用情况_2021.4.6停用
|
If 1=2 then
|
EquipmentID = SafeRequest(request("EquipmentID")) '设备ID
|
EquipmentID_SP = SPLIT(EquipmentID,", ")
|
for i=0 to ubound(EquipmentID_SP)
|
EquipmentID = EquipmentID_SP(i)
|
EquipmentDefault = SafeRequest(Request("EquipmentDefault_"&EquipmentID)) '默认使用情况
|
EquipmentUseSituation = SafeRequest(Request("EquipmentUseSituation_"&EquipmentID))'使用情况
|
EquipmentInspect = SafeRequest(Request("EquipmentInspect_"&EquipmentID)) '返站后检查
|
If EquipmentUseSituation="" Then EquipmentUseSituation=EquipmentDefault
|
If EquipmentInspect="" Then EquipmentInspect="正常"
|
sql="select id from DispatchOrd_Equipment where EquipmentID="&EquipmentID&" and DispatchOrdIDDt="&DispatchOrdID
|
rs.open sql,objConn,1,1
|
If not rs.eof Then
|
sql="update DispatchOrd_Equipment set EquipmentUseSituation='"&EquipmentUseSituation&"',EquipmentInspect='"&EquipmentInspect&"'"&EquipmentOASql&" where id="&rs("id")
|
objConn.Execute sql
|
Else
|
sql="insert into DispatchOrd_Equipment (EquipmentID,DispatchOrdIDDt,EquipmentUseSituation,EquipmentInspect,EquipmentOAid) values ("&EquipmentID&","&DispatchOrdID&",'"&EquipmentUseSituation&"','"&EquipmentInspect&"',"&session("adminID")&")"
|
objConn.Execute sql
|
End If
|
rs.close()
|
Next
|
End If
|
'设备使用情况_2021.4.6启用
|
strItmID = SafeRequest(request("strItmID")) '设备ID
|
strItmID_SP = SPLIT(strItmID,", ")
|
for i=0 to ubound(strItmID_SP)
|
strItmID = strItmID_SP(i)
|
EquipmentDefault = SafeRequest(Request("EquipmentDefault_"&strItmID)) '默认使用情况
|
EquipmentUseSituation = SafeRequest(Request("EquipmentUseSituation_"&strItmID)) '使用情况(数量)
|
EquipmentPurchasePrice = SafeRequest(Request("EquipmentPurchasePrice_"&strItmID)) '物品成本
|
'EquipmentInspect = SafeRequest(Request("EquipmentInspect_"&strItmID)) '返站后检查
|
If EquipmentUseSituation="" Then EquipmentUseSituation=EquipmentDefault
|
If not IsNumeric(EquipmentUseSituation) Then EquipmentUseSituation=0
|
If not IsNumeric(EquipmentPurchasePrice) Then EquipmentPurchasePrice=0
|
'If EquipmentInspect="" Then EquipmentInspect="正常"
|
'EquipmentPurchasePrice=0
|
sql="select id from DispatchOrd_Equipment2 where strItmIDPK="&strItmID&" and DispatchOrdIDDt="&DispatchOrdID
|
rs.open sql,objConn,1,1
|
If not rs.eof Then
|
sql="update DispatchOrd_Equipment2 set EquipmentUseSituation="&EquipmentUseSituation&" "&EquipmentOASql&" where id="&rs("id")
|
objConn.Execute sql
|
Else
|
sql="insert into DispatchOrd_Equipment2 (strItmIDPK,DispatchOrdIDDt,EquipmentUseSituation,EquipmentPurchasePrice,EquipmentOAid) values ("&strItmID&","&DispatchOrdID&","&EquipmentUseSituation&","&EquipmentPurchasePrice&","&session("adminID")&")"
|
objConn.Execute sql
|
End If
|
rs.close()
|
Next
|
|
'车辆使用情况
|
If CarInspection<>"" Then
|
CarInspection = Replace(CarInspection,":, ",":")
|
CarInspection = Replace(CarInspection,", ","|")
|
CarInspection = CarInspection&"|"
|
If CarInspectionID<>"" Then
|
sql="update CarInspection set CarInspection='"&CarInspection&"',InspectionDate=getdate(),OAID="&session("adminID")&",OATime=getdate() where CarInspection<>'"&CarInspection&"' and id="&CarInspectionID
|
objConn.Execute sql
|
Else
|
sql="insert into CarInspection (InspectionCarID,DispatchOrdIDPK,CarInspection,OAID,InspectionState) values ("&DispatchOrdCarID&","&DispatchOrdID&",'"&CarInspection&"',"&session("adminID")&",2)"
|
objConn.Execute sql
|
End If
|
End If
|
|
'默认自动审核通过
|
'sql="insert into DispatchOrd_Running (DispatchOrdIDDt,DispatchOrdState,DispatchOrdStartOA) values ("&DispatchOrdID&",12,"&session("adminID")&")"
|
'objConn.Execute sql
|
'sql="update DispatchOrd set DispatchOrd_AP_Check=1,DispatchOrd_AP_Time=getdate(),DispatchOrd_AP_ID="&session("adminID")&" where DispatchOrdID="&DispatchOrdID
|
'objConn.Execute sql
|
|
End If
|
|
'审核转跳
|
If DispatchOrd_Check="1" Or DispatchOrd_Check="4" Or DispatchOrd_Check="0" Then
|
ReturnURL="admin_save.gds?admin_save=28&DispatchOrd_Check="&DispatchOrd_Check&"&DispatchOrdID="&DispatchOrdID&"&DispatchOrd_AP_Reason="&DispatchOrd_AP_Reason
|
|
ElseIf weixin="1" then
|
'ReturnURL="/m_DispatchOrder_End.gds?order_type=5&DispatchOrdID="&DispatchOrdID
|
session("JsonKey")="1"
|
ReturnURL="/weixin/message_send_DispatchOrder_end.gds?DispatchOrdID="&DispatchOrdID
|
|
Else
|
ReturnURL="/DispatchOrder_End.gds?h_menu1_1=1&SystemMessageType=3&SMT=4&DispatchOrdID="&DispatchOrdID
|
End If
|
'更新提成数据
|
Call EntourageDKP_Money_C2(DispatchOrdID)
|
Call OA_Running("调度单微信调度单提交数据审核:"&DispatchOrdID)
|
objConn.Execute "exec OrdDataUP "&DispatchOrdID
|
rsRollbackTrans(objConn.Errors.count)
|
Response.write "OK"
|
Response.End
|
%>
|
