1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
| <%
| acc1=request("page")
| if acc1=empty then acc1=clng(1)
| QuantityInt = 20
| acc2=0
| acc3=0
|
| if searchTXT<>"" Then
| searchSql=" and (OA_Name like '%"&searchTXT&"%') "
| else
| searchSql=""
| end If
| If InStr(orderby," desc")>1 Then
| orderbydesc=""
| descTXT="↓"
| Else
| orderbydesc=" desc"
| descTXT="↑"
| End If
|
| If orderby="" Then
| orderby="OA_DepartmentID,OA_User_ID"
| descTXT="↓"
| End If
|
| If OrdClassType="2" Then
| '按服务单统计
| sql="(select vOrder=0,vtext='全部',OrdSum=count(ServiceOrdID),CancelType=0 from ServiceOrder where ServiceOrdState=4 and ServiceOrd_CC_Time "&SqlOrdDateType&searchSql&") UNION all (select vOrder,vtext,OrdSum=count(ServiceOrdID),CancelType=vID from ServiceOrder,dictionary where vtitle='CancelReason' and vID=ServiceOrdCancelReason and ServiceOrdState=4 and ServiceOrd_CC_Time "&SqlOrdDateType&searchSql&" GROUP BY vID,vtext,vOrder) order by vOrder"
| Else
| '按调度单统计
| sql="(select vOrder=0,vtext='全部',OrdSum=count(DispatchOrdID),CancelType=0 from DispatchOrd where DispatchOrdState=10 and DispatchOrd_NS_Time "&SqlOrdDateType&searchSql&") UNION all (select vOrder,vtext,OrdSum=count(DispatchOrdID),CancelType=vID from DispatchOrd,dictionary where vtitle='CancelReason' and vID=DispatchOrdCancelReason and DispatchOrdState=10 and DispatchOrd_NS_Time "&SqlOrdDateType&searchSql&" GROUP BY vID,vtext,vOrder) order by vOrder"
| End If
| 'Response.Write sql
| rs.open sql,objConn,1,1
| if rs.eof then
| SystemMessageType=2
| SystemMessageTXT="数据库中相关无数据！"
| end If
| If SystemMessageType<>"2" then
| Dim FormArray()
| ArrayX=50
| ArrayY=20
| '表头
| 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
| '读取数据
| vtext = rs("vtext")
| OrdSum = rs("OrdSum")
| CancelType= rs("CancelType")
|
| Y=Y+1
| '读取数据--End
|
| '写入数组
| If OrdClassType="2" Then
| FormArray(1,Y)="服务单"
| Else
| FormArray(1,Y)="调度单"
| End If
| FormArray(2,Y)="<a href=""Report_CancelList.gds?OrdClassType="&OrdClassType&"&OrdDateType="&OrdDateType&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&CancelType="&CancelType&""" target=""_blank"">"&vtext&"</a>"
| FormArray(3,Y)="<a href=""Report_CancelList.gds?OrdClassType="&OrdClassType&"&OrdDateType="&OrdDateType&"&OrdDateStart="&OrdDateStart&"&OrdDateEnd="&OrdDateEnd&"&CancelType="&CancelType&""" target=""_blank"">"&OrdSum&"</a>"
| '写入数组--End
|
| rs.movenext
| Loop
| 'REDIM FormArray(ArrayX,Y)
| rs.close()
| End If
| %>
|
|
