51Testing软件测试论坛

标题: QC工作流问题 [打印本页]

作者: wul15    时间: 2009-8-14 11:17
标题: QC工作流问题
现在项目运用到QC 但是在新建BUG时描述中是空的 我觉得这点没有BUGFREE好用

我想在描述中加入 [步骤] [预期] [实际] [备注]

请问怎么在工作流中设置阿 小弟编程水平有限,所以想请高手帮忙解决下 深表感谢!

附图是BUGFREE上缺陷描述的图!
作者: hezerong    时间: 2009-8-14 12:15
在工作流中写脚本,在Bugnew的函数中,把你想添加的模板内容赋值给描述字段。很简单的。
作者: wul15    时间: 2009-8-14 14:57
怎么赋值呢?

Sub Defects_Bug_New
  WizardFieldCust_Add ' 由向导添加

End Sub

是这个函数吧?
作者: wul15    时间: 2009-8-14 17:35
已解决!
作者: wenjun2014jsj3    时间: 2009-8-25 15:30
怎么解决的?说说呀。。。。。。。
作者: 孤独无心    时间: 2010-3-13 00:32
请教下怎么解决的?非常感谢!
作者: near    时间: 2010-3-22 14:58
可不可以进一步设置模版字体的颜色和大小
作者: zhoward    时间: 2010-4-30 18:09
Sub Defects_Bug_New
  On Error Resume Next

  Bug_Fields("BG_PLANNED_CLOSING_VER").IsVisible="false"
  Bug_Fields("BG_ACTUAL_FIX_TIME").IsVisible="false"
' 设置初始默认值
  Bug_Fields("BG_USER_01").Value="代码错误"
  Bug_Fields("BG_USER_06").Value="功能测试"
  Bug_Fields("BG_USER_02").Value="Win xp"
  Bug_Fields("BG_USER_10").Value="IE7"

   'Start:缺陷内容模板配置
  '[步骤]:
   '1.
   ''2.
  ' 3.
  '[预期结果]:
  '[实际结果]:
     Bug_Fields("BG_DESCRIPTION").Value="<html><body>" + Bug_Fields("BG_DESCRIPTION").Value+"<font color=""#000080""><b>[描述]</b><br>" '+chr(13)
     Bug_Fields("BG_DESCRIPTION").Value=Bug_Fields("BG_DESCRIPTION").Value+" <font color=""#000080"">1.<font color=""#000000""> <br>" '+chr(13)
     Bug_Fields("BG_DESCRIPTION").Value=Bug_Fields("BG_DESCRIPTION").Value+" <font color=""#000080"">2.<font color=""#000000""> <br>" '+chr(13)
     Bug_Fields("BG_DESCRIPTION").Value=Bug_Fields("BG_DESCRIPTION").Value+" <font color=""#000080"">3.<font color=""#000000""> <br>" '+chr(13)+chr(13)
     Bug_Fields("BG_DESCRIPTION").Value=Bug_Fields("BG_DESCRIPTION").Value+"<font color=""#000080""><b>[预期结果]</b><font color=""#000000""><br><font color=""#000000""> <br>" '+chr(13)+chr(13)
     Bug_Fields("BG_DESCRIPTION").Value=Bug_Fields("BG_DESCRIPTION").Value+"<font color=""#000080""><b>[实际结果]</b><font color=""#000000""><br><font color=""#000000""> <br>" '+chr(13)+chr(13) +chr(13)
     Bug_Fields("BG_DESCRIPTION").Value=Bug_Fields("BG_DESCRIPTION").Value+ "</html></body>"


  On Error GoTo 0
  WizardFieldCust_Add ' 由向导添加

End Sub




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2