J'ai une vue catégorisée sur lequel je fais une recherche à l'aide d'un mot clé. Le résultat est renvoyé, dans le masque, ne respecte pas l'ordre d'encodage.
Exemple, recherche sur la composition de l'équipe de France (mot clé) - le résultat est Karim, Paul, Olivier, Antoine, et Mathieu
Alors que l'encodage est comme suit : Paul, Karim, Olivier, Mathieu, et Antoine
- Code : Tout sélectionner
Sub Click(Source As Button)
Dim uiwks As New NotesUIWorkspace
Dim ses As New NotesSession
Dim db As NotesDatabase
Dim doc2 As NotesDocument
Dim docA As NotesDocument
Dim view As NotesView
Dim View2 As NotesView
Dim DC As NotesDocumentCollection
Dim DCA As NotesDocumentCollection
Dim xdoc As NotesDocument
Dim var
Dim brol
Dim brol1 As Variant
Dim vDossier As String
Dim keys, key As String
Set db = ses.CurrentDatabase
uidoc.EditMode= True ' ********************
key = uidoc.fieldGetText("FIfldDBCBI")
If key = "" Then
Msgbox "La facture ne contient aucun numéro d'institution. Veuillez contacter l'agent traitant."
Else
Print "n° inst : " & key
Set DCA = uiwks.PickListCollection(PICKLIST_CUSTOM, False, db.Server, db.FilePath, "AviewSousApplication1", "veuillez choisir un circuit d'approbation", "Circuits d'approbation", key)
End If
If DCA.Count = 0 Then
Messagebox "Demande annulée"
Call uidoc.Refresh
Call doc.save(False,True)
Else
For i = 1 To 5
Call Doc.ReplaceItemValue( "Label_Role" & i , "")
Call Doc.ReplaceItemValue( "fldAction" & i , "")
Call Doc.ReplaceItemValue( "fldRole" & i , "")
Call Doc.ReplaceItemValue( "OF" & i , "")
Call Doc.ReplaceItemValue( "fldParam", "")
Next
Set Doc3 = DCA.GetFirstDocument
Set view = db.GetView( "AviewCircuit1" )
keys = Doc3.SAApplication(0) + "###" + Doc3.SAAbrev(0)
Set DC = view.GetAllDocumentsByKey(keys)
i=1
Set Doc2 = DC.GetFirstDocument
Do Until Doc2 Is Nothing
If Doc2.CApplication(0) = Doc3.SAApplication(0) And Doc2.CFlux(0) = Doc3.SAAbrev(0) Then
Call Doc.ReplaceItemValue( "Label_Role" & i , Doc2.CRole(0))
Call Doc.ReplaceItemValue( "fldAction" & i , Doc2.CAction(0))
Call Doc.ReplaceItemValue( "fldRole" & i , Doc2.CUtilisateurs)
If Lcase(Doc.getitemvalue("Label_Role" &Cstr(i))(0)) = "directeur" Then
Call Doc.replaceitemvalue("Directeurs", Doc2.CUtilisateurs)
End If
If Lcase(Doc.getitemvalue("Label_Role" &Cstr(i))(0)) = "agent receptionnaire" Then
Call Doc.replaceitemvalue("AgtReceptionnaire", Doc2.CUtilisateurs)
End If
Call Doc.ReplaceItemValue( "fldParam", Doc2.CRefus(0))
Call Doc.ReplaceItemValue( "ColTypeRapport", Doc2.CSousApplication(0))
Call Doc.replaceItemValue("Flux", Doc2.CFlux(0))
End If
Set Doc2 = DC.GetNextDocument(Doc2)
i = i + 1
Loop
Call uidoc.Refresh
Call doc.ComputeWithForm( False, False )
Call Doc.save(False,True)
End If
End Sub
