J'ai un doc qui est enregistré dans ma base et je voudrais l'afficher dans le navigateur en edition pour modification.
Mais aucune modification n'est prise en compte, je ne comprends pas se qui ce passe...
L'agent accéde bien au document, mais pas possible de l'enregistrer.
L'agent est signé avec des droits d'admin.
Le document contient des champs auteurs et lecteurs correctement renseignés.
Dans L'agent le DocCourant ne raméne rien, c'est à dire:
DocAEnregistrer.unChamp = DocCourant.unChamp(0)
Merci de votre aide.
Je l'ouvre avec : http://monserveur/mabase/vCourrierRelan ... itDocument
Puis je lance un agent LS déclenché par un bouton:
- Code : Tout sélectionner
On Error Goto Erreur
Dim Session As New NotesSession
Dim DbCourant As NotesDataBase
Dim DocCourant As NotesDocument
Dim DocAEnregistrer As NotesDocument
Dim CheminBase As String
Dim URLAccueil As String
Dim ID As String
Dim Pos As Integer
Dim Lg As Integer
'---------------------------------------------------------------------------
Set DocCourant = Session.DocumentContext
Set DbCourant = DocCourant.ParentDatabase
'Récupération du document
Pos=Instr(1,DocCourant.Query_String(0),"&")
Lg=Len(DocCourant.Query_String(0))
ID=Right(DocCourant.Query_String(0),Lg-Pos)
Set DocAEnregistrer = DbCourant.GetDocumentByUNID( ID$)
URLAccueil="mrecherche?OpenForm"
CheminBase={/} & DbCourant.FilePath & {/}
DocAEnregistrer.objet=DocCourant.objet(0)
Call DocAEnregistrer.ComputeWithForm(False,False)
Call DocAEnregistrer.Save(True,True)
Print {[} + CheminBase + "vCourrierRelance/" + DocAEnregistrer.docid(0)+ "?OpenDocument" +{]}
Exit Sub
Erreur :
Messagebox "Agent MajCourrierRelance / L´erreur n°" & Str(Err) & "est survenue : " & Error$ & ", ligne " & Erl
Resume fin
fin :
End Sub
