Discussion :

[Metalman]

Bonjour,

Si jamais des utilisateurs de ISC E-GEN passent par ici...
Voilà :
J'ai créé un template MyTRT contenant 2 propriétés : STEP et DESC.
Dans STEP, j'ai 2 propriétés STEPREF et LIB (libellé).

STEPREF est une référence vers d'autres objets de classes MyPROG et MyUTIL.
Ces 2 classes contiennent un champ DESC (description).

Est-il possible de faire en sorte que le champ LIB de MyTRT->STEP affiche le champ DESC de MyPROG ou MyUTIL ?
Si oui, comment faire ?

Ou est-il possible de faire afficher le champ DESC quand je déréférence mes objets MyPROG ou MyUTIL ? (et comment faire ?)

Merci d'avance !

[Metalman]

J'ai demandé au support de l'aide, ainsi qu'à des personnes plus expérimentées que moi... voilà la réponse pour ceux qui débuteraient sur cette interface :

Se placer dans le template TRT
Ecrire dans la clause "Before" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  i = 1
  imax = &STEP/ + 1
  while &i ne &imax                                     /* defilement des valeurs */
    myref = &STEP/&i./STEPREF                           /* iterateur */
    if &myref(1) ne &                                   /* test de l'existence, null ne fonctionne pas dans ce cas */
*      window ok &STEP &i &STEP/&i &STEP/&i./STEPREF
      myleft = &left first _ of &STEP/&i./STEPREF       /* recuperation du nom appelant gauche */
      myright = &right first _ of &STEP/&i./STEPREF     /* recuperation du nom appelant droit */
      get &myleft &myright                              /* recuperation de l'objet et mise en contexte */
*      window ok &DESC
      d = &DESC                                         /* recuperation de la description */
      release                                           /* sortie du contexte, release de l'objet */
      if &STEP/&i./&LIB ne &d                           /* test si la valeur a deja ete ecrite ou non */
        STEP/&i./LIB = &d                               /* on ecrit la valeur si ell n'y etait pas */
      endif
    endif
  i = &i + 1
  endwhile

Ce code ira chercher le contenu de DESC de chaque objet pointé par STEPREF, en sachant qu'il y a plusieurs STEPs, et l'écrira dans le LIB de chaque STEP.
Attention, ceci effectue une "écriture" à chaque fois que le libellé n'est pas le même dans le STEP que dans ce qui est stocké dans STEPREF... du coup, en cas de modification, une demande de sauvegarde est faite par une pop up !