Delete

Description

Suprime un archivo adjunto de la recopilación.

Para VBScript, el argumento para este método puede ser un índice numérico (itemNum) o un nombre de visualización (displayName). Para Perl, el argumento debe ser un índice numérico.

Puede utilizar los métodos Count e Item para localizar el objeto Attachment correcto antes de llamar a este método.

Nota: Antes de llamar al método Delete, la entidad debe tener un estado editable. Si se utiliza este método en un enganche de Rational ClearQuest y se suprime un archivo de datos adjuntos del registro actual (es decir, el registro en el que está en curso la acción actual), la entidad ya se encuentra en un estado editable. Sin embargo, si se utiliza este método en un enganche y se suprime un archivo de datos adjuntos de un registro que no sea la entidad actual, o bien, si se utiliza este método en un programa externo, en primer lugar se debe poner la entidad en un estado editable llamando al método EditEntity. Para obtener más información, consulte el método EditEntity.

Sintaxis

VBScript

attachments.Delete itemNum 
attachments.Delete displayname 

Perl

$attachments->Delete(itemNum); 
Identificador
Description
attachments
Objeto de recopilación Attachments que representa el conjunto de archivos de datos adjuntos de un campo de un registro.
itemNum
Para VBScript, un valor Variant que es un índice en la recopilación. Este índice se basa en 0 y señala al archivo que se desea suprimir. Para Perl, un valor Long que es un índice en la recopilación. Este índice se basa en 0 y señala al archivo que se desea suprimir.
displayName
Para VBScript, un valor Variant que es un nombre de visualización de un elemento en la recopilación.
Valor de retorno
Un Boolean que es True si el archivo se ha suprimido satisfactoriamente y, de lo contrario, devuelve False.

Ejemplos

VBScript

' This example assumes there is at least 1 attachment field in this record type,
' and at least one attachment associated with this record.
' NOTE: The entity must be in an editable state to delete an attachment -- see above.
set currentSession = GetSession
set attachFields = AttachmentFields
set attachField1 = attachFields.Item(0)
set theAttachments = attachField1.Attachments
If Not theAttachments.Delete(0) Then
    OutputDebugString "Error deleting the attachment."
End If

Perl

# This example assumes there is at least 1 attachment field in this record type,
#  and at least one attachment associated with this record.
# NOTE: The Entity must be in an editable state to delete an attachment -- see above.
# For this entity record, get the collection of all attachment fields
$attachfields = $entity->GetAttachmentFields();
# Work with the first attachment field
$attachfield1 = $attachfields->Item(0);
# For this attachment field, get the collection of all its attachments
$attachments = $attachfield1->GetAttachments();
# Delete the first attachment
if (!$attachments->Delete(0)) {
    $session->OutputDebugString("Error deleting attachment from record.\n");
}

Comentarios