<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
|
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"))
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
Set rsDt = Server.CreateObject("ADODB.Recordset")
|
'默认显示字段
|
If isDepartment("020115")=1 And (Mid(searchTXT,1,4)<>"out|" And Mid(searchTXT,1,3)<>"in|" And Mid(searchTXT,1,5)<>"hosp|") Then '只显示个人相关服务单
|
OAHospsql=" and (ServiceOrdID in (select ServiceOrdIDDt from ServiceOrd_Message where MessageState=1 and MessageOAid="&session("adminID")&") or ServiceOrd_Sale_ID="&session("adminID")&") "
|
OAHospTXT="(个人)"
|
ElseIf 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")&",%')) and FromHQ_is=1 "
|
'CoopUnitSql=CoopUnitSql&" and FromHQ_is=1 "
|
End If
|
If OrdState="" Then OrdState=0
|
If OrdClassList="0" Then
|
OrdClassName="全部"
|
Else
|
'sql="select vID,vtext from dictionary where vType=1 and vtitle='OrderClass' and vOrder2 in ('"&OrdClassListSql&"') order by vOrder"
|
'rs.open Sql,objConn,1,1
|
'If not rs.Eof Then OrdClassName = rs("vtext")
|
'rs.close()
|
'OrdClassName="全部"
|
If (isDepartment("070109")=1 Or UnitNameID="1" Or UnitNameID="6" Or UnitNameID="15") And OrdClassList="" Then
|
OrdClassList="-1"
|
OrdClassName = "仅正常单"
|
ElseIf OrdClassList="" Then
|
OrdClassList="0"
|
OrdClassName = "全部"
|
End If
|
End if
|
If OrdDateType="" And Request.Cookies("CAME")("OrdDateType")<>"" Then
|
OrdDateType=Request.Cookies("CAME")("OrdDateType")
|
'OrdDateTop=" top 20 "
|
ElseIf OrdDateType="" Then
|
OrdDateType=13
|
'OrdDateTop=" top 20 "
|
End If
|
Response.Cookies("CAME")("OrdDateType")=OrdDateType
|
|
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 dateDiff("d",OrdDateStart,OrdDateEnd)>93 And searchTXT="" Then
|
Response.Redirect "?SystemMessageType=4&SMT=9&OrdDateType=1"
|
Response.End()
|
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
|
If OrdState="2" Then OrdDateType=14
|
sql="select vID,vtext,vOrder2 from dictionary where vType>=1 and vtitle='OrdDateType' and vID="&OrdDateType
|
rs.open Sql,objConn,1,1
|
If not rs.Eof Then
|
OrdDateTypeName = rs("vtext")
|
OrdDateTypeName1=OrdDateTypeName
|
SqlOrdDateType = rs("vOrder2")
|
Else
|
OrdDateType=4
|
OrdDateTypeName="本月"
|
OrdDateTypeName1=OrdDateTypeName
|
SqlOrdDateType="between DATEADD(mm,DATEDIFF(mm,0,getdate()),0) and dateadd(ms,-3,DATEADD(mm,DATEDIFF(m,0,getdate())+1,0))"
|
End If
|
rs.close()
|
End if
|
|
'各种返回信息
|
SystemMessageType=trim(Request("SystemMessageType"))
|
SMT=trim(Request("SMT"))
|
if SystemMessageType<>"" then
|
if SMT="1" then
|
SystemMessageTXT="员工列表刷新完成"
|
elseif SMT="2" then
|
SystemMessageTXT="创建新员工完成,默认密码:000000.点击[<a href=""/weixin/user_inviteSend.gds?OA_weixinUserID="&trim(Request("NEW_weixinUserID"))&"&departmentID="&departmentID&""">发出关注邀请</a>]关注微信OA"
|
elseif SMT="3" then
|
SystemMessageTXT="微信OA同步失败,请联系IT部!!"
|
elseif SMT="4" then
|
SystemMessageTXT="发出关注邀请完成,新员工默认密码:000000.请首次登陆后尽快修改"
|
elseif SMT="5" then
|
SystemMessageTXT="发出关注邀请失败,请点击[<a href=""/weixin/user_list.gds?departmentID="&departmentID&""">刷新数据</a>]并修改微信相关联系方式后再次发送"
|
elseif SMT="6" then
|
SystemMessageTXT="请选择需要取消的服务单"
|
elseif SMT="7" then
|
SystemMessageTXT="服务单取消完成"
|
elseif SMT="9" then
|
SystemMessageTXT="自定义时间查询时间跨度不能超过3个月!!"
|
end if
|
end if
|
|
|
If OrdState<>"0" then
|
OrdListName = ServiceOrdStateA(OrdState)&"查询"
|
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 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()
|
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
|
|
'公司列表
|
If UnitNameID<>"" Then
|
Response.Cookies("CAME")("UnitNameID")=UnitNameID
|
ElseIf UnitNameID="" And Request.Cookies("CAME")("UnitNameID")<>"" Then
|
UnitNameID=Request.Cookies("CAME")("UnitNameID")
|
End If
|
if isDepartment("070109")=0 And OrdClassInt>1 Then
|
UnitSql=" and replace(vtext,'分公司','') in (select replace(vtext,'服务单','') from dictionary where vType in (1,2) and vtitle='OrderClass' and vtext like '%服务单' and vOrder2 in ('"&OrdClassListSql&"')) "
|
End If
|
UnitNameName="全部"
|
If Len(UnitNameID)>=3 Then
|
UnitNameName=UBOUND(SPLIT(UnitNameID,","))+1&"家"
|
Else
|
UnitNameName="全部"
|
End If
|
UnitNames = "0,全部|"
|
sql="select vID,vtext,vType from dictionary where vType>=0 and vtitle='UnitName'"&UnitSql&" 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&"%') or ServiceOrdTraVia like '%"&searchTXTMore5&"%') "
|
End If
|
If searchTXTMore6<>"" Then
|
searchTXTMoreSql=searchTXTMoreSql&" and (ServiceOrdPtInHospID in (select HospID from HospData where HospName like '%"&searchTXTMore6&"%') or ServiceOrdTraEnd 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
|
If IsNumeric(searchTXTMore8) Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrdIntroducer in ('"&searchTXTMore8&"') "
|
If OrdState<>"0" Then
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrdState in ("&OrdState&") "
|
End If
|
Else
|
searchTXTMoreSql=searchTXTMoreSql&" and ServiceOrdIntroducer in (select IntroducerID from IntroducerData where IntroducerName like '%"&searchTXTMore8&"%') "
|
End If
|
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
|
|
%>
|
|
|
<%
|
' 记录管理员操作日志,谁访问了这个页面，写在了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("020114")=1 Then
|
isDepartmentStr="查看全部订单权限"
|
ElseIf isDepartment("020103")=1 Or isDepartment("020115")=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 & " - 访问了[ServiceOrder_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 & " - 尝试访问[ServiceOrder_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"-->
|
</head>
|
|
<body onkeydown="xKeyEvent(event)">
|
<!--#INCLUDE FILE="menu_header.gds" -->
|
<!-- content -->
|
<div id="content">
|
<!--#INCLUDE FILE="ServiceCenter_menu_left.gds" -->
|
<!-- content / right -->
|
<div id="right">
|
<!-- table -->
|
<div class="box">
|
<!-- box / title -->
|
<div class="title title3">
|
<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?OrdClassType=2&OrdDateType=<%=OrdDateType%>&OrdDateStart=<%=OrdDateStart%>&OrdDateEnd=<%=OrdDateEnd%>&searchTXT=<%=searchTXT%>&UnitNameID=<%=UnitNameID%>">导出</a></li>
|
<%End If%>
|
<%If isDepartment("020108")=1 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="101"
|
form1.submit();
|
}
|
}
|
</script>
|
<%End If%>
|
<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: 285px; 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="ServiceOrder_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>
|
</ul>
|
</div>
|
|
<div class="title title3" id="searchMore" style="margin-top: -19px;<%If searchTXTMore="" Then Response.Write " display: none;'"%>">
|
|
<form action="ServiceOrder_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='ServiceOrder_List.gds?h_menu1_1=1&OrdState=<%=OrdState%>&OrdClassList=<%=OrdClassList%>&OrdDateType=0&searchTXT=<%=searchTXT%>&UnitNameID=<%=UnitNameID%>&OrdDateStart='+OrdDateStart+'&OrdDateEnd='+OrdDateEnd;
|
}
|
//自定义时间转跳
|
function JS_OrdDateTypeJump(id){
|
window.location.href='ServiceOrder_List.gds?h_menu1_1=1&OrdState=<%=OrdState%>&OrdClassList=<%=OrdClassList%>&searchTXT=<%=searchTXT%>&UnitNameID=<%=UnitNameID%>&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='ServiceOrder_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
|
|
If searchTXTMoreSql<>"" Then
|
searchSql=searchTXTMoreSql&" and ServiceOrd_CC_Time "&SqlOrdDateType&" "
|
elseif searchTXT<>"" Then
|
searchSql=""
|
If Len(searchTXT)=11 And Left(searchTXT,2)="20" And IsNumeric(searchTXT) Then
|
searchSql=" CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&Mid(searchTXT,1,4)&"-"&Mid(searchTXT,5,2)&"-"&Mid(searchTXT,7,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"' "
|
ElseIf Len(searchTXT)=9 And Left(searchTXT,1)="2" And IsNumeric(searchTXT) Then
|
searchSql=" CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'20"&Mid(searchTXT,1,2)&"-"&Mid(searchTXT,3,2)&"-"&Mid(searchTXT,5,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"' "
|
ElseIf Len(searchTXT)=7 And (Left(searchTXT,1)="1" Or Left(searchTXT,1)="0") And IsNumeric(searchTXT) Then
|
searchSql=" CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&Year(now())&"-"&Mid(searchTXT,1,2)&"-"&Mid(searchTXT,3,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"' "
|
ElseIf Len(searchTXT)=5 And IsNumeric(searchTXT) Then
|
searchSql=" CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&Year(now())&"-"&Right("0"&Month(now()),2)&"-"&Mid(searchTXT,1,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"' "
|
ElseIf 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=" ServiceOrdClass='"&Left(searchTXT,2)&"' and CONVERT(VARCHAR(10),ServiceOrd_CC_Time,120)=CONVERT(VARCHAR(10),'"&Mid(searchTXT,3,4)&"-"&Mid(searchTXT,7,2)&"-"&Mid(searchTXT,9,2)&"',120) and Right('00'+convert(varchar(3),ServiceOrdNo),3)='"&Right(searchTXT,3)&"' "
|
ElseIf Len(searchTXT)=14 And Mid(searchTXT,11,1)="-" Then
|
searchSql=" Old_ServiceOrdID_TXT='"&searchTXT&"' "
|
ElseIf Len(searchTXT)=10 And IsNumeric(searchTXT) Then
|
searchSql=" ServiceOrdID="&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 ServiceOrd_CC_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 ServiceOrd_CC_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 ServiceOrd_CC_Time "&SqlOrdDateType
|
ElseIf Mid(searchTXT,1,5)="WXCX|" 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 ServiceOrd_CC_Time "&SqlOrdDateType
|
searchSql=" ((ServiceOrdCancelReason<>10 or ServiceOrdCancelReason is null) and (ServiceOrdCancelReasonTXT<>'自动取消' or ServiceOrdCancelReasonTXT is null)) and (ServiceOrdOperationRemarks<>'[客户未正式提交需求，可不联系]' or ServiceOrdOperationRemarks is null) and ServiceOrdUserID not in (4,53,116368,93481) and ServiceOrdSource=5 and ServiceOrd_CC_Time "&SqlOrdDateType
|
If Mid(searchTXT,6,1)="4" Then
|
searchSql=searchSql&" and ServiceOrdState=4 "
|
ElseIf Mid(searchTXT,6,1)="3" Then
|
searchSql=searchSql&" and ServiceOrdState=3 "
|
ElseIf Mid(searchTXT,6,1)="2" Then
|
searchSql=searchSql&" and ServiceOrdState=2 "
|
ElseIf Mid(searchTXT,6,1)="1" Then
|
searchSql=searchSql&" and ServiceOrdState in (1,2) "
|
End If
|
If Mid(searchTXT,7,1)="S" Then
|
searchSql=searchSql&" and ServiceOrdIntroducer='"&Mid(searchTXT,8)&"' "
|
ElseIf Mid(searchTXT,7,1)="U" And IsNumeric(Mid(searchTXT,8)) Then
|
searchSql=searchSql&" and ServiceOrdIntroducer='' and ToUserUUID="&Mid(searchTXT,8)&" "
|
ElseIf Mid(searchTXT,7,1)="U" Then
|
searchSql=searchSql&" and ServiceOrdIntroducer='' and ToUserUUID<>0 "
|
ElseIf Mid(searchTXT,7,1)="9" Then
|
searchSql=searchSql&" and ServiceOrdIntroducer='' and ToUserUUID=0 "
|
End If
|
|
Else
|
searchSql=" (ServiceOrdCoName like '%"&searchTXT&"%' or ServiceOrdCoPhone like '%"&searchTXT&"%' or ServiceOrdPtName like '%"&searchTXT&"%' or ServiceOrdTraVia like '%"&searchTXT&"%' or ServiceOrdTraEnd like '%"&searchTXT&"%' or ServiceOrdPtOutHosp in (select vid from dictionary where vType=1 and vtitle='HospName' and vtext like '%"&searchTXT&"%') or ServiceOrdPtInHosp in (select vid from dictionary where vType=1 and vtitle='HospName' and vtext like '%"&searchTXT&"%')) "
|
End if
|
else
|
If OrdState="2" Then
|
'因为保障任务都是合作单位的,然后因为有时有D保障任务建单时间早,调度时间迟,怕会晤记得
|
searchSql=" (ServiceOrd_CC_Time "&SqlOrdDateType&" or ServiceOrdType in (7))"
|
Else
|
searchSql=" ServiceOrd_CC_Time "&SqlOrdDateType&" "
|
End If
|
If OrdClassList="-1" Then
|
searchSql=searchSql&" and ServiceOrdType in (select vID from dictionary where vType=1 and vtitle='ServiceOrderType') "
|
ElseIf OrdClassList="-2" Then
|
searchSql=searchSql&" and ServiceOrdType in (select vID from dictionary where vType=2 and vtitle='ServiceOrderType') "
|
ElseIf OrdClassList<>"" And OrdClassList<>"0" Then
|
searchSql=searchSql&" and ServiceOrdType in ("&OrdClassList&") "
|
End If
|
If OrdState="0" Then
|
searchSql=searchSql&""
|
ElseIf OrdState="3_1" Then
|
searchSql=searchSql&" and ServiceOrdTraPaidPrice<ServiceOrdTraTxnPrice and ServiceOrdState=3 "
|
Else
|
searchSql=searchSql&" and ServiceOrdState in ("&OrdState&") "
|
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
|
|
'查看A级单权限
|
'If isDepartment("020111")=0 Then
|
' CoopUnitSql=CoopUnitSql&" and OrderLevel<>1"
|
'End If
|
|
|
'查看各分公司报表权限
|
if (isDepartment("070109")=1 Or OrdClassInt>1) And UnitNameID<>"" then
|
If UnitNameID<>"" And UnitNameID<>"0" Then
|
OrdClassListSql=""
|
sql="select vOrder2 from dictionary where vtitle='UnitName' and vID in ("&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()
|
ElseIf isDepartment("070109")=1 Then
|
OrdClassListSql=""
|
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
|
'OrdClassListSql="AB"
|
sql="select "&OrdDateTop&"*,StretcherMoney=isnull((select sum(StretcherMoney) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID),0) from ServiceOrder where "&searchSql&CoopUnitSql&OAHospsql&" and ServiceOrdClass in ('"&OrdClassListSql&"') order by ServiceOrdID desc"
|
'Response.Write sql
|
|
'SQL查询条件
|
sqlWhere=" from ServiceOrder where "&searchSql&CoopUnitSql&OAHospsql&" and ServiceOrdClass in ('"&OrdClassListSql&"') and (ServiceOrdOperationRemarks<>'[客户未正式提交需求，可不联系]' or ServiceOrdOperationRemarks is null) and ( ServiceOrdCancelReasonTXT<>'自动取消' or ServiceOrdCancelReasonTXT is null)"
|
'组成计算总页数SQL
|
total_sql = "select ServiceOrdID "&sqlWhere
|
'组成显示结果SQL
|
Result_sql = "select ServiceOrdID,ServiceOrdNo,ServiceOrdClass,ServiceOrdAreaType,ServiceOrdType,ServiceOrdState,ServiceOrdStartDate,ServiceOrdApptDate,ServiceOrdCoName,ServiceOrdCoPhone,ServiceOrdPtAge,ServiceOrdPtSex,ServiceOrdTraProvince,ServiceOrdTraCity,ServiceOrdTraStreet,ServiceOrdTraEnd,ServiceOrdTraVia,ServiceOrdTraDistance,ServiceOrdTraSDTime,ServiceOrdTraTxnPrice,ServiceOrd_CC_ID,ServiceOrd_CC_Time,ServiceOrd_NS_ID,ServiceOrd_NS_Time,ServiceOrd_AP_Check,ServiceOrd_AP_ID,ServiceOrd_AP_Time,ServiceOrdVIP,ServiceOrdUnitID,ServiceOrdUnitRemarks,ServiceOrdIntroducer,ServiceOrdOperationRemarks,ServiceOrdPtOutHospID,ServiceOrdPtOutHosp,ServiceOrdPtInHospID,ServiceOrdPtInHosp,ServiceOrdCancelReasonTXT,ServiceOrdCancelReason,FromHQ_is,ServiceOrd_Sale_ID,ServiceOrdPoints,Old_ServiceOrdID_TXT,row_number() over (order by ServiceOrdID desc) n "&sqlWhere
|
'附加结果SQL
|
Additional_sql = ",StretcherMoney=isnull((select sum(StretcherMoney) from DispatchOrd where ServiceOrdIDDt=ServiceOrdID),0),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" -->
|
<div class="table" style="overflow:auto">
|
<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%>">
|
<table>
|
<thead>
|
<tr style="white-space: nowrap;">
|
<%If isDepartment("020108")=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 Then%><th>价钱</th><%End If%>
|
<th>目的地</th>
|
<th>距离</th>
|
<th>销售</th>
|
<th>介绍人</th>
|
<th>开单客服</th>
|
<th class="last">操作备注</th>
|
|
</tr>
|
</thead>
|
<tbody<%If isDepartment("010401")=1 then Response.Write " style=""white-space: nowrap;"" "%>>
|
|
<%i=1
|
do while not rs.Eof and i<=page_size
|
ServiceOrdID = rs("ServiceOrdID") '服务单号
|
ServiceOrdClass = rs("ServiceOrdClass") '单据类型
|
ServiceOrdAreaType = rs("ServiceOrdAreaType") '服务单区域
|
ServiceOrdType = rs("ServiceOrdType") '服务单类型
|
ServiceOrdState = rs("ServiceOrdState") '服务单状态
|
ServiceOrdStartDate = rs("ServiceOrdStartDate") '状态更新日期
|
ServiceOrdApptDate = rs("ServiceOrdApptDate") '预约日期
|
ServiceOrdCoName = rs("ServiceOrdCoName") '联系人姓名
|
ServiceOrdCoPhone = rs("ServiceOrdCoPhone") '联系人电话
|
ServiceOrdPtAge = rs("ServiceOrdPtAge") '患者年龄
|
ServiceOrdPtSex = rs("ServiceOrdPtSex") '患者性别
|
ServiceOrdTraProvince = rs("ServiceOrdTraProvince") '出发地省份
|
ServiceOrdTraCity = rs("ServiceOrdTraCity") '出发地城市
|
ServiceOrdTraStreet = rs("ServiceOrdTraStreet") '出发地
|
ServiceOrdTraEnd = rs("ServiceOrdTraEnd") '目的地
|
ServiceOrdTraVia = rs("ServiceOrdTraVia") '途经地(计划)
|
ServiceOrdTraDistance = rs("ServiceOrdTraDistance") '距离(公里)
|
ServiceOrdTraSDTime = rs("ServiceOrdTraSDTime") '拟出发时间
|
ServiceOrdTraTxnPrice = rs("ServiceOrdTraTxnPrice") '成交价
|
StretcherMoney = rs("StretcherMoney") '附加费用
|
ServiceOrdPoints = rs("ServiceOrdPoints") '积分使用
|
UserPointsCost = rs("UserPointsCost") '订单积分成本
|
ServiceOrd_CC_ID = rs("ServiceOrd_CC_ID") '第一次接单人员ID
|
ServiceOrd_CC_Time = rs("ServiceOrd_CC_Time") '第一次接单时间/开单日期
|
ServiceOrd_NS_ID = rs("ServiceOrd_NS_ID") '确认服务单人员ID
|
ServiceOrd_NS_Time = rs("ServiceOrd_NS_Time") '确认服务单时间
|
ServiceOrd_AP_Check = rs("ServiceOrd_AP_Check") '审核状态(0未审核,1已审核)
|
ServiceOrd_AP_ID = rs("ServiceOrd_AP_ID") '审核人员ID
|
ServiceOrd_AP_Time = rs("ServiceOrd_AP_Time") '审核时间
|
ServiceOrdVIP = rs("ServiceOrdVIP")
|
ServiceOrdUnitID = rs("ServiceOrdUnitID") '第三方ID
|
ServiceOrdUnitRemarks = rs("ServiceOrdUnitRemarks") '第三方订单备注
|
ServiceOrdIntroducer = rs("ServiceOrdIntroducer") '介绍人
|
ServiceOrd_Sale_ID = rs("ServiceOrd_Sale_ID") '销售
|
ServiceOrdOperationRemarks = rs("ServiceOrdOperationRemarks") '操作备注
|
ServiceOrdPtOutHospID = rs("ServiceOrdPtOutHospID") '转出医院ID
|
ServiceOrdPtOutHosp = rs("ServiceOrdPtOutHosp") '转出医院
|
ServiceOrdPtInHospID = rs("ServiceOrdPtInHospID") '转入医院ID
|
ServiceOrdPtInHosp = rs("ServiceOrdPtInHosp") '转入医院
|
ServiceOrdCancelReasonTXT=rs("ServiceOrdCancelReasonTXT")
|
ServiceOrdCancelReason= rs("ServiceOrdCancelReason")
|
FromHQ_is = rs("FromHQ_is") '是否有转内部转发
|
ContractMode_is = rs("ContractMode_is") '是否承包组任务
|
Old_ServiceOrdID_TXT = rs("Old_ServiceOrdID_TXT") '旧服务单号
|
If isDepartment("010401")=0 Then
|
ServiceOrdNo = ServiceOrdClass& year(rs("ServiceOrd_CC_Time"))&Right("0"&month(rs("ServiceOrd_CC_Time")),2)&Right("0"&day(rs("ServiceOrd_CC_Time")),2) & "-"&Right("00"&rs("ServiceOrdNo"),3)
|
Else
|
ServiceOrdNo = ServiceOrdClass&ServiceOrdID
|
End If
|
|
i=i+1
|
|
If ServiceOrdTraTxnPrice="" Or isnull(ServiceOrdTraTxnPrice) Then ServiceOrdTraTxnPrice=0
|
If instr(ServiceOrdTraDistance,"公里")=0 Then
|
ServiceOrdTraDistance=ServiceOrdTraDistance&"公里"
|
End If
|
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
|
|
'VIP客户订单
|
ServiceOrdVIPTXT=""
|
If ServiceOrdVIP="1" Then
|
ServiceOrdVIPTXT="[<span style='color: #E91E63;font-weight: bold;'>VIP</span>]"
|
End If
|
|
'是否承包组任务
|
ContractModeTXT=""
|
If ContractMode_is>0 Then
|
ContractModeTXT=" <font color=#6699ff>(承包组任务)</font>"
|
End If
|
|
'新订单
|
CC=OAUser(ServiceOrd_CC_ID,"UserName")
|
If CC="0" And ServiceOrdUnitID<>"0" Then CC=UnitUser(ServiceOrdUnitID,"UnitShort")&"新订单"
|
|
'出发地
|
OrdTraVia=ServiceOrdTraStreet
|
If ServiceOrdTraVia<>"" Then
|
OrdTraVia=ServiceOrdTraVia
|
End If
|
|
'订单颜色标记
|
OrdCssSign=""
|
If ServiceOrdUnitID="2" Then
|
OrdCssSign=" style='color: #F44336;'"
|
ElseIf FromHQ_is="1" Then
|
OrdCssSign=" style='color: #ff4aff;'"
|
End If
|
|
|
'取消订单加上原因
|
If ServiceOrdState="4" Then ServiceOrdOperationRemarks=ServiceOrdOperationRemarks&"<br><font color='#f44336'>"&CancelReasonA(ServiceOrdCancelReason)&","&ServiceOrdCancelReasonTXT&"</font>"
|
%>
|
<tr>
|
<%If isDepartment("020108")=1 Then%>
|
<td class="selected" style="width: 1%;"><input type="checkbox" id="ServiceOrdID_<%=ServiceOrdID%>" name="ServiceOrdID" value="<%=ServiceOrdID%>"/></td>
|
<%ElseIf isDepartment("010401")=0 Then%>
|
<td class="selected" style="width: 1%;"><%=i+((page-1)*page_size)-1%></td>
|
<%End If%>
|
<td class="selected"><A HREF="ServiceOrder.gds?ServiceOrdID=<%=ServiceOrdID%>&OrdDateType=<%=OrdDateType%>&OrdClassList=<%=OrdClassList%>&h_menu1_1=1"<%=OrdCssSign%>><%=ServiceOrdNo%><%=ServiceOrdVIPTXT%><%If InStr(admin_OrderClass,"BF")>0 Then Response.Write "<br>"&replace(OrderClassA(ServiceOrdClass),"服务单","")&ContractModeTXT%></A></td>
|
<td class="selected"><%=ServiceOrdStateB(ServiceOrdState)%></td>
|
<td class="selected"><A HREF="ServiceOrder.gds?ServiceOrdID=<%=ServiceOrdID%>&OrdDateType=<%=OrdDateType%>&OrdClassList=<%=OrdClassList%>&h_menu1_1=1"><%=DateFormat(ServiceOrd_CC_Time)%></A></td>
|
<td class="selected"><%=ServiceOrdAreaTypeA(ServiceOrdAreaType)&"<br>"&ServiceOrdTypeA(ServiceOrdType)%></td>
|
<%If isDepartment("010401")=0 Then
|
If ServiceOrdTraTxnPrice+StretcherMoney<>0 Then
|
ServiceOrdTraTxnPriceTXT=MoneyCheck(ServiceOrdTraTxnPrice+StretcherMoney,1)
|
If StretcherMoney>0 Then ServiceOrdTraTxnPriceTXT=ServiceOrdTraTxnPriceTXT&"<br>("&ServiceOrdTraTxnPrice&"+"&StretcherMoney&")"
|
Else
|
ServiceOrdTraTxnPriceTXT="--"
|
End If
|
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
|
%>
|
<td class="selected" style="text-align: right;"><%=ServiceOrdTraTxnPriceTXT%></td>
|
<%End If%>
|
|
<td class="category category2 last 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 ServiceOrdTraEnd Else Response.Write HospA(ServiceOrdPtInHosp,"HospName") End If%></span></td>
|
<td class="selected" style="width: 1%;white-space:nowrap;text-align: right;"><%=ServiceOrdTraDistance%></td>
|
<td class="selected"><%If isDepartment("010602")=1 Then%><%=OAUser(ServiceOrd_Sale_ID,"UserName")%><%End If%></td>
|
<td class="selected"><%If isDepartment("010602")=1 Then%><%=UnitIntroducer(ServiceOrdIntroducer,"UnitName")%><%End If%></td>
|
<td class="selected"><%=CC%></td>
|
<td class="category last" style="text-align: left;line-height: 13px;" ><%=ServiceOrdOperationRemarks%></td>
|
</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>
|
<td> </td>
|
<td class="last"> </td>
|
</tr>
|
<%next%>
|
</tbody>
|
</table>
|
</form>
|
<!-- 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>
|
</div>
|
<!-- end table -->
|
|
|
|
</div>
|
<!-- end content / right -->
|
</div>
|
<!-- end content -->
|
<!--#include FILE="vicgame.asp"-->
|
</body>
|
</html>
|
