Navigation:  Documentazione SCREENS > Files generati > 'NOMEPRG'.PRC > Gestione griglie modo "A" > nomegrid-* varie riempimento record

Queste routines sostituiscono quelle che nelle griglie paginate standard sono presenti all'interno del sorgente: questo serve per poter gestire più griglie nel programma, e perchè anche la fase di caricamento della tabella collegata alla griglia è totalmente automatizzata.

 

Esempio della chiamata alla routine

 

Vengono richiamate da altre routine automatiche.

 

Esempio delle routine

 

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

     * Controllo se smettere di leggere

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

      grid-det-controlli-read.

          .

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

     * Controllo se utilizzare il record letto

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

      grid-det-controlli-fill.

          move 'S'               to gor-r-fl-fill

          if gor-r-fl-fill = 'S'

             add 1               to gor-r-n-m

             perform grid-det-fill-tab

          end-if

          .

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

     * Dal record di transito riempo la tabella

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

      grid-det-fill-tab.

          move ' '               to gor-r-fl-read

          move gor-r-n-m to gor-r-nm

 

          move gor-r-nm to tm-grid-det-dati-pnt

          initialize tm-grid-det-dati-ele (gor-r-nm)

          move t-gor-r-prog to tm-r-prog (gor-r-nm)

          move t-gor-r-riga to tm-r-riga (gor-r-nm)

          move t-gor-r-dato-1 to tm-r-dato-1 (gor-r-nm)

          move t-gor-r-dato-2 to tm-r-dato-2 (gor-r-nm)

          move t-gor-r-dato-3 to tm-r-dato-3 (gor-r-nm)

          move t-gor-r-qta to tm-r-qta (gor-r-nm)

          move t-gor-r-valore to tm-r-valore (gor-r-nm)

          move t-gor-r-data to tm-r-data (gor-r-nm)

          move t-gor-r-ora to tm-r-ora (gor-r-nm)

          move t-gor-r-val-f to tm-r-val-f (gor-r-nm)

          move t-gor-r-ana-des to tm-r-ana-des (gor-r-nm)

          move t-gor-r-check to tm-r-check (gor-r-nm)

          move t-gor-r-ana-cod to tm-r-ana-cod (gor-r-nm)

          move t-gor-r-mer-cm to tm-r-mer-cm (gor-r-nm)

          .