UnmarkEntityAsDuplicate

Descripción

Elimina la indicación de que el registro especificado es un duplicate de otro registro.

Este método rompe el enlace entre un objeto Entity original y un duplicado. Puede llamar a este método para romper un enlace que ha establecido el usuario, o bien, llamar al método MarkEntityAsDuplicate. Si la acción DUPLICATE que se va a deshacer causa una transición de estados, se deshace dicha transición a menos que se produzca una transición de estados subsiguiente después de la acción DUPLICATE. Tras la devolución de este método, el registro se puede editar y se debe validar y confirmar utilizando los métodos Validate y Commit del objeto Entity, respectivamente.

Nota: Este método no elimina la asociación en la tabla de entidad padre-hijo. El método elimina la información de duplicado de la entidad hijo, pero no elimina la información de duplicado de la entidad padre.

Sintaxis

VBScript

session.UnmarkEntityAsDuplicate duplicate, action_name 

Perl

$session->UnmarkEntityAsDuplicate(duplicate, action_name); 
Identificador
Descripción
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
duplicate
El objeto Entity (marcado, actualmente, como un duplicado) que se va a modificar.
action_name
Un valor String que especifica la acción que se va a llevar a cabo en el duplicado. Este parámetro debe contener el nombre de una acción válida tal como se ha definido en el esquema. La acción debe tener el ActionType de UNDUPLICATE.
Valor de retorno
Ninguno.

Ejemplos

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

} 

Feedback