问题描述
我希望有人能为我为Jira生成的函数提供一些启发。似乎在我们的系统中生成故障单后,我试图使用我的自定义代码来通过其工作流程解决问题,但是,与众不同的是,第一次运行下面的函数需要按顺序填充CUSTOM 12000正确更新。如果不是,它将返回无效请求。通过导航到我的https:// jira / rest / api / 2 / issue / IS-123456 / editMeta 我可以看到自定义字段,并且该字段也填充有数据,但是对于查询发布数据并检查.NET对象中的“自定义”字段,这是唯一似乎未导入到CustomFieldValues的字段。任何指针将不胜感激:)
Public Function TransistionIssue(MyIssue As Issue,Comment As String) As Issue
Dim transitions As Task(Of IEnumerable(Of IssueTransition)) = MyIssue.GetAvailableActionsAsync
Dim TransitionResults As IEnumerable(Of IssueTransition) = transitions.Result
Dim RawTransition As IssueTransition
For Each Mytype As IssueTransition In TransitionResults
If (Mytype.Id = 61) Then 'Reopen
Return MyIssue
End If
Debug.WriteLine(Mytype.Id & " " & Mytype.Name)
RawTransition = Mytype
Exit For
Next
For Each MyField As CustomFieldValue In MyIssue.CustomFields
'Debug.WriteLine(MyField.Id & " - " & MyField.Name)
If Isnothing(MyField.Values) Then
'Debug.WriteLine(MyField.Id & " - " & MyField.Name & ": is empty")
If MyField.Id = "customfield_12000" Then
MyField.Values = {""}
End If
End If
Next
If Not Isnothing(Comment) Then
Dim NewUpdates As New WorkflowTransitionUpdates
NewUpdates.Comment = Comment
Dim Transistion As Task = MyIssue.WorkflowTransitionAsync(RawTransition.Name,NewUpdates)
Else
Dim Transistion As Task = MyIssue.WorkflowTransitionAsync(RawTransition.Name)
While True
If Transistion.IsCompleted Then
'MyIssue.Refresh()
Exit While
Else
Application.DoEvents()
End If
End While
End If
'MyIssue.CustomFields("Affected Object(s)").Values = {"MyReplacement"} 'TONE-20151 = Server 'This fills the value to fix it
MyIssue.SaveChanges()
End Function
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)