ggogw 发表于 2008-4-1 19:22:17

定制TD新建Bug的WorkFlow问题(已解决)

Sub Defects_Bug_New
WizardFieldCust_Add ' Added by wizard
Defaltbugstatus = Bug_Fields
Defaltbugstatus("BG_STATUS").Value = "open"'设置Bug提交默认状态为open
'定制描述格式
Defaltbugstatus("BG_DESCRIPTION").Value = "[预设条件]" & Chr(13) & Chr(10)_
& Chr(13) & Chr(10) & "[过程描述]" & Chr(13) & Chr(10) & "1."& Chr(13)_
& Chr(10) & "2." & Chr(13) & Chr(10) & "3." & Chr(13) & Chr(10)_
& "[预期结果]"& Chr(13) & Chr(10) & Chr(13) & Chr(10) & "[实际结果]"
'定制Asign To下拉选项为开发人员组的所有成员
Defaltbugstatus("BG_RESPONSIBLE").Value=User.IsInGroup("开发人员")
On Error Resume Next
On Error GoTo 0
End Sub
前面设置Bug提交默认状态为open和定制描述格式都没问题，但就是定制Asign To下拉选项为开发人员组的所有成员不成功，下拉选项还是所有的User

[ 本帖最后由 ggogw 于 2008-4-7 08:51 编辑 ]

ggogw 发表于 2008-4-2 10:29:49

此外我在customize project list 那里新建了一个开发人员list，并在list把开发人员的姓名都加上去了，把Defaltbugstatus("BG_RESPONSIBLE").Value=User.IsInGroup("开发人员")改成
Defaltbugstatus("BG_RESPONSIBLE").List=Lists("开发人员")
还是不行！！
不知道哪位指点一下，不胜感激！！

ggogw 发表于 2008-4-2 11:07:55

终于搞定了~~！！
定制过程：
1、在customize project list 那里新建了一个开发人员list，并在list把开发人员的姓名都加上去。
2、在customize projectEntities里的Defect里的User Field添加一个Assign To 选择LookUp List，取值为开发人员list。
3、在WorkFlow 的Defects_Bug_New把所有的SetFieldApp "BG_RESPONSIBLE"的那一行改成SetFieldApp "BG_RESPONSIBLE", False, False, 0, 8，再在添加
SetFieldApp "BG_USER_01", True, True, 0, 20

elanzj 发表于 2010-7-7 22:31:08

这样相当于另外加
页: [1]
查看完整版本: 定制TD新建Bug的WorkFlow问题(已解决)