<%
|
'查看各分公司报表权限
|
if isDepartment("070109")=1 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' and vtext='司机' 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,",")
|
|
acc1=request("page")
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 20
|
acc2=0
|
acc3=0
|
|
if searchTXT<>"" Then
|
searchSql=" and (CarLicense like '%"&searchTXT&"%') and DispatchOrdActualDate "&SqlOrdDateType
|
else
|
searchSql=" and DispatchOrdActualDate "&SqlOrdDateType
|
end If
|
|
sql="select DispatchOrdID,DispatchOrdClass,DispatchOrd_NS_Time,DispatchOrdNo,CarID,CarLicense,GPS_IMEI,DispatchOrdActualDate,DispatchOrdReturnDate,DispatchOrd_NS_ID,DispatchOrdTraStreetMileage,DispatchOrdTraEndMileage,DispatchOrd_OAName from DispatchOrd,CarData where CarID=DispatchOrdCarID"&searchSql&" and 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
|
If SystemMessageType<>"2" then
|
Dim FormArray()
|
ArrayX=50
|
If acc3<QuantityInt Or (is_CSV=1 And acc3>QuantityInt) Then
|
ArrayY=acc3
|
Else
|
ArrayY=QuantityInt
|
End If
|
'表头
|
FormFields="序号,车牌,调度单,出车时间,返回时间,运行里程,调度员,出车人员,行程记录"
|
FormFields=split(FormFields,",")
|
ArrayX=ubound(FormFields)+1
|
REDIM FormArray(ArrayX,ArrayY+1)
|
for i=0 to ubound(FormFields)
|
FormArray((i+1),0)=FormFields(i)
|
next
|
Y=1
|
do while not rs.Eof and Y<=ArrayY
|
'读取数据
|
DispatchOrdID = rs("DispatchOrdID")
|
DispatchOrdClass = rs("DispatchOrdClass")
|
CarID = rs("CarID")
|
CarLicense = rs("CarLicense")
|
GPS_IMEI = rs("GPS_IMEI")
|
DispatchOrdActualDate = rs("DispatchOrdActualDate")
|
DispatchOrdReturnDate = rs("DispatchOrdReturnDate")
|
DispatchOrd_NS_ID = rs("DispatchOrd_NS_ID")
|
DispatchOrdTraStreetMileage = rs("DispatchOrdTraStreetMileage")
|
DispatchOrdTraEndMileage = rs("DispatchOrdTraEndMileage")
|
DispatchOrd_OAName = rs("DispatchOrd_OAName")
|
If DispatchOrd_OAName<>"" Then DispatchOrd_OAName=Replace(DispatchOrd_OAName,","," ")
|
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)
|
If GasSumPrice<>"0" Then
|
GasSumPriceTXT = GasSumPrice&"元"
|
Else
|
GasSumPriceTXT = "--"
|
End If
|
end_time=DispatchOrdReturnDate
|
If end_time="" Or isnull(end_time) Then end_time=now()
|
If DispatchOrdTraStreetMileage>0 And DispatchOrdTraEndMileage>0 then
|
CarOutMileage = DispatchOrdTraEndMileage-DispatchOrdTraStreetMileage&"公里"
|
Else
|
CarOutMileage = "--"
|
End If
|
EntourageTXT=DispatchOrd_OAName
|
'for j = 1 to UBOUND(EntourageIDPS)
|
'EntourageID = EntourageIDPS(j)
|
'EntourageName = EntourageNamePS(j)
|
'EntourageOAName=EntourageOANameA(EntourageID,DispatchOrdID,"UserNameList")
|
'If EntourageOAName<>"" Then EntourageTXT=Replace(EntourageOAName,"EntourageName","（"&EntourageName&"）")&"<br>"
|
'Next
|
'If EntourageName_aid1<>"" Then EntourageTXT=EntourageTXT&EntourageName_aid1&"（外援人员）<br>"
|
'If EntourageName_aid2<>"" Then EntourageTXT=EntourageTXT&EntourageName_aid2&"（外援人员）<br>"
|
Y=Y+1
|
'读取数据--End
|
|
'写入数组
|
FormArray(1,Y)=(Y-1)+((acc1-1)*QuantityInt)
|
FormArray(2,Y)=CarLicense
|
FormArray(3,Y)="<a href=""DispatchOrder.gds?DispatchOrdID="&DispatchOrdID&"&OrdDateType=4&OrdClassList=0&h_menu1_1=1"" target=""_blank"">"&DispatchOrdNo&"</a>"
|
FormArray(4,Y)=DispatchOrdActualDate
|
FormArray(5,Y)=DispatchOrdReturnDate
|
FormArray(6,Y)=CarOutMileage
|
FormArray(7,Y)=OAUser(DispatchOrd_NS_ID,"UserName")
|
FormArray(8,Y)=EntourageTXT
|
FormArray(9,Y)="<a href=""http://sys.966120.com.cn:89/GPS_playback.asp?imei="&GPS_IMEI&"&begin_time="&DispatchOrdActualDate&"&end_time="&end_time&""" target=""_blank"">行程回放</a>"
|
If DispatchOrdReturnDate="" Or isnull(DispatchOrdReturnDate) Then
|
FormArray(9,Y)="<a href=""http://sys.966120.com.cn:89/GPS_tracking.asp?imei="&imei&""" target=""_blank"">实时监控</a> "&FormArray(9,Y)
|
End If
|
'写入数组--End
|
|
rs.movenext
|
Loop
|
'REDIM FormArray(ArrayX,Y)
|
rs.close()
|
End If
|
%>
|
