以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 企业微信获取不到审批人信息 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103248) |
-- 作者:lshshlxsh -- 发布时间:2017/7/4 9:42:00 -- 企业微信获取不到审批人信息 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
|
-- 作者:有点甜 -- 发布时间:2017/7/4 10:11:00 -- 时间戳这样弄
Dim st As New Date(1970,1,1,8,0,0)
弹出你返回的值看看 msgbox(hc.GetData) |
-- 作者:lshshlxsh -- 发布时间:2017/7/5 14:22:00 -- 这个是企业微信接口问题 已经跟企业微信的联系过了,他们已经改好好了。 谢谢 [此贴子已经被作者于2017/7/5 14:22:39编辑过]
|
-- 作者:xietan417 -- 发布时间:2017/9/12 16:28:00 -- 请教一下!Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken")))中 GetQYAccessToken 的内部函数你怎么写的?跟例子一样? 企业微信中应用的:AgentId 怎么处理?
|
-- 作者:有点甜 -- 发布时间:2017/9/12 17:50:00 -- 照抄
http://www.foxtable.com/mobilehelp/scr/0212.htm
AgentId 的处理,帮助文档搜索对应关键字可以看到。 |
-- 作者:xietan417 -- 发布时间:2017/9/13 11:19:00 -- 收到收到!谢谢啦! |