X-ATTIVA-POPUP-nomegrid |
  
|
X-ATTIVA-POPUP-nomegrid |
|
Gestione delle operazioni che possono essere richiamate dal menu pop-up per l'ordinamento:
•Aggiunta di una colonna ascendente
•Aggiunta di una colonna discendente
•Avvio ordinamento
Esempio della chiamata alla routine
Questa routine viene anche richiamata nella parte di gestione griglia, all'interno di un apposito blocco di istruzioni:
*---------------------------------------------------------------**
* Intercetto le richieste provenienti dal menu pop-up
*---------------------------------------------------------------**
evaluate funzio
when k-pmg-primo thru k-pmg-ultimo
perform x-attiva-popup-grid-det
perform x-attiva-tf-grid-var
evaluate z-exception-prosegui
when k-exc-rimani
go to a-grid
when k-exc-ricarica
go to a-grid-ini
end-evaluate
end-evaluate
Esempio della routine
NB: dato che il menu pop-up potrebbe anche gestire altre operazioni, al termine viene inserito un entry-point richiesto nel programma.
*------------------------------------------------------------------*
* Attivo le funzioni collegate al pop-up menu
*------------------------------------------------------------------*
x-attiva-popup-grid-det.
move k-exc-rimani to z-exception-prosegui
evaluate funzio
when k-pmg-ordinamento
perform Z-nomegrid-RIORDINA
if gor-r-ok = 'S'
move k-exc-ricarica to z-exception-prosegui
else
move k-exc-rimani to z-exception-prosegui
end-if
when k-pmg-ord-aggiungi-asc
inquire e-grid-det,
cursor-x in gor-r-col-sel
perform Z-nomegrid-ORD-AGGIUNGI
perform Z-nomegrid-ORD-AGGIUNGI-MSG
when k-pmg-ord-aggiungi-des
inquire e-grid-det,
cursor-x in gor-r-col-sel
perform Z-nomegrid-ORD-AGGIUNGI
perform Z-nomegrid-ORD-AGGIUNGI-MSG
when other
perform x-attiva-popup-grid-det-ep
end-evaluate
.