BUILD-MAIN-POPUP-nomegrid

Navigation:  Documentazione SCREENS > Files generati > 'NOMEPRG'.PRC > Gestione griglie modo "A" >

BUILD-MAIN-POPUP-nomegrid

Previous pageReturn to chapter overviewNext page

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

          .