Rimuove l'indicazione che il record specificato è un duplicato di un altro record.
Questo metodo interrompe il collegamento tra un oggetto Entity duplicato e originale. È possibile richiamare questo metodo per interrompere un collegamento stabilito dall'utente oppure richiamando il metodo MarkEntityAsDuplicate. Se l'azione DUPLICATE annullata ha provocato una transizione di stato, la transizione viene annullata a meno che non si sia verificata una successiva transizione di stato in seguito all'azione DUPLICATE. Una volta restituito questo metodo, il record è modificabile e deve essere convalidato e deve esserne eseguito il commit utilizzando rispettivamente i metodi Validate e Commit dell'oggetto Entity.
VBScript
session.UnmarkEntityAsDuplicate duplicate, action_name
Perl
$session->UnmarkEntityAsDuplicate(duplicate, action_name);
VBScript
set sessionObj = GetSession ' Remove the duplicate status of the entity with ID="BUGID00010345". ' Use the action named "unduplicate". set oldDupEntityObj = sessionObj.GetEntity("defect", "BUGID00010345") sessionObj.UnmarkEntityAsDuplicate oldDupEntityObj, "unduplicate" ' Validate and commit the entity since it is currently modifiable. error = oldDupEntityObj.Validate if error = "" then oldDupEntityObj.Commit End If
Perl
#Get a Rational ClearQuest session
$sessionObj = $entity->GetSession();
#Get the entity BUGID00010345
$oldDupEntityObj = $sessionObj->GetEntity( "defect", "BUGID00010345" );
#Remove the duplicate status of the entity with #ID="BUGID00010345"
#using the action "unduplicate"
$sessionObj->UnmarkEntityAsDuplicate( $oldDupEntityObj, "unduplicate" );
#Validate and commit the entity since it is currently modifiable.
$error = $oldDupEntityObj->Validate();
if ( $error eq "" ) {
$oldDupEntityObj->Commit();
}