UnmarkEntityAsDuplicate

Descripción

Elimina la indicación de que el registro especificado es un duplicado 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 suprime la información de duplicado de la entidad padre.

Sintaxis

VBScript

session.UnmarkEntityAsDuplicate duplicado, nombre_acción 

Perl

$session->UnmarkEntityAsDuplicate(duplicado, nombre_acción); 
Identificador
Descripción
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
duplicado
El objeto Entity (marcado, actualmente, como un duplicado) que se va a modificar.
nombre_acción
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 

' Eliminar el estado duplicado de la entidad con ID="BUGID00010345". 
' Utilizar la acción denominada "unduplicate". 
set oldDupEntityObj = sessionObj.GetEntity("defect", "BUGID00010345")
sessionObj.UnmarkEntityAsDuplicate oldDupEntityObj, "unduplicate" 

' Validar y confirmar la entidad puesto que, actualmente, se puede modificar. 
error = oldDupEntityObj.Validate 
if error = "" then 
   oldDupEntityObj.Commit 
End If 

Perl

#Obtener una sesión de Rational
ClearQuest

$sessionObj = $entity->GetSession();



#Obtener la entidad BUGID00010345

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



#Eliminar el estado duplicado de la entidad con #ID="BUGID00010345"

#utilizando la acción "unduplicate"

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



#Validar y confirmar la entidad puesto que, actualmente, se puede modificar.

$error = $oldDupEntityObj->Validate();



if ( $error eq "" ) {

   $oldDupEntityObj->Commit();

} 


Comentarios