In quest'area di testo si dovrà introdurre una parte di codice necessaria alla modifica del colore di determinate righe.
Ad esempio, si potrebbe introdurre:
if tm-data (i-grid-color) > 20100101
move tm-cfg-colore-anno-nuovo to row-grid-color
end-if
In questo modo si indica al programma che se la data della riga è maggiore di 01/01/2010, si deve impostare un colore particolare. In tutti gli altri casi deve essere utilizzato il colore di default (non c'è bisogno di indicarlo).
Il blocco di codice risultante sarà il seguente:
**---------------------------------------------------------------**
** Impostazione di un colore particolare per le righe griglia
**---------------------------------------------------------------**
x-set-row-nomegrid-color.
move 0 to row-grid-color
if tm-data (i-grid-color) > 20100101
move tm-cfg-colore-anno-nuovo to row-grid-color
end-if
.
Composizione della parte di codice necessaria.
Nell'introdurre il codice nel campo occorre considerare le seguenti regole:
•Facendo riferimento a campi della griglia, usare l'indice "i-grid-color"
•Il colore che si vuole utilizzare va mosso sulla variabile "row-grid-color"
Uso della routine X-SET-ROW-nomegrid-COLOR
Nelle chiamate a GRIDADMN (escluso "Prepara") occorre aggiungere la chiamata alla routine, e poi passare la variabile risultante a GRIDADMN; ad esempio:
move i to i-grid-color
perform x-set-row-grid-color
move row-grid-color to gdad-color