以下内容为程序代码:

1 Dim e As RequestEventArgs = Args(0)
2 Dim sku As String = e.GetValues("sku")
3 Dim category As String = e.GetValues("cat")
4 Dim material As String = e.GetValues("mat")
5 Dim grade As String = e.GetValues("grad")
6 Dim spec As String = e.GetValues("spe")
7 Dim supplier As String = e.GetValues("sup")
8 Dim startQ As Integer = e.GetValues("sq")
9 Dim endQ As Integer = e.GetValues("eq")
10 Dim shelf As String = e.GetValues("slc")
11 Dim command As String
12
13 Dim json As New JObject
14 Dim ja As New JArray
15 Dim sql As New SQLCommand
16 sql.C
17 Dim dtb As DataTable
18 Dim sum As Integer = 0 \'合计数
19 Dim sumW As Single = 0 \'合计重量
20 Dim no As Integer = 0 \'序号
21 json("tb") = ja
22
23 If sku = "" Then
24 command = "SELEC/T i.货架码, i.数量, b.供应商, b.净重, b.毛重, b.基础货号, bp.类别名称, bp.材料, bp.材料等级, bp.规格 FROM {产品库存} i JOIN {基础sku} b ON i.SKU = b.SKU JOIN {基础产品货号} bp ON b.基础货号 = bp.基础货号 WHERE bp.类别名称 LIKE \'%" & _
25 category & "%\' AND bp.材料 LIKE \'%" & material & "%\' AND bp.规格 LIKE \'%" & spec & "%\' AND bp.材料等级 LIKE \'%" & grade & "%\' AND b.供应商 LIKE \'%" & supplier & "%\' AND i.货架码 LIKE \'%" & shelf & "%\'"
26 If startQ ＞= 0 Then
27 command = command & " AND i.数量 ＞= \'" & startQ & "\'"
28 End If
29 If endQ ＞= 0 Then
30 command = command & " AND i.数量 ＜= \'" & endQ & "\'"
31 End If
32 sql.CommandText = command
33 dtb = sql.ExecuteReader()
34 If dtb.DataRows.Count = 0 Then
35 e.WriteString("no")
36 Else
37 For i As Integer = 0 To dtb.DataRows.Count - 1
38 ja.Add(New JObject)
39 sum = sum + dtb.DataRows(i)("数量")
40 If dtb.DataRows(i)("毛重") ＞ 0 Then
41 sumW = sumW + dtb.DataRows(i)("毛重") * dtb.DataRows(i)("数量")
42 ja(i)("weight") = "Y"
43 Else
44 If dtb.DataRows(i)("净重") ＞ 0 Then
45 sumW = sumW + dtb.DataRows(i)("净重") * dtb.DataRows(i)("数量")
46 ja(i)("weight") = "Y"
47 Else
48 ja(i)("weight") = "N"
49 End If
50 End If
51 If dtb.DataRows(i)("基础货号").ToString.EndsWith("8") Then
52 ja(i)("std") = "N"
53 Else
54 ja(i)("std") = "Y"
55 End If
56 no += 1
57 Dim name As String = dtb.DataRows(i)("规格") & " " & dtb.DataRows(i)("材料") & "-" & dtb.DataRows(i)("材料等级") & " " & dtb.DataRows(i)("类别名称")
58 ja(i)("no") = no
59 ja(i)("quantity") = dtb.DataRows(i)("数量").ToString
60 ja(i)("product") = name
61 ja(i)("shelf") = dtb.DataRows(i)("货架码").ToString
62 Next
63 json("sum") = sum
64 json("sumW") = Math.Round(sumW,1)
65 e.WriteString(json.ToString)
66 End If
67 Else
68 sql.CommandText = "SELEC/T pi.*, bs.产品名称, bs.净重, bs.毛重, bs.基础货号 FROM {产品库存} pi JOIN {基础sku} bs ON pi.SKU = bs.SKU WHERE pi.SKU like \'%" & sku & "%\'"
69 dtb = sql.ExecuteReader()
70 If dtb.DataRows.Count = 0 Then
71 e.WriteString("no")
72 Else
73 For i As Integer = 0 To dtb.DataRows.Count - 1
74 ja.Add(New JObject)
75 sum = sum + dtb.DataRows(i)("数量")
76 If dtb.DataRows(i)("毛重") ＞ 0 Then
77 sumW = sumW + dtb.DataRows(i)("毛重") * dtb.DataRows(i)("数量")
78 ja(i)("weight") = "Y"
79 Else
80 If dtb.DataRows(i)("净重") ＞ 0 Then
81 sumW = sumW + dtb.DataRows(i)("净重") * dtb.DataRows(i)("数量")
82 ja(i)("weight") = "Y"
83 Else
84 ja(i)("weight") = "N"
85 End If
86 End If
87 If dtb.DataRows(i)("基础货号").ToString.EndsWith("8") Then
88 ja(i)("std") = "N"
89 Else
90 ja(i)("std") = "Y"
91 End If
92 no += 1
93 ja(i)("no") = no
94 ja(i)("quantity") = dtb.DataRows(i)("数量").ToString
95 ja(i)("product") = dtb.DataRows(i)("产品名称").ToString
96 ja(i)("shelf") = dtb.DataRows(i)("货架码").ToString
97 Next
98 json("sum") = sum
99 json("sumW") = Math.Round(sumW,1)
100 e.WriteString(json.ToString)
101 End If
102 End If