-- 作者:riancel
-- 发布时间:2020/5/23 16:32:00
-- 怎样获得乐税网返回信息的二级JSON对象
我的写法: Dim CurRow As Row = Tables("收款人名册").Current Dim hc As New HttpClient("https://open.leshui365.com/api/invoiceInfoByQRCode?scanStr=" & CurRow("二维码") & "&token=" & Vars("tk")) Dim jo As JObject = JObject.Parse(hc.GetData) Dim server As String = jo("RtnCode") Dim xiaofang As String = jo("invoiceResult")("salename") Tables("收款人名册").Current("服务器联网") = server Tables("收款人名册").Current("销方名称") = xiaofang 我的错误提示: Cannot access child value on Newtonsoft.Json.Linq.JValue.
这是乐税网返回的信息示例: { RtnCode:服务器是否正常标志,//服务器是否正常标志 resultMsg:查验结果成功, invoiceName:发票名称, resultCode:查询发票状态码, invoiceResult: { "invoiceTypeName":"上海增值税(电子普通发票)",//发票名称 "invoiceTypeCode":"10",//发票类型 01:增值税专票,03:机动车销售统一发票,04:增值税普通发票, 10:电子普通发票,11:卷式普通发票,14:电子普通[通行费]发票, 15:二手车销售统一发票 "checkDate":"2018-03-02 18:16:04",//查询时间 "checkNum":"1",//查验次数 "invoiceDataCode":"0310017xxx11",//发票代码 "invoiceNumber":"1224xxx4",//发票号码 "billingTime":"2018-xx-01",//开票日期 "purchaserName":"上海神州数码有限公司",//(购买方)名称 "taxpayerNumber":"9131xxxxxxx62219",//(购买方)纳税人识别号 "taxpayerAddressOrId":"上海市长宁区福泉路111号",//(购买方)地址.电话 "taxpayerBankAccount":"招商银行上海分行人民广场支行xxx10515",//(购买方)开户行及账号 "salesName":"上海xxx有限公司",//(销售方)名称 "salesTaxpayerNum":"9131011855xxxx5F",//(销售方)纳税人识别号 "salesTaxpayerAddress":"上海市青浦区徐泾镇xxx号xxxx",//(销售方)地址.电话 "salesTaxpayerBankAccount":"工行徐泾支行1001741919000018783",//(销售方)开户行及账号 "totalAmount":"42.45",//金额 "totalTaxNum":"2.55",//税额 "totalTaxSum":"45.00",//价税合计 "invoiceRemarks":" ",//备注 "taxDiskCode":"499099xxxx257",//机器编号 "checkCode":"16533044xxxxxx1959",//校验码 "voidMark":"0",//是否作废 0:正常,1:作废 "isBillMark":"N",//是否为清单票 Y:是,N:否//可以根据该字段展示清单票和正常票 "tollSign":"08",//收费标志字段(06:可抵扣通行费 07:不可抵扣通行费,08:成品油) 支持票种:普通发票,专用发票,卷式发票,普通增值税(通行费),普通增值税(折叠费) "tollSignName":"成品油",//收费标志名称 "invoiceDetailData":[//发票详情(清单票首行号为0,折扣清单票行号从-2开始,正常行号都是从1开始) { "lineNum":"1",//行号 "goodserviceName":"*物流辅助服务*收派服务费",//商品名称 "model":" ",//型号 "unit":"次",//单位 "number":"1.0",//数量 "price":"42.45",//价格 "sum":"42.45",//金额 "taxRate":"6%",//税率 "tax":"2.55",//税额 "isBillLine":"N" //是否为清单行 Y:是,N:否(是的时候,货物名称为“请详见货物清单”,“折扣额合计”,“原价合计”,可以不用做账) "zeroTaxRateSign":"",//零税率标志字段(空:非零税率, 1:税率栏位显示“免税”, 2: 税率栏位显示“不征收”, 3:零税率) "zeroTaxRateSignName":""//零税率标志名称 } ] } }
|