Foxtable(狐表) → 用户栏目 → 专家坐堂 → 诺诺开piao平台API无法接入


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

主题：诺诺开piao平台API无法接入
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106182 积分：540033 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/23 16:06:00 [显示全部帖子]

人家都提供了sdk，直接调用即可

1、吧dll复制导foxtable安装目录，添加引用：http://www.foxtable.com/webhelp/topics/1936.htm
2、把附件的c#代码转换为vb代码即可：https://converter.telerik.com/，注意加上命名空间

dim url as string = "https://sdk.nuonuo.com/open/v1/services"
    Dim appKey As String = "your.appKey"
    Dim appSecret As String = "your.appSecret"
    Dim taxnum As String = "your.taxnum"
    Dim token As String = "your.token"
    Dim senid As String = Guid.NewGuid().ToString().Replace("-", "").Substring(0, 32)
    Dim method As String = "nuonuo.electronInvoice.CheckEInvoice"
    Dim content As String = "{" & """invoiceSerialNum"":[""170**********1000004""]" & "}"
    Return NuonuoSDK.NNOpenSDK.sendPostSyncRequest(url, senid, appKey, appSecret, token, taxnum, method, content)
[此贴子已经被作者于2020/10/23 16:06:47编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106182 积分：540033 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/23 16:36:00 [显示全部帖子]

json建议使用这种方式生成：http://www.foxtable.com/mobilehelp/topics/0167.htm

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106182 积分：540033 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/10/23 17:07:00 [显示全部帖子]

对方返回的提示肯定不会错。

accecctoken 是要另外生成的，自己看sdk里的实例
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106182 积分：540033 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/7 9:33:00 [显示全部帖子]

没看明白，找服务商要.net的开发示例

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106182 积分：540033 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/1/15 17:05:00 [显示全部帖子]

没有返回数据，或者返回的不是合法的json数据不能做jobject转换

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106182 积分：540033 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/2/22 21:15:00 [显示全部帖子]

项目名称 = ' "& dr("项目名称") & "'"   单引号中间有多余的空格


cmd.CommandText = "Select count(1) from {在建项目} Where 项目名称 = '" & dr("项目名称") & "'"    
    Dim Values = cmd.ExecuteScalar
    If Values > 0 Then
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106182 积分：540033 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/22 11:33:00 [显示全部帖子]

代码没有问题。模板引用有问题吧

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106182 积分：540033 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/26 13:39:00 [显示全部帖子]

str += c.Name & "=" & Tables(e.form.name & "_Table1").current.DataRow.OriginalValue(c.Name) & "|"

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106182 积分：540033 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/10 11:02:00 [显示全部帖子]

msgbox("Select * From {ZJ_" & lb & "}")

 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106182 积分：540033 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/18 21:51:00 [显示全部帖子]

这个是数学问题了，自己计算一下尺寸，然后不停尝试，找到合适的绘制点

 回到顶部
总数 31 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询