Modifica el registro especificado para indicar que es un duplicate 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 schema. 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 duplicate_action_name.
VBScript
session.MarkEntityAsDuplicate
duplicate, original, duplicate_action_name
Perl
$session->MarkEntityAsDuplicate(duplicate,
original, duplicate_action_name);
VBScript
set sessionObj = GetSession
idName = GetFieldValue("id").GetValue
set currentObj = sessionObj.GetEntity("defect", idName)
' Mark the entity with ID="SAMPL00000031" as a duplicate of this entity.
' Use the action named "duplicate".
set dupEntityObj = sessionObj.GetEntity("defect", "SAMPL00000031")
sessionObj.MarkEntityAsDuplicate dupEntityObj, currentObj, "duplicate"
' Validate and commit the duplicate entity since it
' is currently modifiable.
error = dupEntityObj.Validate
if error = "" then
dupEntityObj.Commit
End If
Perl
#Get a Rational ClearQuest session
$sessionObj = $entity->GetSession();
#Mark the entity with ID="SAMPL00000031" as a duplicate of this
#entity. Utilizar la acción denominada "duplicate".
$dupEntityObj = $sessionObj->GetEntity("defect", "SAMPL00000031");
$sessionObj->MarkEntityAsDuplicate( $dupEntityObj, $entity, "duplicate" );
#Validate and commit the duplicate entity since it is currently modifiable
$error = $dupEntityObj->Validate();
if ( $error eq "" ) {
$dupEntityObj->Commit();
}