Delete

Descripción

Suprime un archivo adjunto de la recopilación.

Para VBScript, el argumento para este método puede ser un índice numérico (númElem) o un nombre de visualización (nombreVisualización). 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 númElem 
attachments.Delete nombreVisualización 

Perl

$attachments->Delete(númElem); 
Identificador
Descripción
attachments
Objeto de recopilación Attachments que representa el conjunto de archivos de datos adjuntos de un campo de un registro.
númElem
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.
nombreVisualización
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

' En
este ejemplo se da por supuesto que hay, como mínimo, ' 1 campo de archivo de datos
adjuntos en este tipo de registro y,
' como mínimo, un archivo de datos adjuntos asociado al registro.
' NOTA: Para suprimir un archivo de datos adjuntos, la entidad debe tener un estado
' editable -- consultar más arriba.
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

# En este ejemplo se da por supuesto que
hay, como mínimo, # 1 campo de archivo de datos adjuntos y,
# como mínimo, un archivo de datos adjuntos asociado al registro.
# NOTA: Para suprimir un archivo de datos adjuntos, la entidad debe tener un estado
# editable -- consultar más arriba.
# Para este registro de entidad, obtener la recopilación de todos los campos de
# archivos de datos adjuntos
$attachfields = $entity->GetAttachmentFields();
# Trabajar con el primer campo de archivo de datos adjuntos
$attachfield1 = $attachfields->Item(0);
# Para este campo de archivo de datos adjuntos, obtener la recopilación de todos
# sus archivos de datos adjuntos
$attachments = $attachfield1->GetAttachments();
# Suprimir el primer archivo de datos adjuntos
if (!$attachments->Delete(0)) {
    $session->OutputDebugString("Error deleting attachment from record.\n");
}


Comentarios