Suppression de PJ de la base

[Lémur]

Voila mon probleme:Mon appli gere des fiches lors que ces fiches ( creer par masque m_Fiche) arrivent à un certain statut ( StatutFiche="11") elles apparaissent dans une vue ( v_Suppression).De cette vue l'admin doit pouvoir supprimer la fiche et bien evidement les piece jointe associé.Chaque piece jointe corresponde a un document fil dont possede un ID different.Merci de votre aide je seche depuis un bon moment dessus et je vous cache pas que je commence a en avoir marre

[sandrine]

Bonjour,je comprend pas trop bien , tu as un masque auquel tu attaches une pièce jointe, ce document vit sa vie, jusqu'à avoir 11 dans son status et alors il apparait dans une vue et l'admin ne peut pas le supprimer?Si ton admin ne peut pas le supprimer c'est que tu as mis un champs auteur et que tu as omis d'y ajouter l'admin ou la personne qui a le rolé admin avec dans la lca "suppression document" cochésSi je me trompe, essaye d'expliquer différemment.Bonne soirée à demain[%sig%]

[Lémur]

si si l'admin peu le supprimer mais en faite j'ai trouvé la solution a mon pbmerci qd meme

[abcc]

C'est même sympa de donner la solution!

[Lémur]

Solution onc en resume le fond de mon probleme c'etait de supprimer les documents joint de la base de données.C'est document etant des document fils de ma fiche j'ai procédé comme suit:j'ai recupere l'id de mon document pere et j'ai recherche dans un vue categorisée par l'id des peres les document fil que j'ai supprimé,voici le script placé dans les ressource de la base ( gros inconveniant pour tester faut fermer tous appli qui utilise la base dominodans le postdocumentdeleteSub Postdocumentdelete(Source As Notesuidatabase) Dim colDoc As NotesDocumentCollection Dim Doc As NotesDocument Dim DocSuivant As NotesDocument Dim DocFils As NotesDocument Dim View As NotesView Dim session As New notessession Dim db As Notesdatabase Set db = session.CurrentDatabase Set View= db.GetView("v_LookupPJ") Set colDoc = source.documents Set Doc = colDoc.GetFirstDocument While Not Doc Is Nothing Set DocSuivant = colDoc.GetNextDocument(Doc) if (Doc.Form(0)="m_Fiche" And (Doc.StatutFiche(0)="11" )) Then Set DocFils = View.GetDocumentByKey(Doc.UniversalID) Call DocFils.Remove(True) End If Set Doc = DocSuivant Wend End Sub

[polbusse]

pour supprimer les docs fils, il y a plus simple :--> call Doc.responses.removeall(true)

[Cedric]

Tu vois qu'il y en a qui répondent...maintenant on ne va pas systématiquement poster pour dire "lu"....