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