DominoArea.org [Archive]

créer un champ texte riche rtitem (texte riche)
dans lequel on rattache ou importe une image (.gif ou .jpg) pour le rattachement
Créer dans querysave ou un agent:
field iconview;
@setfield(@dblookup(.....;"Body"));


Créer une vue avec, dans une colonne, iconview (Afficher sous forme d'icône).
Ou en LS: doc.iconview.issummary=true;


Ajouter les images ressources dans votre base sous designer

postopen:
dim doc as notesdocument
dim item as variant
set doc = source.document
set item = doc.getfirstitem("viewicon")
if not item is nothing then call item.remove




Créer un champ Texte riche (rtitem ou toto....)
Menu Notes: Création/ajouter une image ressource dans le champ (qs vous créez un doc of course!!!!)
Choisir l'image concernée

PostSave:
Dim w as new notesuiworkspace
dim doc as notesdocument
dim firstitem as variant
dim item as variant


set doc=w.currentdocument.document
set firstitem = doc.getfirstitem("toto")
set item = doc.copyitem(firstitem,"iconview")
item.issummary=true 'si issummary est égal à true, on peu l'afficher dans une vue (CQFD)
call doc.save(true,true,false) ' ben oui c'est déjà enregistré, donc faut le faire!!!

Vue:
Dans la vue, créer une colonne, mettre iconvien comme formule, et n'afficher que les icones!