par roubech » 27 Juin 2011 à 19:13
Tu le mets où ce code ? tu le lances quand ? elle vient d'où la variable wDoc ?
[syntax="LotusScript"]Dim parent As NotesDocument
Dim parentUnid As String
parentUnid = wDoc.ParentDocumentUNID
Set parent = db.GetDocumentByUNID(parentUnid) [/syntax]
Dans l'exemple de code ci-dessous, pour sélectionner un doc et créer un doc fils du doc sélectionné, il n'y a pas de Save. Donc le doc fils ne sera créé, y compris le lien père/fils qu'un fois que l'utilisateur aura enregistré le doc en cours de création (et le masque MonMAsqueReponse doit être typé Reponse)
[syntax="LotusScript"]set dc = ws.PickListCollection( PICKLIST_CUSTOM , False, db.Server, db.FilePath, "MaVue", "Sélection", "Sélectionner le doc" , False)
if dc.Count = 0 then
print "Opération abandonnée"
exit sub
end if
set docParent = dc.GetFirstDocument
set docFils = New NotesDocument( db )
docFils.Form = "MonMasqueReponse"
call docFils.MakeResponse( docParent )
call ws.EditDocument( docFils, True )[/syntax]