Z-nomegrid-POPUP-AGGIORNA-ORD

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

Z-nomegrid-POPUP-AGGIORNA-ORD

Previous pageReturn to chapter overviewNext page

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

          .