J'ai un problème complètement bizarre...
J'ai un document avec entre autres deux champs Rich Text me permettant de stocker des références vers d'autres documents de la même base sous le format :
Doclink - n° et Description
Afin d'ajouter ces références je passe par un champ texte qui contient les numéros des documents à référencer.
J'ai donc :
txtField_1 qui me permet de remplir RTField_1
txtField_2 qui me permet de remplir RTField_2
J'ajoute donc des références au champ RTField_2, tout fonctionne bien, les liens marchent nickel.
Je fait de même pour le champ RTField_1, le docklink fonctionne bien pour ce champ mais ceux du champ RTField_2 ne pointent plus vers les bons documents
Voici les deux fonctions que j'utilise pour créer mes doclinks :
- Code : Tout sélectionner
Sub AddLinkedDoc (curDoc As NotesDocument, SourceField As String, DestField As String, ViewCategory As String)
Dim ws As New NotesUIWorkspace
Dim lstDocNum As Variant
Dim item As NotesItem
lstDocNum = ws.PickListStrings(PICKLIST_CUSTOM, True, db.Server, db.FilePath, "AllDocFormName","Documents list", _
"Please select the linked document :", 2, ViewCategory)
If Not Isempty(lstDocNum) Then
Call uidoc.Save
Set item = curDoc.GetFirstItem(SourceField)
Forall docNum In lstDocNum
Call item.AppendToTextList(docNum)
End Forall
Call RefreshDocRef(curDoc, item, DestField)
End If
End Sub
Sub RefreshDocRef(curDoc As NotesDocument, item As NotesItem, DestField As String)
Dim ws As New NotesUIWorkspace
Dim View As NotesView
Dim docToLink As NotesDocument
Dim rtItem As NotesRichTextItem
Dim draftDB As NotesDatabase
Set draftDB = GetDatabase("monserveur", "DraftsPath", db)
Set View = draftDB.GetView("AllDocNum")
Set rtItem = New NotesRichTextItem(curDoc, DestField)
If Len(Trim(item.Text)) > 0 Then
Forall ItemLine In item.Values
Set docToLink = View.GetDocumentByKey(ItemLine)
Call rtItem.AppendDocLink(docToLink, ItemLine)
Call rtItem.AppendText(" - " & ItemLine & " - " & docToLink.Subject(0))
Call rtItem.AddNewLine(1)
End Forall
End If
Call curDoc.ReplaceItemValue("SaveOptions","0")
Call curDoc.Save(True,False)
Call uidoc.Close(True)
Set uidoc = ws.EditDocument(True, curDoc)
End Sub
Une idée de ce qui peut se passer ?
Merci d'avance
