<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
DispatchOrdID=SafeRequest(Request("DispatchOrdID"))
|
ServiceOrdID=SafeRequest(Request("ServiceOrdID"))
|
Phone=SafeRequest(Request("Phone"))
|
OrdClass=SafeRequest(Request("OrdClass"))
|
admin_save=SafeRequest(Request("admin_save"))
|
|
OrdClassList=SafeRequest(Request("OrdClassList"))
|
OrdDateType=SafeRequest(Request("OrdDateType"))
|
NEWOrder=SafeRequest(Request("NEWOrder"))
|
|
If DispatchOrdID="" Then Response.Redirect "/"
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
'调度单
|
If DispatchOrdID<>"" then
|
sql="select * from DispatchOrd where 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") '完成报告提交情况
|
DispatchOrdPerfomance = rs("DispatchOrdPerfomance") '订单绩效(默认等于订单金额)
|
CarStItm = rs("CarStItm") '出车物品清单
|
CarStItm_OAId = rs("CarStItm_OAId") '检查人ID
|
StretcherMoney = rs("StretcherMoney") '担架费
|
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) '调度单编号
|
If InStr(session("admin_OrderClass"),DispatchOrdClass)>0 Then
|
'Call OA_Running("打开服务单:"&ServiceOrdNo&" ID:"&ServiceOrdID)
|
Else
|
Call OA_Running("打开调度单失败:"&ServiceOrdNo&" ID:"&ServiceOrdID)
|
Response.Redirect "/"
|
Response.End()
|
End If
|
End If
|
rs.close()
|
End If
|
|
'受理单
|
If ServiceOrdID<>"" then
|
sql="select ServiceOrdID,ServiceOrdClass,ServiceOrdState,ServiceOrdType,ServiceOrdStartDate,ServiceOrdTraStreet,ServiceOrdTraEnd,ServiceOrdTraVia,ServiceOrdCoName,ServiceOrdCoPhone,ServiceOrd_CC_Time,ServiceOrdNo,ServiceOrdTraUnitPrice,ServiceOrdTraTxnPrice=ServiceOrdTraTxnPrice+isnull((select sum(AddMoney) from PaidMoney_Add,DispatchOrd where AddMoneyType=1 and ToDispatchOrdID=DispatchOrdID and ServiceOrdID=ServiceOrdIDDt),0),ServiceOrdOperationRemarks,ServiceOrdTraDistance,OrderLevel from ServiceOrder where ServiceOrdID="&ServiceOrdID
|
rs.open sql,objConn,1,1
|
If not rs.Eof then
|
ServiceOrdID = rs("ServiceOrdID")
|
ServiceOrdClass = rs("ServiceOrdClass")
|
ServiceOrdState = rs("ServiceOrdState")
|
ServiceOrdType = rs("ServiceOrdType")
|
ServiceOrdStartDate = rs("ServiceOrdStartDate")
|
ServiceOrdTraStreet = rs("ServiceOrdTraStreet")
|
ServiceOrdTraEnd = rs("ServiceOrdTraEnd")
|
ServiceOrdCoName = rs("ServiceOrdCoName") '受理单联系人
|
ServiceOrdCoPhone = rs("ServiceOrdCoPhone") '受理单联系电话
|
ServiceOrdTraUnitPrice= rs("ServiceOrdTraUnitPrice")'单价
|
ServiceOrdTraTxnPrice=rs("ServiceOrdTraTxnPrice") '成交价
|
OrderLevel = rs("OrderLevel")
|
ServiceOrdOperationRemarks=rs("ServiceOrdOperationRemarks")
|
ServiceOrdTraDistance=rs("ServiceOrdTraDistance") '计价里程
|
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
|
ServiceOrdNo = ServiceOrdClass& year(rs("ServiceOrd_CC_Time"))&Right("0"&month(rs("ServiceOrd_CC_Time")),2)&Right("0"&day(rs("ServiceOrd_CC_Time")),2) & "-"&Right("00"&rs("ServiceOrdNo"),3)
|
End If
|
rs.close()
|
End If
|
|
'各种返回信息
|
SystemMessageType=trim(Request("SystemMessageType"))
|
SMT=trim(Request("SMT"))
|
error=trim(Request("error"))
|
if SystemMessageType<>"" then
|
if SMT="1" then
|
SystemMessageTXT="数据不完整!!"
|
elseif SMT="2" then
|
SystemMessageTXT="单据已经保存完成,请不要重复提交单据!!"
|
elseif SMT="3" then
|
SystemMessageTXT="保存完成!!"
|
elseif SMT="4" then
|
SystemMessageTXT="转运完成报告单提交完成!!"
|
elseif SMT="5" then
|
SystemMessageTXT="转运完成报告单审核完成!!"
|
elseif SMT="6" then
|
SystemMessageTXT="转运完成报告单反审核完成!!"
|
elseif SMT="7" then
|
SystemMessageTXT="已强制完结调度单!!请填写转运完成报告单"
|
elseif SMT="8" then
|
SystemMessageTXT="修改绩效完成"
|
elseif SMT="9" then
|
SystemMessageTXT="重发确认推送完成"
|
end if
|
end if
|
|
'行驶里程
|
If DispatchOrdMileage=0 And DispatchOrdTraStreetMileage<>0 And DispatchOrdTraEndMileage<>0 Then
|
DispatchOrdMileage1=DispatchOrdTraEndMileage-DispatchOrdTraStreetMileage
|
Else
|
DispatchOrdMileage1=DispatchOrdMileage
|
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 DispatchOrdClass="" Then DispatchOrdClass="SA"
|
If ServiceOrdID="" Then ServiceOrdClass="BF"
|
If OrdClass<>"" Then
|
DispatchOrdClass=OrdClass
|
OrdClassName=OrderClassA(OrdClass)
|
Else
|
OrdClass=DispatchOrdClass
|
OrdClassName=OrderClassA(OrdClass)
|
End If
|
If DispatchOrdID="" Then
|
DispatchOrdID_TXT="[系统自动生成]"
|
Else
|
DispatchOrdID_TXT=DispatchOrdNo
|
End If
|
If ServiceOrdID<>"" Then
|
ServiceOrdIDDt_TXT=ServiceOrdNo
|
End if
|
If DispatchOrdState="" Then DispatchOrdState=0
|
If DispatchOrdStartDate="" Then DispatchOrdStartDate=Now()
|
If DispatchOrd_NS_Time="" Then DispatchOrd_NS_Time=Now()
|
DispatchIs="1"
|
If isnull(DispatchOrdTraStreet) Or DispatchOrdTraStreet="" Then DispatchOrdTraStreet=ServiceOrdTraStreet
|
If isnull(DispatchOrdTraEnd) Or DispatchOrdTraEnd="" Then DispatchOrdTraEnd=ServiceOrdTraEnd
|
If DispatchOrdCarID<>"" And DispatchOrdCarID<>"0" Then DispatchOrdCarLicense=CarDataA(DispatchOrdCarID,"","CarLicense")
|
If DispatchOrd_AP_Check="" Then DispatchOrd_AP_Check=0
|
If DispatchOrdPerfomance="" Or isnull(DispatchOrdPerfomance) Then DispatchOrdPerfomance=ServiceOrdTraTxnPrice
|
If TimeLength_Program="" Then TimeLength_Program=0 '大型活动保障时长
|
If TimeLength_ICU="" Then TimeLength_ICU=0 '居家ICU时长
|
If TimeLength_Wait="" Then TimeLength_Wait=0 '等待时长
|
|
|
'审核状态
|
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 = DispatchOrdStateA(11)
|
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_CheckTXT<>"" Then DispatchOrd_CheckTXT="（"&DispatchOrd_CheckTXT&" ）"
|
'是否可审核
|
If DispatchOrdIsEnd=0 Then
|
DispatchOrd_AP_Check=-1
|
End If
|
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
|
|
is_User=session("is_User")
|
%>
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<head>
|
<title><%=LindemanAdmin%></title>
|
<!--#include virtual="/inc/ccs.gds"-->
|
<!-- scripts (custom) -->
|
<script src="resources/scripts/smooth.js" type="text/javascript"></script>
|
<script src="resources/scripts/smooth.menu.js" type="text/javascript"></script>
|
<script src="resources/scripts/smooth.table.js" type="text/javascript"></script>
|
<script src="resources/scripts/smooth.form.js" type="text/javascript"></script>
|
<script src="resources/scripts/smooth.dialog.js" type="text/javascript"></script>
|
<script src="resources/scripts/smooth.autocomplete.js" type="text/javascript"></script>
|
<script src="resources/scripts/Menu.js" type="text/javascript"></script>
|
<script type="text/javascript">
|
$(document).ready(function () {
|
style_path = "resources/css/colors";
|
|
//$("#date-picker").datepicker();
|
|
//$("#box-tabs, #box-left-tabs").tabs();
|
});
|
</script>
|
</head>
|
<body onkeydown="xKeyEvent(event)">
|
<!--#INCLUDE FILE="menu_header.gds" -->
|
<!-- content -->
|
<div id="content">
|
<%If is_User="1" then%>
|
<!--#INCLUDE FILE="User_menu_left.gds" -->
|
<%else%>
|
<!--#INCLUDE FILE="Dispatch_menu_left.gds" -->
|
<%End if%>
|
<!-- content / right -->
|
<div id="right">
|
<!-- messages -->
|
|
<!-- forms -->
|
<div class="box">
|
<!-- box / title -->
|
<div class="title">
|
<h5>转运完成报告单</h5>
|
<ul class="links">
|
<%If DispatchOrdID<>"" then%><li><a href="DispatchOrder.gds?DispatchOrdID=<%=DispatchOrdID%>&h_menu1_1=1"><%=OrdClassName%></a></li><%End if%>
|
<%
|
if PositionURLID="1" then PositionURLID=11
|
ReturnURL=session("PositionURL"&PositionURLID)
|
If ReturnURL="" Then
|
ReturnURL="javascript:window.history.go(-1)"
|
elseif InStr(ReturnURL,"?")<1 then
|
ReturnURL=ReturnURL&"?ReturnURLID="&(PositionURLID)
|
else
|
ReturnURL=ReturnURL&"&ReturnURLID="&(PositionURLID)
|
end if
|
%>
|
<li><a href="<%=ReturnURL%>">返回</a></li>
|
</ul>
|
</div>
|
<!-- end box / title -->
|
<!--#include virtual="/inc/SystemMessages.gds" -->
|
<form id="form1" name="form1" action="admin_save.gds" method="post" style="min-width: 1110px;">
|
<input name="admin_save" type="hidden" value="">
|
<input name="DispatchOrdID" type="hidden" value="<%=DispatchOrdID%>">
|
<input name="ServiceOrdID" type="hidden" value="<%=ServiceOrdID%>">
|
<input name="EntourageLeadID" type="hidden" value="<%=EntourageLeadID%>">
|
<input name="DispatchOrd_Check" type="hidden" value="">
|
<input name="weixin" type="hidden" value="0">
|
<div class="form">
|
<div class="fields">
|
<div class="field field-first">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">单据编号:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<input type="text" id="DispatchOrdID_TXT" name="DispatchOrdID_TXT" class="small <%If DispatchOrdState=10 then%>error<%else%>valid<%End if%>" style="width:138px;" value="<%=DispatchOrdID_TXT%>" readonly="true">
|
</div>
|
<div class="label" style="float: left;margin-left: 231px;">
|
<label for="input-small">受理单号:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 75px;">
|
<input type="text" id="ServiceOrdIDDt_TXT" name="ServiceOrdIDDt_TXT" class="small <%If ServiceOrdState=4 then%>error<%else%>valid<%End if%>" style="width:138px;" value="<%=ServiceOrdIDDt_TXT%>" readonly="true">
|
</div>
|
<div class="label" style="float: left;margin-left: 455px;">
|
<label for="input-small">调度状态:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 75px;">
|
<input type="text" id="ServiceOrdStateTXT" name="ServiceOrdStateTXT" class="small <%If DispatchOrdState=10 then%>error<%else%>valid<%End if%>" style="width:345px;" value="<%=DispatchOrdStateA(DispatchOrdState)&DispatchOrd_CheckTXT%>" readonly="true">
|
</div>
|
</div>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">派遣车辆:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<input id="DispatchOrdCarID" name="DispatchOrdCarID" type="hidden" value="<%=DispatchOrdCarID%>">
|
<input type="text" id="DispatchOrdCarLicense" name="DispatchOrdCarLicense" class="small valid" style="width:138px;" value="<%=DispatchOrdCarLicense%>" readonly="true">
|
</div>
|
<div class="label" style="float: left;margin-left: 231px;">
|
<label for="input-small">派单时间:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 75px;">
|
<input type="text" id="DispatchOrd_NS_Time" name="DispatchOrd_NS_Time" class="small valid" style="width:138px;" value="<%=DispatchOrd_NS_Time%>" readonly="true">
|
</div>
|
<div class="label" style="float: left;margin-left: 455px;">
|
<label for="input-small">拟出发时间:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 75px;">
|
<input type="text" id="DispatchOrdTraSDTime" name="DispatchOrdTraSDTime" class="small valid" style="width:122px;" value="<%=DispatchOrdTraSDTime%>" readonly="true">
|
</div>
|
<div class="label" style="float: left;margin-left:673px;">
|
<label for="input-small">实出发时间:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 84px;">
|
<input type="text" id="DispatchOrdActualDate" name="DispatchOrdActualDate" class="small valid" style="width:122px;" value="<%=DispatchOrdActualDate%>" readonly="true">
|
</div>
|
</div>
|
<div class="field">
|
<%
|
'更新提成数据
|
Call EntourageDKP_Money_C2(DispatchOrdID)
|
|
sql="select DispatchOrd_Entourage.id,EntourageOAid,EntourageLead,OA_weixinUserID,EntourageState,EntourageState_Time,EntourageP1,OA_Name,OA_weixinAvatar,OA_EmployeeGroup,vtext,EntourageOT_is,EntourageOT2_is,Entourage_Time,EntourageLong_is,EntourageBetimesHH,EntourageOther,EntourageDKP,EntourageDKPScale,EntourageMileageFactor,EntourageEnd_Time,DKPEdit_Reason,DKPEdit_Time,DKPEdit_OAid,Stretcher_is,ConversionDistance,EntourageOT_Money,Stretcher_Money,Condition_Money,EntourageMileageEdit from DispatchOrd_Entourage,OA_User,dictionary where vtitle='DispatchOrdEntourage' and EntourageID=vID and OA_User_ID=EntourageOAid and EntourageState<>4 and DispatchOrdIDDt="&DispatchOrdID
|
rs.open sql,objConn,1,1
|
i=0
|
DKP_Edit=""
|
DKPEnd_is=0
|
do while not rs.Eof And i<10
|
EId = rs("id")
|
EntourageOAid = rs("EntourageOAid") 'OAid
|
Entourage_Time = rs("Entourage_Time") '首次下发时间
|
EntourageLead = rs("EntourageLead") '是否领队
|
OA_weixinUserID = rs("OA_weixinUserID") '微信ID
|
OA_Name = rs("OA_Name") '人员姓名
|
OA_weixinAvatar = rs("OA_weixinAvatar") '头像
|
OA_EmployeeGroup = rs("OA_EmployeeGroup")
|
EntourageName = rs("vtext") '职能名称
|
EntourageState = rs("EntourageState") '确认状态
|
EntourageState_Time= rs("EntourageState_Time")'确认时间
|
EntourageOT_is = rs("EntourageOT_is") '是否加班
|
EntourageOT2_is = rs("EntourageOT2_is") '是否加班出车
|
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")'修改提成/计提里程
|
If EntourageLong_is=1 And EntourageState_Time>="2021-1-1" Then Condition_is=0
|
OrdTypeB=1
|
|
If EntourageEnd_Time="" Or isnull(EntourageEnd_Time) Then
|
EntourageEnd_is=" (个人未确认)"
|
DKPEnd_is=1
|
Else
|
EntourageEnd_is=" (个人已确认)"
|
End If
|
|
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=""
|
ElseIf OrdTypeB=2 Then
|
EntourageDKP_Money=DispatchOrdPerfomance
|
EntourageMileageFactor=""
|
Else
|
'加班出车绩效1.1倍,超12点出车1.2倍
|
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("2022-9-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&"<br>"&ServiceOrdTraTxnPrice&"*"&FormatPercent(EntourageDKPScale,1)&EntourageDKPOTScaleTXT
|
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
|
|
EntourageDKP_TXT=EntourageDKP_TXT&"<br>"&ServiceOrdTraUnitPrice*300&"*"&DKPScale&"%"&EntourageDKPOTScaleTXT
|
DKP_Money=ServiceOrdTraUnitPrice*300*(DKPScale/100)
|
|
EntourageDKP_TXT=EntourageDKP_TXT&"+"&FormatNumber(ServiceOrdTraTxnPrice-(ServiceOrdTraUnitPrice*300),0,,,0)&"*"&DKPScale1&"%"&EntourageDKPOTScaleTXT
|
DKP_Money=DKP_Money+((ServiceOrdTraTxnPrice-(ServiceOrdTraUnitPrice*300))*(DKPScale1/100))
|
|
If clng(DKP_Money+1)<clng(ServiceOrdTraTxnPrice*EntourageDKPScale) Then '特殊
|
EntourageDKP_TXT=EntourageDKP_TXT&"+"&ServiceOrdTraTxnPrice&"*"&FormatNumber(((ServiceOrdTraTxnPrice*EntourageDKPScale)-DKP_Money)/ServiceOrdTraTxnPrice*100,0,,,0)&"%"&EntourageDKPOTScaleTXT
|
End If
|
'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
|
If EntourageOT_Money=30 And (DKPEdit_Reason="" Or isnull(DKPEdit_Reason)) And OrdTypeB<>2 Then '2022.7.1 加班30元/次
|
EntourageDKP_TXT=EntourageDKP_TXT&"+"&EntourageOT_Money
|
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="float: left; margin:5px 3px;min-height: 70px;width: 215px;border-right: 1px solid #DDDDDD;">
|
<input name="EId" type="hidden" value="<%=EId%>">
|
<div class="os_name" style="height: initial;line-height: 25px;">
|
<label style='font-weight: bold;'><%=OA_Name%></label><%If EntourageLead="1" then%><img src='/resources/images/2016020401.png' style="height: 10px;width: 10px;float: none;"><%End if%> <%=EntourageName%><%=EntourageEnd_is%> <%=EntourageMileageFactor%><br>
|
<input type="checkbox" id="EntourageLong_is_<%=Eid%>" name="EntourageLong_is_<%=Eid%>" value="1"<%If EntourageLong_is="1" Then Response.Write " checked=""checked"""%>><label for="EntourageLong_is_<%=Eid%>">跟车</label>
|
<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>
|
|
<%If CDate(DispatchOrd_NS_Time)<CDate("2019-11-25") Then%>
|
<br>
|
<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>
|
<label>提前<input type="text" id="EntourageBetimesHH_<%=Eid%>" name="EntourageBetimesHH_<%=Eid%>" style="width:26px;text-align:center;" class="small<%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" value="<%=EntourageBetimesHH%>" placeholder="__">小时
|
<%ElseIf CDate(DispatchOrd_NS_Time)<CDate("2021-4-1") Then%>
|
<br>
|
<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>
|
<%ElseIf OrderLevel="2" Then%>
|
<input type="checkbox" style="float: none;" id="EntourageOT_is_<%=Eid%>" name="EntourageOT_is_<%=Eid%>" value="1"<%If EntourageOT_is="1" Then Response.Write " checked=""checked"""%><%If OA_EmployeeGroup="3" Then Response.Write " disabled"%>><label for="EntourageOT_is_<%=Eid%>">加班补贴</label>
|
<input type="checkbox" style="float: none;" id="EntourageOT2_is_<%=Eid%>" name="EntourageOT2_is_<%=Eid%>" value="1"<%If EntourageOT2_is="1" Then Response.Write " checked=""checked"""%><%If OA_EmployeeGroup="3" Then Response.Write " disabled"%>><label for="EntourageOT2_is_<%=Eid%>">加班绩效</label>
|
<br>
|
<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%>">Z提前返回</label>
|
<%ElseIf OrdTypeB=2 Then%>
|
<br><input type="checkbox" style="float: none;" 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>
|
<%Else%>
|
<br><input type="checkbox" style="float: none;" id="EntourageOT_is_<%=Eid%>" name="EntourageOT_is_<%=Eid%>" value="1"<%If EntourageOT_is="1" Then Response.Write " checked=""checked"""%><%If OA_EmployeeGroup="3" Then Response.Write " disabled"%>><label for="EntourageOT_is_<%=Eid%>">加班补贴</label>
|
<input type="checkbox" style="float: none;" id="EntourageOT2_is_<%=Eid%>" name="EntourageOT2_is_<%=Eid%>" value="1"<%If EntourageOT2_is="1" Then Response.Write " checked=""checked"""%><%If OA_EmployeeGroup="3" Then Response.Write " disabled"%>><label for="EntourageOT2_is_<%=Eid%>">加班绩效</label>
|
<%End If%>
|
<br>
|
<%=EntourageDKP_TXT%>
|
<!-- 其它<input type="text" id="EntourageOther_<%=Eid%>" name="EntourageOther_<%=Eid%>" style="width:80px;" class="small<%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" value="<%=EntourageOther%>" placeholder="______________">--></label>
|
</div>
|
</div>
|
<%i=i+1
|
rs.movenext
|
loop
|
rs.close()%>
|
</div>
|
<%'手动修改绩效提成
|
If DispatchOrdID<>"" And DispatchOrd_AP_Check<>"1" And isDepartment("030119")=1 then%>
|
<div class="field" style="height: 45px;border-bottom: initial;" id="DKP">
|
<div class="buttons" style="margin: auto;">
|
<div class="highlight">
|
<input type="button" name="submit48_2" value="修改绩效计提" class="ui-state-default" onclick="JS_DKPOpen('<%=DispatchOrdID%>');">
|
<%If DKPEnd_is="1" Then%> <input type="button" name="submit33_2" value="重发确认推送" class="ui-state-default" onclick="JS_message_send_DispatchOrder_end('<%=DispatchOrdID%>');"><%End If%>
|
</div>
|
</div>
|
</div>
|
<%End If
|
'手动修改绩效提成---------end%>
|
<div class="field">
|
<input type="hidden" id="DispatchOrdPerfomance" name="DispatchOrdPerfomance" value="<%=DispatchOrdPerfomance%>">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">运转时间:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 73px;">
|
<input type="text" id="DispatchOrdActualDate" name="DispatchOrdActualDate" class="small<%If InStr(error,",DispatchOrdActualDate,")>0 Then Response.Write " error"%><%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" style="width:138px;" value="<%=DispatchOrdActualDate%>"<%If DispatchOrd_AP_Check=1 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left: 231px;">
|
<label for="input-small">至</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 24px;">
|
<input type="text" id="DispatchOrdReturnDate" name="DispatchOrdReturnDate" class="small<%If InStr(error,",DispatchOrdReturnDate,")>0 Then Response.Write " error"%><%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" style="width:138px;" value="<%=DispatchOrdReturnDate%>"<%If DispatchOrd_AP_Check=1 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left:439px;">
|
<label for="input-small">结果:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 74px;">
|
<select name="DispatchOrdResult" id="DispatchOrdResult" style="width:70px;" class="select1" 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>
|
</div>
|
<div class="input" style="float:left;margin-left: 1px;">
|
<input type="text" id="DispatchOrdResult_0" name="DispatchOrdResult_0" class="small<%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" style="width:89px;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>
|
</div>
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left:0px;">
|
<label for="input-small">开始里程数:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 72px;">
|
<input type="text" id="DispatchOrdTraStreetMileage" name="DispatchOrdTraStreetMileage" class="small<%If DispatchOrd_AP_Check=1 Or isDepartment("030112")=0 Then Response.Write " valid"%>" style="width:55px;" value="<%=DispatchOrdTraStreetMileage%>"<%If DispatchOrd_AP_Check=1 Or isDepartment("030112")=0 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left:140px;">
|
<label for="input-small">公里</label>
|
</div>
|
<div class="label" style="float: left;margin-left: 178px;">
|
<label for="input-small">结束里程数:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 105px;">
|
<input type="text" id="DispatchOrdTraEndMileage" name="DispatchOrdTraEndMileage" class="small<%If DispatchOrd_AP_Check=1 Or isDepartment("030112")=0 Then Response.Write " valid"%>" style="width:55px;" value="<%=DispatchOrdTraEndMileage%>"<%If DispatchOrd_AP_Check=1 Or isDepartment("030112")=0 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left:317px;">
|
<label for="input-small">公里</label>
|
</div>
|
<div class="label" style="float: left;margin-left:362px;">
|
<label for="input-small">转运实际里程（往返）:<%=DispatchOrdMileage%>公里</label>
|
</div>
|
<div class="label" style="float: left;margin-left: 546px;">
|
<label for="input-small">预估距离:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 286px;">
|
<input type="text" id="ServiceOrdTraDistance" name="ServiceOrdTraDistance" class="small<%If DispatchOrd_AP_Check=1 Or isDepartment("030112")=0 Then Response.Write " valid"%>" style="width:45px;" value="<%=ServiceOrdTraDistance%>"<%If DispatchOrd_AP_Check=1 Or isDepartment("030112")=0 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left:666px;">
|
<label for="input-small">公里</label>
|
</div>
|
</div>
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">实际行程:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 73px;">
|
<input type="text" id="DispatchOrdTraStreet" name="DispatchOrdTraStreet" class="small<%If InStr(error,",DispatchOrdTraStreet,")>0 Then Response.Write " error"%><%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" style="width:380px;" value="<%=DispatchOrdTraStreet%>"<%If DispatchOrd_AP_Check=1 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left: 470px;">
|
<label for="input-small">至</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 24px;">
|
<input type="text" id="DispatchOrdTraEnd" name="DispatchOrdTraEnd" class="small<%If InStr(error,",DispatchOrdTraEnd,")>0 Then Response.Write " error"%><%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" style="width:380px;" value="<%=DispatchOrdTraEnd%>"<%If DispatchOrd_AP_Check=1 Then Response.Write " readonly=""true""" %>>
|
</div>
|
</div>
|
|
<div class="field" style="height: 25px;">
|
<div class="label" style="float: left;margin-left:0px;">
|
<label for="input-small">大型活动保障时长:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 110px;">
|
<input type="text" id="TimeLength_Program" name="TimeLength_Program" class="small<%If DispatchOrd_AP_Check=1 Or isDepartment("030112")=0 Then Response.Write " valid"%>" style="width:28px;" value="<%If TimeLength_Program<1 And TimeLength_Program>0 Then response.write "0"&TimeLength_Program Else response.write TimeLength_Program End If%>"<%If DispatchOrd_AP_Check=1 Or isDepartment("030112")=0 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left:152px;">
|
<label for="input-small">小时</label>
|
</div>
|
<div class="label" style="float: left;margin-left:220px;">
|
<label for="input-small">居家ICU时长:</label>
|
</div>
|
<div class="input" style="float:left;margin-left:148px;">
|
<input type="text" id="TimeLength_ICU" name="TimeLength_ICU" class="small<%If DispatchOrd_AP_Check=1 Or isDepartment("030112")=0 Then Response.Write " valid"%>" style="width:28px;" value="<%If TimeLength_ICU<1 And TimeLength_ICU>0 Then response.write "0"&TimeLength_ICU Else response.write TimeLength_ICU End If%>"<%If DispatchOrd_AP_Check=1 Or isDepartment("030112")=0 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left:345px;">
|
<label for="input-small">小时</label>
|
</div>
|
<div class="label" style="float: left;margin-left:413px;">
|
<label for="input-small">等待时长:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 126px;">
|
<input type="text" id="TimeLength_Wait" name="TimeLength_Wait" class="small<%If DispatchOrd_AP_Check=1 Or isDepartment("030112")=0 Then Response.Write " valid"%>" style="width:28px;" value="<%If TimeLength_Wait<1 And TimeLength_Wait>0 Then response.write "0"&TimeLength_Wait Else response.write TimeLength_Wait End If%>"<%If DispatchOrd_AP_Check=1 Or isDepartment("030112")=0 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left:518px;">
|
<label for="input-small">小时</label>
|
</div>
|
</div>
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">路桥费:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<input type="text" id="DispatchOrdLuqiaoFee" name="DispatchOrdLuqiaoFee" class="small<%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" style="width:40px;" value="<%=DispatchOrdLuqiaoFee%>"<%If DispatchOrd_AP_Check=1 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left: 125px;">
|
<label for="input-small">元</label>
|
</div>
|
<div class="label" style="float: left;margin-left: 160px;">
|
<label for="input-small">油费:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 75px;">
|
<input type="text" id="DispatchOrdGasolineFee" name="DispatchOrdGasolineFee" class="small<%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" style="width:40px;" value="<%=DispatchOrdGasolineFee%>"<%If DispatchOrd_AP_Check=1 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left: 256px;">
|
<label for="input-small">元</label>
|
</div>
|
<div class="label" style="float: left;margin-left: 280px;">
|
<label for="input-small">差旅费:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 75px;">
|
<input type="text" id="DispatchOrdTravelFee" name="DispatchOrdTravelFee" class="small<%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" style="width:40px;" value="<%=DispatchOrdTravelFee%>"<%If DispatchOrd_AP_Check=1 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left: 387px;">
|
<label for="input-small">元</label>
|
</div>
|
<div class="label" style="float: left;margin-left:420px;">
|
<label for="input-small">其它:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 75px;">
|
<input type="text" id="DispatchOrdOtherFee" name="DispatchOrdOtherFee" class="small<%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" style="width:40px;" value="<%=DispatchOrdOtherFee%>"<%If DispatchOrd_AP_Check=1 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<div class="label" style="float: left;margin-left: 518px;">
|
<label for="input-small">元</label>
|
</div>
|
<%If DispatchOrdOtherFee_TXT<>"" then%>
|
<div class="input" style="float:left;margin-left: 30px;">
|
<input type="text" id="DispatchOrdOtherFee_TXT" name="DispatchOrdOtherFee_TXT" class="small<%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" style="width:120px;" value="<%=DispatchOrdOtherFee_TXT%>" placeholder="请输入其它项目"<%If DispatchOrd_AP_Check=1 Then Response.Write " readonly=""true""" %>>
|
</div>
|
<%End if%>
|
</div>
|
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">氧气消耗:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 73px;">
|
<input type="text" id="DispatchOrdOxygen" name="DispatchOrdOxygen" class="small<%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" style="width:380px;" value="<%=DispatchOrdOxygen%>"<%If DispatchOrd_AP_Check=1 Then Response.Write " readonly=""true""" %>>
|
</div>
|
</div>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">易耗品:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 73px;">
|
<textarea id="DispatchOrdConsumables" name="DispatchOrdConsumables" class="small" style="width:390px;height: 70px;" placeholder="无"><%=DispatchOrdConsumables%></textarea>
|
</div>
|
</div>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">药品:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 73px;">
|
<textarea id="DispatchOrdDrugs" name="DispatchOrdDrugs" class="small" style="width:390px;height: 100px;" placeholder="无"><%=DispatchOrdDrugs%></textarea>
|
</div>
|
</div>
|
|
<div class="field" style="height: 20px;">
|
<div class="label" style="float: left;margin-left: 68px;">
|
<label for="input-small">品名</label>
|
</div>
|
<div class="label" style="float: left;margin-left: 170px;">
|
<label for="input-small">使用情况</label>
|
</div>
|
|
<div class="label" style="float: left;margin-left: 350px;">
|
<label for="input-small">品名</label>
|
</div>
|
<div class="label" style="float: left;margin-left: 465px;">
|
<label for="input-small">使用情况</label>
|
</div>
|
</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,"|")
|
%>
|
<input name="strItmID" type="hidden" value="<%=strItmID%>">
|
<input name="EquipmentDefault_<%=strItmID%>" type="hidden" value="<%=EquipmentDefault%>">
|
<input name="EquipmentPurchasePrice_<%=strItmID%>" type="hidden" value="<%=strItmPurchasePrice%>">
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 60px;">
|
<label for="input-small"><%=strItmName%></label>
|
</div>
|
<div class="input" style="float:left;margin-left: 156px;">
|
<%If UBOUND(EquipmentDefaultSP)<=1 then%>
|
<input type="text" id="EquipmentUseSituation_<%=strItmID%>" name="EquipmentUseSituation_<%=strItmID%>" class="small<%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" style="width:80px;text-align:center;" value="<%=EquipmentUseSituation%>" placeholder="<%=EquipmentDefault%>"<%If DispatchOrd_AP_Check=1 Then Response.Write " readonly=""true""" %>>
|
<%Else
|
EquipmentDefault=EquipmentDefaultSP(0)%>
|
<select name="EquipmentUseSituation_<%=strItmID%>" id="EquipmentUseSituation_<%=strItmID%>" style="width:70px;" class="select1">
|
<%for i = 0 to UBOUND(EquipmentDefaultSP)%>
|
<option value="<%=EquipmentDefaultSP(i)%>"<%if EquipmentDefaultSP(i)=EquipmentUseSituation then Response.Write " selected"%>><%=EquipmentDefaultSP(i)%></option>
|
<%next%>
|
</select>
|
<%End if%>
|
</div>
|
<div class="label" style="float: left;margin-left: 250px;">
|
<label for="input-small"><%=strItmUnit%></label>
|
</div>
|
|
<%rs.movenext
|
If not rs.Eof Then
|
strItmID = rs("strItmID")
|
strItmName = rs("strItmName")
|
strItmUnit = rs("strItmUnit")
|
strItmPurchasePrice = rs("PurchasePrice")
|
EquipmentDefault= rs("strItmRemarks")
|
EquipmentUseSituation= rs("EquipmentUseSituation")
|
EquipmentInspect= rs("EquipmentInspect")
|
EquipmentDefaultSP = SPLIT(EquipmentDefault,"|")
|
%>
|
<input name="strItmID" type="hidden" value="<%=strItmID%>">
|
<input name="EquipmentDefault_<%=strItmID%>" type="hidden" value="<%=EquipmentDefault%>">
|
<input name="EquipmentPurchasePrice_<%=strItmID%>" type="hidden" value="<%=strItmPurchasePrice%>">
|
<div class="label" style="float: left;margin-left: 350px;">
|
<label for="input-small"><%=strItmName%></label>
|
</div>
|
<div class="input" style="float:left;margin-left: 195px;">
|
<%If UBOUND(EquipmentDefaultSP)<=1 then%>
|
<input type="text" id="EquipmentUseSituation_<%=strItmID%>" name="EquipmentUseSituation_<%=strItmID%>" class="small<%If DispatchOrd_AP_Check=1 Then Response.Write " valid"%>" style="width:80px;text-align:center;" value="<%=EquipmentUseSituation%>" placeholder="<%=EquipmentDefault%>"<%If DispatchOrd_AP_Check=1 Then Response.Write " readonly=""true""" %>>
|
<%Else
|
EquipmentDefault=EquipmentDefaultSP(0)%>
|
<select name="EquipmentUseSituation_<%=strItmID%>" id="EquipmentUseSituation_<%=strItmID%>" style="width:70px;" class="select1">
|
<%for i = 0 to UBOUND(EquipmentDefaultSP)%>
|
<option value="<%=EquipmentDefaultSP(i)%>"<%if EquipmentDefaultSP(i)=EquipmentUseSituation then Response.Write " selected"%>><%=EquipmentDefaultSP(i)%></option>
|
<%next%>
|
</select>
|
<%End if%>
|
</div>
|
<div class="label" style="float: left;margin-left: 540px;">
|
<label for="input-small"><%=strItmUnit%></label>
|
</div>
|
|
<%rs.movenext
|
End if%>
|
</div>
|
<%
|
Loop
|
rs.close()%>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;padding: 0px 0 0 5px;">
|
<label for="input-small">操作备注:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 70px;">
|
<%=ServiceOrdOperationRemarks%>
|
</div>
|
</div>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">备注说明:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 73px;">
|
<textarea id="DispatchOrdRemarks" name="DispatchOrdRemarks" class="small" style="width:390px;height: 100px;" placeholder="请输入备注说明"><%=DispatchOrdRemarks%></textarea>
|
</div>
|
</div>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small">审核说明:</label>
|
</div>
|
<div class="input" style="float:left;margin-left: 73px;">
|
<input type="text" id="DispatchOrd_AP_Reason" name="DispatchOrd_AP_Reason" class="small<%If DispatchOrd_AP_Check=1 Or isDepartment("030110")=0 Then Response.Write " valid"%>" style="width:380px;" value="<%=DispatchOrd_AP_Reason%>" placeholder="请输入审核原因" <%If DispatchOrd_AP_Check=1 Or isDepartment("030110")=0 Then Response.Write " readonly=""true""" %>>
|
</div>
|
</div>
|
<%If Not isnull(CarStItm) And CarStItm<>"" Then
|
CarStItmSP = SPLIT(CarStItm,"|")
|
CarStItmHtml="<table border=1><tr><th width=""10%"">物品</th><th width=""5%"">编号</th><th width=""10%"">物品</th><th width=""5%"">编号</th><th width=""10%"">物品</th><th width=""5%"">编号</th><th width=""10%"">物品</th><th width=""5%"">编号</th><th width=""10%"">物品</th><th width=""5%"">编号</th></tr>"
|
j=1
|
for i = 1 to UBOUND(CarStItmSP)
|
CarStItmSP1 = SPLIT(CarStItmSP(i),",")
|
StItmID = CarStItmSP1(0)
|
StItmInt = CarStItmSP1(1)
|
sql="select * from tblStItm where strItmID="&StItmID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
strItmName = rs("strItmName")
|
End If
|
rs.close()
|
If j=1 Then CarStItmHtml=CarStItmHtml&"<tr>"
|
CarStItmHtml = CarStItmHtml&"<td>" & strItmName &"</td><td style=""text-align: center;"">"& StItmInt &"</td>"
|
j=j+1
|
If j>5 Then
|
CarStItmHtml=CarStItmHtml&"</tr>"
|
j=1
|
End If
|
'CarStItm = CarStItm & strItmName &" "& StItmInt &","
|
Next
|
CarStItmHtml=CarStItmHtml&"</table>"
|
%>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small" style="line-height: 20px;">出车物品清单:<br>检查人:<%=OAUser(CarStItm_OAId,"UserName")%></label>
|
</div>
|
<div class="input" style="float:left;margin-left: 85px;">
|
<%=CarStItmHtml%>
|
</div>
|
</div>
|
<%End If%>
|
|
<%'住宿申请
|
sql="select * from DispatchOrd_Hotel where DispatchOrdIDDt="&DispatchOrdID&" order by HotelDate"
|
rs.open sql,objConn,1,1
|
i=0
|
sunHotelPrice=0
|
If not rs.Eof Then
|
%>
|
<div class="field">
|
<div class="label" style="float: left;margin-left: 0px;">
|
<label for="input-small" style="line-height: 20px;">住宿申请</label>
|
</div>
|
<%
|
do while not rs.Eof
|
HotelID = rs("ID") 'ID
|
HotelDate = rs("HotelDate") '住宿日期
|
HotelName = rs("HotelName") '酒店名称
|
HotelPrice = rs("HotelPrice") '住宿价格
|
HotelRemarks = rs("HotelRemarks")'备注
|
HotelGPS_address= rs("HotelGPS_address")'
|
Hotel_OAID = rs("Hotel_OAID")
|
Hotel_OATime= rs("Hotel_OATime")'
|
|
sunHotelPrice=sunHotelPrice+HotelPrice
|
%>
|
|
<div class="input" style="margin-left: 73px;line-height: 20px;border-bottom: 1px solid #DDDDDD;">
|
住宿日期:<%=HotelDate&" "&HotelName&" "&HotelPrice&"元"%> 备注:<%=HotelRemarks%> <br>申请人:<%=OAUser(Hotel_OAID,"UserName")%> 申请时间:<%=Hotel_OATime%> 申请地点:<%=HotelGPS_address%>
|
</div><br>
|
<%rs.movenext
|
i=i+1
|
loop
|
%>
|
</div>
|
<%end If
|
rs.close()%>
|
|
<div class="field" style="height: 45px;border-bottom: initial;">
|
<div class="buttons">
|
<div class="highlight">
|
|
<%If DispatchOrd_AP_Check<=0 And DispatchOrdIsEnd<=0 And DispatchOrdState<>"10" And (DispatchOrdState="8" Or DispatchOrdState="9") And (EntourageOAidA(DispatchOrdID)=2 or isDepartment("030108")=1) then%><input type="button" name="submit48_2" value="提交报告单" class="ui-state-default" onclick="form1_submit33_1();"> <%End if%>
|
<%If DispatchOrd_AP_Check<=0 And DispatchOrdIsEnd=1 And DispatchOrdState<>"10" And (DispatchOrdState="8" Or DispatchOrdState="9") And (EntourageOAidA(DispatchOrdID)=2 or isDepartment("030108")=1) then%><input type="button" name="submit48_2" value="修改并提交报告单" class="ui-state-default" onclick="form1_submit33_1()"> <%End if%>
|
|
<%If DispatchOrdID<>"" And DispatchOrdIsEnd=1 And DispatchOrd_AP_Check="0" And isDepartment("030110")=1 then%><input type="button" name="submit48_1" value="审核通过" class="ui-state-default" onclick="form1_submit28_1();"> <input type="button" name="submit48_1" value="审核不通过" class="ui-state-default" onclick="form1_submit28_2();"> <%End if%>
|
|
<%If DispatchOrdID<>"" And DispatchOrd_AP_Check="1" And isDepartment("030124")=1 then%><input type="button" name="submit48_1" value="反审核" class="ui-state-default" onclick="form1_submit28_3();"> <%End if%>
|
</div>
|
</div>
|
</div>
|
|
</div>
|
</div>
|
</form>
|
|
|
<script LANGUAGE="javascript">
|
//提交报告单
|
function form1_submit33_1(){
|
document.form1.action = "admin_save.gds";
|
document.form1.admin_save.value = "33";
|
form1.submit();
|
}
|
//审核通过调度单(修改)
|
function form1_submit28_1(){
|
if(confirm("确定审核通过转运完成报告单?"))
|
{
|
document.form1.action = "admin_save.gds";
|
document.form1.admin_save.value = "33";
|
document.form1.DispatchOrd_Check.value = "1";
|
form1.submit();
|
}
|
}
|
//审核不通过调度单(修改)
|
function form1_submit28_2(){
|
if(confirm("确定审核不通过转运完成报告单?"))
|
{
|
document.form1.action = "admin_save.gds";
|
document.form1.admin_save.value = "33";
|
document.form1.DispatchOrd_Check.value = "4";
|
form1.submit();
|
}
|
}
|
//反审核调度单(修改)
|
function form1_submit28_3(){
|
if(confirm("确定反审核转运完成报告单?"))
|
{
|
document.form1.action = "admin_save.gds";
|
document.form1.admin_save.value = "33";
|
document.form1.DispatchOrd_Check.value = "0";
|
form1.submit();
|
}
|
}
|
</script>
|
</div>
|
<!-- end forms -->
|
|
|
<%'手动修改绩效计提
|
If DispatchOrdID<>"" And DispatchOrd_AP_Check<>"1" And isDepartment("030119")=1 then%>
|
<div class="dialogJ dialogJfix dialogJshadow" id="window_DKP" style="z-index: 50007; width:500px; left: 0px; top: 0px;display:none;">
|
<div class="dialogJtitle">
|
<a href="javascript:JS_DKPClose();" class="dialogJclose" title="关闭本窗口"> </a>
|
<input id="HospJSID" type="hidden" value="">
|
<span class="dialogJtxt">修改绩效计提</span>
|
</div>
|
<div class="dialogJcontent">
|
<div class="box">
|
<div class="table" style="padding: 0px;">
|
<form id="form_DKP" name="form_DKP" action="admin_save.gds" method="post">
|
<input name="admin_save" type="hidden" value="66">
|
<input name="DKP_DispatchOrdID" id="DKP_DispatchOrdID" type="hidden" value="">
|
<table>
|
<thead>
|
<tr>
|
<th class="category left" style="text-align: center;">姓名</th>
|
<th class="category left" style="text-align: center;"><%If CDate(DispatchOrd_NS_Time)>=CDate("2021-8-9") Then Response.Write "提成金额" Else Response.Write "计提里程" End If%></th>
|
<th class="category left" style="text-align: center;">修改理由(不填修改无效)</th>
|
</tr>
|
</thead>
|
<tbody id="Edit_DKPList">
|
<%DKP_Edit=SPLIT(DKP_Edit,"|")
|
for i=1 to UBOUND(DKP_Edit)
|
DKP_Edits=SPLIT(DKP_Edit(i),"\")
|
EId = DKP_Edits(0)
|
OA_Name = DKP_Edits(1)
|
ConversionDistance = DKP_Edits(2)
|
DKPEdit_Reason = DKP_Edits(3)
|
%>
|
<input name="DKP_EId" id="DKP_EId" type="hidden" value="<%=EId%>">
|
<tr>
|
<td class="category"><%=OA_Name%></td>
|
<td class="category"><input type="text" id="Edit_EntourageMileageEdit_<%=EId%>" name="Edit_EntourageMileageEdit_<%=EId%>" style="width:40px;text-align:center;" class="small" value="<%=ConversionDistance%>"><%If CDate(DispatchOrd_NS_Time)>=CDate("2021-8-9") Then Response.Write "元" Else Response.Write "公里" End If%></td>
|
<td class="category"><input type="text" id="Edit_DKPEdit_Reason_<%=Eid%>" name="Edit_DKPEdit_Reason_<%=Eid%>" style="width:120px;text-align:center;" class="small" value="<%=DKPEdit_Reason%>"></td>
|
</tr>
|
<%next%>
|
<tr>
|
<td class="category" colspan="3"><input type="button" name="button3" value="提交修改" onclick="JS_DKPSave();"></td>
|
</tr>
|
|
</tbody>
|
</table>
|
</form>
|
</div>
|
</div>
|
</div>
|
</div>
|
<script LANGUAGE="javascript">
|
//打开绩效窗口
|
function JS_DKPOpen(id)
|
{
|
var sTop=document.documentElement.scrollTop;
|
if (sTop==0) {sTop=document.body.scrollTop;}
|
var sLeft= document.documentElement.scrollLeft;
|
if (sLeft==0) {sLeft=document.body.scrollLeft;}
|
|
var dTop = document.getElementById("DKP").getBoundingClientRect().top;
|
if (dTop<200) {dTop=110;}
|
var dLeft = document.getElementById("DKP").getBoundingClientRect().left;
|
if (dLeft<200) {dLeft=200;}
|
window_DKP.style.display="block";
|
window_DKP.style.left=(dLeft)+"px";
|
window_DKP.style.top=(sTop+dTop)+"px";
|
document.getElementById("DKP_DispatchOrdID").value=id;
|
}
|
//关闭绩效窗口
|
function JS_DKPClose()
|
{
|
window_DKP.style.display="none";
|
}
|
//提交修改绩效
|
function JS_DKPSave()
|
{
|
form_DKP.submit();
|
}
|
//重发确认推送
|
function JS_message_send_DispatchOrder_end(ID)
|
{
|
window.location.replace('/weixin/message_send_DispatchOrder_end.gds?DispatchOrdID=<%=DispatchOrdID%>&JsonKey=PC');
|
}
|
</script>
|
<%End If%>
|
</div>
|
<!-- end content / right -->
|
</div>
|
<!-- end content -->
|
<!--#include FILE="vicgame.asp"-->
|
<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>
|
