savoir si le doc a été enregistré en LS

[virginie]

Bonjour à tous,Comment faire pour tester si le document courant a été enregistré en LS ?Merci.

[Stephane Maillard]

Bonjour,Vous récupérer le NotesID du document et vous recherchez dans une vue si il existe.[%sig%]

[virginie]

Merci.

[Droad]

Plus simple surement:dim ws as new NotesUIWorkspacedim uidoc as NotesUIDocumentset uidoc = ws.CurrentDocumentif uidoc.IsNewDoc then messagebox "Jamais enregistré"ouif uidoc.Document.IsNewNote then messagebox "Jamais enregistré"[%sig%]

[virginie]

oui mais je voudrais savoir s'il a été enregistré depuis la dernière modification et non pas s'il a déjà été enregistré...Merci de vos réponses.

[CEDr]

La dernière modification c le dernier enregistrement non????

[virginie]

on peut enregistrer sans avoir modifié me semble-t-il à moins que la chaleur ne me fasse perdre la tête

[Droad]

dans les events du form[Declaration]dim postSaved as variant[PostOpen]postSaved = False[PostSave]postSaved=True[QueryClose]if postSaved thenmessagebox "Le doc a été sauvé"elsemessagebox "Le doc n'a pas été sauvé"end if[%sig%]

[virginie]

Je pousse un peu mais comment je peux savoir s'il y a eu des modifications d'enregistrées ou si il y a eu enregistrement sans modifications ? Il ne me semble pas qu'on puisse savoir s'il y a eu modifications ou pas avec ce code.Je v essayer le code.Merci.

[Droad]

dans les events du form[Declaration]Dim previousValues List As StringDim postSaved As Variant[PostOpen] Dim doc As NotesDocument Set doc = Source.Document postSaved = False Dim checkedFields(3) As String checkedFields(0) = "Toto" checkedFields(1) = "Prevision" checkedFields(2) = "Realisation" checkedFields(3) = "Numero" Forall f In checkedFields previousValues(f) = doc.getFirstItem(f).Text End Forall[PostSave] postSaved=True[QueryClose] Dim msg As String Dim doc As NotesDocument Set doc = Source.Document If postSaved Then Dim modified As Variant modified = False Forall t In previousValues If t<>doc.GetFirstItem(Listtag(t)).Text Then modified = True Exit Forall End If End Forall If modified Then msg = "Le doc a été modifié et sauvé" Else msg = "Le doc a été sauvé" End If Else msg = "Le doc n'a pas été sauvé" End If Messagebox msg[%sig%]

[virginie]

Je suppose que cela implique qu'il faut "dédoubler" par le previousValues chaque champ dont on veut tester s'il y a eu modif ou pas c'est bien ca?Ca devrait aller.Merci bien.