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.
VBScript
session.UnmarkEntityAsDuplicate duplicado, nombre_acción
Perl
$session->UnmarkEntityAsDuplicate(duplicado, nombre_acción);
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();
}