フックから定義済みのフォームを開くには、GSU_CQXE_SubmitRecord グローバル スクリプト ユーティリティを使用します。この API は 、GSU_CQXE_OpenSubmitForm フックと同じ機能を提供しますが、 データベース ID を必要とする API の一時オブジェクトを作成しないため、より良いパフォーマンスを提供します。
GSU_CQXE_SubmitRecord グローバル フック関数を 使用するには、GlobalScriptUtility (GSU_CQXE) パッケージを適用して、 スキーマをグローバル フック コードで更新する必要があります。グローバル フック コードのダウンロード手順については、パッケージの適用を参照してください。
この機能は、ClearQuest® クライアントと ClearQuest Web クライアントのバージョン 7.1.2 以降で使用可能です。ユーザーが古いクライアントまたは ClearQuest client for Windows クライアントからフォームを開こうとすると、API は情報メッセージを返します。 ユーザーにこのメッセージを表示するには、die 関数を呼び出します。
クライアントがこの機能をサポートしている場合は、API は例外をスローし、API 呼び出しの後のコードはすべて実行されません。API 呼び出しの後に追加でコードを実行するには、スクリプトでコールバック フックを使用します。
Perl
GSU_CQXE_SubmitRecord($session, $rcdType, $saveCallback, $cancelCallback, $fieldNameRef, $fieldValueRef)
Visual Basic
GSU_CQXE_SubmitRecord(session, rcdType, saveCallback, cancelCallback, fieldNameRef, fieldValueRef)
sub Defect_SubmitChild {
my($result);
my($param) = @_;
# record type name is Defect
$session= $entity->GetSession();
my $id = $entity->GetFieldStringValue("id");
my $headline = $entity->GetFieldStringValue("Headline");
my $fieldName = ["parent", "Headline"];
my $fieldValue = [$id, $headline];
$returnValue = GSU_CQXE_SubmitRecord($session, "Defect", "", "", $fieldName, $fieldValue);
return $result;
}
Function Defect_SubmitChild(param)
' param As Variant
' record type name is Defect
Dim session
Dim id
Dim headline
Dim fieldName(2)'This sets up an array of three elements with subscripts from 0 to 1
Dim fieldValue(2)'This sets up an array of three elements with subscripts from 0 to 1
set session = GetSession
id = GetFieldStringValue("id")
headline = GetFieldStringValue("Headline")
fieldName(0) = "parent"
fieldName(1) = "Headline"
fieldValue(0) = id
fieldValue(1) = headline
call GSU_CQXE_SubmitRecord(session, "Defect", "","", fieldName, fieldValue)
End Function