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


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

主题：诺诺开piao平台API无法接入
帅哥哟，离线，有人找我吗？
zoyong
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		诺诺开piao平台API无法接入  发帖心情 Post By：2020/10/23 15:55:00 [显示全部帖子] 

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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：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""]""" & "}"
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：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"   '开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不匹配"}
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：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

 


 
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2021/1/15 16:58:00 [显示全部帖子]

详细错误信息：
Error reading JArray from JsonReader. Path '', line 0, position 0.
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2021/2/22 20:22:00 [显示全部帖子]

Dim cmd As new SQLCommand
cmd.C

For Each dr As DataRow In DataTables("项目开piao_table1").DataRows    
    cmd.CommandText = "S elect 项目名称,业主 from {在建项目} Where 项目名称 = ' "& dr("项目名称") & "'"    
    Dim Values = cmd.ExecuteValues
    If Values.Count < 1 Then
        cmd.CommandText = "Insert Into 在建项目 (项目名称, 业主) Values(?,?)"
        cmd.Parameters.Add("@项目名称",dr("项目名称"))
        cmd.Parameters.Add("@业主",dr("业主"))
        cmd.ExecuteNonQuery
    End If
Next

复制数据到另一张表，代码无效
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2021/3/22 11:22:00 [显示全部帖子]

Dim tm As String = ProjectPath & "Attachments\竣工档案盒.doc" '指定模板文件
Dim fl As String = ProjectPath & "OutPut\竣工档案盒.doc" '指定输出目标文件
Dim mg1 As String = ProjectPath & "Images\新档案号二维码.wmf" '约定的图片文件
Dim mg2 As String = ProjectPath & "Images\原档案号二维码.wmf" '约定的图片文件

Dim r As Row = Tables(TbName).Current         
If r("新档案号") = "" Then
    MessageBox.Show("新档案号不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
    Exit Function  
End If

'生成二维码
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.QRCodeModuleSize = 1 '二维码的放大倍数
Bar.Code = r("新档案号")
Bar.SaveImage(mg1,300)

Dim Bar1 As New BarCodeBuilder
Bar1.Symbology = Barpro.Symbology.QRCode
Bar1.QRCodeModuleSize = 1 '二维码的放大倍数
Bar1.Code = r("原档案号")
Bar1.SaveImage(mg2,300)

Dim wrt As New WordReport(Tables(TbName),tm,fl) '定义一个WordReport
wrt.BuildOne(r)
wrt.Show() '显示报表


两个二维码，只生成一个
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2021/3/26 13:32:00 [显示全部帖子]

'数据删除日志
Dim str As String
For Each c As DataCol In DataTables(eform.name & "_Table1").DataCols
    str += c.Name & "=" & Tables(eform.name & "_Table1").current.DataRow.OriginalValue(c.Name) & "|"
Next
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Insert Into SYS_数据删除日志 (创建人,创建日期,创建人编号,涉及表,涉及行,原行数据) Values (?,?,?,?,?,?)"
cmd.Parameters.Add("@创建人",User_ReName)
cmd.Parameters.Add("@创建日期",Date.Now)
cmd.Parameters.Add("@创建人编号",User_ID)
cmd.Parameters.Add("@涉及表",eform.name)
cmd.Parameters.Add("@涉及行",r("_Identify"))
cmd.Parameters.Add("@原行数据",str)
cmd.ExecuteNonQuery


可用
[此贴子已经被作者于2021/3/26 14:06:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2021/4/10 7:54:00 [显示全部帖子]

Dim lb As String = vars("lb")   

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText ="S elect * From {ZJ_" & lb & "}"
Dim dt As DataTable = cmd.ExecuteReader()
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2021/4/18 19:11:00 [显示全部帖子]

如何让字符水印延图片对角线居中
        Dim img As Image = getimage(k)
        Dim bmp = new bitmap(img.Width, img.Height)
        Dim g As Graphics = Graphics.FromImage(bmp)
        Dim fnt As New Font("微软雅黑", 33, FontStyle.Bold) '水印文字字体
        Dim size = g.MeasureString(txt, fnt)
        g.TranslateTransform((img.width-size.width)/3, img.Height - size.height+45) '设置文字的绘制起点
        g.RotateTransform(-50) '逆时针旋转50度
        Dim semiTransBrush As new System.Drawing.SolidBrush(Color.FromArgb(120, 177, 171, 171)) '水印文字颜色,120是透明度,范围0~255
        g.DrawString(txt, fnt, semiTransBrush, new PointF(0,0))
        img.Save(l)
        g.Dispose()
 回到顶部
总数 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.05078 秒, 7 次数据查询