Dim client As TopSdk.ITopClient = New TopSdk.DefaultTopClient(url, appkey, secret)
Dim client As ITopClient = New DefaultTopClient(url, appkey, secret)
Dim req As WlbWaybillIGetRequest = New WlbWaybillIGetRequest()
Dim obj1 As WlbWaybillIGetRequest.WaybillApplyNewRequestDomain = New WlbWaybillIGetRequest.WaybillApplyNewRequestDomain()
obj1.CpCode = "ZTO"
Dim obj2 As WlbWaybillIGetRequest.WaybillAddressDomain = New WlbWaybillIGetRequest.WaybillAddressDomain()
obj2.Area = "朝阳区"
obj2.Province = "北京"
obj2.Town = "八里庄"
obj2.AddressDetail = "朝阳路高井,财满街,财经中心9号楼21单元6013"
obj2.City = "北京市"
obj1.ShippingAddress = obj2
Dim list4 As List(Of WlbWaybillIGetRequest.TradeOrderInfoDomain) = New List(Of WlbWaybillIGetRequest.TradeOrderInfoDomain)()
Dim obj5 As WlbWaybillIGetRequest.TradeOrderInfoDomain = New WlbWaybillIGetRequest.TradeOrderInfoDomain()
list4.Add(obj5)
obj5.ConsigneeName = "张三"
obj5.OrderChannelsType = "TB"
obj5.TradeOrderList = "12321321,12321321"
obj5.ConsigneePh
Dim obj6 As WlbWaybillIGetRequest.WaybillAddressDomain = New WlbWaybillIGetRequest.WaybillAddressDomain()
obj6.Area = "朝阳区"
obj6.Province = "北京"
obj6.Town = "八里庄"
obj6.AddressDetail = "朝阳路高井,财满街,财经中心9号楼21单元6013"
obj6.City = "北京市"
obj5.ConsigneeAddress = obj6
obj5.SendPh
obj5.Weight = 123L
obj5.SendName = "李四"
Dim list8 As List(Of WlbWaybillIGetRequest.PackageItemDomain) = New List(Of WlbWaybillIGetRequest.PackageItemDomain)()
Dim obj9 As WlbWaybillIGetRequest.PackageItemDomain = New WlbWaybillIGetRequest.PackageItemDomain()
list8.Add(obj9)
obj9.ItemName = "衣服"
obj9.Count = 123L
obj5.PackageItems = list8
Dim list11 As List(Of WlbWaybillIGetRequest.LogisticsServiceDomain) = New List(Of WlbWaybillIGetRequest.LogisticsServiceDomain)()
Dim obj12 As WlbWaybillIGetRequest.LogisticsServiceDomain = New WlbWaybillIGetRequest.LogisticsServiceDomain()
list11.Add(obj12)
obj12.ServiceValue4Json = "{ ""value"": ""100.00"",""currency"": ""CNY"",""ensure_type"": ""0""}"
obj12.ServiceCode = "SVC-DELIVERY-ENV"
obj5.LogisticsServiceList = list11
obj5.ProductType = "STANDARD_EXPRESS"
obj5.RealUserId = 13123L
obj5.Volume = 123L
obj5.PackageId = "E12321321-1234567"
obj1.TradeOrderInfoCols = list4
req.WaybillApplyNewRequest_ = obj1
Dim rsp As WlbWaybillIGetResponse = client.Execute(req, sessionKey)
加好友 
发短信
Post By：2020/1/10 18:54:00 [只看该作者]
