Supression des documents dupliqués

Forum destiné aux questions sur le développement : Formules, LotusScript, Java ...

Supression des documents dupliqués

Messagepar DomNotes » 06 Mai 2013 à 22:51

Bonjour,
J'ai un carnet d'adresses de 1000 entrées et suite à l'exécution d'un agent, je me retrouve avec un carnet d'adresses dont chaque entrée est dupliquée 30 fois.
J'aimerai créer un agent pour ne garder qu'une seule entrée (par exemple la plus ancienne) et supprimer les 29 autres entrées inutiles.

Merci d'avance pour votre aide
Avatar de l’utilisateur
DomNotes
Posteur néophyte
Posteur néophyte
 
Message(s) : 74
Inscrit(e) le : 22 Déc 2004 à 11:08

Re: Supression des documents dupliqués

Messagepar roubech » 06 Mai 2013 à 23:14

L'agent qui a dupliqué les docs n'a pas tourné avec un user spécifique ?
si tu parcours la vue $users tu prends un doc et tu compare avec le suivant
Tant que c'est le même tu supprimes le plus récent ...
Avatar de l’utilisateur
roubech
Modérateur
Modérateur
 
Message(s) : 4976
Inscrit(e) le : 01 Fév 2007 à 20:22
Localisation : Lille

Re: Supression des documents dupliqués

Messagepar DomNotes » 07 Mai 2013 à 10:42

Bonjour,

tout les documents sont crées par le même user.
Donc si j'ai bien compris :
- il faut que je fasse une collection avec comme clé le nom du user ou adresse Notes
-Puis comparer les dates de création :

If ( doc1.Created < doc2.Created ) Then
Call doc2.Remove( False )
End If
Avatar de l’utilisateur
DomNotes
Posteur néophyte
Posteur néophyte
 
Message(s) : 74
Inscrit(e) le : 22 Déc 2004 à 11:08

Re: Supression des documents dupliqués

Messagepar roubech » 07 Mai 2013 à 23:55

2 boucles imbriquées
à la louche, sans lancer designer pour compiler ...

while not doc is nothing
set doc2 = view.getNextdocument(doc)
while not doc2.ChampCleUnique(0) = doc.champCleUnique(0) is nothing
set dt1 = new NotesDateTime(doc.Created)
set dt2 = ...
set docTemp = view.getNextDocument(doc2)
if dt1.timedifference(dt2)>0 then
call doc2.remove
end if
set doc2 = docTemp
end while
set doc = doc2
end while
Avatar de l’utilisateur
roubech
Modérateur
Modérateur
 
Message(s) : 4976
Inscrit(e) le : 01 Fév 2007 à 20:22
Localisation : Lille


Retour vers Développement