UnmarkEntityAsDuplicate

説明

指定されたレコードが別のレコードの重複 であることの標識を削除します。

このメソッドは、重複とオリジナルの Entity オブジェクトの間のリンクを分断します。このメソッドを呼び出すと、ユーザーによってかまたは MarkEntityAsDuplicate メソッドの呼び出しによって設定されたリンクを分断できます。DUPLICATE アクションを元に戻すと、状態遷移が発生します。この状態遷移は、DUPLICATE アクションの後にその後の状態遷移が発生しなかった場合、元に戻されます。このメソッドから戻されると、レコードは編集可能状態であり、Entity オブジェクトの Validate メソッドを使用して検証し、Commit メソッドを使用してコミットする必要があります。

注: このメソッドは、親/子エンティティ テーブル内の関連付けは削除しません。このメソッドは子エンティティから重複情報を削除しますが、親エンティティからは重複情報を削除しません。

構文

VBScript

session.UnmarkEntityAsDuplicate duplicate, action_name 

Perl

$session->UnmarkEntityAsDuplicate(duplicate, action_name); 
識別子
説明
session
現在のデータベース アクセス セッションを表す Session オブジェクト。
duplicate
変更する (現在、重複としてマークされている) Entity オブジェクト
action_name
重複に実行するアクションを指定する String。このパラメータには、スキーマに定義された有効なアクションの名前が含まれている必要があります。このようなアクションは、ActionType が UNDUPLICATE でなければなりません。
戻り値
なし。

VBScript

set sessionObj = GetSession 

' Remove the duplicate status of the entity with ID="BUGID00010345". 
' Use the action named "unduplicate". 
set oldDupEntityObj = sessionObj.GetEntity("defect", "BUGID00010345")
sessionObj.UnmarkEntityAsDuplicate oldDupEntityObj, "unduplicate" 

' Validate and commit the entity since it is currently modifiable. 
error = oldDupEntityObj.Validate 
if error = "" then 
   oldDupEntityObj.Commit 
End If 

Perl

#Get a Rational ClearQuest session

$sessionObj = $entity->GetSession();



#Get the entity BUGID00010345

$oldDupEntityObj = $sessionObj->GetEntity( "defect", "BUGID00010345" );



#Remove the duplicate status of the entity with #ID="BUGID00010345"

#using the action "unduplicate"

$sessionObj->UnmarkEntityAsDuplicate( $oldDupEntityObj, "unduplicate" );



#Validate and commit the entity since it is currently modifiable.

$error = $oldDupEntityObj->Validate();



if ( $error eq "" ) {

   $oldDupEntityObj->Commit();

} 

フィードバック