Z-IMPOSTA-RIGA-ALT-nomegrid |
  
|
Z-IMPOSTA-RIGA-ALT-nomegrid |
|
Gestione griglie modificabili.
Questa routine serve per cambiare il layout della griglia in funzione dell' abilitazione alla modifica.
L'abilitazione viene data modificando il valore di FL-MOD-nomegrid
Esempio della chiamata alla routine
Esempio della routine
**---------------------------------------------------------------**
** Decido se impostare la riga alternata su: tm-tab
**---------------------------------------------------------------**
z-imposta-riga-alt-tm-tab.
if ext-riga-alt-griglie-mod = 'N' and
fl-mod-tm-tab <> fl-mod-tm-tab-sav
move fl-mod-tm-tab to fl-mod-tm-tab-sav
if fl-mod-tm-tab = 'S'
modify e-tm-tab,
row-color-pattern = ( 0, 0 )
else
modify e-tm-tab,
row-color-pattern = ( ext-color-grid-alt-row, 0 )
end-if
end-if
.
.
Spiegazione delle singole parti
a) Se configurato (vedi configurazione "griglie"-"riga-alt-su-griglie-mod") e viene cambiato il flag di modificabilità della griglia, procedo:
**---------------------------------------------------------------**
** Decido se impostare la riga alternata su: tm-tab
**---------------------------------------------------------------**
z-imposta-riga-alt-tm-tab.
if ext-riga-alt-griglie-mod = 'N' and
fl-mod-tm-tab <> fl-mod-tm-tab-sav
move fl-mod-tm-tab to fl-mod-tm-tab-sav
b) Se la griglia è modificabile, rendo il colore della griglia omogeneo:
if fl-mod-tm-tab = 'S'
modify e-tm-tab,
row-color-pattern = ( 0, 0 )
c) Altrimenti reimposto la griglia alternata:
else
modify e-tm-tab,
row-color-pattern = ( ext-color-grid-alt-row, 0 )
end-if
end-if