| Line 33... |
Line 33... |
| 33 |
Dim oJSON :Set oJSON = New aspJSON
|
33 |
Dim oJSON :Set oJSON = New aspJSON
|
| 34 |
Dim newitem
|
34 |
Dim newitem
|
| 35 |
|
35 |
|
| 36 |
' Filter Results and Reason
|
36 |
' Filter Results and Reason
|
| 37 |
Dim sResult : sResult = ""
|
37 |
Dim sResult : sResult = ""
|
| 38 |
joiner = ""
|
- |
|
| 39 |
If parResult <> "CEO" Then
|
38 |
If parResult <> "" Then
|
| - |
|
39 |
joiner = ""
|
| 40 |
If InStr(parResult, "C") <> 0 Then sResult = sResult & "'C'" : joiner = ","
|
40 |
If InStr(parResult, "C") <> 0 Then sResult = sResult & "'C'" : joiner = ","
|
| 41 |
If InStr(parResult, "E") <> 0 Then sResult = sResult & joiner & "'E'" : joiner = ","
|
41 |
If InStr(parResult, "E") <> 0 Then sResult = sResult & joiner & "'E'" : joiner = ","
|
| 42 |
If InStr(parResult, "O") <> 0 Then sResult = sResult & joiner & "'B'," & "'S'"
|
42 |
If InStr(parResult, "O") <> 0 Then sResult = sResult & joiner & "'B'," & "'S'"
|
| 43 |
If sResult <> "" Then
|
43 |
If sResult <> "" Then
|
| 44 |
sResult = " AND bi.state in (" & sResult & ")"
|
44 |
sResult = " AND bi.state in (" & sResult & ")"
|
| 45 |
End If
|
45 |
End If
|
| 46 |
End If
|
46 |
End If
|
| 47 |
|
47 |
|
| 48 |
Dim sReason : sReason = ""
|
48 |
Dim sReason : sReason = ""
|
| 49 |
joiner = ""
|
- |
|
| 50 |
If parReason <> "NRTP" Then
|
49 |
If parReason <> "" Then
|
| - |
|
50 |
joiner = ""
|
| 51 |
If InStr(parReason, "N") <> 0 Then sReason = sReason & joiner & "'N'" : joiner = ","
|
51 |
If InStr(parReason, "N") <> 0 Then sReason = sReason & joiner & "'N'" : joiner = ","
|
| 52 |
If InStr(parReason, "R") <> 0 Then sReason = sReason & joiner & "'R'" : joiner = ","
|
52 |
If InStr(parReason, "R") <> 0 Then sReason = sReason & joiner & "'R'" : joiner = ","
|
| 53 |
If InStr(parReason, "T") <> 0 Then sReason = sReason & joiner & "'T'" : joiner = ","
|
53 |
If InStr(parReason, "T") <> 0 Then sReason = sReason & joiner & "'T'" : joiner = ","
|
| 54 |
If InStr(parReason, "P") <> 0 Then sReason = sReason & joiner & "'P'" : joiner = ","
|
54 |
If InStr(parReason, "P") <> 0 Then sReason = sReason & joiner & "'P'" : joiner = ","
|
| 55 |
'If InStr(parReason, "O") <> 0 Then sReason = sReason & joiner & "'B'," & "'S'"
|
- |
|
| 56 |
If sReason <> "" Then
|
55 |
If sReason <> "" Then
|
| 57 |
sReason = " AND bi.reason in (" & sReason & ")"
|
56 |
sReason = " AND bi.reason in (" & sReason & ")"
|
| 58 |
End If
|
57 |
End If
|
| 59 |
End If
|
58 |
End If
|
| 60 |
|
59 |
|