各位老师麻烦帮看一下下面这段代码有什么问题吗?为什么已审批的单据获取不到审批人信息?抄送人信息也没有 申请时间怎么获取?
此主题相关图片如下:qq图片20170704094050.png
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/corp/getapprovaldata?access_token={0}"
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
jo("starttime") = "1492617600"
jo("endtime") = "1539392688"
hc.Content = jo.Tostring()
jo = JObject.Parse(hc.GetData)
Dim json As String = jo("data").ToString()
Dim ja As JArray = Jarray.Parse(json)
For i As Integer = 0 To ja.Count - 1
If ja(i)("spname").ToString() ="用章申请" And ja(i)("sp_num").ToString()="201707040001" Then
Dim r As Row =Tables("用章审批表").AddNew()
r("单据类型") =ja(i)("spname").ToString()
r("审批编号") = ja(i)("sp_num").ToString()
r("单据类型") =ja(i)("spname").ToString()
r("申请部门") = ja(i)("apply_org").ToString()
r("审批人") = ja(i)("approval_name").ToString()
r("申请人") = ja(i)("apply_name").ToString()
r("审批状态") = ja(i)("sp_status").ToString()
Dim jsona As String = ja(i)("comm")("apply_data").ToString()
Dim joa As JObject = JObject.Parse(jsona)
For Each it As object In joa
If it.value("value") IsNot Nothing Then
'''Output.Show( it.value("title").ToString() & "-" & CompressJSon(it.value("value")).Trim("[","]") )
r(it.value("title").ToString()) = CompressJSon(it.value("value")).Trim("[","]")
End If
Next
End If
Next