Dim hc As New HttpClient("http://IP:90/seeyon/rest/bpm/process/start")
Dim r As Row = CurrentTable.Current
''
Dim xxtoken As String = Functions.Execute("token").ToString
hc.Headers.Add("token", xxtoken)
'上传图片 ---开始-调用函数传参
Dim xm As Object = r("姓名")
Dim shoujihao As Object = r("手机号")
Dim fankuilb As Object = r("反馈类别")
Dim nr As Object = r("内容")
Dim riqi As Object = r("日期")
Dim url As String = "IP:90/seeyon/rest/bpm/process/start"
Dim jo As New JObject
jo("appName") = "collaboration" '固定值
jo("transfertype") = "json"
jo("data") = New jobject
jo("data")("templateCode") = "DJ001" '流程编号
jo("data")("draft") = "0" '1草稿 0 发送
jo("data")("data") = New jobject
jo("data")("data")("formmain_6773") = New JObject 'formmain_0247 流程数据表名
jo("data")("data")("formmain_6773")("发起人") = "8888"
'//附件数组- 多行数据处理
Dim ja2 As New JArray
Dim joo As New JObject
joo("姓名") = xm.ToString
joo("手机号") = shoujihao.ToString
joo("反馈类别") = fankuilb.ToString
joo("内容") = nr.ToString
'joo("日期") = riqi.ToString
ja2.Add(joo)
jo("data")("data")("formmain_6773") = ja2
hc.C
Output.Show(jo.ToString)
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
Dim jo1 As JObject = JObject.Parse(ret)
Output.Show(ret.ToString)
Dim ddo As JObject = JObject.Parse(ret)
'MessageBox.Show(DDO.ToString)
If ddo("data")("app_bussiness_data") IsNot Nothing Then
' Output.Show(ddo("code").tostring)
Dim jo2 As JObject = JObject.Parse(ddo("data")("app_bussiness_data").tostring)
'Output.Show(jo2("affairId").tostring)
r("affairId") = jo2("affairId").tostring
r("summaryId") = jo2("summaryId").tostring
r.DataRow.Save
End If
MessageBox.Show("推送成功")
返回
{
"code" : 1,
"message" : "java.util.ArrayList cannot be cast to java.util.Map"
}
加好友 
发短信
Post By：2024/2/29 13:49:00 [只看该作者]
