Page 1 sur 1

Récupérer la valeur du champs dans une variable

MessagePublié: 24 Sep 2010 à 09:37
par clementbp
Bonjour.

J'ai encore un problème en lotus script

J'essaye dans mon agent que j'exécute par un bouton d'action depuis une vue, de récupérer dans une variable la valeur d'un champs spécifique du document qui est selectionné depuis la vue.

Et la impossible je n'y arrive pas pourriez vous m'aider s'il vous plait :

Voici le code que j'ai créer :

Dim Document As NotesDocument
Dim uidoc As NotesDocument
Set uidoc = Document.CurrentDocument 'à mon avis j'ai un problème ici
Dim Item As NotesItem
Set Item = uidoc.GetFirstItem( "IDDocument" )
Dim Valeur As String
Valeur = Item.Values

MessagePublié: 24 Sep 2010 à 09:44
par mike76
Code : Tout sélectionner
dim ws as New NotesUIWorkspace
dim uidoc as NotesUIDocument
dim valeur as String

set uidoc=ws.CurrentDocument
valeur=uidoc.FieldGetText("IDDocument")

MessagePublié: 24 Sep 2010 à 09:49
par Michael DELIQUE
salut

mike c'est agent, tu est sûr qu'un code frontale (UI) va fonctionné dans ce cas ?

MessagePublié: 24 Sep 2010 à 09:53
par clementbp
Ce code ne fonctionne pas, il me marque qu'il est impossible de localisé le champ.

Désolé

MessagePublié: 24 Sep 2010 à 09:55
par Michael DELIQUE
re,

passe par un code en back dans ton agent,

pour récupéré les document sélectionné :

Set notesDocumentCollection = notesDatabase.UnprocessedDocuments

en plus dans otn code tu passe un tableau Item.values dans un string ça va pas marché !

MessagePublié: 24 Sep 2010 à 09:57
par mike76
effectivement j'avais lu le mail en diagonale donc je n'avais pas fait gaffe que c'était dans le cadre d'un agent, je pensais que c'était directement dans le document
ça m'apprendra à vouloir être trop rapide !!! :wink:

MessagePublié: 24 Sep 2010 à 09:59
par Michael DELIQUE
essais un truc dans ce genre

Code : Tout sélectionner
Dim Session As New NotesSession
   Dim DB As NotesDatabase
   Dim Collection As NotesDocumentCollection
   Dim Document As NotesDocument
   Dim Item As NotesItem
   Dim Valeur As String
   
   Set DB = Session.CurrentDatabase
   Set Collection = DB.UnprocessedDocuments
   If Not Collection Is Nothing Then
      If Collection.Count > 0 Then
         Set Document = Collection.GetFirstDocument
         Set Item = Document.GetFirstItem("IDDocument")
         valeur = Item.Text
      End If
   End If

MessagePublié: 24 Sep 2010 à 10:08
par clementbp
C'est parfait ça fait exactement ce que je voulais.
Merci beaucoup de votre aide.
Ca a l'air tellement simple quand on voit le temps que tu peux mettre alors que moi je galère comme un fou pour essayer de comprendre les bouts de code de l'aide et du forum.

Merci encore et à bientot

MessagePublié: 24 Sep 2010 à 10:17
par Michael DELIQUE
re
ne t'en fait pas on a tous galérés (et on galère encore tous par moment)