51Testing软件测试论坛

标题: 求助：关于TD8扩展脚本的实现 [打印本页]

作者: paladins 时间: 2005-6-15 17:15
标题: 求助：关于TD8扩展脚本的实现
在进行BUG提交的时候，要对2个字段进行关联，
1：BG_priority（优先级）
2：BG_CLOSING_DATE（结束日期）

其中前者的值分别为“low,medium,high,very high”

现在要实现的功能为：
if BG_priority.vaule="very high" then
BG_CLOSING_DATE="当前时间"＋6hour

问题如下，
1：写脚本时，不知道应写到哪个模块中，查到相关的模块以下2个　　“Defects_Bug_FieldCanChange”和“Defects_Bug_FieldChange”

2：写扩展脚本的时候没有提示功能，所以进行判断时不知道是
if bg_priority.value=”very high”或是bg_priority.text=”very high”

还有，TD的后台是orcel，是不是要直接用SQL把值写入到ORCEL里去...:|
求解…

[ Last edited by paladins on 2005-6-15 at 17:17 ]

作者: jzhao 时间: 2005-6-15 17:28
我记得应该是写在defects_bug_fieldchange里。
如果你不知道你写的扩展脚本是否正确，你可以采用TD的脚本编写模板来编写脚本，脚本模板有提示功能。

作者: ken6328 时间: 2005-6-16 15:31
Sub Defects_Bug_FieldChange(FieldName)
  On Error Resume Next
  WizardListCust
  if Bug_Fields("BG_PRIORITY").Value="aa" then
  Bug_Fields("BG_USER_01").Value=Cstr(Now())
  end if
  On Error GoTo 0
End Sub

Sub WizardListCust
Select Case Bug_Fields("BG_SEVERITY").Value
      Case "1-Low"
         Bug_Fields("BG_STATUS").List = Lists("All Projects")
End Select
end sub
这个是显示当前时间的,我不知道怎么能再加上6个小时,谁知道,告诉告诉俺~~

作者: ken6328 时间: 2005-6-16 15:35
哦对了还有两个地方需要你自己更改一下
"aa" 需要改成你需要的比如"4-Very High"
BG_USER_01 需要换成你需要的字段比如 BG_CLOSING_DATE

WizardListCust这个sub我也不太明白啥意思,反正有它存在,上边的sub才好用

作者: ken6328 时间: 2005-6-16 15:40
啊!!  我知道了,怎么加6个小时了,一下是完整的程序

Sub Defects_Bug_FieldChange(FieldName)
  On Error Resume Next
  WizardListCust
  if Bug_Fields("BG_PRIORITY").Value="4-Very High" then
  Bug_Fields("BG_CLOSING_DATE").Value=Cstr(Now()+0.25)
  end if
  On Error GoTo 0
End Sub

Sub WizardListCust
Select Case Bug_Fields("BG_SEVERITY").Value
      Case "1-Low"
         Bug_Fields("BG_STATUS").List = Lists("All Projects")
End Select
end sub

就是这样了.

作者: ken6328 时间: 2005-6-16 15:44
-_-# 建议你新建立一个field,属性设为string.
closing date的属性好像是date,没办法显示时间,你需要的+6小时就没有意义了

作者: paladins 时间: 2005-6-18 10:32
^^
知道了，收获良多，谢谢

作者: paladins 时间: 2005-6-18 10:41
PS.
　　TD的脚本模块好像没有提示的...
　　要么就是偶没找到脚本模式...

　　现在的最大困难就是不知道如何下手，不知道格式,像有些"mail_to"之类的函数，根本不知道如何去使用

作者: ken6328 时间: 2005-6-20 09:51
可以去mercury的konwledge base里边去查啊,不行就问客服, ^^

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)