Foxtable(狐表)用户栏目专家坐堂 → [求助]用丰桥开放平台的快递API接入方案怎么搞


  共有111人关注过本帖树形打印复制链接

主题:[求助]用丰桥开放平台的快递API接入方案怎么搞

帅哥哟,离线,有人找我吗?
km007
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:211 积分:2290 威望:0 精华:0 注册:2016/1/28 2:59:00
[求助]用丰桥开放平台的快递API接入方案怎么搞  发帖心情 Post By:2019/5/18 13:47:00 [只看该作者]

[求助]用丰桥开放平台的快递API接入方案,请问怎么写代码进行下订单呢?

 

丰桥开放平台网址
 

API接入方案 里面的 下订单接口

 

 


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:27047 积分:137986 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/5/18 14:03:00 [只看该作者]

没法注册。把下订单接口复制发上来

 回到顶部
帅哥哟,离线,有人找我吗?
km007
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:211 积分:2290 威望:0 精华:0 注册:2016/1/28 2:59:00
  发帖心情 Post By:2019/5/18 16:04:00 [只看该作者]

麻烦 有点蓝 版主了

 

 

丰桥开放平台网址

 

 


以下内容是专门发给有点蓝浏览

[此贴子已经被作者于2019/5/18 16:04:23编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:27047 积分:137986 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/5/18 17:07:00 [只看该作者]

试试

Dim hc As New HttpClient("http://bsp-oisp.sf-express.com/bsp-oisp/sfexpressService")
Dim xml As String = "<Request service = ""OrderService"" lang = ""zh-CN"" > <Head>CS_IcziI</Head><Body>  <Order orderid=""SFKD-20160219000019"" j_company=""深圳宝龙达信息技术股份有限公司"" ...... is_unified_waybill_no=""1""></Order></Body></Request>" 
xml 的内容自己根据开发文档拼完整
Dim checkWord As String = "xxxxx校验码"

Dim md5 As new System.Security.Cryptography.MD5CryptoServiceProvider()
Dim bs() As Byte = md5.ComputeHash(system.Text.Encoding.UTF8.GetBytes(xml & checkWord))
Dim verifyCode As String = Convert.ToBase64String(bs)
Output.Show(verifyCode )
hc.FormData.Add("xml",xml)
hc.FormData.Add("verifyCode",verifyCode )
Dim ret As String = hc.getData()
Output.Show(ret)
[此贴子已经被作者于2019/5/18 17:07:11编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
km007
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:211 积分:2290 威望:0 精华:0 注册:2016/1/28 2:59:00
  发帖心情 Post By:2019/5/19 17:35:00 [只看该作者]

蓝版,请问这个我应该参考哪个文档呢?谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:82764 积分:414995 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/19 17:47:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
km007
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:211 积分:2290 威望:0 精华:0 注册:2016/1/28 2:59:00
  发帖心情 Post By:2019/5/19 18:09:00 [只看该作者]

甜版,我是想在狐表做的系统中,将订单数据直接发送至顺丰的快递下单Api中,达到在系统中就可以下快递单,不用再导出再导入这么麻烦。顺丰有个开放平台,但不知道怎么看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:82764 积分:414995 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/19 22:44:00 [只看该作者]

1、拷贝这个xml存放到你表C第一列去

 

<Request service = "OrderService" lang = "zh-CN" >
<Head>CS_IcziI</Head>
<Body>
  <Order
 orderid="SFKD-20160219000019"
 j_company="深圳宝龙达信息技术股份有限公司"
 j_c
 j_tel="15323233432"
 j_mobile="15322234342"
 j_province="广东省"
 j_city="深圳市"
 j_county="南山区"
 j_address="广东省深圳市南山区西丽镇塘朗同富裕工业城7栋"
 d_c d_tel="15023434543"
 d_mobile="15423456545"
 d_province="广东省"
 d_city="深圳市"
 d_county="南山区"
 d_address="科技园软件产业基地"
 express_type="1"
 pay_method="1"
 custid="7551234567"
 parcel_quantity="1"
 is_docall="0"
 sendstarttime=""
 order_source="宝龙达"
 remark="电子产品 笔记本+显卡"
        is_unified_waybill_no="1">
</Order>
</Body>
</Request>

 

2、执行下面代码测试

 

Dim hc As New HttpClient("http://bsp-oisp.sf-express.com/bsp-oisp/sfexpressService")
Dim xml As String = Tables("表C").Rows(1)("第一列")
Dim checkWord As String = "tgz8Lx54wfQkii9E3dWlIJ1v91zYbBUO"

Dim str As String = xml & checkWord
Dim md5 As new System.Security.Cryptography.MD5CryptoServiceProvider
Dim bs() As Byte = md5.ComputeHash(system.Text.Encoding.UTF8.GetBytes(str))
Dim verifyCode As String = Convert.ToBase64String(bs)
hc.FormData.Add("xml",xml)
hc.FormData.Add("verifyCode",verifyCode)

Dim ret As String = hc.getData()
msgbox(ret)


 回到顶部