诺诺开piao平台API无法接入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

string appKey = "13***877";
string appSecret = "9C************62";
string taxnum = "33***********42"; //ISV下授权商户税号，自用型应用置""即可
string token = "98***************************tni";//访问令牌
string senid = Guid.NewGuid().ToString().Replace("-", "").Substring(0, 32); // 唯一标识，由企业自己生成32位随机码
string method = "nuonuo.***"; //API方法名
string content = "{\"mobile\":\"15258899591\"}";//API私有请求参数
string url = "https://sdk.nuonuo.com/open/v1/services"; //SDK请求地址
string json = NNOpenSDK.sendPostSyncRequest(url, senid, appKey, appSecret, token, taxnum, method, content);

https://open.jss.com.cn/#/dev-doc/sdk-usage 接入文档说明

SDK:

下载信息 [文件大小：下载次数： ]
点击浏览该文件:nuonuo-sdk-net2.0.1.zip

代码

Dim st As New Date(1970,1,1,8,0,0)

Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳

Dim sign As String

sign = "3709" & timestamp & "472B74CF3" '应用ID和应用密匙

'sign = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sign,"MD5").Tolower()

output.show(sign)

'Dim url As String = "https://sdk.nuonuo.com/open/v1/services"

Dim hc As New HttpClient("https://sdk.nuonuo.com/open/v1/services")

hc.Headers.Add("Content-Type", "text/html;charset=UTF-8")

hc.Headers.Add("X-Nuonuo-Sign", "诺诺fa piao")

hc.Headers.Add("senid", sign)

hc.Headers.Add("taxnum","92335H8K")

hc.Headers.Add("appKey","370939")

hc.Headers.Add("appSecret","4720BB3")

hc.Headers.Add("method","nuonuo.electronInvoice.queryInvoiceQuantity")

Dim json As String = hc.GetData()

output.show(json)

[此贴子已经被作者于2020/10/23 16:07:32编辑过]

人家都提供了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编辑过]

String content = "{
  \"invoiceTimeEnd\": \"2020-10-23 23:59:59\",
  \"taxnum\": \"339901999999212\",
  \"invoiceTimeStart\": \"2020-03-19 00:00:00\"
}";

转换错误啊

Dim content As String = "{" & """[""invoiceTimeEnd"":""2020-10-23 22:59:59""]""","""[""taxnum"":""339901999999212""]""",“""[""invoiceTimeStart"":""2020-03-19 00:00:00""]""" & "}"

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

Dim st As New Date(1970,1,1,8,0,0)

Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳

Dim sign As String

sign = "37065939" & timestamp & "4720B7ECFFB94CF3" '应用ID和应用密匙

'output.show(sign）

Dim url As String = "https://sdk.nuonuo.com/open/v1/services"

Dim appKey As String = "37065939"

Dim appSecret As String = "4720B7ECFFB94CF3"

Dim taxnum As String = "92331024MA2DY5HN8K"

Dim accecctoken As String = sign

Dim senid As String = Guid.NewGuid().ToString().Replace("-", "").Substring(0, 32)

Dim method As String = "nuonuo.electronInvoice.queryInvoiceQuantity" '开piao量查找

Dim jo As New JObject

jo("invoiceTimeEnd") = "2020-10-23 22:59:59"

jo("taxnum") = taxnum

jo("invoiceTimeStart") = "2020-03-19 00:00:00"

'msgbox(jo.ToString)

Dim content As String = jo.ToString

Dim result As String = NuonuoSDK.NNOpenSDK.sendPostSyncRequest(url, senid, appKey, appSecret, accecctoken, taxnum, method, content)

output.show(result)

运行结果很奇怪，不知道错哪里了，appKey和appSecret 都是正确的

{"code":"070301", "describe":"accessToken不匹配/或appKey不匹配"}

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

accecctoken 是要另外生成的，自己看sdk里的实例

帮忙接入

Dim hc As New HttpClient("http://api.centrin-ecloud.com/push-book")
hc.FormData.Add("appkey", "24804095")
hc.FormData.Add("appsecret", "63f160b23ca8fa6a9a4d85b6be150caf")
hc.Headers.Add("Content-Type", "application/json; charset=UTF-8")
Dim Token As String = hc.GetData() '获取AccessToken
MessageBox.Show(Token)

下载信息 [文件大小：下载次数： ]
点击浏览该文件:接口说明.rar

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

详细错误信息：

Error reading JArray from JsonReader. Path '', line 0, position 0.

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

主题：诺诺开piao平台API无法接入