UnmarkEntityAsDuplicate

설명

지정된 레코드가 다른 레코드의 중복임을 나타내는 표시를 제거합니다.

이 메소드는 중복 및 원본 Entity 오브젝트 사이의 연결을 끊습니다. 이 메소드를 호출하여 사용자가 설정했거나 MarkEntityAsDuplicate 메소드를 호출하여 설정한 링크를 해제할 수 있습니다. 미완료된 DUPLICATE 조치로 인해 상태 전이가 발생한 경우, 이후의 상태 전이가 DUPLICATE 조치 이후 발생한 경우 이외에는 해당 전이가 미완료됩니다. 이 메소드가 리턴된 뒤에는 레코드를 편집할 수 있으며 각각 Entity 오브젝트의 ValidateCommit 메소드를 사용하여 유효성을 검증하고 확약해야 합니다.

주: 이 메소드는 Parent-Child Entity 테이블의 연관은 제거하지 않습니다. 메소드는 Child 엔티티에서 중복 정보를 제거하지만 Parent 엔티티에서 중복 정보를 제거하지 않습니다.

구문

VBScript

session.UnmarkEntityAsDuplicate duplicate, action_name 

Perl

$session->UnmarkEntityAsDuplicate(duplicate, action_name); 
ID
설명
session
현재 database-access 세션을 나타내는 Session 오브젝트입니다.
duplicate
수정할 Entity 오브젝트(현재 중복으로 표시되어 있는)입니다.
action_name
중복에 대해 수행될 조치를 지정한 문자열입니다. 이 매개변수에는 스키마에 정의된 올바른 조치의 이름이 포함되어야 합니다. 이러한 조치에는 ActionType UNDUPLICATE가 있어야 합니다.
Return value
없음

예제

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();

} 

피드백