Nel menu pop-up, le descrizioni delle voci di ordinamento vengono modificate, a seconda che l'ordinamento sia già stato applicato oppure no.
Esempio della chiamata alla routine
Questa routine viene richiamata all'interno della gestione eventi griglia (nell'entry-point del sorgente):
*---------------------------------------------------------------
* Gestione eventi speciali sulla griglia GRID-DET
*---------------------------------------------------------------
z-grid-det-be-ep.
evaluate event-type
*---------------------------------------------------------------
* Il right-click attiva il menu pop-up
*---------------------------------------------------------------
when msg-grid-rbutton-down
perform z-grid-det-popup-aggiorna-ord
call "W$MENU" using wmenu-popup,
grid-det-menu-handle
giving myResult
end-evaluate
.
Esempio della routine
*------------------------------------------------------------------*
* Modifico le descrizioni delle voci del menu
* relative all'ordinamento
*------------------------------------------------------------------*
z-grid-det-popup-aggiorna-ord.
if w-grid-det-ord-reset = 'S'
call 'W$MENU' using wmenu-change, grid-det-menu-handle,
k-pmg-ord-aggiungi-asc, w-enabled,
m-tb-nuovo-ord-asc, k-pmg-ord-aggiungi-asc
giving myResult
call 'W$MENU' using wmenu-change, grid-det-menu-handle,
k-pmg-ord-aggiungi-des, w-enabled,
m-tb-nuovo-ord-des, k-pmg-ord-aggiungi-des
giving myResult
else
call 'W$MENU' using wmenu-change, grid-det-menu-handle,
k-pmg-ord-aggiungi-asc, w-enabled,
m-tb-build-menu-aggiungi-asc, k-pmg-ord-aggiungi-asc
giving myResult
call 'W$MENU' using wmenu-change, grid-det-menu-handle,
k-pmg-ord-aggiungi-des, w-enabled,
m-tb-build-menu-aggiungi-des, k-pmg-ord-aggiungi-des
giving myResult
end-if
.