APLICACIONES COMPUESTAS: DISEÑO Y GESTIÓN

Definición de las acciones de Notes que consumen propiedades
En esta tarea, agregará una acción a un formulario de IBM® Lotus® Notes®. Esta acción consume la propiedad publicada por otro componente de su aplicación compuesta que usted ensamblará y conectará en una tarea posterior.

Consulte el tema "Creación de componentes NSF" si desea más información sobre las nuevas clases, métodos y propiedades de LotusScript.

Para llevar a cabo esta tarea, debe realizar las operaciones siguientes:


Ejecute los pasos siguientes para agregar la acción al formulario de Notes.

1. Si IBM® Lotus® Domino(TM) Designer 8 no se está ejecutando, inicie ahora su ejecución y abra MisDebates.nsf.


2. Si fuera necesario, cambie a la lista de formularios haciendo clic en Formularios en el panel de diseño situado a la izquierda.

3. Haga clic en el formulario FormularioDocPorCategorías y pulse Intro para abrirlo en el modo de diseño.


4. Haga clic en Crear > Acción > Acción para agregar una nueva acción a este formulario. En la parte superior derecha se abre el panel Acción y aparece el cuadro de propiedades de la nueva acción.

5. En la primera ficha del cuadro de propiedades, escriba "TutorialAction1" en el campo Nombre.

6. En la última ficha del cuadro de propiedades, haga clic en TutorialAction1 en la lista de campos Parámetros conexiones - Nombre de la acción de la parte inferior.

7. Cierre el cuadro.

8. Haga clic en la acción TutorialAction1 que acaba de crear en el panel de acciones situado en la parte superior derecha.

9. En el panel de programación en la parte inferior derecha, seleccione las opciones Cliente y LotusScript en Ejecutar.

10. Introduzca el código LotusScript siguiente en la subrutina Click.


Sub Click(Source As Button)

Dim s As New Notessession

Dim db As NotesDatabase

Set db = s.currentdatabase

'identificador para la base de datos en que está situado este formulario.

Dim ws As New NotesUIWorkspace

Dim uidb As NotesUIDatabase

Dim uidoc As NotesUIDocument
'gestionar el error 4719, que aparece cuando el script se ejecuta sin un contexto del intermediario de propiedades

On Error 4719 Goto err4719
'nuevo código para el intermediario de propiedades

Dim pb As NotesPropertyBroker

Set pb = s.getPropertyBroker()
'crear un nuevo objeto NotesPropertyBroker

Dim pbInputProperty As NotesProperty

Dim pbcontext As Variant

pbContext = pb.InputPropertyContext 'matriz de objetos NotesProperty

Set pbInputProperty = pbContext(0) 'identificador para el primer objeto ’NotesProperty

Dim InputPropertyName As String

Dim Namespace As String

InputPropertyName = pbInputProperty.Name

'nombre del objeto ’NotesProperty

NameSpace = pbInputProperty.NameSpace
'espacio de nombres del objeto 'NotesProperty 

Print "InputPropertyName = " & InputPropertyName ’&" NameSpace = " & NameSpace

Dim pbvalue As Variant

pbValue = pb.GetPropertyValue(InputPropertyName) 'matriz de valores de NotesProperty

cName$ = pbValue(0) 'primer valor de la matriz de valores del objeto NotesProperty

SkipPropertyBroker:

If cName$ = "" Then

cName$ = Inputbox("Filter", cName$)

If cname$ = "" Then

Exit Sub

End If

End If

' Messagebox cName$

Set UIdoc = ws.CurrentDocument

Call uidoc.FieldSetText("MostrarEstaCategoría",cName$)

Call uidoc.Refresh

Exit Sub

err4719:

Print "Error" & Str(Err) & ": " &Error$

Messagebox "error"

Resume skipPropertyBroker

End Sub

Cuando termine, haga clic en Archivo > Guardar para guardar los cambios en el formulario. Por último, haga clic en Archivo > Cerrar para salir del modo de diseño.

Ha agregado una acción al formulario de Notes. Cuando más adelante use este formulario de Notes como componente en una aplicación compuesta, el componente puede consumir una propiedad publicada y realizar la acción definida por el código LotusScript.

Véase también

Glosario
¿Desea opinar sobre la Ayuda o sobre la utilidad del producto?