Lotus Notes Voir Embedded - Jouez avec le document sélectionné
Nous avons beaucoup de manière à utiliser Lotus Notes Voir Embedded en forme pour l'utilisateur peut facile à utiliser l'enfant doc. Disons que vous avez pour une raison quelconque un formulaire avec une vue intégrée qui répertorie un tas de documents. Vous souhaitez marquer l'un des documents dans la vue intégrée et d'obtenir une prise en main de ce document et faire quelque chose avec elle. C'est ainsi que je l'ai résolu (avec une certaine forme d'aide sur les forums developerWorks d'IBM).
Étape 1
De l'avis qui est incorporé dans le formulaire, ajoutez le code formule suivante pour "Cadre de destination (un seul clic)":
@ SetEnvironment ("eViewSelection"; @ Text (@ DocumentUniqueID))
Qu'est-ce qui se passe ici est qu'une variable d'environnement nommée «eViewSelection 'est fixé lors d'un clic sur un document dans la vue avec la valeur du texte de l'identifiant de document unique. En plus en détail ce qui signifie qu'une ligne est ajoutée ou mise à jour en notes.ini qui ressemble à ceci:
$ EViewSelection = 00C2635582348362C125737F003C09AD
Étape 2
Lorsque vous quelque part ailleurs sur le formulaire doivent mettre la main sur le document (pour obtenir une valeur de lui ou par la poste à titre de référence ou autre chose), peut-être en utilisant LotusScript sur un bouton, vous pouvez y accéder par d'abord obtenir la valeur de la variable d'environnement qui a été mis en cliquant sur le document dans la vue et plus tard de l'utiliser. Voici un exemple:
Sous Click (Source As Button)
On Error Goto ErrorHandler
Session de As NotesSession Nouveau
Dim db Comme NotesDatabase
SelectedDocID As NotesDocument
SelectedDocIDString Dim As String
Set db = session.CurrentDatabase
selectedDocIDString = session.GetEnvironmentString ("$ eViewSelection", False)
Si (selectedDocIDString <> "") Then
Réglez selectedDocID = db.GetDocumentByUNID (selectedDocIDString)
D'autre
Msgbox "Vous devez sélectionner un document!"
Exit Sub
End If
«Set variable d'environnement pour une chaîne vide pour être prêt pour la prochaine exécution
Appel session.SetEnvironmentVar ("eViewSelection $", "")
Exit Sub
ErrorHandler:
Connexion d'erreur "
Msgbox "Une erreur s'est produite"
Exit Sub
End Sub
Vu 7254 fois par 2234 spectateurs
