Dim hc As New HttpClient("http://10.32.195.238:90/seeyon/rest/bpm/process/start")
Dim xxtoken As String = Functions.Execute("token").ToString
hc.Headers.Add("token", xxtoken)
Dim fileurl As Long = Functions.Execute("upload")
Dim url As String = "http://10.32.195.238:90/seeyon/rest/bpm/process/start"
Dim jo As New JObject
jo("appName") = "collaboration" '固定值
jo("transfertype") = "json"
jo("data") = New jobject
jo("data")("templateCode") = "H00002" '流程编号
jo("data")("draft") = "1" '1草稿 0 发送
Dim ja1 As New JArray
jo("data")("attachments") = ja1
ja1.Add(fileurl)
jo("data")("data") = New jobject
jo("data")("data")("formmain_3708") = New JObject 'formmain_0247 流程数据表名
jo("data")("data")("formmain_3708")("发起人") = "哈哈哈"
'jo("data")("data")("formmain_3709")("用工类型") = "合同工"
'//附件数组
Dim ja2 As New JArray
jo("data")("data")("formson_3709") = ja2
ja2.add(New JObject)
ja2(0)("事实描述") = "12312312231"
Dim ja As New JArray
jo("data")("data")("formson_3709")("field3") = ja
ja.add(New JObject)
ja(0)("fileUrl") = fileurl
hc.C
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
Dim jo1 As JObject = JObject.Parse(ret)
Output.Show(jo.ToString)
[此贴子已经被作者于2022/11/1 12:11:41编辑过]
加好友 
发短信
Post By：2022/10/21 11:52:00 [显示全部帖子]
此主题相关图片如下：微信截图_20221101112214.png