Page 1 sur 1

Identifier les documents marqués supprimés (croix)

MessagePublié: 20 Jan 2010 à 11:29
par FRVILLAI
Bonjour,
Lors de mon script sur le Querydeletedocument de ma base, je fais un certain nombre de tâches dans lesquelles je demande à l'utilisateur s'il est certain de vouloir supprimer "Tous" les documents concernés. (car le document selectionné en suppression doit supprimés d'autres documents rattachés au même sujet.
Tout cela fonctionne, par contre, les documents étant mis dans une corbeille restent "cochés" avec la croix de suppression et j'ai donc un nouveau message au refresh de la vue qui redemande à l'utilisateur s'il souhaite supprimer ce document...
Après le premier message à l'utilisateur, s'il a répondu oui, je souhaiterais mettre les documents à la corbeille et "décocher" la croix qui marquait le document en suppression..

Je ne trouve pas la commande me permettant d'identifier les documents "cochés avec la croix suppression" dans la vue ou même la base.

Avez-vous une idée ?

Merci d'avance.

MessagePublié: 20 Jan 2010 à 14:14
par stloje
Tu utilises quelles fonctions pour supprimer les documents?

MessagePublié: 20 Jan 2010 à 15:02
par FRVILLAI
Ca y est enfin, j'ai trouvé !!

Je ne travaille plus sur le Querydeletedocument mais sur le Postdeletedocument.
Je récupére les documents sélectionnés pour suppression grace au source.documents et je fais mon traitement derrière.
cf code :
Sub Postdocumentdelete(Source As Notesuidatabase)
Dim w As New NotesUIWorkspace
Dim s As New Notessession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = s.currentdatabase
Dim Doccoll As NotesDocumentCollection
Dim Collcompteur As NotesDocumentCollection
Dim nb As Integer
Dim nb1 As Integer
Dim nb2 As Integer
Dim nb3 As Integer
Set Doccoll = source.Documents
nb = source.Documents.Count
nb1 = 1

Set doc = Doccoll.GetFirstDocument
Do While nb1 <= nb
masque = doc.GetItemValue("Form")
If masque(0) = "mDemandecli" Then
key = doc.GetItemValue("Compteur")
Set view = db.getview("vCompteur")
Set Collcompteur = view.GetAllDocumentsByKey(key)
Call Collcompteur.RemoveAll(True)
End If
If nb1 < nb Then
Set doc = Doccoll.GetNextDocument(doc)
nb1 = nb1+1
Else
nb1 = nb1 + 1
End If
Loop

End Sub

MessagePublié: 20 Jan 2010 à 16:25
par nemrod93
Salut,
c'est une erreur que j'ai commise aussi, le query comme event est plus dans l'"intention de" et le post dans le "j'ai fait". Donc pas étonnant par le fait que les icônes restaient cochées dans la corbeille :D

cdlt

Alain