Dim e As RequestEventArgs
= args(0)
Dim wb As New weui
Dim nms() As String
= {"扫码对象","条码信息"}
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then
e.WriteString("NG") '返回错误消息
Return "" '必须返回
End If
Next
'根据扫码单号,调用金蝶API,显示订单信息,并检查扫码事件的合理性.
Dim Values() As String = e.PostValues("条码信息").split("/")
Dim FilterString,FFlit,FieldKeys As String
Dim FBaseQty As Double
FieldKeys = "FOwnerName,FStockId.FName,FStockLocId.FF100001.fnumber,FMaterialId.FNumber,FMaterialName,FBaseQty,FMtoNo"
FilterString = "FStockLocId.FF100001.fnumber='" & e.PostValues("条码信息") & "' and FBaseQty > 0"
Dim jo As New JObject 'api接口请求josn
jo("FormId") = "STK_Inventory"
jo("FieldKeys") = FieldKeys
jo("FilterString") = FilterString
jo("OrderString") = ""
jo("TopRowCount") = 0
jo("StartRow") = 0
jo("Limit") = 50
Dim client As new Kingdee.BOS.WebApi.Client.K3CloudApiClient("https://wj.ik3cloud.com/k3cloud/")
Dim loginResult
= client.ValidateLogin("2021679","admin","a",2052)
Dim resultType As Integer = JObject.Parse(loginResult)("LoginResultType").tostring
'登录结果类型等于1,代表登录成功
Dim Names As New List(Of List(Of Object))
If resultType = 1
Names = client.ExecuteBillQuery(jo.ToString)
For Each nm As List(of object) In Names
MessageBox.Show(nm(1).Tostring)
Next
End If
'e.WriteString(wb.Build)
Return ""
'必须返回
加好友 
发短信
Post By：2022/1/16 13:43:00 [只看该作者]
此主题相关图片如下：微信截图_20220116134218.png
