MarkEntityAsDuplicate

Descripción

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.

Sintaxis

VBScript

session.MarkEntityAsDuplicate
duplicate, original, duplicate_action_name 

Perl

$session->MarkEntityAsDuplicate(duplicate,
original, duplicate_action_name); 
Identificador
Descripción
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
duplicate
El objeto Entity que se ha marcado como un duplicado (hijo) del original.
original
El objeto Entity que es el registro de datos original.
duplicate_action_name
Un valor String que especifica una acción cuyo ActionType es DUPLICATE. Este parámetro debe identificar una acción válida para el registro duplicado.
Valor de retorno
Ninguno.

Ejemplos

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

} 

Feedback