<!-- end content / left -->
|
<!--#include virtual="/inc/menu.gds"-->
|
<%
|
UnitNameID=SafeRequest(Request("UnitNameID"))
|
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")=1 And UnitNameID<>"" And OrdClassListSql="" then
|
OrdClassListSql=""
|
If UnitNameID<>"" And UnitNameID<>"0" Then
|
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()
|
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
|
OrdInt_1=0
|
OrdInt_3=0
|
OrdInt_4=0
|
OrdInt_5=0
|
OrdInt_6=0
|
OrdInt_7=0
|
If SqlOrdDateType<>"" Then
|
sql="select DispatchOrdState,count(DispatchOrdID) from DispatchOrd where DispatchOrdState in (1,2,3,4,5,6,7) and DispatchOrdClass in ('"&OrdClassListSql&"') and DispatchOrd_NS_Time "&SqlOrdDateType&" GROUP BY DispatchOrdState order by DispatchOrdState"
|
Else
|
sql="select DispatchOrdState,count(DispatchOrdID) from DispatchOrd where DispatchOrdState in (1,2,3,4,5,6,7) and DispatchOrdClass in ('"&OrdClassListSql&"') and DispatchOrd_NS_Time>'2020-12-1' GROUP BY DispatchOrdState order by DispatchOrdState"
|
End If
|
'Response.Write sql
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
select case rs("DispatchOrdState")
|
Case 3
|
OrdInt_3 = rs(1)
|
Case 4
|
OrdInt_4 = rs(1)
|
Case 5
|
OrdInt_5 = rs(1)
|
Case 6
|
OrdInt_6 = rs(1)
|
Case 7
|
OrdInt_7 = rs(1)
|
case else
|
OrdInt_1 = rs(1)
|
end Select
|
rs.movenext
|
loop
|
rs.close()
|
%>
|
<div id="left">
|
<div id="menu">
|
<h6 id="h-menu-1"<%if h_menu1="1" then Response.Write " class=""selected"""%>><a onclick="JavaScript:JS_left_Menu1('1');"><span>调度单 [隐藏]</span></a></h6>
|
<ul id="menu-1" class="<%if h_menu1="1" then%>opened<%else%>closed<%end if%>">
|
<%if isDepartment("030101")=1 then%><li><a href="ServiceOrder.gds?NEWOrder=2">新建调度单</a></li><%end if%>
|
<%if isDepartment("030101")=1 then%><li><a href="DispatchOrder.gds?OrdClass=SP">新建驻点单</a></li><%end if%>
|
<%if isDepartment("030103")=1 Then
|
If page_URL<>"" Then
|
collapsible_URL="&OrdClassList="&OrdClassList&"&OrdDateType="&OrdDateType&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&UnitNameID="&UnitNameID&"&searchTXT="&searchTXT
|
If CoopUnitID<>"" Then page_URL=page_URL&"&CoopUnitID="&CoopUnitID
|
Else
|
collapsible_URL="&OrdDateType="&OrdDateType&"&OrdClassList="&OrdClassList
|
End If
|
%>
|
<li class="collapsible last">
|
<a href="/DispatchOrder_List.gds?h_menu1_1=1<%=collapsible_URL%>" class="plus">调度单查询</a>
|
<ul class="<%if session("h_menu1_1")="1" then%>expanded<%else%>collapsed<%end if%>">
|
<li><a href="DispatchOrder_List.gds?h_menu1_1=1<%=collapsible_URL%>">全部</a></li>
|
<li><a href="DispatchOrder_List.gds?OrdState=1&h_menu1_1=1<%=collapsible_URL%>">等待调度</a></li>
|
<li><a href="DispatchOrder_List.gds?OrdState=2&h_menu1_1=1<%=collapsible_URL%>">等待确认（<%=OrdInt_1%>）</a></li>
|
<li><a href="DispatchOrder_List.gds?OrdState=3&h_menu1_1=1<%=collapsible_URL%>">等待出车（<%=OrdInt_3%>）</a></li>
|
<!--<li><a href="DispatchOrder_List.gds?OrdState=4&h_menu1_1=1<%=collapsible_URL%>">服务中</a></li>-->
|
<li><a href="DispatchOrder_List.gds?OrdState=4_4&h_menu1_1=1<%=collapsible_URL%>">4-已出车（去接）（<%=OrdInt_4%>）</a></li>
|
<li><a href="DispatchOrder_List.gds?OrdState=4_5&h_menu1_1=1<%=collapsible_URL%>">5-已出车（等待）（<%=OrdInt_5%>）</a></li>
|
<li><a href="DispatchOrder_List.gds?OrdState=4_6&h_menu1_1=1<%=collapsible_URL%>">6-已出车（已接）（<%=OrdInt_6%>）</a></li>
|
<li><a href="DispatchOrder_List.gds?OrdState=4_7&h_menu1_1=1<%=collapsible_URL%>">7-已送达（回程中）（<%=OrdInt_7%>）</a></li>
|
<li><a href="DispatchOrder_List.gds?OrdState=8_2&h_menu1_1=1<%=collapsible_URL%>">已返回（未提交）</a></li>
|
<li><a href="DispatchOrder_List.gds?OrdState=8_0&h_menu1_1=1<%=collapsible_URL%>">已返回（未审核）</a></li>
|
<%if isDepartment("030127")=1 Then%><li><a href="DispatchOrder_List.gds?OrdState=8_5&h_menu1_1=1<%=collapsible_URL%>">已完成（待财务审核）</a></li><%End If%>
|
<li><a href="DispatchOrder_List.gds?OrdState=8_1&h_menu1_1=1<%=collapsible_URL%>">已完成（已审核）</a></li>
|
<li><a href="DispatchOrder_List.gds?OrdState=8_4&h_menu1_1=1<%=collapsible_URL%>">已完成（审核不通过）</a></li>
|
<li><a href="DispatchOrder_List.gds?OrdState=9&h_menu1_1=1<%=collapsible_URL%>">跑空单</a></li>
|
</ul>
|
</li>
|
<li><a href="DispatchOrder_List.gds?OrdState=Visit&OrdDateType=<%=OrdDateType%>&OrdClassList=<%=OrdClassList%>">回访记录</a></li>
|
<li><a href="DispatchOrder_List.gds?OrdState=Image&OrdDateType=<%=OrdDateType%>&OrdClassList=<%=OrdClassList%>">文书记录</a></li>
|
<%end if%>
|
<%if isDepartment("030125")=1 then%><li><a href="SpecialOrderList.gds">特殊任务批量审核</a></li><%end if%>
|
<%if isDepartment("0302")=1 then%>
|
<li class="collapsible last">
|
<a href="/PaidMoney_List.gds?h_menu1_1=2" class="plus">费用单</a>
|
<ul class="<%if session("h_menu1_1")="2" then%>expanded<%else%>collapsed<%end if%>">
|
<li><a href="/PaidMoney_List.gds?OrdType=1&h_menu1_1=2">收款单</a></li>
|
<li><a href="/PaidMoney_List.gds?OrdType=2&h_menu1_1=2">退款单</a></li>
|
<%if isDepartment("030206")=1 then%><li><a href="/Invoice_List.php?h_menu1_1=2&AuditStatus=-1&OrdDateType=7"">发票申请</a></li><%End If%>
|
<li><a href="/PaidMoney_List2.gds?OrdType=1&h_menu1_1=2&OrdClassList=2">费用单审核</a></li>
|
<li><a href="/PaidMoneyFA_List.gds?h_menu1_1=2">任务单财务审核</a></li>
|
</ul>
|
</li>
|
<%end if%>
|
<%if isDepartment("030115")=1 Or isDepartment("030116")=1 Or isDepartment("030117")=1 then%><!--<li><a href="DispatchOtCheck_List.gds">加班申请单</a></li>--><%end if%>
|
<%if isDepartment("0506")=1 then%>
|
<%
|
sql="select ModuleID,ModuleName,ModuleReadme from OA_Module where ModuleID like '0506%' and ModuleLevel=3"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
ModuleID = rs("ModuleID")
|
ModuleName = rs("ModuleName")
|
ModuleReadme= rs("ModuleReadme")
|
If isDepartment(ModuleID)=1 Then
|
%>
|
<!--<li><a href="http://sys.966120.com.cn:89/GPS.asp?GPS=<%=ModuleReadme%>" target="_blank"><%=ModuleName%></a></li>-->
|
<li><a href="https://www.gpsoo.net/" target="_blank"><%=ModuleName%></a></li>
|
<%End If
|
rs.movenext
|
loop
|
rs.close()%>
|
<%end if%>
|
|
|
</ul>
|
</div>
|
</div>
|
<%session("is_User")=""%>
|
<!-- end content / left -->
|
