Modifica el registro especificado para indicar que es un duplicado de otro registro. Un duplicado es un hijo. Cuando se llama a MarkEntityAsDuplicate, una entidad se marca como un hijo.
Dada una entidad, si HasDuplicates oIsDuplicate es True, puede llamar a métodos del objeto Link para recuperar datos del padre y el hijo.
Este método modifica el registro duplicado, pero deja el original sin modificar. El estado de un duplicado puede cambiar, dependiendo del esquema. Los enlaces adecuados se añaden a la base de datos. El duplicado se deja en el estado de modificar, lo que significa que, posteriormente, se pueden actualizar los campos y, si se desea, se puede validar y confirmar.
El administrador puede establecer acciones diferentes del tipo DUPLICATE. (Por ejemplo, las acciones pueden tener distintas restricciones sobre cuándo están disponibles, o bien, pueden tener enganches diferentes). Se debe especificar una acción de tipo DUPLICATE en el parámetro nombre_acción_duplicar.
VBScript
session.MarkEntityAsDuplicate duplicado, original, nombre_acción_duplicar
Perl
$session->MarkEntityAsDuplicate(duplicado, original, nombre_acción_duplicar);
VBScript
set sessionObj = GetSession
idName = GetFieldValue("id").GetValue
set currentObj = sessionObj.GetEntity("defect", idName)
' Marcar la entidad con ID="SAMPL00000031" como un duplicado de esta entidad.
' Utilizar la acción denominada "duplicate".
set dupEntityObj = sessionObj.GetEntity("defect", "SAMPL00000031")
sessionObj.MarkEntityAsDuplicate dupEntityObj, currentObj, "duplicate"
' Validar y confirmar la entidad duplicada puesto
' que, actualmente, se puede modificar.
error = dupEntityObj.Validate
if error = "" then
dupEntityObj.Commit
End If
Perl
#Obtener una sesión de Rational
ClearQuest
$sessionObj = $entity->GetSession();
#Marcar la entidad con ID="SAMPL00000031" como un duplicado de esta
#entidad. Utilizar la acción denominada "duplicate".
$dupEntityObj = $sessionObj->GetEntity("defect", "SAMPL00000031");
$sessionObj->MarkEntityAsDuplicate( $dupEntityObj, $entity, "duplicate" );
#Validar y confirmar la entidad duplicada puesto que, actualmente,
#se puede modificar
$error = $dupEntityObj->Validate();
if ( $error eq "" ) {
$dupEntityObj->Commit();
}