Devuelve el ID de base de datos de un registro resaltado en el control de vista de lista.
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).
VBScript
eventObject.ListSelection
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