MarkEntityAsDuplicate

Descripción

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.

Sintaxis

VBScript

session.MarkEntityAsDuplicate
duplicado, original, nombre_acción_duplicar 

Perl

$session->MarkEntityAsDuplicate(duplicado,
original, nombre_acción_duplicar); 
Identificador
Descripción
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
duplicado
El objeto Entity que se ha marcado como un duplicado (hijo) del original.
original
El objeto Entity que es el registro de datos original.
nombre_acción_duplicar
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)

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

} 


Comentarios