RE: abrir anexo de otro formulario
Responder

Comentarios:

      ----------------------------------- RESPUESTA --------------------------------------------
      Hola Esther, depende de como hayas creado el documento de configuración, si lo has creado como profile (no se muestra en las vistas) o si es visible en alguna vista (SELECT FORM="F100 Configuracion")
      Si es un documento profile
      Tienes que hacer:
      Set doc = Bd.getProfileDocument("F100 Configuracion")
      Si es un documento visible en una vista:
      Dim vista as NotesView
      set Vista Bd.getView("Nombre_vista")
      Set doc = Vista.getDocumentByKey("valor_busqueda_en_primera_columna_ordenada_vista")
      Revisa tambien la linea:
      Set object = rtitem.GetEmbeddedObject( "NombreDelCampo" )
      Porque lo que hay que pasar es el nombre del archivo anexo que quieres ejecutar
      Set object = rtitem.GetEmbeddedObject( "Nombre_del_anexo" )
      Buenas
      Mediante un botón dibujado en un guía quisiera abrir directamente un anexo recogido en un formulario de configuración, y no deduzco cómo hacer la llamada al documento. estoy trabajando con el siguiente script pero me da error.¿por favor noteros podríais ayudarme en cómo hacer el set del doc? soy aún principiante en LotusScrip.
      Sub Click(Source As Navigator)
      Dim wk As New notesuiworkspace
      Dim uidoc As notesuidocument
      Dim doc As notesdocument
      Dim Sesion As New NotesSession
      Dim Bd As NotesDatabase
      Dim rtitem As Variant
      Dim object As NotesEmbeddedObject
      Dim handle As Variant
      Dim form As NotesForm
      'Set uidoc=wk.currentdocument
      Set Bd=Sesion.CurrentDatabase
      Set Form=Bd.GetForm ("F100 Configuracion")
      '''''''''Set doc= Form.Fields --------------------------------------------------------------AQUI YA DUDO QUE VALOR ASINGAR y no avanzo.
      Set rtitem = doc.GetFirstItem( "DocConvenioColectivo" )
      If ( rtitem.Type = RICHTEXT ) Then
      Set object = rtitem.GetEmbeddedObject( "NombreDelCampo" )
      If Not ( object Is Nothing ) Then
      Set handle = object.Activate( True )
      End If
      End If
      End Sub
Respuestas



Web Desarrollada por Juan Carlos Trigo Díaz
Optimizado para: 1024 x 768 pixels - Explorer > 6 Copyright © 2008