DominoArea.org [Archive]

Bonjour,

j'essaie de récupérer les documents sélectionnés dans une vue dans lotus notes
j'ai mis un bouton dans la vue qui appelle un agent, et dans l'agent j'ai utilisé la fonction ci-dessous, mais la collection ne contient aucun document(coll.count=0)

Set coll = db.Unprocesseddocuments

c'est quoi le soucis SVP ?

Merci d'avance
Bien Cordialement

Ci dessous un code qui fonctionne...

Code : Tout sélectionner

Set db=s.Currentdatabase
   
   
   Set coll = db.UnprocessedDocuments
   Set doc=coll.Getfirstdocument()
   
   While Not(doc Is Nothing)
      Set newdoc =db.Createdocument()
      
      prenom=Strconv(Strtoken(doc.acteurnom(0)," ",1),3)
      nom=Ucase(Strtoken(doc.acteurnom(0)," ",2))
      loggin=prenom+" "+nom
      
      newdoc.form="USER"
      newdoc.ActeurPrenom=prenom
      newdoc.ActeurNom=nom
      newdoc.ActeurLogin=loggin
      Call newdoc.save(True,True)
      
      Set doc=coll.Getnextdocument(doc)
   Wend


Ça peut également venir de ton bouton qui appelle un agent. Dans mon cas, il s'agit d'un agent

dans le bouton j'ai mis :

Sub Click(Source As Button)
Dim Session As NotesSession
Dim DB As NotesDatabase
Dim Agent As NotesAgent
Set Session = New NotesSession
Set DB = Session.currentdatabase
Set Agent = DB.getAgent("(NomAgent)")
Call Agent.run
End Sub

et quand j'utilise

Set view = db.getview( "NomVue" )
set coll = view.getAllDocumentByKey(..)

ça fonctionne sans aucun probleme. c'est pour la selection que ça marche pas

Pourquoi passer par un agent?
essaies

Set coll = db.UnprocessedDocuments

directement dans le code du bouton.

Je passe par un agent parce que j'ai une bibliothèque de script que je dois appeler ( Use "NomBiblio" )
et je ne sais pas si je pourrai l'appeler si je met mon code directement dans le bouton

C'est bon
je ne passe plus par un agent, et ça fonctionne bien

Merci beacoup

Oui, tu peux appeler ta bibliothèque depuis le bouton dans ta vue, mais perso je préfère ta première idée d'appeler un agent
sauf que dans ce cas, je ne le fait pas en LS, mais simplement en @formule : @Command([ToolsRunMacro]; "(monAgent)")
Et surtout ne pas oublier de cocher le trigger "Run on selected documents" dans les propriétés de l'agent
si tu appelle ton agent en LS avec un NotesAgent.run, tu perd le contexte

Ah bon , d'accord

Merci beaucoup pour les informations.

Bien Cordialement