Creazione del menu pop-up collegato alla griglia. Contiene anche un entry-point che permette di aggiungere altre voci.
Esempio della chiamata alla routine
Questa routine viene richiamata all'inizio del programma:
move 1 to w-presenza-f3-conferma
move 1 to w-presenza-sf4-griglia
move 1 to w-presenza-sf5-esporta-excel
*
accept datasis from century-date
perform x-carica-lingua
*
**-----------------------------------------------------**
** Creo il menu contestuale "griglia"
**-----------------------------------------------------**
perform build-main-popup-grid-det.
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.
*------------------------------------------------------------------*
* Generazione menu contestuale griglia
*------------------------------------------------------------------*
build-main-popup-grid-det.
call 'W$MENU' using wmenu-new-popup
giving myResult
if myResult = 0
exit paragraph
end-if
move myResult to grid-det-menu-handle
*------------------------------------------------------------------*
* Voci di menu per la gestione dell'ordinamento
*------------------------------------------------------------------*
call 'W$MENU' using wmenu-add, grid-det-menu-handle,
0, w-enabled, m-tb-build-menu-aggiungi-asc,
k-pmg-ord-aggiungi-asc giving myResult
call 'W$MENU' using wmenu-add, grid-det-menu-handle,
0, w-enabled, m-tb-build-menu-aggiungi-des,
k-pmg-ord-aggiungi-des giving myResult
call 'W$MENU' using wmenu-add, grid-det-menu-handle,
0, w-enabled, m-tb-build-menu-ordina,
k-pmg-ordinamento giving myResult
perform z-grid-det-aggiungi-voci-popup-ep
move 0 to myResult
.