“字段”:
“key”:“项目测试”
“description”:“testepic01”,
“name”:“史诗”
“duedate”:“2020-11-1”,
在没有自定义域的情况下执行任务是可以的。
Public Function CreateEpic(ByVal summary As String, ByVal description As String, ByVal project As String, ByVal budget As String, ByVal dueDate As String) As String
Dim issueType As String
issueType = "Epic"
Dim text As String
text = "{""fields"": {""project"":{ ""key"": """ & project & """},""summary"": """ & summary & """,""description"": """ & description & """,""issuetype"": {""name"": """ & issueType & """},""customfield_12335"":""" & budget & """, ""duedate"":""" & dueDate & """,""customfield_12932"":""" & summary & """}}"
Dim resp As Object
Set resp = HttpRequest("POST", "/rest/api/latest/issue", text, True, True)
MsgBox (text)
CreateEpic = resp("key")
End Function
{
"fields":
{
"project":{
"key": "PROJTEST"
},
"summary": "testepic1",
"description": "testepic01",
"issuetype": {
"name": "Epic"
},
"customfield_12335":"100h",
"duedate":"2020-11-1",
"customfield_12932":"testepic1"
}
}
错误响应告诉我这两个自定义字段有问题,但我不明白这一点。
