DominoArea.org [Archive]

Bonjour à tous.

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