我有一个名为“BuildSheet”的记录类型的 ClearQuest 数据库。在 BuildSheet 记录上,您可以附加其他记录类型的任务。
我想我可以通过 Session 方法创建一个任务记录类型,然后在 BuildSheet 记录上BuildEntity
执行一个Session 方法,并通过Entity 方法添加 Task Id 字段。EditEntity
AddFieldValue
不幸的是,我创建类型记录的尝试失败了。它被以下eval
语句绊倒:
#
# Now Create the Record Type and Fill in the Fields
#
my $record;
eval { $record = $cq->BuildEntity(TASK_RECORD_TYPE); };
if ($@) {
croak qq(Error when attempting to create record type ")
. TASK_RECORD_TYPE . qq("\n$@\n);
}
if (not $record) {
die qq(Cannot create entity ") . TASK_RECORD_TYPE . qq("\n);
}
当我尝试创建TASK_RECORD_TYPE
记录时,评估失败。我收到以下错误消息:
Error when attempting to create record type "Task"
Permission denied for user WeintraubH to perform action Create (of type SUBMIT)
at D:/Program Files/Rational/Common/lib/perl5/site_perl/5.8.6/CQPerlExt.pm line 43.
at H:\svn\addTask.cqpl line 340
main::createTask('TASK', 'cm', 'HEADLINE',
'FMS-CWA_APP_B35_HF276', 'DESCRIPTION', 'FMS-CWA_APP_B35_HF276',
'PRIORITY', 2, 'EFFORT', ...) called at H:\svn\addTask.cqpl line 236
现在,我可以调出一个 BuildSheet 记录,进入 Child Record 标签,单击 Create 并以这种方式构建我的任务记录,所以显然我确实有权限。
看起来我必须以某种方式将“任务”记录与“BuildSheet”相关联,然后再尝试创建它,但是如何?