Page 1 sur 1

Utilisation des catégories dans le carnet d'adresses

MessagePublié: 07 Sep 2011 à 17:05
par P1NP0N
Bonjour

Les catégories sont bien pratiques dans le carnet d'adresses , seulement quand on fait une sélection des documents qui ont des catégories différentes (souvent plusieurs) et que l'on veut leur ajouter une nouvelle catégorie et bien tous les documents sélectionnés se retrouvent avec des catégories identiques correspondant au premier document.
C'est dommage car la fonction catégoriser existe nativement dans le carnet d'adresses mais par son fonctionnement occasionne des pertes de classement si l'on veut travailler par lot.

Quelqu'un a-t-il une solution ou une astuce qui permettrait de nous simplifier la vie ?

Merci par avance pour vos réponses

MessagePublié: 07 Sep 2011 à 17:16
par Raziel
Le problème c'est que tu veux ajouter une categ à des documents dejà présents dans des catégories différentes. Il faut que tu procède categ par categ...

Ou alors via un bout de code qui ajoutera la nouvelle catégorie à chaque document.

MessagePublié: 07 Sep 2011 à 17:22
par P1NP0N
Bonjour

Je ne peux pas faire catégorie par catégorie et je suis obligé actuellement de faire document par document car chaque document peut avoir plusieurs catégories.
L’idéal serait de pouvoir ajouter une catégorie à chaque document de la sélection mais là ça ressemble à de la programmation avec une boucle ...

PS : J'ai le même soucis quand je veut travailler sue les documents d'une catégorie , car il avoir d'autres catégories différentes ...

MessagePublié: 07 Sep 2011 à 17:26
par Raziel
C'est effectivement du code mais pas besoin de boucle.

Tu peux passer par un agent qui aurait comme code un truc du genre :
Field Categories := Categories:"Nouvel categ"

MessagePublié: 07 Sep 2011 à 20:53
par roubech
désolé Raziel, mais si tu veux utiliser une boite de dialogie au début de l'action pour demander de saisir la nouvelle catégorie, tu ne peux le faire en formule, sinon il pose la quesiton pour chaque doc

MessagePublié: 08 Sep 2011 à 08:56
par Raziel
roubech a écrit:désolé Raziel, mais si tu veux utiliser une boite de dialogie au début de l'action pour demander de saisir la nouvelle catégorie, tu ne peux le faire en formule, sinon il pose la quesiton pour chaque doc


Je ne pensais pas utiliser une boite de dialogue. Juste faire un agent qui ajoute ma categ aux valeurs du champ. Categ que je note en "dur" dans la formule.

Sinon effectivement, je suis d'accord avec ta remarque.

MessagePublié: 12 Sep 2011 à 12:55
par P1NP0N
Merci pour vos réponses

Personne n'aurait un bout qui me permettrait de commencer

Encore merci

MessagePublié: 12 Sep 2011 à 13:11
par Michael DELIQUE

MessagePublié: 12 Sep 2011 à 13:14
par Raziel


Ces derniers temps il sert beaucoup ce lien. ;-)

MessagePublié: 12 Sep 2011 à 13:17
par Michael DELIQUE
ya des périodes

Re: Utilisation des catégories dans le carnet d'adresses

MessagePublié: 29 Mars 2012 à 09:34
par P1NP0N
Bonjour

J'ai commencé à me écrire le code du bouton qui sera dans la vue et qui permettra d'ajouter une catégorie aux documents sélectionnés
J'ai utilisé le tuto Lotus "Initiation au LotusScript" mais je ne trouve pas le document joint de" La programmation avancée en LotusScript "

voici le code qui pour l'instant ne faire encore rien mais si un érudit pourrait y jeter un œil :D , ça m éviterai bien des tracas

J'ai entre-autre du soucis avec l’utilisation des variables :cry:

Merci :D

Sub Click(Source As Button)

Dim ws As New NotesUIWorkspace
Dim Session As New NotesSession
Dim db As NotesDatabase
Dim uiview As NotesUIView
Dim Collection As NotesDocumentCollection
Dim Doc As NotesDocument
Dim Uidoc As NotesUIDocument
Dim catmp As Variant


Set uiview = ws.CurrentView
Set Collection=View.Documents

Set db = Session.CurrentDatabase
catmp$ = "0"
catmp$ = ws.DialogBox("ajoutcategorie",True, True)
ERREUR if (( catmp = "0 " ) or ( catmp = Null ))
Then Msgbox " catégorie vide" Exit Sub
End If

Set Doc = collection.GetFirstdocument

'If (Doc Is Nothing)
' Then Msgbox " Selection invalide" Exit Sub
'End If

While Not ( Doc Is Nothing )
' Call UIDoc.FieldAppendText(Categories,catmp)
' Call Doc.save
Set Doc = collection.Getnextdocument(Doc)

Wend




End Sub

Re: Utilisation des catégories dans le carnet d'adresses

MessagePublié: 29 Mars 2012 à 20:29
par roubech
pour récupérer les docs sélectionnés par l'utilisateur : UnprocessedDocuments
http://publib.boulder.ibm.com/infocente ... PERTY.html

tu utilises la méthode DialogBox, mais tu as regardé l'aide ? elle ne retourne qu'un flag, pas la ou les valeurs sélectionnées. Ca dépend du masque que tu appelles avec.
http://publib.boulder.ibm.com/infocente ... ETHOD.html
Sinon regarde ws.Prompt OKCANCELLIST ou OKCANCELLISTMULTI
http://publib.boulder.ibm.com/infocente ... ABOUT.html
ou PickListStrings
http://publib.boulder.ibm.com/infocente ... ABOUT.html

pour mettre à jour un doc qui n'est pas ouvert à l'écran, quand tu parcours une vue, une collection ... tu ne passe pas par les classes NotesUIDocument, ... mais NotesDocument ...
call doc.ReplaceItemValue( "Categories", catmp )
http://publib.boulder.ibm.com/infocente ... ETHOD.html
ou
set item = doc.GetFirstItem( "Categories" )
call item.AppendToTextList( catmp )
http://publib.boulder.ibm.com/infocente ... ETHOD.html