abrir anexo de otro formulario
Responder




Comentarios:

    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


Re: Re: Abrir Anexo De Otro Formulario

Muchísimas gracias por tu respuestas, me ha servido de mucha ayuda y aprendizaje.
----------------------------------- 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

Anonymous 09/27/2017 10:40:47 AM Responder

Re: Abrir Anexo De Otro Formulario

----------------------------------- 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

Anonymous 12/09/2017 12:48:43 Responder



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