如何创建CQ的一个Field分支代码？

liyongdong

各位大侠：
小弟刚刚开始学习CQ的配置管理，
以下说明是创建CQ的一个Field分支代码说明：
创建一个Field分支代码
注释：如果使用的是TeamTest版本的ClearQuest并且没有一个完整的ClearQuest许可证，你就不能在schema中增加一个field。你只能自定义已经存在的fields。
你可以编辑functionality of fields，操作和为记录指定的分支代码。当ClearQuest客户端用户执行了一个操作或一个field中输入了一个值，ClearQuest运行指定的分支程序代码。
在这个练习中，你将为上一练习中生成的User_number field添加一个validation hook，这个分支代码用来验证User_number field的值。
1.展开Record Types > Defect项，双击Fields。
2.在Fields网格中，点击User_number field 中的Validation单元格，然后点击下拉箭头。
选择SCRIPTS > BASIC 打开脚本编辑器。脚本编辑器以灰色输出行的形式提供一个Visual Basic脚本框架。
脚本编辑器的顶部，Fields选项显示User_number，并且Hook Types选项显示FIELD_VALIDATION。如果显示的不是这些，通过滚动选中这些选项。
3.Copy下面的示例代码并粘贴到脚本编辑器中注释行的下面：

REM End If
Dim value_info
Set value_info=GetFieldValue(fieldname)
If Not IsNumeric(value_info.GetValue) Then
User_number_Validation=”Must be an integer between 1 and 100”
ElseIf (value_info.Getvalue<1) or (value_info.Getvalue>100) Then
User_number_Validation=”Must be between 1 and 100”
End If

这个例子中，当用户在field中输入一个数字，ClearQuest客户端运行相应的验证分支代码。
如果验证分支代码返回一个非空字符串，用户将被提示该field中包含无效值。
4.选择Hooks > Compile。编译脚本并检测确定没有语法错误。如果没有错误，在Script Errors 框中将会显示No error(s) found 。
5.关闭脚本编辑器。
注释：分支代码能够影响field的状态，因此在发布它们之前，你必须慎重的计划并测试这些代码。例如，ClearQuest设置未初始化的整数为0。练习中添加的分支代码检测这个field的值，如果发现小于1或大于100，则返回错误信息。这就使得User_number field成为强制性的field，因为0不能通过有效性检测。
然而，如果你看User_number field的属性（展开 Record Types > Defect > States and Actions 并双击Behaviors），该field被定义为可选field。因此，这个验证分支代码实际上改变了这个field的属性。



我想知道将以下代码粘贴在脚本编辑器中注释行的那一行啊？
3.Copy下面的示例代码并粘贴到脚本编辑器中注释行的下面：

REM End If
Dim value_info
Set value_info=GetFieldValue(fieldname)
If Not IsNumeric(value_info.GetValue) Then
User_number_Validation=”Must be an integer between 1 and 100”
ElseIf (value_info.Getvalue<1) or (value_info.Getvalue>100) Then
User_number_Validation=”Must be between 1 and 100”
End If