<!--#include virtual="DispatchOrder_ListSql.gds"-->
|
<%
|
'各种返回信息
|
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="文件删除完成!!"
|
elseif SMT="4" then
|
SystemMessageTXT="发出关注邀请完成,新员工默认密码:000000.请首次登陆后尽快修改"
|
elseif SMT="5" then
|
SystemMessageTXT="发出关注邀请失败,请点击[<a href=""/weixin/user_list.gds?departmentID="&departmentID&""">刷新数据</a>]并修改微信相关联系方式后再次发送"
|
elseif SMT="6" then
|
SystemMessageTXT="请选择需要取消的调度单"
|
elseif SMT="7" then
|
SystemMessageTXT="调度单取消完成"
|
elseif SMT="8" then
|
SystemMessageTXT="部分调度单状态不可使用批量取消!!"
|
elseif SMT="9" then
|
SystemMessageTXT="自定义时间查询时间跨度不能超过3个月!!"
|
end if
|
end if
|
|
|
If OrdState<>"0" And IsNumeric(OrdState) then
|
OrdListName = DispatchOrdStateA(OrdState)&"查询"
|
ElseIf OrdState="Visit" Then
|
OrdListName = OrdClassName&"订单"&OAHospTXT
|
ElseIf OrdState="Image" Then
|
If UnitNameID="" Then UnitNameID="1"
|
OrdListName = "调度单文书记录"&OAHospTXT
|
Else
|
OrdListName = "调度单查询"&OAHospTXT
|
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,"|")
|
|
'单据类型表列
|
If OrdState="Visit" Then
|
OrdClassTypes = "0,全部|1,已回访|2,未回访|"
|
ElseIf OrdState="Image" Then
|
OrdClassTypes = "0,未审核|1,已审核|"
|
Else
|
If isDepartment("070109")=1 Or UnitNameID="1" Or UnitNameID="6" Or UnitNameID="15" Then
|
OrdClassTypes = "0,全部|-1,仅正常单|-2,特殊单|"
|
'If OrdClassList="" Then OrdClassList="-1"
|
Else
|
OrdClassTypes = "0,全部|"
|
End If
|
sql="select vID,vtext,vOrder2 from dictionary where vType=1 and vtitle='ServiceOrderType' order by vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
OrdClassTypes = OrdClassTypes & rs("vID") &","& rs("vtext") & "|"
|
rs.movenext
|
Loop
|
rs.close()
|
End If
|
OrdClassTypes = left(OrdClassTypes,len(OrdClassTypes)-1)
|
OrdClassTypesPS = SPLIT(OrdClassTypes,"|")
|
for z = 0 to UBOUND(OrdClassTypesPS)
|
OrdClassTypesPS1=SPLIT(OrdClassTypesPS(z),",")
|
vID=OrdClassTypesPS1(0)
|
vtext=OrdClassTypesPS1(1)
|
If Cstr(vID)=Cstr(OrdClassList) Then OrdClassName = vtext
|
next
|
OrdClassListSql1=OrdClassListSql
|
page_URL="&OrdState="&OrdState&"&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&UnitNameID="&UnitNameID&"&searchTXT="&searchTXT&"&h_menu1_1=1"
|
If CoopUnitID<>"" Then page_URL=page_URL&"&CoopUnitID="&CoopUnitID
|
%>
|
|
|
|
<%
|
' 记录管理员操作日志,谁访问了这个页面，写在了logs/目录下面
|
Dim adminName
|
adminName = Session("adminName")
|
|
' 检查 adminName 是否为空
|
If adminName = "" Then
|
Response.Write("管理员名称未设置！")
|
Response.End()
|
End If
|
|
' 获取当前日期并格式化为 YYYY-MM-DD
|
Dim currentDate
|
currentDate = Year(Now()) & "-" & Right("0" & Month(Now()), 2) & "-" & Right("0" & Day(Now()), 2)
|
|
' 定义文件路径和文件名
|
Dim fileName, filePath
|
fileName = "log_" & currentDate & ".txt" ' 例如：log_2023-10-05.txt
|
filePath = Server.MapPath("logs/" & fileName)
|
|
' 创建文件系统对象
|
Dim fs, f
|
Set fs = Server.CreateObject("Scripting.FileSystemObject")
|
|
' 检查 logs 目录是否存在，如果不存在则创建
|
Dim logsFolderPath
|
logsFolderPath = Server.MapPath("logs")
|
If Not fs.FolderExists(logsFolderPath) Then
|
fs.CreateFolder(logsFolderPath)
|
End If
|
|
' 检查文件是否存在，如果不存在则创建
|
If Not fs.FileExists(filePath) Then
|
Set f = fs.CreateTextFile(filePath, True)
|
f.Close
|
End If
|
|
Dim isDepartmentStr
|
|
if isDepartment("030103")=1 Then
|
isDepartmentStr="查看全部订单权限"
|
Else
|
isDepartmentStr="无权限"
|
End If
|
|
' 打开文件并写入内容
|
On Error Resume Next ' 启用错误处理
|
Set f = fs.OpenTextFile(filePath, 8, True) ' 8 表示追加模式
|
|
If Err.Number = 0 Then ' 如果未发生错误
|
f.WriteLine(Now() & " - " & adminName & " - 访问了[DispatchOrder_List 页面] - 用户权限：" & isDepartmentStr) ' 写入当前时间和管理员名称
|
f.Close
|
Else
|
' 如果打开文件失败，忽略错误
|
End If
|
|
' 释放对象
|
Set f = Nothing
|
Set fs = Nothing
|
|
On Error GoTo 0 ' 关闭错误处理
|
|
'如果isDepartmentStr="无权限"
|
If isDepartmentStr = "无权限" Then
|
' 打开文件并写入内容
|
On Error Resume Next ' 启用错误处理
|
Set f = fs.OpenTextFile(filePath, 8, True) ' 8 表示追加模式
|
If Err.Number = 0 Then ' 如果未发生错误
|
f.WriteLine(Now() & " - " & adminName & " - 尝试访问[DispatchOrder_List 页面] - " & isDepartmentStr) ' 写入当前时间和管理员名称
|
f.Close
|
Else
|
' 如果打开文件失败，忽略错误
|
End If
|
|
' 释放对象
|
Set f = Nothing
|
Set fs = Nothing
|
|
On Error GoTo 0 ' 关闭错误处理
|
|
Response.Write("Access not allowed, no permission!")
|
Response.End()
|
End If
|
%>
|
|
|
|
<!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>
|
<style>
|
.closeimg
|
{
|
margin-top: 18px;
|
margin-right: 10px;
|
margin-left: 10px;
|
max-height: 100px;
|
max-height: 100px;
|
max-width: 80px;
|
}
|
.closeimgDel
|
{
|
position : absolute;
|
width : 20px;
|
height : 20px;
|
margin-left: -25px;
|
margin-top: 10px;
|
z-index: 10;
|
}
|
.closeimgTime
|
{
|
position : absolute;
|
margin-left: -105px;
|
margin-top: -1px;
|
z-index: 10;
|
}
|
.f-els3_3{max-width: 180px; overflow: hidden; text-overflow:ellipsis; white-space: nowrap;}
|
</style>
|
</head>
|
<body onkeydown="xKeyEvent(event)">
|
<!--#INCLUDE FILE="menu_header.gds" -->
|
<!-- content -->
|
<div id="content">
|
<!--#INCLUDE FILE="Dispatch_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%>调度单查询 <%=Trim(Replace(searchTXT,",",""))%><%else%><%=OrdDateTypeName1&" "&OrdListName%><%End if%></h5>
|
<ul class="links">
|
<%If InStr(searchTXT,"|")>0 Then%>
|
<li><a href="Report_DispatchDetailed.php?OrdDateType=<%=OrdDateType%>&OrdDateStart=<%=OrdDateStart%>&OrdDateEnd=<%=OrdDateEnd%>&searchTXT=<%=searchTXT%>">导出</a></li>
|
<%End If%>
|
<%If isDepartment("030123")=1 And OrdState="8_0" Then%>
|
<li><a onClick="form1_AP_JS()">批量审核</a></li>
|
<script LANGUAGE="javascript">
|
//批量审核
|
function form1_AP_JS(){
|
if(confirm("确定审核所选调度单?"))
|
{
|
document.form1.action = "admin_save.gds";
|
document.form1.DispatchOrd_Check.value="3";
|
document.form1.admin_save.value="28";
|
form1.submit();
|
}
|
}
|
</script>
|
<%End If%>
|
<%If isDepartment("030120")=1 And OrdState<>"Visit" And OrdState<>"Image" Then%>
|
<li><a onClick="form1_Del_JS()">批量取消</a></li>
|
<script LANGUAGE="javascript">
|
//批量取消
|
function form1_Del_JS(){
|
if(confirm("确定取消所选调度单?"))
|
{
|
document.form1.action = "admin_save.gds";
|
document.form1.admin_save.value="102";
|
if(confirm("是否同时取消服务单?"))
|
{
|
document.form1.ServiceOrdDel.value="1";
|
}
|
form1.submit();
|
}
|
}
|
</script>
|
<%End If%>
|
|
<%If isDepartment("030103")=1 Then%>
|
<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>
|
<%if isDepartment("070109")=1 Or OrdClassInt>1 then%>
|
<li>
|
<%
|
'下拉菜单设定
|
DownMenuName="公司" '菜单名称
|
DownMenuNameID="UnitNameID" '菜单ID
|
DownMenuOldName=UnitNameName '默认值名称
|
DownMenuOldID=UnitNameID '默认值ID
|
%>
|
<div class="search">
|
<div name="DownMenu_container" id="<%=DownMenuNameID%>_container" class="select-container" style="overflow: hidden;cursor:pointer" onclick="JS_DownMenu('<%=DownMenuNameID%>')">
|
<span class="select-content" style="width: 46px;"><%=DownMenuName%>：<%=DownMenuOldName%></span><span class="arrow" id="<%=DownMenuNameID%>_arrow" name="DownMenu_arrow"></span>
|
</div>
|
<div name="DownMenu_list" id="<%=DownMenuNameID%>_list" class="select-list scroll-pane" style="overflow: hidden; position: absolute; background-color: white; width: 280px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 10px;">
|
<div class="jspContainer">
|
<div style="padding: 0px; top: 0px;">
|
<%for z = 0 to UBOUND(UnitNamesPS)
|
UnitNamesPS1=SPLIT(UnitNamesPS(z),",")
|
vID=UnitNamesPS1(0)
|
vtext=UnitNamesPS1(1)
|
%>
|
<span title="<%=vtext%>" name="DownMenu_<%=DownMenuNameID%>" onmouseover="JS_DownMenuMouseover('<%=DownMenuNameID%>',<%=z%>)" onclick="JS_DownMenuJump('<%="?"&mid(page_URL,2)%>','<%=DownMenuOldID%>','<%=DownMenuNameID%>','<%=vID%>')" class="list-option<%if vID=DownMenuOldID then Response.Write " option"%>"><%=vtext%></span>
|
<%next%>
|
</div>
|
</div>
|
</div>
|
</div>
|
</li>
|
<%End If%>
|
<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" id="searchSim"<%If searchTXTMore<>"" Then Response.Write " style='display: none;'"%>>
|
<form action="DispatchOrder_List.gds?h_menu1_1=<%=session("h_menu1_1")%>" method="post">
|
<input name="OrdState" type="hidden" value="<%=OrdState%>">
|
<input name="OrdClassList" type="hidden" value="<%=OrdClassList%>">
|
<input name="OrdDateType" type="hidden" value="<%=OrdDateType%>">
|
<input name="OrdDateStart" type="hidden" value="<%=OrdDateStart%>">
|
<input name="OrdDateEnd" type="hidden" value="<%=OrdDateEnd%>">
|
<div class="input">
|
<input type="text" id="search" name="searchTXT" value="<%=searchTXT%>" />
|
</div>
|
<div class="button">
|
<input type="submit" name="submit" value="搜索" />
|
<input type="button" value="高级搜索" onclick="JavaScript:document.getElementById('searchSim').style.display='none';document.getElementById('searchMore').style.display='';"/>
|
</div>
|
</form>
|
</div>
|
<%End If%>
|
</ul>
|
</div>
|
|
<div class="title" id="searchMore"<%If searchTXTMore="" Then Response.Write " style='display: none;'"%>>
|
<form action="DispatchOrder_List.gds?h_menu1_1=<%=session("h_menu1_1")%>" method="post">
|
<input name="OrdState" type="hidden" value="<%=OrdState%>">
|
<input name="OrdClassList" type="hidden" value="<%=OrdClassList%>">
|
<input name="OrdDateType" type="hidden" value="<%=OrdDateType%>">
|
<input name="OrdDateStart" type="hidden" value="<%=OrdDateStart%>">
|
<input name="OrdDateEnd" type="hidden" value="<%=OrdDateEnd%>">
|
<ul class="links" style="float: left;">
|
<li>
|
<div class="search">
|
<div class="input">
|
<span class="select-content" style="width: 46px;color: #ffffff;">成交价范围：<input type="text" id="search" name="searchTXTMore" style="width: 40px;" value="<%=searchTXTMore0%>" />~<input type="text" id="search" style="width: 40px;" name="searchTXTMore" value="<%=searchTXTMore1%>" /></span>
|
</div>
|
</div>
|
</li>
|
<li>
|
<div class="search">
|
<div class="input">
|
<span class="select-content" style="width: 46px;color: #ffffff;">联系人姓名：</span><input type="text" id="search" name="searchTXTMore" value="<%=searchTXTMore2%>" />
|
</div>
|
</div>
|
</li>
|
<li>
|
<div class="search">
|
<div class="input">
|
<span class="select-content" style="width: 46px;color: #ffffff;">联系电话：</span><input type="text" id="search" name="searchTXTMore" value="<%=searchTXTMore3%>" />
|
</div>
|
</div>
|
</li>
|
<li>
|
<div class="search">
|
<div class="input">
|
<span class="select-content" style="width: 46px;color: #ffffff;">患者姓名：</span><input type="text" id="search" name="searchTXTMore" value="<%=searchTXTMore4%>" />
|
</div>
|
</div>
|
</li>
|
</ul>
|
<ul class="links" style="float: left;">
|
<li>
|
<div class="search">
|
<div class="input">
|
<span class="select-content" style="width: 46px;color: #ffffff;">转出医院：</span><input type="text" id="search" name="searchTXTMore" value="<%=searchTXTMore5%>" />
|
</div>
|
</div>
|
</li>
|
<li>
|
<div class="search">
|
<div class="input">
|
<span class="select-content" style="width: 46px;color: #ffffff;">转入医院：</span><input type="text" id="search" name="searchTXTMore" value="<%=searchTXTMore6%>" />
|
</div>
|
</div>
|
</li>
|
</ul>
|
<ul class="links" style="float: left;">
|
<li>
|
<div class="search">
|
<div class="input">
|
<span class="select-content" style="width: 46px;color: #ffffff;">销售：</span><input type="text" id="search" name="searchTXTMore" value="<%=searchTXTMore7%>" />
|
</div>
|
</div>
|
</li>
|
<li>
|
<div class="search">
|
<div class="input">
|
<span class="select-content" style="width: 46px;color: #ffffff;">介绍人：</span><input type="text" id="search" name="searchTXTMore" value="<%=searchTXTMore8%>" />
|
</div>
|
</div>
|
</li>
|
<li>
|
<div class="search">
|
<div class="input">
|
<span class="select-content" style="width: 46px;color: #ffffff;">客服：</span><input type="text" id="search" name="searchTXTMore" value="<%=searchTXTMore9%>" />
|
</div>
|
</div>
|
</li>
|
<li>
|
<div class="search">
|
<div class="input">
|
<span class="select-content" style="width: 46px;color: #ffffff;">调度：</span><input type="text" id="search" name="searchTXTMore" value="<%=searchTXTMore10%>" />
|
</div>
|
</div>
|
</li>
|
<li>
|
<div class="search">
|
<div class="input">
|
<span class="select-content" style="width: 46px;color: #ffffff;">来源：</span><input type="text" id="search" name="searchTXTMore" value="<%=searchTXTMore11%>" />
|
</div>
|
</div>
|
</li>
|
|
</ul>
|
<ul class="links">
|
<div class="search">
|
<div class="button">
|
<input type="submit" name="submit" value="搜索" />
|
<input type="button" value="隐藏高级搜索" onclick="JavaScript:document.getElementById('searchSim').style.display='';document.getElementById('searchMore').style.display='none';" />
|
</div>
|
|
</div>
|
</li>
|
|
</ul>
|
</form>
|
</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='DispatchOrder_List.gds?h_menu1_1=1&OrdState=<%=OrdState%>&OrdClassList=<%=OrdClassList%>&UnitNameID=<%=UnitNameID%>&searchTXT=<%=searchTXT%>&OrdDateType=0&OrdDateStart='+OrdDateStart+'&OrdDateEnd='+OrdDateEnd;
|
}
|
//自定义时间转跳
|
function JS_OrdDateTypeJump(id){
|
window.location.href='DispatchOrder_List.gds?h_menu1_1=1&OrdState=<%=OrdState%>&OrdClassList=<%=OrdClassList%>&UnitNameID=<%=UnitNameID%>&searchTXT=<%=searchTXT%>&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='DispatchOrder_List.gds?h_menu1_1=1&OrdState=<%=OrdState%>&OrdDateType=<%=OrdDateType%>&searchTXT=<%=searchTXT%>&UnitNameID=<%=UnitNameID%>&OrdDateStart=<%=OrdDateStart%>&OrdDateEnd=<%=OrdDateEnd%>&OrdClassList='+id;
|
|
}
|
|
</script>
|
<!-- end box / title -->
|
<%
|
page=clng(request("page"))
|
if page=empty then page=clng(1)
|
page_size = 20
|
total_page=0
|
total_records=0
|
|
'人员列表
|
sql="select vID,vtext from dictionary where vType=1 and vtitle='DispatchOrdEntourage' order by vOrder"
|
rs.open sql,objConn,1,1
|
i=0
|
EntourageIDs=""
|
do while not rs.Eof
|
EntourageID = rs("vID")
|
EntourageName= rs("vtext")
|
EntourageNames=EntourageNames&","&EntourageName
|
EntourageIDs=EntourageIDs&","&EntourageID
|
i=i+1
|
rs.movenext
|
loop
|
rs.close()
|
EntourageNamePS = SPLIT(EntourageNames,",")
|
EntourageIDPS = SPLIT(EntourageIDs,",")
|
|
'查询显示
|
i=1
|
'SQL查询条件
|
sqlWhere=" from DispatchOrd LEFT JOIN ServiceOrder on ServiceOrdIDDt=ServiceOrdID where "&searchSql&CoopUnitSql&OAHospsql&" and (ServiceOrdClass in ('"&OrdClassListSql&"') or DispatchOrdClass in ('"&OrdClassListSql&"')) "
|
'组成计算总页数SQL
|
total_sql = "select DispatchOrdID "&sqlWhere
|
'组成显示结果SQL
|
Result_sql = "select DispatchOrdID,DispatchOrdNo,DispatchOrdClass,ServiceOrdID,ServiceOrdClass,DispatchOrdState,DispatchOrd_NS_Time,DispatchOrdCarID,ServiceOrdApptDate,DispatchOrdCoName,DispatchOrdCoPhone,ServiceOrdTraProvince,ServiceOrdTraCity,DispatchOrdTraStreet,ServiceOrdTraVia,DispatchOrdTraVia,DispatchOrdTraEnd,DispatchOrdTraSDTime,DispatchOrdActualDate,ServiceOrdTraTxnPrice,StretcherMoney,DispatchOrdReturnDate,DispatchOrd_AP_Check,DispatchOrd_AP_ID,DispatchOrd_AP_Time,DispatchOrdMileage,EntourageName_aid1,EntourageName_aid2,DispatchOrdCancelReason,DispatchOrdCancelReasonTXT,ServiceOrdVIP,ServiceOrd_Sale_ID,ServiceOrdIntroducer,ServiceOrdOperationRemarks,ServiceOrdVisit_time,ServiceOrdVisit_ID,ServiceOrdVisit,Guest_Point,Guest_Reward,Guest_Evaluate,ServiceOrdTraDistance,DispatchOrdPerfomance,ServiceOrdPtOutHosp,ServiceOrdPtInHosp,FromHQ_is,DispatchOrdIsEnd,ServiceOrdPoints,row_number() over (order by DispatchOrdID desc) n "&sqlWhere
|
'附加结果SQL
|
Additional_sql = ",TransferModeID=0,DispatchOrdTraTxnPrice=(case when isnull(ServiceOrdTraTxnPrice,0)=0 or DispatchOrdPerfomance=0 then ServiceOrdTraTxnPrice else round(ServiceOrdTraTxnPrice/((select SUM(DispatchOrdPerfomance) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState not in (10))/DispatchOrdPerfomance),2,1) END),ContractMode_is=isnull((select COUNT(id) from ServiceOrd_TransferMode where ServiceOrdTMID=ServiceOrdID and TransferModeID=7),0),UserPointsCost=isnull((select sum(Points_Score) from UserPoints where Points_State<>4 and Points_Type=1 and ServiceOrdIDDt=ServiceOrdID),0)"
|
|
'计算总页数
|
'Response.Write total_sql
|
rs.open total_sql,objConn,1,1
|
if not rs.eof then
|
total_records=rs.recordcount '总行数
|
If total_records>0 Then '总页数
|
total_page=Int(total_records/page_size)
|
If total_page*page_size<total_records Then
|
total_page=total_page+1
|
End If
|
Else
|
total_page=1
|
End If
|
'避免page小于0或大于总页数
|
If page>total_page Then
|
page=total_page
|
ElseIf page<=0 then
|
page=1
|
End If
|
'计算开始和结束行数
|
pageStart = (page-1)*page_size
|
pageEnd = pageStart+page_size
|
sqlPage = " where sqlData.n > "&pageStart&" and sqlData.n <= "&pageEnd&" "
|
else
|
total_records=0
|
SystemMessageType=2
|
SystemMessageTXT="数据库中相关无数据！"
|
end if
|
rs.close()
|
|
sql = "select * "&Additional_sql&" from ("&Result_sql&") sqlData "&sqlPage&" order by sqlData.n"
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
%>
|
<!--#include virtual="/inc/SystemMessages.gds" -->
|
<%If isDepartment("010401")=0 And OrdState<>"Image" Then
|
If page=1 Then session("DispatchOrderSun")=""
|
If session("DispatchOrderSun")="" Then%>
|
<div style="padding: 10px;font-size: 13px;" id="SumOrder_Data">当前查询统计 [<a onclick="javascript:SumOrder_Data();">查询数据</a>]</div>
|
<%Else%>
|
<div style="padding: 10px;font-size: 13px;" id="SumOrder_Data"><%=session("DispatchOrderSun")%></div>
|
<%End If %>
|
|
<script>
|
/* 当前查询统计 */
|
function SumOrder_Data(){
|
document.getElementById("SumOrder_Data").innerHTML="当前查询统计 统计中..";
|
$.ajax({
|
type: "POST",
|
url: "DispatchOrder_ListSql.gds",//需要请求的页面
|
data: { //要传给后台的数据
|
OrdType:"DispatchOrder_List",
|
OrdState: "<%=OrdState%>",
|
OrdClassList: "<%=OrdClassList%>",
|
OrdDateType: "<%=OrdDateType%>",
|
OrdDateStart: "<%=OrdDateStart%>",
|
OrdDateEnd: "<%=OrdDateEnd%>",
|
UnitNameID: "<%=UnitNameID%>",
|
searchTXT: "<%=searchTXT%>",
|
CoopUnitID: "<%=CoopUnitID%>",
|
page: "<%=page%>"
|
},
|
beforeSend: function() {},//在发送之前你可以进行相关操作
|
success: function(data) {
|
//alert(data);
|
document.getElementById("SumOrder_Data").innerHTML=data;
|
}
|
})
|
}
|
//SumOrder_Data();
|
</script>
|
<%End If%>
|
<div id="div2"></div>
|
<div id="div1" class="table" style="overflow-x:scroll;padding: 0 0px 10px 0px;">
|
|
<form id="form1" name="form1" action="admin_save.gds" method="post">
|
<input name="admin_save" type="hidden" value="">
|
<input name="searchTXT" type="hidden" value="<%=searchTXT%>">
|
<input name="OrdState" type="hidden" value="<%=OrdState%>">
|
<input name="OrdClassList" type="hidden" value="<%=OrdClassList%>">
|
<input name="OrdDateType" type="hidden" value="<%=OrdDateType%>">
|
<input name="OrdDateStart" type="hidden" value="<%=OrdDateStart%>">
|
<input name="OrdDateEnd" type="hidden" value="<%=OrdDateEnd%>">
|
<input name="ServiceOrdDel" type="hidden" value="0">
|
<input name="DispatchOrd_Check" type="hidden" value="0">
|
<table>
|
<thead>
|
<tr style="white-space: nowrap;">
|
<%If isDepartment("030120")=1 Or isDepartment("030123")=1 Then%>
|
<th onclick="selectAll()" style="cursor: pointer;">选择</th>
|
<script type="text/javascript">
|
function selectAll(){
|
var inputs = document.getElementsByName("DispatchOrdID");
|
for(var i = 0;i<inputs.length;i++){
|
if (inputs[i].checked == false){
|
inputs[i].checked = true;
|
}else{
|
inputs[i].checked = false;
|
}
|
|
}
|
}
|
</script>
|
<%ElseIf isDepartment("010401")=0 Then%>
|
<th>序号</th>
|
<%End If%>
|
<th>单据编号</th>
|
<th>状态</th>
|
<th>开单日期</th>
|
<!--<th>受理单号</th>-->
|
<%If isDepartment("010401")=0 And OrdState<>"Image" then%><th>费用</th><%End If%>
|
|
<th>车牌号码</th>
|
<th>人员列表</th>
|
|
<th>途经/目的地</th>
|
<th>距离</th>
|
<%If Mid(searchTXT,1,6)="staff|" then%><th>实际里程</th><%End If%>
|
<%If OrdState="Visit" Then%>
|
<th>出车时间</th>
|
<th>返回时间</th>
|
<th>回访记录</th>
|
<th class="last">评价内容</th>
|
<%ElseIf OrdState="Image" Then
|
ImageTypeArray=Array("知情同意书","病人资料","操作记录","出车前","出车后","系安全带")
|
for ITA=0 to ubound(ImageTypeArray)
|
Response.Write "<th>"&ImageTypeArray(ITA)&"</th>"
|
next
|
%>
|
<th class="last">操作</th>
|
<%else%>
|
<th>出车时间</th>
|
<th>返回时间</th>
|
<th class="last">操作备注</th>
|
<%End If%>
|
|
</tr>
|
</thead>
|
<tbody<%If isDepartment("010401")=1 then Response.Write " style=""white-space: nowrap;"" "%>>
|
|
<%
|
|
do while not rs.Eof and i<=page_size
|
DispatchOrdID = rs("DispatchOrdID") '调度单号
|
DispatchOrdClass = rs("DispatchOrdClass") '调度单单据类型
|
ServiceOrdID = rs("ServiceOrdID") '受理单号
|
ServiceOrdClass = rs("ServiceOrdClass") '受理单单据类型
|
DispatchOrdState = rs("DispatchOrdState") '服务单状态
|
DispatchOrd_NS_Time = rs("DispatchOrd_NS_Time") '开单日期
|
DispatchOrdCarID = rs("DispatchOrdCarID") '调度车辆ID
|
ServiceOrdApptDate = rs("ServiceOrdApptDate") '预约日期
|
DispatchOrdCoName = rs("DispatchOrdCoName") '联系人姓名
|
DispatchOrdCoPhone = rs("DispatchOrdCoPhone") '联系人电话
|
ServiceOrdTraProvince = rs("ServiceOrdTraProvince") '出发地省份
|
ServiceOrdTraCity = rs("ServiceOrdTraCity") '出发地城市
|
DispatchOrdTraStreet = rs("DispatchOrdTraStreet") '出发地
|
ServiceOrdTraVia = rs("ServiceOrdTraVia") '途经地(计划)
|
DispatchOrdTraVia = rs("DispatchOrdTraVia") '途经地(实际)
|
DispatchOrdTraEnd = rs("DispatchOrdTraEnd") '目的地
|
DispatchOrdTraSDTime = rs("DispatchOrdTraSDTime") '拟出发时间
|
DispatchOrdActualDate = rs("DispatchOrdActualDate") '实际出车时间
|
ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice") '服务单成交价
|
StretcherMoney = rs("StretcherMoney") '担架费
|
DispatchOrdTraTxnPrice= rs("DispatchOrdTraTxnPrice") '服务单成交价
|
ServiceOrdPoints = rs("ServiceOrdPoints") '积分使用
|
UserPointsCost = rs("UserPointsCost") '订单积分成本
|
|
DispatchOrdReturnDate = rs("DispatchOrdReturnDate") '返回时间
|
DispatchOrd_AP_Check = rs("DispatchOrd_AP_Check") '审核状态(0未审核,1已审核)
|
DispatchOrd_AP_ID = rs("DispatchOrd_AP_ID") '审核人员ID
|
DispatchOrd_AP_Time = rs("DispatchOrd_AP_Time") '审核时间
|
DispatchOrdMileage = rs("DispatchOrdMileage") '实际里程数
|
EntourageName_aid1 = rs("EntourageName_aid1") '外援人员1
|
EntourageName_aid2 = rs("EntourageName_aid2") '外援人员2
|
DispatchOrdCancelReason= rs("DispatchOrdCancelReason")
|
DispatchOrdCancelReasonTXT= rs("DispatchOrdCancelReasonTXT")
|
ServiceOrdVIP = rs("ServiceOrdVIP")
|
TransferModeID = rs("TransferModeID") '运转方式ID
|
ServiceOrd_Sale_ID = rs("ServiceOrd_Sale_ID")
|
ServiceOrdIntroducer = rs("ServiceOrdIntroducer")
|
ServiceOrdOperationRemarks=rs("ServiceOrdOperationRemarks")
|
ServiceOrdVisit_time = rs("ServiceOrdVisit_time") '回访时间
|
ServiceOrdVisit_ID = rs("ServiceOrdVisit_ID") '回访人员ID
|
ServiceOrdVisit = rs("ServiceOrdVisit")
|
Guest_Point = rs("Guest_Point") '是否评价
|
Guest_Reward = rs("Guest_Reward") '打赏金额
|
Guest_Evaluate = rs("Guest_Evaluate") '评价内容
|
ServiceOrdTraDistance = rs("ServiceOrdTraDistance") '距离
|
DispatchOrdPerfomance = rs("DispatchOrdPerfomance") '绩效价计
|
ServiceOrdPtOutHosp = rs("ServiceOrdPtOutHosp") '转出医院
|
ServiceOrdPtInHosp = rs("ServiceOrdPtInHosp") '转入医院
|
FromHQ_is = rs("FromHQ_is") '是否有转内部转发
|
ContractMode_is = rs("ContractMode_is") '是否承包组任务
|
DispatchOrdIsEnd = rs("DispatchOrdIsEnd")
|
If ServiceOrdTraDistance="-1" Or ServiceOrdTraDistance="-1公里" Then
|
ServiceOrdTraDistance="--"
|
ElseIf instr(ServiceOrdTraDistance,"公里")=0 Then
|
ServiceOrdTraDistance=ServiceOrdTraDistance&"公里"
|
End If
|
If isDepartment("010401")=0 Then
|
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
|
DispatchOrdNo = DispatchOrdClass&DispatchOrdID
|
End If
|
|
If DispatchOrdTraTxnPrice="" Or isnull(DispatchOrdTraTxnPrice) Or DispatchOrdState="10" Then
|
ServiceOrdTraTxnPriceTXT="--"
|
ElseIf DispatchOrdTraTxnPrice+StretcherMoney=0 Then
|
ServiceOrdTraTxnPriceTXT="--"
|
Else
|
ServiceOrdTraTxnPriceTXT=MoneyCheck(DispatchOrdTraTxnPrice+StretcherMoney,1)
|
If StretcherMoney>0 Then ServiceOrdTraTxnPriceTXT=ServiceOrdTraTxnPriceTXT&"<br>("&DispatchOrdTraTxnPrice&"+"&StretcherMoney&")"
|
If ServiceOrdPoints>0 Then
|
ServiceOrdTraTxnPriceTXT=ServiceOrdTraTxnPriceTXT&"<br><font color=""#E91E63"">使用积分: "&ServiceOrdPoints&"</font>"
|
End If
|
If UserPointsCost>0 Then
|
ServiceOrdTraTxnPriceTXT=ServiceOrdTraTxnPriceTXT&"<br><font color=""#4CAF50"">积分成本: -"&UserPointsCost&"</font>"
|
End If
|
End If
|
'If DispatchOrdPerfomance<>DispatchOrdTraTxnPrice Then
|
' ServiceOrdTraTxnPriceTXT="<span style=""color: #E91E63;"">"&ServiceOrdTraTxnPriceTXT&"</span>"
|
'End If
|
If DispatchOrdTraVia<>"" then
|
OrdTraVia=DispatchOrdTraVia
|
ElseIf ServiceOrdTraVia<>"" Then
|
OrdTraVia=ServiceOrdTraVia
|
Else
|
OrdTraVia=DispatchOrdTraStreet
|
End If
|
|
i=i+1
|
|
If ServiceOrdTraSDTime<>"" Then
|
ServiceOrdTraSDTime=FORMATDATETIME(ServiceOrdTraSDTime,vbShortDate) &" "& Right("0"&Hour(ServiceOrdTraSDTime),2) &":"& Right("0"&Minute(ServiceOrdTraSDTime),2)
|
End If
|
If ServiceOrdApptDate<>"" Then
|
ServiceOrdApptDate=FORMATDATETIME(ServiceOrdApptDate,vbShortDate) &" "& Right("0"&Hour(ServiceOrdApptDate),2) &":"& Right("0"&Minute(ServiceOrdApptDate),2)
|
End If
|
DispatchOrdCarLicense=""
|
If DispatchOrdCarID<>"" And DispatchOrdCarID<>"0" Then DispatchOrdCarLicense=CarDataA(DispatchOrdCarID,"","CarLicense")
|
|
'审核状态
|
DispatchOrd_CheckTXT=""
|
If DispatchOrdState="8" Or DispatchOrdState="9" Then
|
If DispatchOrd_AP_Check="1" Or DispatchOrd_AP_Check="2" then
|
DispatchOrd_CheckTXT = DispatchOrdStateA(12)
|
ElseIf DispatchOrdIsEnd="-1" Then
|
DispatchOrd_CheckTXT = "审核不通过"
|
ElseIf DispatchOrd_AP_Check="0" And DispatchOrdMileage>0 then
|
DispatchOrd_CheckTXT = DispatchOrdStateA(11)
|
ElseIf DispatchOrd_AP_Check="0" And DispatchOrdMileage=0 then
|
DispatchOrd_CheckTXT = "未提交审核申请"
|
End If
|
If DispatchOrd_CheckTXT<>"" Then DispatchOrd_CheckTXT="（"&DispatchOrd_CheckTXT&" ）"
|
End If
|
|
'取消详情
|
If Not isnull(DispatchOrdCancelReason) Then
|
CancelReasonTXT=CancelReasonB(DispatchOrdCancelReason,DispatchOrdCancelReasonTXT)
|
Else
|
CancelReasonTXT=""
|
End If
|
|
'特殊订单类型
|
ServiceOrdVIPTXT=""
|
If ServiceOrdVIP="1" Then
|
ServiceOrdVIPTXT="[<span style='color: #E91E63;font-weight: bold;'>VIP</span>]"
|
ElseIf InStr(TransferModeID,",4,")>0 Then
|
ServiceOrdVIPTXT="[<span style='color: #E91E63;font-weight: bold;'>特殊绩效</span>]"
|
End If
|
'是否承包组任务
|
ContractModeTXT=""
|
If ContractMode_is>0 Then
|
ContractModeTXT=" <font color=#6699ff>(承包组任务)</font>"
|
End If
|
|
'订单颜色标记
|
OrdCssSign=""
|
If ServiceOrdUnitID="2" Then
|
OrdCssSign=" style='color: #F44336;'"
|
ElseIf FromHQ_is="1" Then
|
OrdCssSign=" style='color: #ff4aff;'"
|
End If
|
%>
|
<tr>
|
<%If isDepartment("030120")=1 Or isDepartment("030123")=1 Then%>
|
<td class="selected" style="width: 1%;"><input type="checkbox" id="DispatchOrder_<%=DispatchOrdID%>" name="DispatchOrdID" value="<%=DispatchOrdID%>"/></td>
|
<%ElseIf isDepartment("010401")=0 Then%>
|
<td class="selected" style="width: 1%;"><%=i+((page-1)*page_size)-1%></td>
|
<%End If%>
|
<td class="category category2" style="width: 5%;white-space:nowrap;"><A HREF="DispatchOrder<%If (OrdState="8_5" Or OrdState="8_0") And DispatchOrdClass="SA" Then Response.Write "_DKP"%>.gds?DispatchOrdID=<%=DispatchOrdID%>&OrdDateType=<%=OrdDateType%>&OrdClassList=<%=OrdClassList%>&h_menu1_1=1"<%=OrdCssSign%>><%=DispatchOrdNo%><%=ServiceOrdVIPTXT%><%If InStr(admin_OrderClass,"BF")>0 Then Response.Write "<br>"&replace(OrderClassA(DispatchOrdClass),"调度单","")&ContractModeTXT%></A></td>
|
|
<%If CancelReasonTXT<>"" Then%>
|
<td class="category1 category2" style="white-space:nowrap;"><div class="f-els3_3" title='<%=CancelReasonTXT%>'><%=Replace(DispatchOrdStateC(DispatchOrdState)&DispatchOrd_CheckTXT&" <font color='#0066cc'>"&CancelReasonTXT&"</font>","（","<br>（")%></div></td>
|
<%else%>
|
<td class="category1 category2" style="white-space:nowrap;"><%=Replace(DispatchOrdStateC(DispatchOrdState)&DispatchOrd_CheckTXT,"（","<br>（")%></td>
|
<%End If%>
|
|
|
|
<td class="selected category2"><A HREF="DispatchOrder<%If OrdState="8_5" Then Response.Write "_DKP"%>.gds?DispatchOrdID=<%=DispatchOrdID%>&OrdDateType=<%=OrdDateType%>&OrdClassList=<%=OrdClassList%>&h_menu1_1=1"><%=DateFormat(DispatchOrd_NS_Time)%></A></td>
|
<%If isDepartment("010401")=0 And OrdState<>"Image" then%><td class="selected category2" style="text-align: right;white-space:nowrap;"><%=ServiceOrdTraTxnPriceTXT%></td><%End If%>
|
<!--<td class="selected"><A HREF="ServiceOrder.gds?ServiceOrdID=<%=ServiceOrdID%>&OrdDateType=<%=OrdDateType%>&OrdClassList=<%=OrdClassList%>&h_menu1_1=1"><%=ServiceOrdClass&ServiceOrdID%></A></td>-->
|
<td class="selected" style="width: 5%;white-space:nowrap;"><%=DispatchOrdCarLicense%></td>
|
|
<td class="category category2" style="text-align: left;line-height: 13px;white-space:nowrap;">
|
<%
|
for j = 1 to UBOUND(EntourageIDPS)
|
EntourageID = EntourageIDPS(j)
|
EntourageName = EntourageNamePS(j)
|
EntourageOAName=EntourageOANameA(EntourageID,DispatchOrdID,"UserNameList")
|
If OrdState="Image" And InStr(EntourageOAName," ")>1 Then EntourageOAName=Mid(EntourageOAName,1,InStr(EntourageOAName," ")-1)
|
If EntourageOAName<>"" Then Response.Write Replace(EntourageOAName,"EntourageName","（"&EntourageName&"）")&"<br>"
|
If InStr(EntourageOAName,".png")>1 And OrdState="Image" Then
|
UpImageOAid=EntourageOANameA(EntourageID,DispatchOrdID,"userID")
|
UpImageOAName=EntourageOAName
|
End If
|
Next
|
If EntourageName_aid1<>"" Then Response.Write EntourageName_aid1&"（外援人员）<br>"
|
If EntourageName_aid2<>"" Then Response.Write EntourageName_aid2&"（外援人员）<br>"
|
If ServiceOrd_Sale_ID<>"" And ServiceOrd_Sale_ID<>"177" And OrdState<>"Image" And isDepartment("010401")=0 And isDepartment("010601")=1 Then Response.Write "<font color='#ff00cc'>"&OAUser(ServiceOrd_Sale_ID,"UserName")&"</font>（销售）<br>"
|
If ServiceOrdIntroducer<>"" And ServiceOrdIntroducer<>"无" And OrdState<>"Image" And isDepartment("010401")=0 And isDepartment("010602")=1 Then Response.Write "<font color='#ff33cc'>"&UnitIntroducer(ServiceOrdIntroducer,"UnitName")&"</font>（介绍人）<br>"
|
If Guest_Reward>0 And Guest_Point>0 And OrdState<>"Image" Then
|
Response.Write "<font color='#E91E63'>客户打赏: "&Guest_Reward&"元</font><br>"
|
ElseIf Guest_Reward=0 And Guest_Point>0 And OrdState<>"Image" Then
|
'Response.Write "客户打赏: "&Guest_Reward&"元<br>"
|
End If
|
|
%>
|
</td>
|
<td class="category category2 left" style="line-height: 13px;"><span style='color: #E91E63;'><%If ServiceOrdPtOutHosp="814" Then Response.Write OrdTraVia Else Response.Write HospA(ServiceOrdPtOutHosp,"HospName") End If%></span><br><span style='color: #4CAF50;'><%If ServiceOrdPtInHosp="814" Then Response.Write DispatchOrdTraEnd Else Response.Write HospA(ServiceOrdPtInHosp,"HospName") End If%></span></td>
|
<td class="selected" style="width: 1%;white-space:nowrap;text-align: right;"><%=ServiceOrdTraDistance%></td>
|
<%If Mid(searchTXT,1,6)="staff|" then%><td class="selected category2"><%=DispatchOrdMileage%> 公里</td><%End If%>
|
<%If OrdState="Visit" Then
|
sql="select count(Send_ID) from Sms_Log where Send_Remarks='DispatchOrdID:"&DispatchOrdID&"' and Send_Text like '%评价%'"
|
rsVisit.open sql,objConn,1,1
|
SendInt=rsVisit(0)
|
rsVisit.close()
|
%>
|
<td class="selected category2"><%=DateFormat(DispatchOrdActualDate)%></td>
|
<td class="selected category2"><%If Year(DispatchOrdReturnDate)>Year(DispatchOrdActualDate) Or Month(DispatchOrdReturnDate)>Month(DispatchOrdActualDate) Or day(DispatchOrdReturnDate)>day(DispatchOrdActualDate) Or hour(DispatchOrdReturnDate)>=20 Then%><span style='color:#f44336;'><%=DateFormat(DispatchOrdReturnDate)%></span><%Else%><%=DateFormat(DispatchOrdReturnDate)%><%End If%></td>
|
<td class="category category2" style="text-align: left;">
|
<%If SendInt>0 Then%>已发评价短信<%If SendInt>1 Then Response.Write " "&SendInt&"次"%><%End If%><br>
|
<%If isnull(ServiceOrdVisit_ID) then%>未回访<%else%>回访人员:<%=OAUser(ServiceOrdVisit_ID,"UserName")%><br>回访时间:<%=ServiceOrdVisit_time%><br><%=ServiceOrdVisit%><%End If%></td>
|
<td class="category category2 last" style="text-align: left;"><%=Guest_Evaluate%></td>
|
<%ElseIf OrdState="Image" Then
|
ImageIDs=""
|
isAP=-1
|
for ITA=0 to ubound(ImageTypeArray)
|
|
Response.Write "<td class=""category category2"" style=""text-align: left;"">"
|
sql="select ImageData.* from ImageData,dictionary where DOrdIDDt="&DispatchOrdID&" and vtext='"&ImageTypeArray(ITA)&"' and ImageDel=0 and vID=ImageType and vtitle='ImageType' order by ImageType,UpImageTime"
|
rsImage.open sql,objConn,1,1
|
do while not rsImage.Eof
|
ImageID = rsImage("id")
|
ImageType = rsImage("ImageType")
|
ImageUrl = rsImage("ImageUrl")
|
ImageUrls = rsImage("ImageUrls")
|
ImageDeg = rsImage("ImageDeg")
|
UpImageTime = rsImage("UpImageTime")
|
'UpImageOAid = rsImage("UpImageOAid")
|
isAP = rsImage("isAP")
|
isAP_ID = rsImage("isAP_ID")
|
isAP_Time = rsImage("isAP_Time")
|
If Len(ImageUrls)>0 Then
|
strPICUrl=ImageUrls
|
Else
|
strPICUrl=ImageUrl
|
End If
|
'UpImageOAName=OAUser(UpImageOAid,"UserName")
|
If isAP=0 Then
|
ImageIDs=ImageIDs & "," &ImageID
|
End If
|
Response.Write "<a href=""/Image.gds?ImageID="&ImageID&""" target=""_blank""><img src="""&strPICUrl&""" width=""80"" border=""0"" class=""closeimg"" style=""transform: rotate("&ImageDeg&"deg);-ms-transform:rotate("&ImageDeg&"deg);-moz-transform:rotate("&ImageDeg&"deg);-webkit-transform:rotate("&ImageDeg&"deg);-o-transform:rotate("&ImageDeg&"deg);""></a>"
|
If isAP=0 And isDepartment("030122")=1 Then Response.Write "<a href=""javascript:DelImage_JS('"&ImageID&"')"" ><img src=""/resources/images/xx.png"" class=""closeimgDel"" alt=""删除文档"" width=""20px"" height=""20px"" /></a>"
|
Response.Write "<span class=""closeimgTime"">"&UpImageTime&"</span>"
|
rsImage.movenext
|
Loop
|
rsImage.close()
|
Response.Write "</td>"
|
|
Next%>
|
<td class="category last">
|
<%If isAP=-1 And isDepartment("030122")=1 Then%>
|
<input type="button" name="submit51" id="PaidMoneyAdd" value="提醒上传" class="ui-button ui-widget ui-state-default ui-corner-all" role="button" aria-disabled="false" onclick="JS_WorkWXTosend('<%=UpImageOAid%>','<%=UpImageOAName%>','请上传调度相关文书','/m_DispatchOrder_Update.gds?DispatchOrdID=<%=DispatchOrdID%>&order_type=8')">
|
<%ElseIf ImageIDs<>"" And isDepartment("030122")=1 Then%>
|
<input type="button" name="submit51" id="PaidMoneyAdd" value="审核通过" class="ui-button ui-widget ui-state-default ui-corner-all" role="button" aria-disabled="false" onclick="window.location.href='/admin_save.gds?admin_save=106&ImageID=<%=Mid(ImageIDs,2)%>'"><br><br>
|
<input type="button" name="submit51" id="PaidMoneyAdd" value="要求重新上传" class="ui-button ui-widget ui-state-default ui-corner-all" role="button" aria-disabled="false" onclick="JS_WorkWXTosend('<%=UpImageOAid%>','<%=UpImageOAName%>','请重新上传<%=ImageTypeTXT%>','/m_DispatchOrder_Update.gds?DispatchOrdID=<%=DispatchOrdID%>&order_type=8')"><br><br>
|
<input type="button" name="submit51" id="PaidMoneyAdd" value="提醒上传" class="ui-button ui-widget ui-state-default ui-corner-all" role="button" aria-disabled="false" onclick="JS_WorkWXTosend('<%=UpImageOAid%>','<%=UpImageOAName%>','请上传调度相关文书','/m_DispatchOrder_Update.gds?DispatchOrdID=<%=DispatchOrdID%>&order_type=8')">
|
<%End If%>
|
</td>
|
<%else%>
|
<td class="selected category2"><%=DateFormat(DispatchOrdActualDate)%></td>
|
<td class="selected category2"><%If Year(DispatchOrdReturnDate)>Year(DispatchOrdActualDate) Or Month(DispatchOrdReturnDate)>Month(DispatchOrdActualDate) Or day(DispatchOrdReturnDate)>day(DispatchOrdActualDate) Or hour(DispatchOrdReturnDate)>=20 Then%><span style='color:#f44336;'><%=DateFormat(DispatchOrdReturnDate)%></span><%Else%><%=DateFormat(DispatchOrdReturnDate)%><%End If%></td>
|
<td class="category category2 last" style="text-align: left;"><%=ServiceOrdOperationRemarks%></td>
|
<%End If%>
|
|
|
</tr>
|
<%rs.movenext
|
loop
|
rs.close()
|
%>
|
<%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> </td>
|
<%If isDepartment("010401")=0 then%><td> </td><%End If%>
|
<%If Mid(searchTXT,1,6)="staff|" then%><td> </td><%End If%>
|
<%If OrdState="Image" then%><td> </td><td> </td><%End If%>
|
<td class="last"> </td>
|
</tr>
|
<%next%>
|
</tbody>
|
</table>
|
|
</form>
|
</div>
|
<!-- pagination -->
|
<div class="pagination pagination-left" style="padding-left: 20px;padding-right:20px;">
|
<div class="results">
|
<%
|
ShowingLeast = (page-1)*page_size+1
|
ShowingMax = page_size*page
|
if ShowingMax>total_records then ShowingMax=total_records
|
%>
|
<span><%="显示 "& ShowingLeast &"-"& ShowingMax &" of "&total_records%></span>
|
</div>
|
<%if total_page>1 then%>
|
<ul class="pager">
|
<%if page=1 then%>
|
<li class="disabled">« 上页</li>
|
<%else%>
|
<li><a href="?page=<%=page-1%><%=page_URL%>">« 上页</a></li>
|
<%end if%>
|
<%
|
acc4=""
|
for i=1 to total_page
|
if total_page<=9 then
|
acc4=acc4&","&i
|
else
|
if i=1 then
|
acc4=acc4&","&i
|
elseif page<=5 and i<=7 then
|
acc4=acc4&","&i
|
elseif page<=total_page-4 and i>=total_page-6 then
|
acc4=acc4&","&i
|
elseif i>=page-2 and i<=page+2 then
|
acc4=acc4&","&i
|
elseif i=total_page then
|
acc4=acc4&","&i
|
elseif i=2 or i=total_page-1 then
|
acc4=acc4&",0"
|
end if
|
end if
|
next
|
acc4SP=SPLIT(acc4,",")
|
for i = 1 to UBOUND(acc4SP)%>
|
<%if acc4SP(i)="0" then%>
|
<li class="separator">...</li>
|
<%elseif cint(page)=cint(acc4SP(i)) then%>
|
<li class="current"><%=acc4SP(i)%></li>
|
<%else%>
|
<li><a href="?page=<%=acc4SP(i)%><%=page_URL%>"><%=acc4SP(i)%></a></li>
|
<%end if%>
|
<%next%>
|
<%if CInt(page)>=CInt(total_page) then%>
|
<li class="disabled">下页 »</li>
|
<%else%>
|
<li><a href="?page=<%=page+1%><%=page_URL%>">下页 »</a></li>
|
<%end if%>
|
<li>
|
<form action="?1=1<%=page_URL%>" method="post">
|
<input type="text" name="page" value="<%=page%>" style="width: 20px;" />
|
<input type="submit" name="submit" value="转跳" />
|
</form>
|
</li>
|
</ul>
|
<%end if%>
|
</div>
|
<!-- end pagination -->
|
</div>
|
<!-- end table -->
|
|
<div class="dialogJ dialogJfix dialogJshadow" id="window_Entourage" style="z-index: 50007; width: 350px; left: 0px; top: 0px;display:none;">
|
<div class="dialogJtitle">
|
<a href="javascript:JS_EntourageClose();" class="dialogJclose" title="关闭本窗口"> </a>
|
<span class="dialogJtxt">选择人员</span> <input type="text" id="EntourageSearchTXT" name="EntourageSearchTXT" value="<%=EntourageSearchTXT%>" style="width: 100px;" onkeyup="JS_EntourageSearch();"/> <input type="button" name="button3" value="查询" onclick="JS_EntourageSearch();"> <input type="button" name="button3" value="清空" onclick="JS_EntourageDel();">
|
</div>
|
<div class="dialogJcontent">
|
<div class="box">
|
<div class="table" style="padding: 0px;">
|
<input name="window_EntourageID" type="hidden" value="">
|
<input name="window_OA_CompetencyID" type="hidden" value="ServiceOrdIntroducer">
|
<table>
|
<thead>
|
<tr>
|
<th class="selected left"> </th>
|
<th class="category" style="text-align: center;width: 15%;">姓名</th>
|
<th class="category last" style="text-align: center;">手机</th>
|
</tr>
|
</thead>
|
<tbody id="EntourageList">
|
<%for j=0 to 6%>
|
<tr>
|
<td class="selected"> </td>
|
<td class="category" style="width: 15%;"> </td>
|
<td class="category last"> </td>
|
</tr>
|
<%next%>
|
</tbody>
|
</table>
|
</div>
|
</div>
|
</div>
|
</div>
|
</div>
|
<script LANGUAGE="javascript">
|
//打开选择人员窗口
|
function JS_EntourageOpen(id,OA_CompetencyID)
|
{
|
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("EntourageName_"+id).getBoundingClientRect().top;
|
if (dTop<200) {dTop=110;}
|
var dLeft = document.getElementById("EntourageName_"+id).getBoundingClientRect().left;
|
if (dLeft<200) {dLeft=200;}
|
window_Entourage.style.display="block";
|
window_Entourage.style.left=(dLeft-100)+"px";
|
window_Entourage.style.top=(sTop+dTop+30)+"px";
|
document.all.window_EntourageID.value=id;
|
document.all.window_OA_CompetencyID.value=OA_CompetencyID;
|
if (OA_CompetencyID=="ServiceOrdIntroducer")
|
{var OrdClass="<%=ServiceOrdClass%>";}
|
else
|
{var OrdClass="<%=DispatchOrdClass%>";}
|
var DateDay = "<%=now()%>"
|
if (OA_CompetencyID!=0){window.HiddenFrame.location.replace('AdminUserSearch.gds?OA_CompetencyID='+OA_CompetencyID+'&DateDay='+DateDay+'&OrdClass='+OrdClass);}
|
document.getElementById('EntourageSearchTXT').focus();
|
EntourageSearchTXT.focus();
|
}
|
//关闭选择人员窗口
|
function JS_EntourageClose()
|
{
|
document.all.EntourageSearchTXT.value='';
|
window_Entourage.style.display="none";
|
}
|
//选择人员查询
|
function JS_EntourageSearch()
|
{
|
EntourageSearchTXT=document.all.EntourageSearchTXT.value;
|
OA_CompetencyID=document.all.window_OA_CompetencyID.value;
|
if (OA_CompetencyID=="ServiceOrdIntroducer")
|
{var OrdClass="<%=ServiceOrdClass%>";}
|
else
|
{var OrdClass="<%=DispatchOrdClass%>";}
|
window.HiddenFrame.location.replace('AdminUserSearch.gds?OA_CompetencyID='+OA_CompetencyID+'&EntourageSearchTXT='+EntourageSearchTXT+'&OrdClass='+OrdClass);
|
}
|
function EnterPress(e){ //传入 event
|
var e = e || window.event;
|
if(e.keyCode == 13){JS_EntourageSearch();}
|
}
|
//选择人员
|
function JS_EntourageSave(OA_UserID,OA_UserName)
|
{
|
id=document.all.window_EntourageID.value;
|
document.getElementById("Entourage_"+id).value=OA_UserID;
|
document.getElementById("EntourageName_"+id).value=OA_UserName;
|
document.getElementById("EntourageName_"+id).className='small';
|
document.all.window_EntourageID.value="";
|
JS_EntourageClose();
|
}
|
//选择人员清空
|
function JS_EntourageDel()
|
{
|
id=document.all.window_EntourageID.value;
|
document.getElementById("Entourage_"+id).value='';
|
document.getElementById("EntourageName_"+id).value='';
|
document.getElementById("EntourageName_"+id).className='small';
|
document.all.window_EntourageID.value="";
|
JS_EntourageClose();
|
}
|
//显示人员列表窗口
|
function JS_EntourageList(EntourageListArray,acc1,acc2,EntourageSearchTXT,OA_CompetencyID,OA_CompetencyName)
|
{
|
var EntourageListHTML = "";
|
var i = 0;
|
var DateDay = "<%=now()%>"
|
if (OA_CompetencyID=="ServiceOrdIntroducer")
|
{var OrdClass="<%=ServiceOrdClass%>";}
|
else
|
{var OrdClass="<%=DispatchOrdClass%>";}
|
if (EntourageListArray.length>0)
|
{
|
for (var i=0;i<EntourageListArray.length;i++)
|
{
|
OAname=EntourageListArray[i][1];
|
OAname=OAname.replace("<img src=/resources/images/2016090802.png>", "");
|
OAname=OAname.replace("<img src=/resources/images/2016090803.png>", "");
|
OAname=OAname.replace("[机动]", "");
|
EntourageListHTML = EntourageListHTML+"<tr onclick='JS_EntourageSave("+EntourageListArray[i][0]+",\""+OAname+"\")' style='cursor:pointer'><td class='selected'><img src='"+EntourageListArray[i][3]+"' style='max-width:29px;max-height: 29px;'></td><td class='category' style='width: 15%;'>"+EntourageListArray[i][1]+"</td><td class='price last1'>"+EntourageListArray[i][2]+"</td></tr>";
|
}
|
}
|
if (acc2>1)
|
{
|
i=i+1;
|
EntourageListHTML = EntourageListHTML+"<tr><td class='selected'> </td><td colspan='2' style='text-align:center;'>";
|
if (acc1>1){EntourageListHTML = EntourageListHTML+"<a href='javascript:window.HiddenFrame.location.replace(\"AdminUserSearch.gds?OA_CompetencyID="+OA_CompetencyID+"&EntourageSearchTXT="+EntourageSearchTXT+"&OrdClass="+OrdClass+"&page="+(acc1-1)+"&DateDay="+DateDay+"\");'>上一页</a>";}else{EntourageListHTML = EntourageListHTML+" ";}
|
if (acc1<acc2){EntourageListHTML = EntourageListHTML+" <a href='javascript:window.HiddenFrame.location.replace(\"AdminUserSearch.gds?OA_CompetencyID="+OA_CompetencyID+"&EntourageSearchTXT="+EntourageSearchTXT+"&OrdClass="+OrdClass+"&page="+(acc1+1)+"&DateDay="+DateDay+"\");'>下一页</a></td></tr>";}
|
}
|
|
for (var j=i;j<=6;j++)
|
{
|
EntourageListHTML = EntourageListHTML+"<tr><td class='selected'> </td><td class='price'> </td><td class='price last1'> </td></tr>";
|
}
|
document.getElementById("EntourageList").innerHTML=EntourageListHTML;
|
|
}
|
function DelImage_JS(ImageID) {
|
if(confirm("确定删除文档？")){window.location.replace('/admin_save.gds?admin_save=104&m=0&DelImageID='+ImageID);}
|
};
|
</script>
|
<!-- end forms -->
|
|
</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>
|
