<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
searchTXT=SafeRequest(Request("searchTXT"))
|
OrdState=SafeRequest(Request("OrdState"))
|
OrdClassList=SafeRequest(Request("OrdClassList"))
|
OrdDateType=SafeRequest(Request("OrdDateType"))
|
OrdDateStart=SafeRequest(Request("OrdDateStart"))
|
OrdDateEnd=SafeRequest(Request("OrdDateEnd"))
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
'默认显示字段
|
If OrdState="" Then OrdState=0
|
If OrdClassList="" Then OrdClassList="0"
|
If OrdClassList="0" Then
|
OrdClassName="全部"
|
Else
|
sql="select vID,vtext from dictionary where vType>=1 and vtitle='OrderClass' and vOrder2='"&OrdClassList&"'"
|
rs.open Sql,objConn,1,1
|
If not rs.Eof Then OrdClassName = rs("vtext")
|
rs.close()
|
End if
|
If OrdDateType="" Then
|
OrdDateType=4
|
OrdDateTop=" top 20 "
|
End If
|
If OrdDateType="0" then
|
If OrdDateStart="" And OrdDateEnd="" Then
|
OrdDateStart=Date()
|
OrdDateEnd=Date()&" 00:00"
|
ElseIf OrdDateStart<>"" And OrdDateEnd="" Then
|
OrdDateEnd=OrdDateStart
|
ElseIf OrdDateStart="" And OrdDateEnd<>"" Then
|
OrdDateStart=OrdDateEnd
|
End If
|
If Cdate(OrdDateStart)>Cdate(OrdDateEnd) Then
|
OrdDateStart1=OrdDateStart
|
OrdDateStart=OrdDateEnd
|
OrdDateEnd=OrdDateStart1
|
End if
|
If OrdDateStart=OrdDateEnd Then
|
OrdDateStart=FORMATDATETIME(OrdDateStart,vbShortDate)
|
OrdDateTypeName=OrdDateStart
|
OrdDateTypeName1=OrdDateTypeName
|
OrdDateEnd=FORMATDATETIME(OrdDateEnd,vbShortDate)
|
Else
|
OrdDateTypeName=OrdDateStart&" 至 "&OrdDateEnd
|
OrdDateTypeName1="时间段"
|
End If
|
SqlOrdDateType="between '"&OrdDateStart&"' and '"&OrdDateEnd&" 23:59:59'"
|
|
Else
|
sql="select vID,vtext,vOrder2 from dictionary where vType>=1 and vtitle='OrdDateType' and vID="&OrdDateType
|
rs.open Sql,objConn,1,1
|
If not rs.Eof Then
|
OrdDateTypeName = rs("vtext")
|
OrdDateTypeName1=OrdDateTypeName
|
SqlOrdDateType = rs("vOrder2")
|
Else
|
OrdDateType=4
|
OrdDateTypeName="本月"
|
OrdDateTypeName1=OrdDateTypeName
|
SqlOrdDateType="between DATEADD(mm,DATEDIFF(mm,0,getdate()),0) and dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,getdate())+1,0))"
|
End If
|
rs.close()
|
End if
|
|
'各种返回信息
|
SystemMessageType=trim(Request("SystemMessageType"))
|
SMT=trim(Request("SMT"))
|
if SystemMessageType<>"" then
|
if SMT="1" then
|
SystemMessageTXT="数据不足!!"
|
elseif SMT="2" then
|
SystemMessageTXT="创建新员工完成,默认密码:000000.点击[<a href=""/weixin/user_inviteSend.gds?OA_weixinUserID="&trim(Request("NEW_weixinUserID"))&"&departmentID="&departmentID&""">发出关注邀请</a>]关注微信OA"
|
elseif SMT="3" then
|
SystemMessageTXT="微信OA同步失败,请联系IT部!!"
|
elseif SMT="4" then
|
SystemMessageTXT="发出关注邀请完成,新员工默认密码:000000.请首次登陆后尽快修改"
|
elseif SMT="5" then
|
SystemMessageTXT="发出关注邀请失败,请点击[<a href=""/weixin/user_list.gds?departmentID="&departmentID&""">刷新数据</a>]并修改微信相关联系方式后再次发送"
|
end if
|
end if
|
|
|
If OrdState<>"0" then
|
OrdListName = DispatchOrdStateA(OrdState)&"查询"
|
Else
|
OrdListName = "里程绩效汇总 (适用于2018-12-25后)"
|
End If
|
|
'时间段列表
|
sql="select vID,vtext from dictionary where vType>=1 and vtitle='OrdDateType' order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
OrdDateTypes = OrdDateTypes & rs("vID") &","& rs("vtext") & "|"
|
rs.movenext
|
Loop
|
rs.close()
|
OrdDateTypes = left(OrdDateTypes,len(OrdDateTypes)-1)
|
OrdDateTypesPS = SPLIT(OrdDateTypes,"|")
|
|
'单据类型表列
|
OrdClassTypes = "0,全部|"
|
sql="select vID,vtext,vOrder2 from dictionary where vType=1 and vtitle='OrderClass' order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
OrdClassTypes = OrdClassTypes & rs("vOrder2") &","& rs("vtext") & "|"
|
rs.movenext
|
Loop
|
rs.close()
|
OrdClassTypes = left(OrdClassTypes,len(OrdClassTypes)-1)
|
OrdClassTypesPS = SPLIT(OrdClassTypes,"|")
|
|
page_URL="&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&searchTXT="&searchTXT&"&h_menu1_1=1"
|
%>
|
<!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"-->
|
<script src="/js/jquery-1.7.1.min.js" type="text/javascript"></script>
|
<script type="text/javascript">
|
$(function () {
|
$("#div2").css("overflow-x", "scroll").height(16).width($("#div1").width()+20); //设置一个高度10的DIV2层 长度与DIV1层一致
|
$("#div2").html($("#div1").html()); //并给DIV2层填充内容
|
|
$("#div2").scroll(function () {
|
$("#div1")[0].scrollLeft = $("#div2")[0].scrollLeft; //拉动DIV2层滚动条，DIV1层滚动条同步被改变
|
});
|
});
|
</script>
|
</head>
|
<body onkeydown="xKeyEvent(event)">
|
<!--#INCLUDE FILE="menu_header.gds" -->
|
<!-- content -->
|
<div id="content">
|
<!--#INCLUDE FILE="Report_menu_left.gds" -->
|
<!-- content / right -->
|
<div id="right">
|
<!-- table -->
|
<div class="box">
|
<!-- box / title -->
|
<div class="title" style="margin: 0 0 1px 0;">
|
<h5><span id="right_Menu" style="display: none;">[<a onclick="JavaScript:JS_left_Menu2('1');" style="color: #ffffff;">显示菜单</a>] </span><%If searchTXT<>"" then%>服务单查询 <%=searchTXT%><%else%><%=OrdDateTypeName1&" "&OrdListName%><%End if%></h5>
|
<ul class="links">
|
<li>
|
<div class="search">
|
<div id="Date_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_OrdDateType()">
|
<span class="select-content" style="width: 46px;">期间：<%=OrdDateTypeName%></span><span class="arrow" id="Date_arrow"></span>
|
</div>
|
<div id="Date_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 65px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 35px;">
|
<div class="jspContainer" style="width: 63px;">
|
<div style="padding: 0px; top: 0px; width: 63px;">
|
<%for z = 0 to UBOUND(OrdDateTypesPS)
|
OrdDateTypesPS1=SPLIT(OrdDateTypesPS(z),",")
|
vID=OrdDateTypesPS1(0)
|
vtext=OrdDateTypesPS1(1)
|
%>
|
<span title="<%=vtext%>" onmouseover="JS_OrdDateTypeMouseover('OrdDateType_<%=vID%>')" onclick="JS_OrdDateTypeJump('<%=vID%>')" id="OrdDateType_<%=vID%>" class="list-option<%if vID=OrdDateType then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
<span title="自定义" onmouseover="JS_OrdDateTypeMouseover('OrdDateType_0')" onclick="JS_OrdDateTypeCreateOpen()" id="OrdDateType_0" name="OrdDateType" class="list-option">自定义</span>
|
</div>
|
</div>
|
</div>
|
</div>
|
</li>
|
<li>
|
<div class="search">
|
<div id="OrdClass_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_OrdClassType()">
|
<span class="select-content" style="width: 46px;">单据类型：<%=OrdClassName%></span><span class="arrow" id="OrdClass_arrow"></span>
|
</div>
|
<div id="OrdClass_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 77px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 69px;">
|
<div class="jspContainer" style="width: 75px;">
|
<div style="padding: 0px; top: 0px; width: 80px;">
|
<%for z = 0 to UBOUND(OrdClassTypesPS)
|
OrdClassTypesPS1=SPLIT(OrdClassTypesPS(z),",")
|
vID=OrdClassTypesPS1(0)
|
vtext=OrdClassTypesPS1(1)
|
%>
|
<span title="<%=vtext%>" onmouseover="JS_OrdClassTypeMouseover('OrdClassType_<%=vID%>')" onclick="JS_OrdClassTypeJump('<%=vID%>')" id="OrdClassType_<%=vID%>" class="list-option<%if vID=OrdClassName then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
</div>
|
</div>
|
</div>
|
</div>
|
</li>
|
<div class="search">
|
<form action="Report_DispatchPerfomance.gds?h_menu1_1=<%=session("h_menu1_1")%>" method="post">
|
<div class="input">
|
<input type="text" id="search" name="searchTXT" value="<%=searchTXT%>" />
|
</div>
|
<div class="button">
|
<input type="submit" name="submit" value="搜索" />
|
</div>
|
</form>
|
</div>
|
</ul>
|
</div>
|
<div class="dialogJ dialogJfix dialogJshadow" id="OrdDateTypeCreate" style="width: 440px;right: 80px; top: 150px;height:80px ;display:none;">
|
<div class="dialogJtitle">
|
<a href="javascript:JS_OrdDateTypeCreateClose();" class="dialogJclose" title="关闭本窗口"> </a>
|
<span class="dialogJtxt" id="EditPhotoTXT">请选择时间段</span>
|
</div>
|
<div class="dialogJcontent" style="margin-left: 5px;margin-right:5px;">
|
<div class="input" style="float:left;margin-top: 10px;margin-left: 5px;" id="two-inputs">
|
期间：
|
<input type="text" id="OrdDateStart" name="OrdDateStart" class="date" style="width:138px;" value="<%=OrdDateStart%>">
|
至
|
<input type="text" id="OrdDateEnd" name="OrdDateEnd" class="date" style="width:138px;" value="<%=OrdDateEnd%>">
|
<input type="button" class="dialogJbtn first-child" onclick="JS_OrdDateJump()" value="查询">
|
</div>
|
</div>
|
</div>
|
<!--时间选择js liang------------->
|
<link rel="stylesheet" href="css/daterangepicker.css">
|
<script src="js/jquery-1.12.3.min.js"></script>
|
<script src="js/moment.min.js"></script>
|
<script src="js/jquery.daterangepicker.js"></script>
|
<script>
|
$(function()
|
{
|
$('#two-inputs').dateRangePicker(
|
{
|
separator : ' to ',
|
getValue: function()
|
{
|
if ($('#OrdDateStart').val() && $('#OrdDateEnd').val() )
|
return $('#OrdDateStart').val() + ' to ' + $('#OrdDateEnd').val();
|
else
|
return '';
|
},
|
setValue: function(s,s1,s2)
|
{
|
$('#OrdDateStart').val(s1);
|
$('#OrdDateEnd').val(s2);
|
}
|
|
});
|
});
|
</script>
|
<!--时间选择js liang------------->
|
<script type="text/javascript">
|
//时间表列显示下拉菜单
|
function JS_OrdDateType(){
|
if (Date_container.className!="select-container select-container-show-list"){
|
Date_container.className="select-container select-container-show-list";
|
Date_arrow.className="arrow arrow-up";
|
Date_list.style.display="block";
|
OrdClass_container.className="select-container";
|
OrdClass_arrow.className="arrow";
|
OrdClass_list.style.display="none";
|
OrdDateTypeCreate.style.display="none";
|
}
|
else {
|
Date_container.className="select-container";
|
Date_arrow.className="arrow";
|
Date_list.style.display="none";
|
}
|
}
|
//时间表列指针移动到下拉菜单
|
function JS_OrdDateTypeMouseover(id){
|
var d=document.getElementById(id);
|
<%for z = 0 to UBOUND(OrdDateTypesPS)
|
OrdDateTypesPS1=SPLIT(OrdDateTypesPS(z),",")
|
vID=OrdDateTypesPS1(0)
|
vtext=OrdDateTypesPS1(1)
|
%>
|
document.getElementById("OrdDateType_<%=vID%>").className="list-option";
|
<%next%>
|
document.getElementById("OrdDateType_0").className="list-option";
|
d.className="list-option option";
|
}
|
//自定义时间-打开窗口
|
function JS_OrdDateTypeCreateOpen()
|
{
|
JS_OrdDateType();
|
OrdDateTypeCreate.style.display="block";
|
}
|
//自定义时间-关闭窗口
|
function JS_OrdDateTypeCreateClose()
|
{
|
JS_OrdDateType();
|
OrdDateTypeCreate.style.display="none";
|
}
|
//自定义时间-确定时间
|
function JS_OrdDateTypeCreateSave()
|
{
|
document.getElementById('ServiceOrdTraStreet').value=document.getElementById('Duration').value;
|
document.getElementById('ServiceOrdTraEnd').value=document.getElementById('ServiceOrdTraEnd').value;
|
document.getElementById('ServiceOrdTraStreetCoo').value=results.sw.point.lng + ','+ results.sw.point.lat; //起点坐标
|
document.getElementById('ServiceOrdTraEndCoo').value=results.Lu.point.lng + ','+ results.Lu.point.lat; //起点坐标
|
}
|
//时间类表列转跳
|
function JS_OrdDateJump(id){
|
var OrdDateStart=document.getElementById("OrdDateStart").value;
|
var OrdDateEnd=document.getElementById("OrdDateEnd").value;
|
window.location.href='Report_MileageSum.gds?h_menu1_1=1&OrdState=<%=OrdState%>&OrdClassList=<%=OrdClassList%>&OrdDateType=0&OrdDateStart='+OrdDateStart+'&OrdDateEnd='+OrdDateEnd;
|
}
|
//自定义时间转跳
|
function JS_OrdDateTypeJump(id){
|
window.location.href='Report_MileageSum.gds?h_menu1_1=1&OrdState=<%=OrdState%>&OrdClassList=<%=OrdClassList%>&OrdDateType='+id;
|
}
|
|
//单据类型显示下拉菜单
|
function JS_OrdClassType(){
|
if (OrdClass_container.className!="select-container select-container-show-list"){
|
OrdClass_container.className="select-container select-container-show-list";
|
OrdClass_arrow.className="arrow arrow-up";
|
OrdClass_list.style.display="block";
|
Date_container.className="select-container";
|
Date_arrow.className="arrow";
|
Date_list.style.display="none";
|
OrdDateTypeCreate.style.display="none";
|
}
|
else {
|
OrdClass_container.className="select-container";
|
OrdClass_arrow.className="arrow";
|
OrdClass_list.style.display="none";
|
}
|
}
|
//单据类型指针移动到下拉菜单
|
function JS_OrdClassTypeMouseover(id){
|
var d=document.getElementById(id);
|
<%for z = 0 to UBOUND(OrdClassTypesPS)
|
OrdClassTypesPS1=SPLIT(OrdClassTypesPS(z),",")
|
vID=OrdClassTypesPS1(0)
|
vtext=OrdClassTypesPS1(1)
|
%>
|
document.getElementById("OrdClassType_<%=vID%>").className="list-option";
|
<%next%>
|
document.getElementById("OrdClassType_0").className="list-option";
|
d.className="list-option option";
|
}
|
//时间表列转跳
|
function JS_OrdClassTypeJump(id){
|
window.location.href='Report_DispatchPerfomance.gds?h_menu1_1=1&OrdState=<%=OrdState%>&OrdDateType=<%=OrdDateType%>&OrdClassList='+id;
|
}
|
|
</script>
|
<!-- end box / title -->
|
<%
|
acc1=clng(request("page"))
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 20
|
acc2=0
|
acc3=0
|
|
|
if searchTXT<>"" Then
|
searchSql=""
|
If Len(searchTXT)=14 And Not IsNumeric(Left(searchTXT,2)) And IsNumeric(Mid(searchTXT,3,8)) And IsNumeric(Right(searchTXT,3)) And Mid(searchTXT,11,1)="-" Then
|
searchSql=" DispatchOrdClass='"&Left(searchTXT,2)&"' and CONVERT(VARCHAR(10),DispatchOrd_NS_Time,120)=CONVERT(VARCHAR(10),'"&Mid(searchTXT,3,4)&"-"&Mid(searchTXT,7,2)&"-"&Mid(searchTXT,9,2)&"',120) and Right('00'+convert(varchar(3),DispatchOrdNo),3)='"&Right(searchTXT,3)&"' "
|
ElseIf Len(searchTXT)=10 And IsNumeric(searchTXT) Then
|
searchSql=" DispatchOrdID="&Right(searchTXT,10)&" "
|
Else
|
searchSql=" (ServiceOrdCoName like '%"&searchTXT&"%' or ServiceOrdCoPhone like '%"&searchTXT&"%' or ServiceOrdPtName like '%"&searchTXT&"%' or ServiceOrdTraStreet like '%"&searchTXT&"%' or ServiceOrdTraEnd like '%"&searchTXT&"%') "
|
End if
|
else
|
'按实际返回时间统计
|
'searchSql=" DispatchOrdReturnDate "&SqlOrdDateType&" "
|
'按订单生成时间统计
|
searchSql=" DispatchOrd_NS_Time "&SqlOrdDateType&" "
|
If OrdState="0" Then
|
searchSql=searchSql&""
|
ElseIf OrdState="1" Then
|
searchSql=searchSql&" and DispatchOrdState in (0) "
|
ElseIf OrdState="2" Then
|
searchSql=searchSql&" and DispatchOrdState in (1,2) "
|
ElseIf OrdState="4" Then
|
searchSql=" DispatchOrdState in (4,5,6,7) "
|
ElseIf OrdState="8_0" Then
|
searchSql=" DispatchOrdState in (8) and DispatchOrdMileage=0 "
|
ElseIf OrdState="8_1" Then
|
searchSql=" DispatchOrdState in (8) and DispatchOrdMileage>0 "
|
Else
|
searchSql=searchSql&" and DispatchOrdState in ("&OrdState&") "
|
End If
|
If OrdClassList<>"0" Then
|
searchSql=searchSql&" and ServiceOrdClass='"&OrdClassList&"' "
|
End if
|
end If
|
|
'时间列Y
|
sql=Replace(Replace(searchSql,"DispatchOrd_NS_Time between","select ")," and ",",")
|
rs.open sql,objConn,1,1
|
DateA=rs(0)
|
DateB=FormatDateTime(DateAdd("s",1,rs(1)),vbShortDate)
|
rs.close()
|
ArrayY=DateDiff("d",DateA,DateB)+1
|
|
'Response.Write ArrayY&"<br>"
|
'Response.end
|
|
'人员列X
|
sql="select EntourageOAid,OA_Name from DispatchOrd_Entourage,DispatchOrd,OA_User where OA_User_ID=EntourageOAid and DispatchOrdID=DispatchOrdIDDt and EntourageState<>4 and EntourageDKP>0 and DispatchOrd_NS_Time "&SqlOrdDateType&" GROUP BY EntourageOAid,OA_Name,OA_DepartmentID order by EntourageOAid desc"
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
ArrayX=rs("EntourageOAid")+1
|
End If
|
rs.close()
|
sql="select EntourageOAid,OA_Name from DispatchOrd_Entourage,DispatchOrd,OA_User where OA_User_ID=EntourageOAid and DispatchOrdID=DispatchOrdIDDt and EntourageState<>4 and EntourageDKP>0 and DispatchOrd_NS_Time "&SqlOrdDateType&" GROUP BY EntourageOAid,OA_Name,OA_DepartmentID order by OA_DepartmentID,OA_Name"
|
rs.open sql,objConn,1,1
|
|
'生成数组
|
Dim FormArray()
|
REDIM FormArray(ArrayX,ArrayY+4)
|
|
i=0
|
OA_ids=""
|
OA_Names=""
|
OA_DKPs=""
|
'写入表头
|
do while not rs.Eof
|
OA_id = rs("EntourageOAid")
|
OA_Name = rs("OA_Name")
|
OA_ids=OA_ids&","&OA_id
|
FormArray(OA_id,0)=OA_Name
|
i=i+1
|
rs.movenext
|
loop
|
rs.close()
|
OA_idPS = SPLIT(OA_ids,",")
|
|
'写入内容
|
'sql="select EntourageOAid,ReturnDate=CONVERT(varchar(100),DispatchOrd_NS_Time,23),OA_DKP=sum(EntourageDKP) from DispatchOrd_Entourage,DispatchOrd where DispatchOrdID=DispatchOrdIDDt and EntourageState<>4 and EntourageDKP>0 and EntourageDKPScale<1 and DispatchOrdState<>10 and DispatchOrd_AP_Check=1 and DispatchOrd_NS_Time between '"&DateA&" 00:00:00' and '"&DateB&" 00:00:00' GROUP BY EntourageOAid,DispatchOrd_NS_Time order by EntourageOAid,DispatchOrd_NS_Time"
|
sql="select EntourageOAid,ReturnDate=CONVERT(varchar(100),DispatchOrd_NS_Time,23),DispatchOrdID,ServiceOrdType,OrdDistance=convert(money,Replace(Replace(ServiceOrdTraDistance,'公里',''),'km','')),TimeLength_Program,TimeLength_ICU,TimeLength_Wait,EntourageMileageFactor,EntourageOT_is,EntourageBetimesHH,EntourageLong_is,EntourageP1,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=ServiceOrdIDDt) from DispatchOrd_Entourage,DispatchOrd,ServiceOrder where DispatchOrdID=DispatchOrdIDDt and EntourageState<>4 and EntourageDKPScale<1 and DispatchOrdState in (8,9) and DispatchOrd_NS_Time between '"&DateA&" 00:00:00' and '"&DateB&" 00:00:00' and (ServiceOrdTraDistance like '%公里%' or ServiceOrdTraDistance like '%km%') and ServiceOrdID=ServiceOrdIDDt order by EntourageOAid,DispatchOrd_NS_Time"
|
' and DispatchOrd_AP_Check=1
|
'Response.Write sql
|
'Response.end
|
rs.open sql,objConn,1,1
|
OA_DKPMoney=0
|
do While not rs.Eof
|
OA_id = rs("EntourageOAid")
|
ReturnDate = rs("ReturnDate")
|
DateY = DateDiff("d",DateA,ReturnDate)+1
|
EntourageOT_is = rs("EntourageOT_is")
|
EntourageBetimesHH = rs("EntourageBetimesHH")
|
EntourageLong_is = rs("EntourageLong_is")
|
Stretcher_is = rs("Stretcher_is")
|
StretcherM = rs("StretcherM")
|
|
DispatchOrdID = rs("DispatchOrdID") '调度单号
|
ServiceOrdType = rs("ServiceOrdType")
|
OrdDistance = rs("OrdDistance") '实际公里数
|
TimeLength_Program = rs("TimeLength_Program")
|
TimeLength_ICU = rs("TimeLength_ICU")
|
TimeLength_Wait = rs("TimeLength_Wait")
|
EntourageP1 = rs("EntourageP1") '岗位里程价格 P1
|
EntourageMileageFactor=rs("EntourageMileageFactor")'个人里程系数
|
Stretcher_Money = Stretcher_is*StretcherM '担架费
|
Condition_is=rs("Condition_is") '特殊项目情况
|
If EntourageLong_is=1 And EntourageState_Time>="2021-1-1" Then Condition_is=0
|
Condition_Money=0
|
|
If Not isnull(OrdDistance) Then
|
Call EntourageDKP_Money_C(OA_id,DispatchOrdID,ServiceOrdType,OrdDistance,TimeLength_Program,TimeLength_ICU,TimeLength_Wait,EntourageMileageFactor,EntourageOT_is,EntourageBetimesHH,Stretcher_Money,EntourageP1,ConversionDistance,EntourageOT_Money,OA_DKPMoney,Condition_is,Condition_Money)
|
FormArray(OA_id,DateY)=CSng(FormArray(OA_id,DateY))+CSng(FormatNumber((ConversionDistance),2,-1,,0))
|
FormArray(OA_id,ArrayY)=CSng(FormArray(OA_id,ArrayY))+CSng(FormatNumber((ConversionDistance),2,-1,,0))
|
FormArray(OA_id,ArrayY+1)=CSng(FormArray(OA_id,ArrayY+1))+CSng(FormatNumber((EntourageOT_Money),2,-1,,0))
|
FormArray(OA_id,ArrayY+2)=CSng(FormArray(OA_id,ArrayY+2))+CSng(FormatNumber((Stretcher_Money),2,-1,,0))
|
FormArray(OA_id,ArrayY+3)=CSng(FormArray(OA_id,ArrayY+3))+CSng(FormatNumber((Condition_Money),2,-1,,0))
|
FormArray(OA_id,ArrayY+4)=CSng(FormArray(OA_id,ArrayY+4))+CSng(FormatNumber((EntourageP1*ConversionDistance),2,-1,,0))
|
End If
|
rs.movenext
|
loop
|
rs.close()
|
|
%>
|
<!--#include virtual="/inc/SystemMessages.gds" -->
|
<!--<div style="padding: 10px;font-size: 13px;">当前查询统计 单据数量:(开发中) 费用合计:(开发中) </div>-->
|
<div id="div2"></div>
|
<div id="div1" class="table" style="overflow-x:scroll;padding: 0 0px 10px 0px;">
|
<form action="" method="post">
|
<table>
|
<thead>
|
<tr style="white-space: nowrap;">
|
<th>日期</th>
|
<%
|
for j = 1 to UBOUND(OA_idPS)
|
OA_id = OA_idPS(j)
|
OA_Name = FormArray(OA_id,0)
|
Response.Write "<th>"&OA_Name&"</th>"
|
Next
|
%>
|
<th class="last"></th>
|
|
</tr>
|
</thead>
|
<tbody>
|
|
<%
|
For Y=Lbound(FormArray,2)+1 to Ubound(FormArray,2)-5
|
DateC=dateadd("d",Y-1,DateA)%>
|
<tr style="white-space: nowrap;">
|
<td class="selected" style="border-right: 1px solid #cdcdcd;"><a href="/Report_DispatchPerfomance.gds?h_menu1_1=1&OrdState=0&OrdClassList=0&OrdDateType=0&OrdDateStart=<%=DateC%>" target="_blank"><%=DateC%></a></td>
|
<%
|
for j = 1 to UBOUND(OA_idPS)
|
OA_id = OA_idPS(j)
|
OA_DKP = FormArray(OA_id,Y)
|
Response.Write "<td class=""selected"" style=""border-right: 1px solid #cdcdcd;""><a href=""/Report_DispatchPerfomance.gds?h_menu1_1=1&OrdState=0&OrdClassList=0&OrdDateType=0&OrdDateStart="&DateC&"&OAid="&OA_id&""" target=""_blank"">"&OA_DKP&"</a></td>"
|
Next
|
%>
|
<td class="category category2 last" style="text-align: left;line-height: 13px;"></td>
|
</tr>
|
<%
|
Next%>
|
|
<tr style="white-space: nowrap;">
|
<td class="selected" style="border-right: 1px solid #cdcdcd;">里程汇总</td>
|
<%
|
for j = 1 to UBOUND(OA_idPS)
|
OA_id = OA_idPS(j)
|
OA_DKPSum = FormArray(OA_id,ArrayY)
|
If OA_DKPSum="" Then OA_DKPSum=0
|
Response.Write "<td class=""selected"" style=""border-right: 1px solid #cdcdcd;""><a href=""/Report_DispatchPerfomance.gds?h_menu1_1=1&OrdState=0&OrdClassList=0&OrdDateType=0&OrdDateStart="&DateA&"&OrdDateEnd="&DateB&"&OAid="&OA_id&""" target=""_blank"">"&OA_DKPSum&"</a></td>"
|
Next
|
%>
|
<td class="category category2 last" style="text-align: left;line-height: 13px;">
|
</td>
|
</tr>
|
<tr style="white-space: nowrap;">
|
<td class="selected" style="border-right: 1px solid #cdcdcd;">加班费汇总</td>
|
<%
|
for j = 1 to UBOUND(OA_idPS)
|
OA_id = OA_idPS(j)
|
OA_OTMoneySum = FormArray(OA_id,ArrayY+1)
|
If OA_OTMoneySum="" Then OA_OTMoneySum=0
|
Response.Write "<td class=""selected"" style=""border-right: 1px solid #cdcdcd;""><a href=""/Report_DispatchPerfomance.gds?h_menu1_1=1&OrdState=0&OrdClassList=0&OrdDateType=0&OrdDateStart="&DateA&"&OrdDateEnd="&DateB&"&OAid="&OA_id&""" target=""_blank"">"&OA_OTMoneySum&"</a></td>"
|
Next
|
%>
|
<td class="category category2 last" style="text-align: left;line-height: 13px;">
|
</td>
|
</tr>
|
<tr style="white-space: nowrap;">
|
<td class="selected" style="border-right: 1px solid #cdcdcd;">担架费汇总</td>
|
<%
|
for j = 1 to UBOUND(OA_idPS)
|
OA_id = OA_idPS(j)
|
OA_StretcherSum = FormArray(OA_id,ArrayY+2)
|
If OA_StretcherSum="" Then OA_StretcherSum=0
|
Response.Write "<td class=""selected"" style=""border-right: 1px solid #cdcdcd;""><a href=""/Report_DispatchPerfomance.gds?h_menu1_1=1&OrdState=0&OrdClassList=0&OrdDateType=0&OrdDateStart="&DateA&"&OrdDateEnd="&DateB&"&OAid="&OA_id&""" target=""_blank"">"&OA_StretcherSum&"</a></td>"
|
Next
|
%>
|
<td class="category category2 last" style="text-align: left;line-height: 13px;">
|
</td>
|
</tr>
|
<tr style="white-space: nowrap;">
|
<td class="selected" style="border-right: 1px solid #cdcdcd;">特殊技能汇总</td>
|
<%
|
for j = 1 to UBOUND(OA_idPS)
|
OA_id = OA_idPS(j)
|
OA_ConditionSum = FormArray(OA_id,ArrayY+3)
|
If OA_ConditionSum="" Then OA_ConditionSum=0
|
Response.Write "<td class=""selected"" style=""border-right: 1px solid #cdcdcd;""><a href=""/Report_DispatchPerfomance.gds?h_menu1_1=1&OrdState=0&OrdClassList=0&OrdDateType=0&OrdDateStart="&DateA&"&OrdDateEnd="&DateB&"&OAid="&OA_id&""" target=""_blank"">"&OA_ConditionSum&"</a></td>"
|
Next
|
%>
|
<td class="category category2 last" style="text-align: left;line-height: 13px;">
|
</td>
|
</tr>
|
<tr style="white-space: nowrap;">
|
<td class="selected" style="border-right: 1px solid #cdcdcd;">岗位里程价格</td>
|
<%
|
for j = 1 to UBOUND(OA_idPS)
|
OA_id = OA_idPS(j)
|
OA_DKPSum = FormArray(OA_id,ArrayY)
|
If OA_DKPSum="" Then OA_DKPSum=0
|
OA_P1Sum = FormArray(OA_id,ArrayY+4)
|
If OA_P1Sum="" Or OA_P1Sum="0" Then
|
EntourageP1=0
|
else
|
EntourageP1=FormatNumber((OA_P1Sum/OA_DKPSum),2,-1,,0)
|
End If
|
Response.Write "<td class=""selected"" style=""border-right: 1px solid #cdcdcd;""><a href=""/Report_DispatchPerfomance.gds?h_menu1_1=1&OrdState=0&OrdClassList=0&OrdDateType=0&OrdDateStart="&DateA&"&OrdDateEnd="&DateB&"&OAid="&OA_id&""" target=""_blank"">"&EntourageP1&"</a></td>"
|
Next
|
%>
|
<td class="category category2 last" style="text-align: left;line-height: 13px;">
|
</td>
|
</tr>
|
<tr style="white-space: nowrap;">
|
<td class="selected" style="border-right: 1px solid #cdcdcd;">绩效工资</td>
|
<%
|
for j = 1 to UBOUND(OA_idPS)
|
OA_id = OA_idPS(j)
|
OA_DKPSum = FormArray(OA_id,ArrayY)
|
If OA_DKPSum="" Then OA_DKPSum=0
|
EntourageOT_Money_Sum = FormArray(OA_id,ArrayY+1)
|
Stretcher_Money_Sum = FormArray(OA_id,ArrayY+2)
|
Condition_Money_Sum = FormArray(OA_id,ArrayY+3)
|
OA_P1Sum = FormArray(OA_id,ArrayY+4)
|
If OA_P1Sum="" Or OA_P1Sum="0" Then
|
EntourageP1=0
|
else
|
EntourageP1=OA_P1Sum/OA_DKPSum
|
End If
|
OA_DKPMoney_Sum=EntourageDKP_Money_M1(OA_id,OA_DKPSum,Stretcher_Money_Sum,EntourageOT_Money_Sum,Condition_Money_Sum,EntourageP1)
|
Response.Write "<td class=""selected"" style=""border-right: 1px solid #cdcdcd;""><a href=""/Report_DispatchPerfomance.gds?h_menu1_1=1&OrdState=0&OrdClassList=0&OrdDateType=0&OrdDateStart="&DateA&"&OrdDateEnd="&DateB&"&OAid="&OA_id&""" target=""_blank"">"&OA_DKPMoney_Sum&"</a></td>"
|
Next
|
%>
|
<td class="category category2 last" style="text-align: left;line-height: 13px;">
|
</td>
|
</tr>
|
|
<%for j=i to 20%>
|
<tr>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td class="last"> </td>
|
</tr>
|
<%next%>
|
</tbody>
|
</table>
|
|
</form>
|
</div>
|
|
</div>
|
<!-- end table -->
|
|
|
|
</div>
|
<!-- end content / right -->
|
</div>
|
<!-- end content -->
|
<!--#include FILE="vicgame.asp"-->
|
</body>
|
</html>
|
