ListSelection

Descripción

Devuelve el ID de base de datos de un registro resaltado en el control de vista de lista.

Nota: Esta función sólo es para COM. No está disponible para Perl. No está disponible en la interfaz de Rational ClearQuest Web. Como solución provisional para Rational ClearQuest Web, puede utilizar el método FireNamedHook del objeto Entity.

Puede utilizar esta propiedad como respuesta a un suceso de pulsación de botón (es decir, el tipo de sucesos AD_BUTTON_CLICK) para averiguar el valor que se ha seleccionado en un recuadro de lista padre/hijo. Los métodos devuelven la clave principal del tipo de registro referenciado.

Con el objeto de obtener una selección de lista, debe asociar el botón al control de lista (como, por ejemplo, un control padre/hijo) del que desea que se pueda seleccionar un elemento. También debe seleccionar el tipo Vista de lista Otra. De este modo, al pulsar el botón, el valor devuelto es la clave del registro referenciado (las partes de claves multiparte están separadas por espacios).

Sintaxis

VBScript

eventObject.ListSelection 
Identificador
Descripción
eventObject
Una instancia de EventObject.
Valor de retorno
Devuelve una matriz Variant que contiene un único valor String (o una matriz vacía, si no se realiza ninguna selección). El valor devuelto contiene la clave del registro referenciado (las partes de claves multiparte están separadas por espacios).

Ejemplos

VBScript

' El script siguiente se invoca cuando un usuario pulsa un botón denominado
' "Seleccionar" 
que está asociado a un control de Vista de lista y realiza
' una acción de tipo
' "Otra" (en la pestaña de propiedades ampliadas):

   Function Defect_Cust_Sel(param)

      ' param As Variant

      Dim ListSel, Sel

      On Error Resume Next

      ListSel = param.ListSelection

      Sel = ListSel(0)

      SetFieldValue "Customer", Sel

   End Function



' En el ejemplo siguiente se comprueba el tipo de suceso, el tipo de sesión y si
' se ha realizado alguna selección:

   Function MyRecordHook(param)

    ' param As Variant

     ' nombre de tipo de registro isMyRecord

      Dim ListSel

      Dim Item

      ' Comprobar si lo que se puede seleccionar es un suceso

      if param.eventtype = AD_BUTTON_CLICK then

      ' Asegurarse de que no se encuentra en la web, puesto que ListSelection no 
        funciona

         if not GetSession.HasValue("_CQ_WEB_SESSION") then

            ' Si no se encuentra en la web, correcto. 
            ' Comprobar a continuación si se ha realizado 
              alguna selección

            ListSel = param.ListSelection

            if ubound(ListSel) < lbound(ListSel) then

               ' No se ha realizado ninguna selección

            else

               Item = ListSel(0)

               ' ListSel es una matriz de series con un elemento 
               ' cuando se ha realizado alguna selección,
                ' y sin elementos cuando no se ha realizado ninguna selección

               ' Poner el código aquí para realizar lo que se desea

               msgbox "Selected item was:" & Item

            end if

         else

            ' La llamada de API a ListSelection de la interfaz web no funciona aquí

         end if

      else

         ' No es un suceso de pulsación de botón, listselection sólo funciona con
         ' sucesos de pulsación de botón

      end if

   End Function 


Comentarios