求助：关于TD8扩展脚本的实现

paladins

在进行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

我记得应该是写在defects_bug_fieldchange里。
如果你不知道你写的扩展脚本是否正确，你可以采用TD的脚本编写模板来编写脚本，脚本模板有提示功能。

ken6328

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

哦对了 还有两个地方需要你自己更改一下
"aa" 需要改成你需要的  比如"4-Very High"
BG_USER_01  需要换成你需要的字段  比如 BG_CLOSING_DATE  

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

ken6328

啊!!  我知道了,怎么加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

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

paladins

^^
知道了，收获良多，谢谢

paladins

PS.
　　TD的脚本模块好像没有提示的...
　　要么就是偶没找到脚本模式...

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

ken6328

可以去mercury的konwledge base里边去查啊,不行就问客服,  ^^