Page 1 sur 1
Récupérer la valeur du champs dans une variable

Publié:
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

Publié:
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")

Publié:
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 ?

Publié:
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é

Publié:
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é !

Publié:
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 !!!


Publié:
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

Publié:
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

Publié:
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)