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!