Navigation:  Documentazione SCREENS > Files generati > 'NOMEPRG'.PRC > Gestione griglie modificabili > Z-nomegrid-BEGIN-ENTRY

Gestione delle operazioni da eseguire prima della modifica di una cella.

 

Esempio della chiamata alla routine

 

Questa routine viene richiamata da alcune procedure automatiche:

•Z-99-ACCEPT-nomegrid

 

 

Esempio della routine

 

     **---------------------------------------------------------------**

     ** Gestione BEGIN-ENTRY griglia: grid-det

     **---------------------------------------------------------------**

      z-grid-det-begin-entry.

          if i          = 0

             set event-action to event-action-fail-terminate

             exit paragraph

          end-if

          inquire e-grid-det, x in w-cell-x,

             entry-reason in w-entry-reason

          inquire e-grid-det (1, w-cell-x),

             hidden-data in w-hidden-data

          move 'S'       to w-cell-accept-ok

          move ' '       to wb-msg

 

          evaluate w-hid-data-col-id

           when 'riga'

             move tm-r-riga (i) to grb-r-riga

             set event-action to event-action-fail-terminate

         ....

          end-evaluate

          if w-cell-accept-ok = 'N'

             set event-action to event-action-fail-terminate

          end-if

          .