Juste pour dire que je suis toujours face à mon problème et que rien n'y fait...
- ODS changé en 5.1 => Ko.
- Index supprimé et recréé => Ko.
- Base repliquée et index recréé => Ko.
- Base copiée et index recréé => Ko.
- Etc... etc...
En fait, jusqu'à la version 8.0.2 incluse, tout va bien. Et après, ca ne marche pas.
J'ai réussi à avoir un contact avec IBM et j'attends des retours car c'est vraiment bizarre...
Même en repartant de 0 (création d'une base vierge), le problème est présent.
Cad je crée deux rôles (Role1 et Role2).
Je crée 5 documents.
Sur les 5 documents, je mets le Role1 en lecteur.
Sur 2 des 5, je mets aussi le Role2 en lecteur.
Si je détiens le Role1.
Dans la vue, no soucy. Je vois bien les 5 documents (en Notes et en Web).
Je lance l'agent (Run as Web User) qui fait un FTSearch ([Form]="NomDuMasque") et là aussi, 5 documents trouvés et j'accède aux données des documents.
Si je détiens le Role2.
Dans la vue, no soucy. Je vois bien uniquement les 2 documents (en Notes et en Web).
Je lance le même agent... et là au lieu de ramener seulement 2 documents, ca en ramène 5.
Par contre, sur les 5, seuls 2 ont des données... et les autres... bah les autres sont "vides" !!
Pour info, voici le code de l'agent (Run as Web User)
- Code : Tout sélectionner
Dim sess As New NotesSession
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
On Error GoTo GestionErreur
Print "Start<br>"
Set db=sess.Currentdatabase
Set col=db.FTSearch("[FORM]=""Form1""", 0)
If col.Count>0 Then
Set doc=col.Getfirstdocument()
Do While Not doc Is Nothing
Print "<br><li>" + doc.F1(0)
Set doc=col.Getnextdocument(doc)
Loop
End If
Print "<br><br>End"
Exit Sub
GestionErreur:
Print "ERROR" + CStr(Err) + Error + CStr(Erl)
Exit sub
Si quelqu'un a des idées... Ce serait réellement très apprécié !
J'y pige rien !!
