- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 诺诺开piao平台API无法接入 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=157636)
-- 发布时间：2020/10/23 15:55:00
-- 诺诺开piao平台API无法接入
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", "诺诺发票")
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编辑过]
-- 发布时间：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编辑过]
-- 发布时间：2020/10/23 16:35:00
--
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""]""" & "}"
-- 发布时间：2020/10/23 16:36:00
--
json建议使用这种方式生成：http://www.foxtable.com/mobilehelp/topics/0167.htm
-- 发布时间：2020/10/23 17:02:00
--
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" \'开票量查找
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不匹配"}
-- 发布时间：2020/10/23 17:07:00
--
对方返回的提示肯定不会错。
accecctoken 是要另外生成的，自己看sdk里的实例
-- 发布时间：2020/11/6 19:49:00
--
帮忙接入
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 |
-- 发布时间：2020/11/7 9:33:00
--
没看明白，找服务商要.net的开发示例
-- 发布时间：2021/1/15 16:58:00
--
详细错误信息：
Error reading JArray from JsonReader. Path \'\', line 0, position 0.
-- 发布时间：2021/1/15 17:05:00
--
没有返回数据，或者返回的不是合法的json数据不能做jobject转换