Z-GESTIONE-TF-nomegrid-EP |
  
|
Z-GESTIONE-TF-nomegrid-EP |
|
Gestione griglie modificabili.
Questa routine deve essere inserita nel programma sorgente per ciascuna griglia modificabile, ed è obbligatoria. Gestisce l'attivazione e/o la disattivazione dei tasti funzione sulle celle di una griglia non di tipo "speciale" dove è necessario attivare dei t.f. particolari (ad esempio aiuto su tabelle, ecc.).
La gestione della chiamata ai sottoprogrammi collegati è in Z-USA-TF-nomegrid-EP
La chiamata a questa routine è gestita direttamente da screens.
Esempio della routine (tratto da ASN140)
z-gestione-tf-tm-tab1-ep.
evaluate w-cell-x
when gcn-g1-sn
if tm-g1-gca-sn (i1) = "S" and
w-visible-f9-ric-avanzata = 0
perform x-attiva-f9-ric-avanzata
end-if
when gcn-g1-tecn1
if tm-g1-gca-tecn1 (i1) = "S" and
w-visible-f8-aiuto = 0
perform x-attiva-f8-aiuto
end-if
when gcn-g1-prezzo-lor
if tm-g1-gca-prezzo-lor (i1) = "S" and
w-visible-f7-prezzi-preced = 0
perform x-attiva-f7-prezzi-preced
end-if
when other
perform z-disattiva-tf-tm-tab1
end-evaluate
.
Spiegazione delle singole parti
z-gestione-tf-tm-tab1-ep.
L'attivazione dei tasti funzione dipende dalla colonna attuale:
evaluate w-cell-x
Per ciascuna colonna che prevede tasti funzione: il tasto funzione va attivato se
•Non è ancora visibile
•La cella è abilitata per l'accept
when gcn-g1-sn
if tm-g1-gca-sn (i1) = "S" and
w-visible-f9-ric-avanzata = 0
perform x-attiva-f9-ric-avanzata
end-if
Si ripete l'operazione per tutte le colonne previste
when gcn-g1-tecn1
if tm-g1-gca-tecn1 (i1) = "S" and
w-visible-f8-aiuto = 0
perform x-attiva-f8-aiuto
end-if
when gcn-g1-prezzo-lor
if tm-g1-gca-prezzo-lor (i1) = "S" and
w-visible-f7-prezzi-preced = 0
perform x-attiva-f7-prezzi-preced
end-if
In questo punto si dovrà indicare:
•Z-DISATTIVA-TF-nomegrid: se è stato spuntato EP "Disattiva tf"?
•La disattivazione manuale dei tasti funzione se non spuntato.
when other
perform z-disattiva-tf-tm-tab1
end-evaluate
.