DominoArea.org [Archive]

Bonjour,Dans une base on me demande de verrrouiler le document écrit s'il est sup à 7 jours depuis sa date de création ....j'ai mis cela ....comme code ... qu'en pensez vous ....Sub Querymodechange(Source As Notesuidocument, Continue As Variant) Set doc = source.document If Cdbl(Today) - Cdbl(doc.Created) > 7 Then continue =False End If End Sub

attention, le querymodechange est appelé lors d'un changement d'état du document (il est en lecture et il passe en ecriture). Si le document est sollicité diectement en ecriture, ton évenement est zappé!Réfléchi peut-être à une gestion avec un champs auteur et un agent quotidien qui le gère suivant la date du document.[%sig%]

Ton code me parait bon, et à mon avis si tu l'insères dans l'évenement QueryOpen, ça doit etre stabledov

Bonjour,Dans une base on me demande de verrrouiler le document écrit s'il est sup à 7 jours depuis sa date de création ....j'ai mis cela ....comme code ... qu'en pensez vous ....Sub Querymodechange(Source As Notesuidocument, Continue As Variant)Set doc = source.document If Cdbl(Today) - Cdbl(doc.Created) > 7 Then continue =False End If End Subj'ai testé la condition et je l'ai mis sur Post open ....Il rentre bien dans la boucle si le document est >7 mais on peut qd même modifier le document si on double clique sur le masque en modification ...Pour cela j'aimerais rajouter une lige qui dise de sortir du document en cours comme exit ou Quit ... un truc simple quoi ... qq peut til m'aider ....

Ecoute les conseils d'Olivier, laisse tomber l'évenement QueryModeChange. Tu peux tres bien entrer sur un document directement en modification en te positionnant dessus dans une vue puis en cliquant sur le petit icone "modifier" (crayon rouge) dans les smart icones. Dans ce cas, tu passera pas par l'évenement QueryModeChange.Utilise les champs auteur/lecteur, c'est fait pour ça.En créant un agent planifier sur le serveur par exemple qui une fois par jour va vérifier si les 7 jours sont dépassés. Dans ce cas tu vide le champ auteur et tu y mets un rôle [Admin] histoire que l'admin de la base uniquement peux modifier le doc. Tu n'oublie pas d'ajouter ce rôle dans la LCA que tu affectes à la personne chargée d'administrer ton application.Bon courage.[%sig%]

d'accord , je gardec mon code .... dans l'agent ... a quoi cela peut ressembler ...

d'accord pour ton idée ...mais ... tu peut me donner une command en lotus srcipt qui permet de sortir de le fenêtre en cours .... genre Exit .... ? mais exit il ne connaît pas ... l'équivalent du file Close Windows si s'était une formule .. mais là ici c'est du lotus script ... car il rentre bien dans la boucle ....

Bingo !j'ai juste mis un message Box ....; il le contrôle fonctionne ...mon code focntionne donc bien ...