<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<%
|
'Response.Cookies("OA")("adminID")=""
|
'Response.end
|
DispatchOrdID=request("DispatchOrdID")
|
state=request("state")
|
If state<>"" Then
|
stateSP=split(state,"|")
|
for i = 0 to UBOUND(stateSP)
|
If InStr(stateSP(i),"DispatchOrdID=")=1 Then
|
DispatchOrdID=Replace(stateSP(i),"DispatchOrdID=","")
|
ElseIf InStr(stateSP(i),"order_type=")=1 Then
|
order_type=Replace(stateSP(i),"order_type=","")
|
End If
|
Next
|
End If
|
if DispatchOrdID="" then Response.Redirect "/"
|
state=DispatchOrdID%>
|
<!--#include virtual="/weixin/OAuth2.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<head>
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
<meta name="viewport" content="width=device-width, height=device-height, initial-scale=1, maximum-scale=1, user-scalable=no">
|
<title>转运完全报告单</title>
|
<link href="css/main.css" type="text/css" rel="stylesheet">
|
</head>
|
|
<%
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
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") '拟出发时间
|
DispatchOrdActualDate = rs("DispatchOrdActualDate") '实际出车时间
|
DispatchOrdArriveDate = rs("DispatchOrdArriveDate") '实际到达时间
|
DispatchOrdReturnDate = rs("DispatchOrdReturnDate") '实际返回时间
|
DispatchOrdTraDistance = rs("DispatchOrdTraDistance") '实际距离
|
DispatchOrdTraStreet = rs("DispatchOrdTraStreet") '实际出发地
|
DispatchOrdTraEnd = rs("DispatchOrdTraEnd") '实际目的地
|
DispatchOrdCoName = rs("DispatchOrdCoName") '调度联系人
|
DispatchOrdCoPhone = rs("DispatchOrdCoPhone") '调度联系电话
|
DispatchOrdTraStreetMileage= rs("DispatchOrdTraStreetMileage")'开始里程数
|
DispatchOrdTraEndMileage= rs("DispatchOrdTraEndMileage")'结束里程数
|
DispatchOrdMileage = rs("DispatchOrdMileage") '实际里程数
|
DispatchOrdGasoline = rs("DispatchOrdGasoline") '油耗
|
DispatchOrdRemarks = rs("DispatchOrdRemarks") '行驶备注记录
|
DispatchOrdLuqiaoFee = rs("DispatchOrdLuqiaoFee") '路桥费
|
DispatchOrdGasolineFee = rs("DispatchOrdGasolineFee") '油费
|
DispatchOrdTravelFee = rs("DispatchOrdTravelFee") '差旅费
|
DispatchOrdOtherFee = rs("DispatchOrdOtherFee") '其它费
|
DispatchOrdOtherFee_TXT = rs("DispatchOrdOtherFee_TXT") '其它费说明
|
DispatchOrdOxygen = rs("DispatchOrdOxygen") '氧气
|
DispatchOrdConsumables = rs("DispatchOrdConsumables") '易耗品
|
DispatchOrdDrugs = rs("DispatchOrdDrugs") '药品
|
DispatchOrdIsEnd = rs("DispatchOrdIsEnd") '完成报告提交情况
|
StretcherMoney = rs("StretcherMoney") '担架费
|
DispatchOrdPerfomance = rs("DispatchOrdPerfomance") '调度单绩效
|
TimeLength_Program = rs("TimeLength_Program") '大型活动保障时长
|
TimeLength_ICU = rs("TimeLength_ICU") '居家ICU时长
|
TimeLength_Wait = rs("TimeLength_Wait") '等待时长
|
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) '调度单编号
|
Else
|
Response.Redirect "/m_DispatchOrder_List.gds?DispatchOrdID="&DispatchOrdID&"&SystemMessageType=4&SMT=9"
|
End If
|
rs.close()
|
|
'相关受理单
|
If ServiceOrdID<>"" then
|
sql="select * from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof then
|
ServiceOrdID = rs("ServiceOrdID") '服务单号
|
ServiceOrdClass = rs("ServiceOrdClass") '单据类型
|
ServiceOrdType = rs("ServiceOrdType") '服务单类型
|
ServiceOrdState = rs("ServiceOrdState") '服务单状态
|
ServiceOrdStartDate = rs("ServiceOrdStartDate") '开单日期
|
ServiceOrdApptDate = rs("ServiceOrdApptDate") '预约日期
|
ServiceOrdCoName = rs("ServiceOrdCoName") '联系人姓名
|
ServiceOrdCoPhone = rs("ServiceOrdCoPhone") '联系人电话
|
ServiceOrdCoTies = rs("ServiceOrdCoTies") '联系人与患者关系
|
ServiceOrdPtName = rs("ServiceOrdPtName") '患者姓名
|
ServiceOrdPtAge = rs("ServiceOrdPtAge") '患者年龄
|
ServiceOrdPtSex = rs("ServiceOrdPtSex") '患者性别
|
ServiceOrdPtNat = rs("ServiceOrdPtNat") '患者国籍
|
ServiceOrdPtOutHosp = rs("ServiceOrdPtOutHosp") '转出医院
|
ServiceOrdPtServices = rs("ServiceOrdPtServices") '转出科室
|
ServiceOrdPtServicesID=rs("ServiceOrdPtServicesID") '转出科室ID
|
ServiceOrdPtInServices = rs("ServiceOrdPtInServices") '转入科室
|
ServiceOrdPtInServicesID=rs("ServiceOrdPtInServicesID") '转入科室ID
|
ServiceOrdPtDiagnosis = rs("ServiceOrdPtDiagnosis") '诊断
|
ServiceOrdPtCondition = rs("ServiceOrdPtCondition") '病情描述
|
ServiceOrdPtDoctor = rs("ServiceOrdPtDoctor") '患者医生
|
ServiceOrdPtDoctorPhone=rs("ServiceOrdPtDoctorPhone") '患者医生电话
|
ServiceOrdTraProvince = rs("ServiceOrdTraProvince") '出发地省份
|
ServiceOrdTraCity = rs("ServiceOrdTraCity") '出发地城市
|
ServiceOrdTraStreet = rs("ServiceOrdTraStreet") '出发地
|
ServiceOrdTraStreetCoo= rs("ServiceOrdTraStreetCoo") '出发地坐标
|
ServiceOrdTraEnd = rs("ServiceOrdTraEnd") '目的地
|
ServiceOrdTraEndCoo = rs("ServiceOrdTraEndCoo") '目的地坐标
|
ServiceOrdTraDistance = rs("ServiceOrdTraDistance") '距离(公里)
|
ServiceOrdTraDuration = rs("ServiceOrdTraDuration") '预计行程时间
|
ServiceOrdTraUnitPrice= rs("ServiceOrdTraUnitPrice") '单价/公里
|
ServiceOrdTraOfferPrice=rs("ServiceOrdTraOfferPrice") '标准报价
|
ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice") '成交价
|
ServiceOrdTraPaidPrice= rs("ServiceOrdTraPaidPrice") '已支付金额
|
ServiceOrdTraPriceReason=rs("ServiceOrdTraPriceReason")'差价原因
|
ServiceOrd_CC_ID = rs("ServiceOrd_CC_ID") '第一次接单人员ID
|
ServiceOrd_CC_Time = rs("ServiceOrd_CC_Time") '第一次接单时间
|
ServiceOrd_NS_ID = rs("ServiceOrd_NS_ID") '确认服务单人员ID
|
ServiceOrd_NS_Time = rs("ServiceOrd_NS_Time") '确认服务单时间
|
ServiceOrd_AP_Check = rs("ServiceOrd_AP_Check") '服务单审核状态(0未审核,1已审核)
|
ServiceOrd_AP_ID = rs("ServiceOrd_AP_ID") '服务单审核人员ID
|
ServiceOrd_AP_Time = rs("ServiceOrd_AP_Time") '服务单审核时间
|
ServiceOrdIntroducer = rs("ServiceOrdIntroducer") '介绍人
|
ServiceOrd_Sale_ID = rs("ServiceOrd_Sale_ID") '销售人员ID
|
OrderLevel = rs("OrderLevel") '订单级别
|
ServiceOrdNo = ServiceOrdClass& year(rs("ServiceOrd_CC_Time"))&Right("0"&month(rs("ServiceOrd_CC_Time")),2)&Right("0"&day(rs("ServiceOrd_CC_Time")),2) & "-"&Right("00"&rs("ServiceOrdNo"),3)
|
If IsNumeric(ServiceOrdTraDistance) Then
|
ServiceOrdTraDistance=ServiceOrdTraDistance
|
ElseIf InStr(ServiceOrdTraDistance,"公里")>0 Or InStr(ServiceOrdTraDistance,"km")>0 Then
|
ServiceOrdTraDistance=Replace(Replace(ServiceOrdTraDistance,"公里",""),"km","")
|
Else
|
ServiceOrdTraDistance=0
|
End If
|
If DispatchOrdPerfomance="" Or isnull(DispatchOrdPerfomance) Then DispatchOrdPerfomance=ServiceOrdTraTxnPrice
|
End If
|
rs.close()
|
End If
|
|
'操作人员是否相关人员
|
is_AdminOrd=0
|
If ServiceOrd_CC_ID<>"" And is_AdminOrd=0 Then
|
If CInt(session("adminID"))=CInt(ServiceOrd_CC_ID) Then
|
is_AdminOrd=1
|
End If
|
End If
|
If ServiceOrd_NS_ID<>"" And is_AdminOrd=0 Then
|
If CInt(session("adminID"))=CInt(ServiceOrd_NS_ID) Then
|
is_AdminOrd=1
|
End If
|
End If
|
If ServiceOrd_AP_ID<>"" And is_AdminOrd=0 Then
|
If CInt(session("adminID"))=CInt(ServiceOrd_AP_ID) Then
|
is_AdminOrd=1
|
End If
|
End If
|
If DispatchOrd_NS_ID<>"" And is_AdminOrd=0 Then
|
If CInt(session("adminID"))=CInt(DispatchOrd_NS_ID) Then
|
is_AdminOrd=1
|
End If
|
End If
|
If DispatchOrd_AP_ID<>"" And is_AdminOrd=0 Then
|
If CInt(session("adminID"))=CInt(DispatchOrd_AP_ID) Then
|
is_AdminOrd=1
|
End If
|
End If
|
If isDepartment("020112")=1 And is_AdminOrd=0 Then
|
is_AdminOrd=1
|
End If
|
'领队情况
|
sql="select DispatchOrd_Entourage.id,EntourageOAid,EntourageLead,OA_weixinUserID,EntourageState,EntourageState_Time,OA_Name,OA_weixinAvatar,vtext from DispatchOrd_Entourage,OA_User,dictionary where vtitle='DispatchOrdEntourage' and EntourageID=vID and OA_User_ID=EntourageOAid and EntourageState<>4 and EntourageLead=1 and DispatchOrdIDDt="&DispatchOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
EntourageLeadID=rs("EntourageOAid")
|
End If
|
rs.close()
|
|
'行驶里程
|
If DispatchOrdMileage=0 And DispatchOrdTraStreetMileage<>0 And DispatchOrdTraEndMileage<>0 Then
|
DispatchOrdMileage1=DispatchOrdTraEndMileage-DispatchOrdTraStreetMileage
|
DispatchOrdGasoline1=""
|
Else
|
DispatchOrdMileage1=DispatchOrdMileage
|
DispatchOrdGasoline1=DispatchOrdGasoline
|
End If
|
|
'审核状态
|
If DispatchOrdState="8" Or DispatchOrdState="9" Then
|
If DispatchOrd_AP_Check="1" then
|
DispatchOrd_CheckTXT = DispatchOrdStateA(12)
|
ElseIf DispatchOrd_AP_Check="0" And DispatchOrdIsEnd>0 then
|
DispatchOrd_CheckTXT = "等待审核"
|
ElseIf DispatchOrd_AP_Check="0" And DispatchOrdIsEnd=0 then
|
DispatchOrd_CheckTXT = "未提交"
|
ElseIf DispatchOrd_AP_Check="0" And DispatchOrdIsEnd=-1 then
|
DispatchOrd_CheckTXT = "审核不通过"
|
End If
|
If DispatchOrd_AP_Reason<>"" Then DispatchOrd_CheckTXT=DispatchOrd_CheckTXT&" "&DispatchOrd_AP_Reason
|
If DispatchOrd_CheckTXT<>"" Then DispatchOrd_CheckTXT="（"&DispatchOrd_CheckTXT&" ）"
|
End If
|
|
'返回时间
|
If DispatchOrdReturnDate="" Or isnull(DispatchOrdReturnDate) Then
|
sql="select DispatchOrdStartDate from DispatchOrd_Running where DispatchOrdIDDt="&DispatchOrdID&" and DispatchOrdState in (8,9) order by DispatchOrdStartDate desc"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
DispatchOrdReturnDate=rs("DispatchOrdStartDate")
|
End If
|
rs.close()
|
End if
|
|
If DispatchOrdCarID<>"" And DispatchOrdCarID<>"0" Then DispatchOrdCarLicense=CarDataA(DispatchOrdCarID,"","CarLicense")
|
%>
|
|
<body>
|
<!--#include virtual="/m_DispatchOrder_header.gds"-->
|
<!--<div class="order_head"><a href="order_List.asp"><font></font></a>调度详情</div>-->
|
<!--<div class="os_status"><span class="os_statusfirst">订单状态：等待卖家发货</span><span class="os_refresh">刷新</span></div>-->
|
|
<div class="os_line"></div>
|
<div id="m_Orer">
|
<form id="form1" name="form1" action="admin_save.gds" method="post">
|
<input name="admin_save" type="hidden" value="">
|
<input name="ServiceOrdID" type="hidden" value="<%=ServiceOrdID%>">
|
<input name="DispatchOrdID" type="hidden" value="<%=DispatchOrdID%>">
|
<input name="EntourageLeadID" type="hidden" value="<%=EntourageLeadID%>">
|
<input name="DispatchOrdCarID" type="hidden" value="<%=DispatchOrdCarID%>">
|
<input name="DispatchOrdPerfomance" type="hidden" value="<%=DispatchOrdPerfomance%>">
|
<input name="weixin" type="hidden" value="1">
|
<div class="os_shopname">派遣车辆：<%=DispatchOrdCarLicense%> <%=DispatchOrd_CheckTXT%></div>
|
<div class="os_oedernumber">参加人员：</div>
|
<div class="os_img">
|
|
<%
|
'更新提成数据
|
Call EntourageDKP_Money_C2(DispatchOrdID)
|
|
OA_DKP="1"
|
'sql="select DispatchOrd_Entourage.id,EntourageOAid,EntourageLead,OA_weixinUserID,EntourageState,EntourageState_Time,EntourageP1,OA_Name,OA_weixinAvatar,vtext,EntourageOT_is,EntourageLong_is,EntourageBetimesHH,EntourageOther,EntourageDKP,EntourageDKPScale,EntourageMileageFactor,EntourageEnd_Time,DKPEdit_Reason,DKPEdit_Time,DKPEdit_OAid,Stretcher_is,StretcherM=isnull((select sum(AddMoney) from (select AddMoney=(AddMoney/COUNT(a.Stretcher_is)) from DispatchOrd_Entourage as a,(select ToDispatchOrdID,AddMoneyType,AddMoney=sum(AddMoney) from PaidMoney_Add where ToDispatchOrdID=DispatchOrd_Entourage.DispatchOrdIDDt GROUP BY ToDispatchOrdID,AddMoneyType) as b where a.DispatchOrdIDDt=DispatchOrd_Entourage.DispatchOrdIDDt and b.ToDispatchOrdID=a.DispatchOrdIDDt and a.EntourageState<>4 and a.Stretcher_is=1 and b.AddMoneyType=2 GROUP BY AddMoney) as c),0),Condition_is=(select COUNT(id) from ServiceOrd_Condition where ConditionID in (4,22,24) and ServiceOrdCoID="&ServiceOrdID&") from DispatchOrd_Entourage,OA_User,dictionary where vtitle='DispatchOrdEntourage' and EntourageID=vID and OA_User_ID=EntourageOAid and EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID
|
sql="select DispatchOrd_Entourage.id,EntourageOAid,EntourageLead,OA_weixinUserID,EntourageState,EntourageState_Time,EntourageP1,OA_Name,OA_weixinAvatar,vtext,EntourageOT_is,EntourageOT2_is,EntourageLong_is,EntourageBetimesHH,EntourageOther,EntourageDKP,EntourageDKPScale,EntourageMileageFactor,EntourageMileageEdit,EntourageEnd_Time,Entourage_Time,DKPEdit_Reason,DKPEdit_Time,DKPEdit_OAid,Stretcher_is,ConversionDistance,EntourageOT_Money,Stretcher_Money,Condition_Money from DispatchOrd_Entourage,OA_User,dictionary where vtitle='DispatchOrdEntourage' and EntourageID=vID and OA_User_ID=EntourageOAid and EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
EntourageOAid = rs("EntourageOAid") 'OAid
|
EntourageDKP = rs("EntourageDKP") '个人绩效
|
|
If CInt(EntourageOAid)=CInt(session("adminID")) Then
|
EId = rs("id")
|
EntourageOAid = rs("EntourageOAid") 'OAid
|
EntourageLead = rs("EntourageLead") '是否领队
|
OA_weixinUserID = rs("OA_weixinUserID") '微信ID
|
OA_Name = rs("OA_Name") '人员姓名
|
OA_weixinAvatar = rs("OA_weixinAvatar") '头像
|
EntourageName = rs("vtext") '职能名称
|
EntourageState = rs("EntourageState") '确认状态
|
EntourageState_Time= rs("EntourageState_Time")'确认时间
|
EntourageOT_is = rs("EntourageOT_is") '是否休息出车
|
EntourageOT2_is = rs("EntourageOT2_is") '是否加班出车2
|
EntourageLong_is= rs("EntourageLong_is") '是否跟车
|
EntourageBetimesHH= rs("EntourageBetimesHH")'提出出车N小时
|
EntourageOther = rs("EntourageOther") '其它情况
|
EntourageDKP = rs("EntourageDKP") '个人绩效
|
EntourageDKPScale = rs("EntourageDKPScale")'分成比例
|
EntourageEnd_Time=rs("EntourageEnd_Time") '个人情况提交时间
|
DKPEdit_Reason = rs("DKPEdit_Reason")
|
DKPEdit_OAid = rs("DKPEdit_OAid")
|
DKPEdit_Time = rs("DKPEdit_Time")
|
Stretcher_is = rs("Stretcher_is")
|
|
ConversionDistance = rs("ConversionDistance") '折算公里数 L
|
EntourageOT_Money = rs("EntourageOT_Money") '加班费
|
Stretcher_Money = rs("Stretcher_Money") '担架费
|
Condition_Money = rs("Condition_Money") '特殊项目金额
|
EntourageP1 = rs("EntourageP1") '绩效奖金基数P1
|
EntourageMileageFactor = rs("EntourageMileageFactor") '个人系数
|
EntourageMileageEdit= rs("EntourageMileageEdit")'修改提成/计提里程
|
Entourage_Time = rs("Entourage_Time")
|
EntourageDKP_Money = ConversionDistance*EntourageP1+EntourageOT_Money+Stretcher_Money+Condition_Money '提成金额
|
If EntourageLong_is=1 And EntourageState_Time>="2021-1-1" Then Condition_is=0
|
|
If CInt(EntourageOAid)=CInt(session("adminID")) Then OA_DKP=EntourageEnd_Time
|
If OA_weixinAvatar="" Then OA_weixinAvatar="/resources/images/icon_avatar_default.png"
|
|
|
If CDate(DispatchOrd_NS_Time)>=CDate("2021-9-1") Then '最新绩效计算公式(2021-9-1 开始使用)
|
OrdTypeB=ServiceOrdTypeB(ServiceOrdType,"vType")
|
If not isnull(EntourageMileageEdit) Then
|
EntourageDKP_Money=EntourageMileageEdit+Stretcher_Money
|
EntourageMileageFactor=""
|
Response.Write EntourageMileageEdit
|
ElseIf OrdTypeB=2 Then
|
EntourageDKP_Money=DispatchOrdPerfomance
|
EntourageMileageFactor=""
|
Else
|
'加班出车绩效1.1倍,超12点出车1.2倍 2022.7.1
|
If EntourageOT2_is=1 And hour(Entourage_Time)<7 Then
|
EntourageDKPOTScale=1.2
|
EntourageDKPOTScaleTXT="*"&EntourageDKPOTScale
|
ElseIf EntourageOT2_is=1 And (hour(Entourage_Time)<8 Or (hour(Entourage_Time)=8 And Minute(Entourage_Time)<30)) And CDate(DispatchOrd_NS_Time)<CDate("2024-3-1") Then
|
EntourageDKPOTScale=1.2
|
EntourageDKPOTScaleTXT="*"&EntourageDKPOTScale
|
ElseIf EntourageOT2_is=1 Then
|
EntourageDKPOTScale=1.1
|
EntourageDKPOTScaleTXT="*"&EntourageDKPOTScale
|
Else
|
EntourageDKPOTScale=1
|
EntourageDKPOTScaleTXT=""
|
End If
|
If EntourageDKPScale>0 Then EntourageDKPScale=EntourageDKPScale/100
|
|
EntourageDKP_Money = ServiceOrdTraTxnPrice*EntourageDKPScale*EntourageDKPOTScale+Stretcher_Money+Condition_Money+EntourageOT_Money '提成金额
|
|
'EntourageMileageFactor=FormatPercent(EntourageDKPScale)
|
EntourageMileageFactor=""
|
End If
|
|
|
If (isDepartment("030113")=1 Or CInt(EntourageOAid)=CInt(session("adminID"))) Then ' EntourageDKP>0 And
|
EntourageDKP_TXT=" 提成:"&FormatNumber(EntourageDKP_Money,2,-1)&"元"
|
If Stretcher_Money>0 Then EntourageDKP_TXT=EntourageDKP_TXT&"（含"&FormatNumber(Stretcher_Money,0,-1)&"附加费）"
|
DKP_Edit=DKP_Edit&"|"&EId&"\"&OA_Name&"\"&EntourageDKP_Money&"\"&DKPEdit_Reason
|
If OrdTypeB=2 Then
|
EntourageDKP_TXT=EntourageDKP_TXT'&"<br>特殊任务单"
|
ElseIf ServiceOrdType=7 Then
|
EntourageDKP_TXT=EntourageDKP_TXT'&"<br>保障任务单"
|
ElseIf ServiceOrdTraDistance<=300 And (DKPEdit_Reason="" Or isnull(DKPEdit_Reason)) Then
|
EntourageDKP_TXT=EntourageDKP_TXT
|
ElseIf DKPEdit_Reason="" Or isnull(DKPEdit_Reason) Then
|
EntourageDKP_TXT=EntourageDKP_TXT
|
If EntourageName="医生" Then
|
DKPScale=7.7
|
DKPScale1=5.8
|
ElseIf EntourageName="护士" Then
|
DKPScale=6.7
|
DKPScale1=4.8
|
Else
|
DKPScale=5.7
|
DKPScale1=3.8
|
End If
|
If EntourageLong_is=1 And EntourageState_Time>="2021-9-1" Then
|
DKPScale=DKPScale/2
|
DKPScale1=DKPScale1/2
|
End If
|
|
DKP_Money=ServiceOrdTraUnitPrice*300*(DKPScale/100)
|
|
DKP_Money=DKP_Money+((ServiceOrdTraTxnPrice-(ServiceOrdTraUnitPrice*300))*(DKPScale1/100))
|
|
'EntourageDKP_TXT=EntourageDKP_TXT&"<br>"&ServiceOrdTraTxnPrice&"/"&ServiceOrdTraDistance&"*400*"&DKPScale&"%+"&ServiceOrdTraTxnPrice&"/"&ServiceOrdTraDistance&"*"&ServiceOrdTraDistance-400&"*"&FormatPercent((EntourageDKP_Money-(ServiceOrdTraUnitPrice*400*(DKPScale/100)))/(ServiceOrdTraUnitPrice*(ServiceOrdTraDistance-400)),1,-1)
|
End If
|
Else
|
EntourageDKP_TXT=""
|
End If
|
Else
|
EntourageDKP_Money = ConversionDistance*EntourageP1+EntourageOT_Money+Stretcher_Money+Condition_Money '提成金额
|
If (isDepartment("030113")=1 Or CInt(EntourageOAid)=CInt(session("adminID"))) Then ' EntourageDKP>0 And
|
EntourageDKP_TXT=" 计提:"&ConversionDistance&"公里 "&FormatNumber(EntourageDKP_Money,1,-1)&"元"
|
If Stretcher_Money>0 Then EntourageDKP_TXT=EntourageDKP_TXT&"（含"&FormatNumber(Stretcher_Money,0,-1)&"附加费）"
|
DKP_Edit=DKP_Edit&"|"&EId&"\"&OA_Name&"\"&ConversionDistance&"\"&DKPEdit_Reason
|
Else
|
EntourageDKP_TXT=""
|
End If
|
If EntourageMileageFactor>0 And EntourageMileageFactor<1 Then EntourageMileageFactor="0"&EntourageMileageFactor
|
End If
|
|
|
If DKPEdit_Reason<>"" And EntourageDKP_TXT<>"" Then
|
EntourageDKP_TXT=EntourageDKP_TXT&"<br>绩效修改:"&DKPEdit_Reason&" "&OAUser(DKPEdit_OAid,"UserName")&"<br>修改时间:"&DKPEdit_Time
|
End If
|
%>
|
<div style=" margin:5px 10px;height: 75px;">
|
<input name="EId" type="hidden" value="<%=EId%>">
|
<img src="<%=OA_weixinAvatar%>">
|
<div class="os_name" style="height: initial;line-height: 20px;width: 75%;">
|
<%=OA_Name%><%If EntourageLead="1" then%><img src='/resources/images/2016020401.png' style="height: 10px;width: 10px;float: none;"><%End if%> <%=EntourageName%><br><%=EntourageDKP_TXT%><br>
|
<input type="checkbox" id="Stretcher_is_<%=Eid%>" name="Stretcher_is_<%=Eid%>" value="1"<%If Stretcher_is="1" Then Response.Write " checked=""checked"""%> style="float: none;"><label for="Stretcher_is_<%=Eid%>"> 抬担架</label><br>
|
<%If 1=2 Then%>
|
<input type="checkbox" id="EntourageOT_is_<%=Eid%>" name="EntourageOT_is_<%=Eid%>" value="1"<%If EntourageOT_is="1" Then Response.Write " checked=""checked"""%>><label for="EntourageOT_is_<%=Eid%>"> 休息出车</label>
|
<input type="checkbox" style="float: none;" id="EntourageBetimesHH_<%=Eid%>" name="EntourageBetimesHH_<%=Eid%>" value="1"<%If EntourageBetimesHH>=1 Then Response.Write " checked=""checked"""%>><label for="EntourageBetimesHH_<%=Eid%>">提前出车</label>
|
<!-- 其它<input type="text" id="EntourageOther_<%=Eid%>" name="EntourageOther_<%=Eid%>" style="width:80px;border: none;font-size: 14px;text-align:left;" value="<%=EntourageOther%>" placeholder="______________">-->
|
<%else%>
|
<%If EntourageBetimesHH>0 And CDate(DispatchOrd_NS_Time)<CDate("2021-4-1") then%> 提前出车<%End If%>
|
<%If EntourageBetimesHH>0 And CDate(DispatchOrd_NS_Time)>=CDate("2021-4-1") And OrderLevel="2" then%> Z提前返回<%End If%>
|
<%If EntourageOT_is="1" then%> 加班<%End If%>
|
<%If EntourageOT2_is="1" then%> 加班出车<%End If%>
|
<%If TimeLength_Program>0 then%> 保障:<%=TimeLength_Program%>小时<%End If%>
|
<%If TimeLength_ICU>0 then%> ICU:<%=TimeLength_ICU%>小时<%End If%>
|
<%If TimeLength_Wait>0 then%> 等待:<%=TimeLength_Wait%>小时<%End If%>
|
<input name="EntourageOT_is_<%=Eid%>" type="hidden" value="<%=EntourageOT_is%>">
|
<input name="EntourageOT2_is_<%=Eid%>" type="hidden" value="<%=EntourageOT2_is%>">
|
<input name="EntourageBetimesHH_<%=Eid%>" type="hidden" value="<%=EntourageBetimesHH%>">
|
|
<%End If%>
|
</div>
|
</div>
|
<% End If
|
rs.movenext
|
loop
|
rs.close()%>
|
</div>
|
<%If CInt(session("adminID"))=CInt(EntourageLeadID) Or OA_DKP<>"" Then%>
|
<!--<div class="os_shopname">派单时间：<%=DispatchOrd_NS_Time%></div>-->
|
<div class="os_shopname">出发时间：<input type="text" id="DispatchOrdActualDate" name="DispatchOrdActualDate" style="width:160px;border: none;font-size: 14px;text-align:left;font-weight: 700;" value="<%=DispatchOrdActualDate%>"></div>
|
<div class="os_shopname">返回时间：<input type="text" id="DispatchOrdReturnDate" name="DispatchOrdReturnDate" style="width:160px;border: none;font-size: 14px;text-align:left;font-weight: 700;" value="<%=DispatchOrdReturnDate%>"></div>
|
<div class="os_shopname">转运路线：<textarea id="DispatchOrdTraStreet" name="DispatchOrdTraStreet" style="width:78%;font-size: 14px;border: none;height: 38px;" placeholder="请输入出发地"><%=DispatchOrdTraStreet%></textarea></div>
|
<div class="os_shopname"> 至 <textarea id="DispatchOrdTraEnd" name="DispatchOrdTraEnd" style="width:78%;font-size: 14px;border: none;height: 38px;" placeholder="请输入目的地"><%=DispatchOrdTraEnd%></textarea></div>
|
<div class="os_shopname">转出科室：
|
<select name="ServiceOrdPtServicesID" id="ServiceOrdPtServicesID" style="-webkit-appearance: none;outline: none;border: none;font-size: 14px;">
|
<option value="">请选择</option>
|
<%sql="select vId,vtext from dictionary where vType=1 and vtitle='HospitalDepartment' order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
HospitalDepartmentID=rs(0)
|
HospitalDepartmentName=rs(1)
|
%>
|
<option value="<%=HospitalDepartmentID%>"<%if Clng(HospitalDepartmentID)=Clng(ServiceOrdPtServicesID) then Response.Write " selected"%>><%=HospitalDepartmentName%></option>
|
<%
|
rs.movenext
|
loop
|
rs.close()%>
|
</select>
|
<input type="text" id="ServiceOrdPtServices" name="ServiceOrdPtServices" style="width:140px;border: none;font-size: 14px;text-align:left;" value="<%=ServiceOrdPtServices%>">
|
</div>
|
<div class="os_shopname">转入科室：
|
<select name="ServiceOrdPtInServicesID" id="ServiceOrdPtInServicesID" style="-webkit-appearance: none;outline: none;border: none;font-size: 14px;">
|
<option value="">请选择</option>
|
<%sql="select vId,vtext from dictionary where vType=1 and vtitle='HospitalDepartment' order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
HospitalDepartmentID=rs(0)
|
HospitalDepartmentName=rs(1)
|
%>
|
<option value="<%=HospitalDepartmentID%>"<%if Clng(HospitalDepartmentID)=Clng(ServiceOrdPtInServicesID) then Response.Write " selected"%>><%=HospitalDepartmentName%></option>
|
<%
|
rs.movenext
|
loop
|
rs.close()%>
|
</select>
|
<input type="text" id="ServiceOrdPtInServices" name="ServiceOrdPtInServices" style="width:140px;border: none;font-size: 14px;text-align:left;" value="<%=ServiceOrdPtInServices%>">
|
</div>
|
|
<div class="os_shopname">开始里程数：<input type="number" id="DispatchOrdTraStreetMileage" name="DispatchOrdTraStreetMileage" style="width:80px;border: none;font-size: 14px;text-align:right;font-weight: 700;" value="<%=DispatchOrdTraStreetMileage%>"> 公里</div>
|
<div class="os_shopname">结束里程数：<input type="number" id="DispatchOrdTraEndMileage" name="DispatchOrdTraEndMileage" style="width:80px;border: none;font-size: 14px;text-align:right;font-weight: 700;" value="<%=DispatchOrdTraEndMileage%>"> 公里</div>
|
<div class="os_shopname">转运实际里程（往返）：<%=DispatchOrdMileage1%> 公里</div>
|
<div class="os_shopname">预估距离：<%=ServiceOrdTraDistance&"公里"%></div>
|
<div class="os_shopname">转运结果：
|
<select name="DispatchOrdResult" id="DispatchOrdResult" style="-webkit-appearance: none;outline: none;border: none;font-size: 14px;" onchange="DispatchOrdResult_js()">
|
<option value="顺利到达"<%if DispatchOrdResult="顺利到达" then Response.Write " selected"%>>顺利到达</option>
|
<option value="死亡"<%if DispatchOrdResult="死亡" then Response.Write " selected"%>>死亡</option>
|
<option value="0"<%if DispatchOrdResult<>"顺利到达" And DispatchOrdResult<>"死亡" And DispatchOrdResult<>"" then Response.Write " selected"%>>其它</option>
|
</select>
|
<input type="text" id="DispatchOrdResult_0" name="DispatchOrdResult_0" style="width:160px;border: none;font-size: 14px;text-align:left;display:none;" placeholder="请输入转运结果" value="<%if DispatchOrdResult<>"顺利到达" And DispatchOrdResult<>"死亡" And DispatchOrdResult<>"" then Response.Write DispatchOrdResult%>">
|
<script type="text/javascript">
|
function DispatchOrdResult_js()
|
{
|
DispatchOrdResult = document.all.DispatchOrdResult.value;
|
if (DispatchOrdResult=="0"){document.all.DispatchOrdResult_0.style.display="";}
|
else {document.all.DispatchOrdResult_0.style.display="none";}
|
}
|
</script>
|
</div>
|
|
<input name="TimeLength_Program" type="hidden" value="<%=TimeLength_Program%>">
|
<input name="TimeLength_ICU" type="hidden" value="<%=TimeLength_ICU%>">
|
<input name="TimeLength_Wait" type="hidden" value="<%=TimeLength_Wait%>">
|
|
<div class="os_shopname">路桥费：<input type="text" id="DispatchOrdLuqiaoFee" name="DispatchOrdLuqiaoFee" style="width:40px;border: none;font-size: 14px;text-align:right;font-weight: 700;" value="<%=DispatchOrdLuqiaoFee%>"> 元</div>
|
<div class="os_shopname">油 费：<input type="text" id="DispatchOrdGasolineFee" name="DispatchOrdGasolineFee" style="width:40px;border: none;font-size: 14px;text-align:right;font-weight: 700;" value="<%=DispatchOrdGasolineFee%>"> 元</div>
|
<div class="os_shopname">差旅费：<input type="text" id="DispatchOrdTravelFee" name="DispatchOrdTravelFee" style="width:40px;border: none;font-size: 14px;text-align:right;font-weight: 700;" value="<%=DispatchOrdTravelFee%>"> 元</div>
|
<div class="os_shopname">其 它：<input type="text" id="DispatchOrdOtherFee" name="DispatchOrdOtherFee" style="width:40px;border: none;font-size: 14px;text-align:right;font-weight: 700;" value="<%=DispatchOrdOtherFee%>"> 元 <input type="text" id="DispatchOrdOtherFee_TXT" name="DispatchOrdOtherFee_TXT" style="width:180px;border: none;font-size: 14px;text-align:left;" value="<%=DispatchOrdOtherFee_TXT%>" placeholder="请输入其它项目"></div>
|
|
<div class="os_shopname">氧气消耗：<input type="text" id="DispatchOrdOxygen" name="DispatchOrdOxygen" style="width:78%;border: none;font-size: 14px;text-align:left;font-weight: 700;" value="<%=DispatchOrdOxygen%>" placeholder="无"></div>
|
<div class="os_shopname">易 耗 品 ：<textarea id="DispatchOrdConsumables" name="DispatchOrdConsumables" style="width:78%;font-size: 14px;border: none;height: 38px;font-weight: 700;" placeholder="无"><%=DispatchOrdConsumables%></textarea></div>
|
<div class="os_shopname">药 品：<textarea id="DispatchOrdDrugs" name="DispatchOrdDrugs" style="width:78%;font-size: 14px;border: none;height: 58px;font-weight: 700;" placeholder="无"><%=DispatchOrdDrugs%></textarea></div>
|
|
|
<div class="os_shopname" style="border-bottom: initial;">耗材使用情况：</div>
|
<div class="os_shopname" style="border-bottom: initial;"><li class="m_Equipment">耗材</li><li class="m_Equipment" style="text-align: right;">使用情况</li></div>
|
<%sql="select count(id) from DispatchOrd_Equipment2 where DispatchOrdIDDt="&DispatchOrdID
|
rs.open Sql,objConn,1,1
|
If rs(0)>0 Then
|
sql="select strItmID,strItmName,strItmUnit,strItmRemarks,PurchasePrice,DispatchOrd_Equipment2.* from DispatchOrd_Equipment2 LEFT JOIN tblStItm on strItmIDPK=strItmID where DispatchOrdIDDt="&DispatchOrdID&" order by strItmID"
|
Else
|
sql="select strItmID,strItmName,strItmUnit,strItmRemarks,PurchasePrice,DispatchOrd_Equipment2.* from tblStItm LEFT JOIN DispatchOrd_Equipment2 on strItmIDPK=strItmID and DispatchOrdIDDt="&DispatchOrdID&" where isCarStItm=1 and strItmState=1 order by strItmID"
|
End If
|
rs.close()
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
strItmID = rs("strItmID")
|
strItmName = rs("strItmName")
|
strItmUnit = rs("strItmUnit")
|
strItmPurchasePrice = rs("PurchasePrice")
|
EquipmentDefault= rs("strItmRemarks")
|
EquipmentUseSituation= rs("EquipmentUseSituation")
|
EquipmentInspect= rs("EquipmentInspect")
|
If isnull(EquipmentDefault) Then EquipmentDefault=""
|
EquipmentDefaultSP = SPLIT(EquipmentDefault,"|")
|
OrderItmIDs=OrderItmIDs&"|"&strItmID
|
%>
|
<div class="os_shopname" style="border-bottom: initial;">
|
<input name="strItmID" type="hidden" value="<%=strItmID%>">
|
<li class="m_Equipment"><%=strItmName%></li>
|
<%If UBOUND(EquipmentDefaultSP)<=1 then%>
|
<li class="m_Equipment"><input type="number" id="EquipmentUseSituation_<%=strItmID%>" name="EquipmentUseSituation_<%=strItmID%>" style="width:60%;font-weight: 700;font-size: 14px;text-align:right;" value="<%=EquipmentUseSituation%>" placeholder="<%=EquipmentDefault%>"> <%=strItmUnit%></li>
|
<%Else
|
EquipmentDefault=EquipmentDefaultSP(0)%>
|
<li class="m_Equipment">
|
<select name="EquipmentUseSituation_<%=strItmID%>" id="EquipmentUseSituation_<%=strItmID%>" style="-webkit-appearance: none;outline: none;border: none;font-size: 14px;">
|
<%for i = 0 to UBOUND(EquipmentDefaultSP)%>
|
<option value="<%=EquipmentDefaultSP(i)%>"<%if EquipmentDefaultSP(i)=EquipmentUseSituation then Response.Write " selected"%>><%=EquipmentDefaultSP(i)%></option>
|
<%next%>
|
</select>
|
<%=strItmUnit%>
|
</li>
|
<%End if%>
|
<input name="EquipmentDefault_<%=strItmID%>" type="hidden" value="<%=EquipmentDefault%>">
|
<input name="EquipmentPurchasePrice_<%=strItmID%>" type="hidden" value="<%=strItmPurchasePrice%>">
|
</div>
|
<%rs.movenext
|
Loop
|
rs.close()%>
|
<div id="Equipment_other"></div>
|
<div class="os_shopname" style="border-bottom: initial;padding: 5px;" >
|
<li class="m_Equipment" style="width: 63%;color: #fff;background: #9a6d92;font-weight: 700;border: 1px solid #ccc;" onclick="showEquipment()">添加其它耗材</li>
|
<li class="m_Equipment" style="width: 33%;color: #fff;background: #9a6d92;border: 1px solid #ccc;font-weight: 700;margin: 0 0 0 5px;" onclick="noOrderItm()">没使用耗材</li>
|
</div>
|
<script>
|
<%If OrderItmIDs<>"" Then
|
Response.Write "function noOrderItm(){"
|
OrderItmIDSP = SPLIT(OrderItmIDs,"|")
|
for i = 1 to UBOUND(OrderItmIDSP)
|
Response.Write "if (document.form1.EquipmentUseSituation_"&OrderItmIDSP(i)&".value=='') {document.form1.EquipmentUseSituation_"&OrderItmIDSP(i)&".value='0';}"
|
Next
|
Response.Write "}"
|
end if%>
|
</script>
|
<%
|
sql="select top 1 id,CarInspection,InspectionState from CarInspection where (InspectionState=1 or (InspectionState=2 and DispatchOrdIDPK="&DispatchOrdID&")) and InspectionCarID="&DispatchOrdCarID&" order by InspectionDate desc"
|
rs.open sql,objConn,1,1
|
If not rs.Eof And session("adminID")=8 Then
|
If rs("InspectionState")=2 Then CarInspectionID = rs("id")
|
CarInspection = rs("CarInspection")
|
CarInspectionSP = SPLIT(CarInspection,"|")
|
%>
|
<div class="os_shopname" style="border-bottom: initial;">车辆使用情况：</div>
|
<input name="CarInspectionID" type="hidden" value="<%=CarInspectionID%>">
|
<%for i = 0 to UBOUND(CarInspectionSP)-1
|
CarInspectionSPs = SPLIT(CarInspectionSP(i),":")
|
If CarInspectionID<>"" Then
|
CarInspectionValue = CarInspectionSPs(1)
|
Else
|
CarInspectionValue = "正常"
|
End If%>
|
<div class="os_shopname" style="border-bottom: initial;">
|
<input name="CarInspection" type="hidden" value="<%=CarInspectionSPs(0)%>:">
|
<li class="m_Equipment" style="text-align:right;"><%=CarInspectionSPs(0)%></li>
|
<li class="m_Equipment"><input type="text" name="CarInspection" style="width:60%;font-weight: 700;font-size: 14px;" value="<%=CarInspectionValue%>"></li>
|
</div>
|
<%Next%>
|
<%End If
|
rs.close()%>
|
<div class="os_shopname" style="height: 60px;border-top: 1px solid #f1f1f1;"><textarea id="DispatchOrdRemarks" name="DispatchOrdRemarks" style="width:98%;font-size: 14px;border: none;height: 58px;" placeholder="请输入备注说明"><%=DispatchOrdRemarks%></textarea></div>
|
<%End If%>
|
|
</form>
|
</div>
|
<!--设备选择-->
|
<div id="m_Equipment" style="display:none;">
|
<div class="search-box fixed">
|
<div class="inner-search-box">
|
<div class="search-box-o flexbox">
|
<div class="flexItem">
|
<div class="search-input-box flexbox">
|
<div class="flexItem">
|
<input type="text" class="tosearch-input" id="StItmSearchTXT" name="StItmSearchTXT" placeholder="输入【项目】搜索" value="<%=StItmSearchTXT%>" onkeypress="EnterPress_StItm(event)" onkeydown="EnterPress_StItm()"/>
|
</div>
|
</div>
|
</div>
|
<div class="search_more">
|
<a id="toletter_search" class="search_letter_btn" onclick="closeEquipment()"> </a>
|
</div>
|
</div>
|
</div>
|
</div>
|
<div id="tomain" class="wrap_inner">
|
<div class="search-box-height search-box-height-to" style="height: 50px;"></div>
|
<div class="address_list">
|
<div class="tolist" id="StItmList">
|
|
<div class="settings-item">
|
<div class="inner-settings-item flexbox to">
|
<div class="title flexItem"><p class="name">正在加载中...</p></div>
|
</div>
|
</div>
|
|
</div>
|
</div>
|
</div>
|
</div>
|
<script>
|
function showEquipment(){
|
document.getElementById('m_Orer').style.display='none';
|
document.getElementById('m_Equipment').style.display='';
|
window.HiddenFrame.location.replace('StItmSearch.gds?OrdClass=<%=DispatchOrdClass%>');
|
}
|
function closeEquipment(){
|
document.getElementById('m_Orer').style.display='';
|
document.getElementById('m_Equipment').style.display='none';
|
//alert(document.getElementById("DispatchOrdEquipment").scrolltop);
|
document.body.scrollTop=1000;
|
}
|
//选择设备查询
|
function JS_StItmSearch()
|
{
|
StItmSearchTXT=document.all.StItmSearchTXT.value;
|
window.HiddenFrame.location.replace('StItmSearch.gds?OrdClass=<%=DispatchOrdClass%>&StItmSearchTXT='+StItmSearchTXT);
|
}
|
function EnterPress_StItm(e){ //传入 event
|
var e = e || window.event;
|
if(e.keyCode == 13){JS_StItmSearch();}
|
}
|
//选择设备
|
function JS_StItmSave(StItmID,strItmName,strItmUnit)
|
{
|
Equipment_other=document.getElementById("Equipment_other").innerHTML;
|
Equipment_other=Equipment_other+"<div class='os_shopname' style='border-bottom: initial;'>";
|
Equipment_other=Equipment_other+"<li class='m_Equipment'>"+strItmName+"</li>";
|
Equipment_other=Equipment_other+"<input name='strItmID' type='hidden' value='"+StItmID+"'>";
|
Equipment_other=Equipment_other+"<li class='m_Equipment'><input type='number' id='EquipmentUseSituation_"+StItmID+"' name='EquipmentUseSituation_"+StItmID+"' style='width:60%;font-weight: 700;font-size: 14px;text-align:right;' value=''> "+strItmUnit+"</li>";
|
Equipment_other=Equipment_other+"<input name='EquipmentDefault_"+StItmID+"' type='hidden' value=''>";
|
Equipment_other=Equipment_other+"</div>";
|
document.getElementById("Equipment_other").innerHTML=Equipment_other;
|
closeEquipment();
|
}
|
//显示设备列表窗口
|
function JS_StItmList(StItmListArray,acc1,acc2,StItmSearchTXT)
|
{
|
var StItmListHTML = "";
|
var i = 0;
|
if (StItmListArray.length>0)
|
{
|
for (var i=0;i<StItmListArray.length;i++)
|
{
|
StItmListHTML = StItmListHTML+"<div class='settings-item' onclick='JS_StItmSave("+StItmListArray[i][0]+",\""+StItmListArray[i][1]+"\",\""+StItmListArray[i][2]+"\")'><div class='inner-settings-item flexbox to'><div class='title flexItem'><p class='name'>"+StItmListArray[i][1]+"</p></div></div></div>";
|
}
|
}
|
if (acc2>1)
|
{
|
i=i+1;
|
StItmListHTML = StItmListHTML+"<div class='settings-item'><div class='inner-settings-item flexbox to'><div class='title flexItem'><p class='name'>";
|
if (acc1>1){StItmListHTML = StItmListHTML+"<a href='javascript:window.HiddenFrame.location.replace(\"StItmSearch.gds?OrdClass=<%=DispatchOrdClass%>&StItmSearchTXT="+StItmSearchTXT+"&page="+(acc1-1)+"\");'>上一页</a>";}else{StItmListHTML = StItmListHTML+" ";}
|
if (acc1<acc2){StItmListHTML = StItmListHTML+" <a href='javascript:window.HiddenFrame.location.replace(\"StItmSearch.gds?OrdClass=<%=DispatchOrdClass%>&StItmSearchTXT="+StItmSearchTXT+"&page="+(acc1+1)+"\");'>下一页</a></p></div></div></div>";}else{StItmListHTML = StItmListHTML+"</p></div></div></div>";}
|
}
|
document.getElementById("StItmList").innerHTML=StItmListHTML;
|
|
}
|
</script>
|
<!--设备选择 end-->
|
|
<div style="height:10px;"></div>
|
|
|
<%'已返回,准备提交审核
|
If (DispatchOrdState=8 Or DispatchOrdState=9) And (CInt(session("adminID"))=CInt(EntourageLeadID) Or OA_DKP="" Or isnull(OA_DKP) Or is_AdminOrd=1) And (DispatchOrdIsEnd<=0 or DispatchOrd_AP_Check<=0 Or datediff("d",DispatchOrd_AP_Time,Date())<3 Or OA_DKP="" Or isnull(OA_DKP)) then%>
|
<div class="posi" style="position: initial;">
|
<div class="ljgm"><a href="javascript:form1_submit33_1()" class="bttt" style="color: #fff;background: #9a6d92;font-weight: 700;">提交报告单</a></div>
|
</div>
|
<script LANGUAGE="javascript">
|
function form1_submit33_1()
|
{
|
<%If OrderItmIDs<>"" and DispatchOrdClass="SA" Then
|
OrderItmIDSP = SPLIT(OrderItmIDs,"|")
|
for i = 1 to UBOUND(OrderItmIDSP)
|
OrderItmIDform=OrderItmIDform&" || document.form1.EquipmentUseSituation_"&OrderItmIDSP(i)&".value==''"
|
Next
|
OrderItmIDform=Mid(OrderItmIDform,5)
|
%>
|
if(<%=OrderItmIDform%>) {
|
alert('请填写耗材使用情况!!');
|
return false;
|
}
|
<%end if%>
|
if(confirm("确定提交审核？"))
|
{
|
document.form1.action = "admin_save.gds";
|
<%if CInt(session("adminID"))=CInt(EntourageLeadID) Or is_AdminOrd=1 then%>
|
document.form1.admin_save.value = "33";
|
<%else%>
|
document.form1.admin_save.value = "33_1";
|
<%end if%>
|
form1.submit();
|
}
|
}
|
</script>
|
<%End if%>
|
|
<IFRAME id="HiddenFrame" name="HiddenFrame" WIDTH=0 HEIGHT=0 MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no BORDERCOLOR=#ffffff></IFRAME>
|
</body>
|
</html>
|
