SetListMembers

Descripción

Establece los miembros de una lista denominada.

Para Perl, se debe tener en cuenta que este parámetro es una matriz, por lo que no se necesita ningún delimitador para separar elementos de miembros.

Sintaxis

VBScript

session.SetListMembers
nombreLista, (Miembros) 

Perl

$session->SetListMembers(nombreLista, Miembros); 
Identificador
Descripción
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
nombreLista
Un valor String que contiene el nombre de la lista.
Miembros
Para VBScript, una matriz de cadenas de caracteres Variant que contiene los miembros de la lista.

Para Perl, una referencia a una matriz de series que contiene los miembros de la lista.

Valor de retorno
Ninguno.

Ejemplos

VBScript

' En este ejemplo se da por supuesto que hay, como mínimo,
' 1 lista dinámica
en la sesión de acceso a la base de datos actual.

set sessionObj = GetSession 

sessionObj.UserLogon "admin", "", "SAMPL", AD_PRIVATE_SESSION, ""

Dim NewValues(2)
    NewValues(0) = "ABC"
    NewValues(1) = "123"
    NewValues(2) = "XYZ"

DynamicListNamesRef = sessionObj.GetListDefNames

set ListName = DynamicListNamesRef(0)   

print ListName   

sessionObj.SetListMembers ListName, (NewValues)

members = sessionObj.GetListMembers(ListName)

' imprimir los miembros de la lista...
For Each member In members
   print member
Next 

Perl

# En este ejemplo se da por supuesto que hay, como mínimo, 1 lista dinámica
# en la sesión de acceso a la base de datos actual.

$sessionObj = $entity->GetSession();

$sessionObj->UserLogon("admin","","SAMPL","");

# Obtener una lista de los nombres de Listas dinámicas que existen
# en esta base de datos...

$ListDefNamesREF = $sessionObj->GetListDefNames();

$ListName = @$ListDefNamesREF[0];

# Utilizar SetListMembers() para establecer la lista en una lista
# de valores específicos...

print "\nSetting list '$ListName' to ('ABC', '123', 'XYZ')...\n";

@NewValues = ('ABC', '123', 'XYZ');

$sessionObj->SetListMembers($ListName, \@NewValues);

$members = $sessionObj->GetListMembers($ListName);

#imprimir los miembros de la lista
foreach $member (@$members){
   print $member, "\n";   
   } 


Comentarios