<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%'On Error Resume next
|
searchTXT=SafeRequest(trim(Request("searchTXT")))
|
searchTXTMore=SafeRequest(Request("searchTXTMore"))
|
If InStr(searchTXT,",")>0 Then
|
searchTXTMore=searchTXT
|
searchTXT=""
|
End If
|
OrdState=SafeRequest(Request("OrdState"))
|
OrdClassList=SafeRequest(Request("OrdClassList"))
|
OrdDateType=SafeRequest(Request("OrdDateType"))
|
OrdDateStart=SafeRequest(Request("OrdDateStart"))
|
OrdDateEnd=SafeRequest(Request("OrdDateEnd"))
|
UnitNameID=SafeRequest(Request("UnitNameID"))
|
CoopUnitID=SafeRequest(Request("CoopUnitID"))
|
|
|
|
If isDepartment("070107")=1 Then '只显示个人分管医院
|
OAHospsql=" and (ServiceOrdPtOutHospID in (select HospID from HospData where HospOAID='"&session("adminID")&"' or HospOAID like '%,"&session("adminID")&",%') or ServiceOrdPtInHospID in (select HospID from HospData where HospOAID='"&session("adminID")&"' or HospOAID like '%,"&session("adminID")&",%')) "
|
|
ElseIf isDepartment("0301")=0 Then '没显示列表权
|
Response.Redirect "/"
|
Response.End()
|
|
End If
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
Set rsDt = Server.CreateObject("ADODB.Recordset")
|
|
'默认显示字段
|
If OrdState="" Then OrdState=0
|
If OrdState="Visit" Then
|
Set rsVisit = Server.CreateObject("ADODB.Recordset")
|
If OrdClassList="" Then OrdClassList="0"
|
If OrdClassList="0" then
|
OrdClassName = "全部回访"
|
ElseIf OrdClassList="1" then
|
OrdClassName = "已回访"
|
Else
|
OrdClassName = "未回访"
|
End If
|
ElseIf OrdState="Image" Then
|
Set rsImage = Server.CreateObject("ADODB.Recordset")
|
If OrdClassList="" Then OrdClassList="0"
|
If OrdClassList="1" then
|
OrdClassName = "已审核"
|
Else
|
OrdClassName = "未审核"
|
End If
|
Else
|
OrdClassName = "全部"
|
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()&" 23:59:59"
|
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
|
If InStr(OrdDateEnd," ")>1 Then
|
SqlOrdDateType="between '"&OrdDateStart&"' and '"&OrdDateEnd&"'"
|
Else
|
SqlOrdDateType="between '"&OrdDateStart&"' and '"&OrdDateEnd&" 23:59:59'"
|
End If
|
|
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="文件删除完成!!"
|
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="部分调度单状态不可使用批量取消!!"
|
end if
|
end if
|
|
|
If OrdState<>"0" And IsNumeric(OrdState) then
|
OrdListName = DispatchOrdStateA(OrdState)&"查询"
|
ElseIf OrdState="Visit" Then
|
OrdListName = OrdClassName&"订单"
|
ElseIf OrdState="Image" Then
|
If UnitNameID="" Then UnitNameID="1"
|
OrdListName = "调度单"
|
Else
|
OrdListName = "调度单查询"
|
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
|
OrdClassTypes = "0,全部|"
|
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") & "|"
|
If Cstr(rs("vID"))=Cstr(OrdClassList) Then OrdClassName = rs("vtext")
|
rs.movenext
|
Loop
|
rs.close()
|
End If
|
OrdClassTypes = left(OrdClassTypes,len(OrdClassTypes)-1)
|
OrdClassTypesPS = SPLIT(OrdClassTypes,"|")
|
|
'公司列表
|
If UnitNameID<>"" Then
|
Response.Cookies("CAME")("UnitNameID")=UnitNameID
|
ElseIf UnitNameID="" And Request.Cookies("CAME")("UnitNameID")<>"" Then
|
UnitNameID=Request.Cookies("CAME")("UnitNameID")
|
End If
|
UnitNameName="全部"
|
UnitNames = "0,全部|"
|
sql="select vID,vtext,vType from dictionary where vType>=0 and vtitle='UnitName' order by vType desc,vOrder"
|
rs.open Sql,objConn,1,1
|
do while not rs.Eof
|
UnitName=rs("vtext")
|
If rs("vType")=0 Then UnitName=UnitName&"(停用)"
|
UnitNames = UnitNames & rs("vID") &","& UnitName & "|"
|
If UnitNameID=CStr(rs("vID")) Then UnitNameName = UnitName
|
rs.movenext
|
Loop
|
rs.close()
|
UnitNames = left(UnitNames,len(UnitNames)-1)
|
UnitNamesPS = SPLIT(UnitNames,"|")
|
|
'高级搜索
|
If searchTXTMore<>"" Then
|
If Right(searchTXTMore,1)="," Then searchTXTMore=searchTXTMore&" "
|
searchTXTMorePS = SPLIT(searchTXTMore,", ")
|
searchTXTMoreUBOUND=UBOUND(searchTXTMorePS)
|
If searchTXTMoreUBOUND>=0 Then searchTXTMore0=searchTXTMorePS(0) '成交价范围-低
|
If searchTXTMoreUBOUND>=1 Then searchTXTMore1=searchTXTMorePS(1) '成交价范围-高
|
If searchTXTMoreUBOUND>=2 Then searchTXTMore2=searchTXTMorePS(2) '联系人姓名
|
If searchTXTMoreUBOUND>=3 Then searchTXTMore3=searchTXTMorePS(3) '联系电话
|
If searchTXTMoreUBOUND>=4 Then searchTXTMore4=searchTXTMorePS(4) '患者姓名
|
If searchTXTMoreUBOUND>=5 Then searchTXTMore5=searchTXTMorePS(5) '转出医院
|
If searchTXTMoreUBOUND>=6 Then searchTXTMore6=searchTXTMorePS(6) '转入医院
|
If searchTXTMoreUBOUND>=7 Then searchTXTMore7=searchTXTMorePS(7) '销售*
|
If searchTXTMoreUBOUND>=8 Then searchTXTMore8=searchTXTMorePS(8) '介绍人
|
If searchTXTMoreUBOUND>=9 Then searchTXTMore9=searchTXTMorePS(9) '客服*
|
If searchTXTMoreUBOUND>=10 Then searchTXTMore10=searchTXTMorePS(10) '调度*
|
If searchTXTMoreUBOUND>=11 Then searchTXTMore11=searchTXTMorePS(11) '来源*
|
searchTXTMoreSql=""
|
If searchTXTMore0<>"" And IsNumeric(searchTXTMore0) Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrdTraTxnPrice>="&searchTXTMore0&" "
|
End If
|
If searchTXTMore1<>"" Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrdTraTxnPrice<="&searchTXTMore1&" "
|
End If
|
If searchTXTMore2<>"" Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrdCoName like '%"&searchTXTMore2&"%' "
|
End If
|
If searchTXTMore3<>"" Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrdCoPhone like '%"&searchTXTMore3&"%' "
|
End If
|
If searchTXTMore4<>"" Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrdPtName like '%"&searchTXTMore4&"%' "
|
End If
|
If searchTXTMore5<>"" Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrdPtOutHospID in (select HospID from HospData where HospName like '%"&searchTXTMore5&"%') "
|
End If
|
If searchTXTMore6<>"" Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrdPtInHospID in (select HospID from HospData where HospName like '%"&searchTXTMore6&"%') "
|
End If
|
If searchTXTMore7<>"" Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrd_Sale_ID in (select OA_User_ID from OA_User where OA_Name like '%"&searchTXTMore7&"%') "
|
End If
|
If searchTXTMore8<>"" Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrdIntroducer in (select IntroducerID from IntroducerData where IntroducerName like '%"&searchTXTMore8&"%') "
|
End If
|
If searchTXTMore9<>"" Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrd_CC_ID in (select OA_User_ID from OA_User where OA_Name like '%"&searchTXTMore9&"%') "
|
End If
|
If searchTXTMore10<>"" Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrdID in (select ServiceOrdIDDt from DispatchOrd where DispatchOrd_NS_ID in (select OA_User_ID from OA_User where OA_Name like '%"&searchTXTMore10&"%')) "
|
End If
|
If searchTXTMore11<>"" Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrdSource in (select vID from dictionary where vtitle in ('OrdSource') and vtext like '%"&searchTXTMore11&"%') "
|
End If
|
If searchTXTMoreSql<>"" Then
|
searchTXTMoreSql= Mid(searchTXTMoreSql,5)
|
searchTXT=searchTXTMore
|
End If
|
End If
|
|
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
|
%>
|
<!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;
|
}
|
</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("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 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: 105px; display: none;background-position: initial initial; background-repeat: initial initial;margin-left: 69px;">
|
<div class="jspContainer" style="width: 105px;">
|
<div style="padding: 0px; top: 0px; width: 105px;">
|
<%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 -->
|
<%
|
acc1=clng(request("page"))
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 20
|
acc2=0
|
acc3=0
|
|
If searchTXTMoreSql<>"" Then
|
searchSql=searchTXTMoreSql&" and DispatchOrd_NS_Time "&SqlOrdDateType
|
elseif 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)&" "
|
ElseIf Mid(searchTXT,1,4)="out|" Then ' and DispatchOrdState in (8)
|
searchSql=" (ServiceOrdPtOutHosp in (select vid from dictionary where vType=1 and vtitle='HospName' and vtext='"&Mid(searchTXT,5)&"')) and DispatchOrd_NS_Time "&SqlOrdDateType
|
ElseIf Mid(searchTXT,1,3)="in|" Then
|
searchSql=" (ServiceOrdPtInHosp in (select vid from dictionary where vType=1 and vtitle='HospName' and vtext='"&Mid(searchTXT,4)&"')) and DispatchOrd_NS_Time "&SqlOrdDateType
|
ElseIf Mid(searchTXT,1,5)="hosp|" Then
|
searchSql=" (ServiceOrdPtOutHosp in (select vid from dictionary where vType=1 and vtitle='HospName' and vtext='"&Mid(searchTXT,6)&"') or ServiceOrdPtInHosp in (select vid from dictionary where vType=1 and vtitle='HospName' and vtext='"&Mid(searchTXT,6)&"')) and DispatchOrd_NS_Time "&SqlOrdDateType
|
ElseIf Mid(searchTXT,1,6)="staff|" Then
|
searchSql=" (DispatchOrdID in (select DispatchOrdIDDt from DispatchOrd_Entourage where EntourageState=3 and EntourageOAid="&Mid(searchTXT,7)&")) and DispatchOrd_NS_Time "&SqlOrdDateType
|
ElseIf Mid(searchTXT,1,7)="staff1|" Then
|
searchSql=" (DispatchOrdID in (select DispatchOrdIDDt from DispatchOrd_Entourage where EntourageState=3 and EntourageOAid="&Mid(searchTXT,8)&")) and DispatchOrdState in (8,9) and DispatchOrd_NS_Time "&SqlOrdDateType
|
ElseIf Mid(searchTXT,1,8)="OrdType|" Then
|
searchSql=" (ServiceOrdIDDt in (select ServiceOrdID from ServiceOrder where ServiceOrdState=3 and ServiceOrdType="&Mid(searchTXT,9)&")) and DispatchOrdState not in (10) and DispatchOrd_NS_Time "&SqlOrdDateType
|
Else
|
searchSql=" (ServiceOrdCoName like '%"&searchTXT&"%' or ServiceOrdCoPhone like '%"&searchTXT&"%' or ServiceOrdPtName like '%"&searchTXT&"%' or ServiceOrdTraStreet like '%"&searchTXT&"%' or ServiceOrdTraEnd like '%"&searchTXT&"%' or ServiceOrdPtOutHosp in (select vid from dictionary where vType=1 and vtitle='HospName' and vtext like '%"&searchTXT&"%')) "
|
End if
|
else
|
searchSql=" DispatchOrd_NS_Time "&SqlOrdDateType&" "
|
If OrdClassList<>"" And OrdClassList<>"0" And OrdState<>"Visit" And OrdState<>"Image" Then
|
searchSql=searchSql&" and ServiceOrdType in ("&OrdClassList&") "
|
End If
|
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,9) and DispatchOrd_AP_Check=0 "
|
ElseIf OrdState="8_1" Then'已返回(审核)
|
searchSql=" DispatchOrdState in (8) and DispatchOrd_AP_Check>0 and DispatchOrd_NS_Time "&SqlOrdDateType
|
ElseIf OrdState="9" Then '跑空单
|
searchSql=searchSql&" and DispatchOrdState in (9) "
|
ElseIf OrdState="8_3" Then '不包含取消的订单
|
'searchSql=searchSql&" and DispatchOrdState not in (9,10,14) "
|
ElseIf OrdState="Visit" And OrdClassList="1" Then
|
searchSql=searchSql&" and DispatchOrdState in (8,9) and ServiceOrdVisit_ID is not null"
|
ElseIf OrdState="Visit" And OrdClassList="2" Then
|
searchSql=searchSql&" and DispatchOrdState in (8,9) and ServiceOrdVisit_ID is null"
|
ElseIf OrdState="Visit" Then
|
searchSql=searchSql&" and DispatchOrdState in (8,9) "
|
ElseIf OrdState="Image" Then
|
If OrdClassList="1" Then
|
searchSql=searchSql&" and DispatchOrdState in (2,3,4,5,6,7,8,9) and (DispatchOrdID in (select DOrdIDDt from ImageData where isAP=1) and DispatchOrdID not in (select DOrdIDDt from ImageData where isAP=0)) "
|
Else
|
searchSql=searchSql&" and DispatchOrdState in (2,3,4,5,6,7,8,9) and (DispatchOrdID in (select DOrdIDDt from ImageData where isAP=0) or DispatchOrdID not in (select DOrdIDDt from ImageData where isAP=1)) "
|
End If
|
Else
|
searchSql=searchSql&" and DispatchOrdState in ("&OrdState&") "
|
End If
|
|
If isDepartment("010401")=1 then
|
|
searchSql=searchSql&" and DispatchOrdState not in (9,10,14) "
|
|
End if
|
end If
|
|
'查看合作公司
|
If CoopUnitID<>"" And CoopUnitID<>"0" Then
|
If Left(CoopUnitID,2)="0," Then CoopUnitID=Mid(CoopUnitID,3)
|
CoopUnitSql=" And ServiceOrdUnitID in ("&CoopUnitID&")"
|
Else
|
CoopUnitSql=""
|
End If
|
|
'查看各分公司报表权限
|
if isDepartment("070109")=1 And UnitNameID<>"" then
|
OrdClassListSql=""
|
If UnitNameID<>"" And UnitNameID<>"0" Then
|
sql="select vOrder2 from dictionary where vtitle='UnitName' and vID="&UnitNameID
|
rs.open sql,objConn,1,1
|
If not rs.Eof Then
|
UnitTypeID=rs(0)
|
rs.close()
|
sql="select vID,vtext,vOrder2 from dictionary where vID in ("&UnitTypeID&") and vtitle='OrderClass' order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
OrderClassID = rs("vOrder2")
|
OrdClassListSql = OrdClassListSql&","&OrderClassID
|
rs.movenext
|
Loop
|
OrdClassListSql=Mid(OrdClassListSql,2)
|
OrdClassListSql=Replace(OrdClassListSql,",","','")
|
End If
|
rs.close()
|
Else
|
sql="select vID,vtext,vOrder2 from dictionary where vType in (1,2) and vtitle='OrderClass' order by vOrder"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
OrderClassID = rs("vOrder2")
|
OrdClassListSql = OrdClassListSql&","&OrderClassID
|
rs.movenext
|
loop
|
rs.close()
|
OrdClassListSql=Mid(OrdClassListSql,2)
|
OrdClassListSql=Replace(OrdClassListSql,",","','")
|
End If
|
end If
|
|
'人员列表
|
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,",")
|
|
'查询统计
|
If OrdState<>"Image" Then
|
'sql="select Sum_OrdInt=COUNT(DispatchOrdID),Sum_TraTxnPrice=SUM(ServiceOrdTraTxnPrice) from DispatchOrd LEFT JOIN ServiceOrder on ServiceOrdIDDt=ServiceOrdID where "&searchSql&" and DispatchOrdState<>10"
|
sql="select Sum_OrdInt=SUM(Sum_OrdInt),Sum_TraTxnPrice=SUM(Sum_TraTxnPrice) from (select Sum_OrdInt=COUNT(DispatchOrdID),case when isnull(SUM(ServiceOrdTraTxnPrice+StretcherMoney),0)=0 or DispatchOrdPerfomance=0 then 0 else SUM(ServiceOrdTraTxnPrice+StretcherMoney)/((select SUM(DispatchOrdPerfomance) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState not in (10))/DispatchOrdPerfomance) END as Sum_TraTxnPrice from DispatchOrd LEFT JOIN ServiceOrder on ServiceOrdIDDt=ServiceOrdID where "&searchSql&CoopUnitSql&OAHospsql&" and (ServiceOrdClass in ('"&OrdClassListSql&"') or DispatchOrdClass in ('"&OrdClassListSql&"')) and DispatchOrdState not in (10) GROUP BY DispatchOrdPerfomance,ServiceOrdID) as aa"
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
Sum_OrdInt = rs("Sum_OrdInt")
|
Sum_TraTxnPrice = Int(rs("Sum_TraTxnPrice"))
|
rs.close()
|
If isnull(Sum_TraTxnPrice) Then Sum_TraTxnPrice=0
|
End If
|
|
'查询显示
|
i=1
|
'sql="select TransferModeID=(select ','+CONVERT(varchar(2),TransferModeID) from ServiceOrd_TransferMode where ServiceOrdTMID=ServiceOrdID for xml path(''))+',',case when isnull(ServiceOrdTraTxnPrice,0)=0 or DispatchOrdPerfomance=0 then 0 else round(ServiceOrdTraTxnPrice/((select SUM(DispatchOrdPerfomance) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID and DispatchOrdState not in (10))/DispatchOrdPerfomance),2,1) END as DispatchOrdTraTxnPrice,* from DispatchOrd LEFT JOIN ServiceOrder on ServiceOrdIDDt=ServiceOrdID where "&searchSql&CoopUnitSql&" order by DispatchOrdID desc"
|
sql="select TransferModeID=0,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 as DispatchOrdTraTxnPrice,* from DispatchOrd LEFT JOIN ServiceOrder on ServiceOrdIDDt=ServiceOrdID where "&searchSql&CoopUnitSql&OAHospsql&" and (ServiceOrdClass in ('"&OrdClassListSql&"') or DispatchOrdClass in ('"&OrdClassListSql&"')) order by DispatchOrdID desc"
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=QuantityInt
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
acc3=rs.recordcount
|
else
|
SystemMessageType=2
|
SystemMessageTXT="数据库中相关无数据！"
|
end if
|
|
|
%>
|
<!--#include virtual="/inc/SystemMessages.gds" -->
|
<%If isDepartment("010401")=0 And OrdState<>"Image" then%>
|
<div style="padding: 10px;font-size: 13px;">当前查询统计 单据数量:<%=Sum_OrdInt%> 费用合计:<%=Sum_TraTxnPrice%>元 (不包括取消)</div>
|
<%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">
|
<table>
|
<thead>
|
<tr style="white-space: nowrap;">
|
<%If isDepartment("030120")=1 Then%>
|
<th>选择</th>
|
<%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<=QuantityInt
|
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") '服务单成交价
|
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") '转入医院
|
If 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=FormatCurrency(DispatchOrdTraTxnPrice+StretcherMoney,0)
|
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" then
|
DispatchOrd_CheckTXT = DispatchOrdStateA(12)
|
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="<font color='#0066cc'>"&CancelReasonB(DispatchOrdCancelReason,DispatchOrdCancelReasonTXT)&"</font>"
|
Else
|
CancelReasonTXT=""
|
End If
|
|
'特殊订单类型
|
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>]"
|
Else
|
ServiceOrdVIPTXT=""
|
End If
|
|
'已发送内部通知次数
|
If ServiceOrdID<>"" And ServiceOrdID<>"0" Then
|
sql="select count(MID) from ServiceOrd_Message where MessageHeadline like '已发送通知给%' and MessageState>0 and ServiceOrdIDDt="&ServiceOrdID
|
rsDt.open sql,objConn,1,1
|
MessageCountInt = rsDt(0)
|
rsDt.close()
|
End If
|
|
'订单颜色标记
|
If ServiceOrdUnitID="2" Then
|
OrdCssSign=" style='color: #F44336;'"
|
ElseIf MessageCountInt>0 Then
|
OrdCssSign=" style='color: #ff4aff;'"
|
Else
|
OrdCssSign=""
|
End If
|
%>
|
<tr>
|
<%If isDepartment("030120")=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+((acc1-1)*QuantityInt)-1%></td>
|
<%End If%>
|
<td class="category category2" style="width: 5%;white-space:nowrap;"><A HREF="DispatchOrder<%If OrdState="8_0" Or OrdState="8_1" Then Response.Write "_End"%>.gds?DispatchOrdID=<%=DispatchOrdID%>&OrdDateType=<%=OrdDateType%>&OrdClassList=<%=OrdClassList%>&h_menu1_1=1"<%=OrdCssSign%>><%=DispatchOrdNo%><%=ServiceOrdVIPTXT%></A></td>
|
<td class="category1 category2" style="white-space:nowrap;"><%=Replace(DispatchOrdStateC(DispatchOrdState)&DispatchOrd_CheckTXT&CancelReasonTXT,"（","<br>（")%></td>
|
<td class="selected category2"><A HREF="DispatchOrder<%If OrdState="8_0" Or OrdState="8_1" Then Response.Write "_End"%>.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;"><%=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 Then Response.Write "<font color='#ff00cc'>"&OAUser(ServiceOrd_Sale_ID,"UserName")&"</font>（销售）<br>"
|
If ServiceOrdIntroducer<>"" And ServiceOrdIntroducer<>"无" And OrdState<>"Image" And isDepartment("010401")=0 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 = (acc1-1)*QuantityInt+1
|
ShowingMax = QuantityInt*acc1
|
if ShowingMax>acc3 then ShowingMax=acc3
|
%>
|
<span><%="显示 "& ShowingLeast &"-"& ShowingMax &" of "&acc3%></span>
|
</div>
|
<%if acc2>1 then%>
|
<ul class="pager">
|
<%if acc1=1 then%>
|
<li class="disabled">« 上页</li>
|
<%else%>
|
<li><a href="?page=<%=acc1-1%><%=page_URL%>">« 上页</a></li>
|
<%end if%>
|
<%
|
acc4=""
|
for i=1 to acc2
|
if acc2<=9 then
|
acc4=acc4&","&i
|
else
|
if i=1 then
|
acc4=acc4&","&i
|
elseif acc1<=5 and i<=7 then
|
acc4=acc4&","&i
|
elseif acc1<=acc2-4 and i>=acc2-6 then
|
acc4=acc4&","&i
|
elseif i>=acc1-2 and i<=acc1+2 then
|
acc4=acc4&","&i
|
elseif i=acc2 then
|
acc4=acc4&","&i
|
elseif i=2 or i=acc2-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(acc1)=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(acc1)>=CInt(acc2) then%>
|
<li class="disabled">下页 »</li>
|
<%else%>
|
<li><a href="?page=<%=acc1+1%><%=page_URL%>">下页 »</a></li>
|
<%end if%>
|
<li>
|
<form action="?1=1<%=page_URL%>" method="post">
|
<input type="text" name="page" value="<%=acc1%>" 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>
|
