Z-nomegrid-CARICA-TAB |
  
|
Z-nomegrid-CARICA-TAB |
|
Questa routine gestisce le operazioni necessarie per il caricamento iniziale della griglia paginata.
Esempio della chiamata alla routine
Questa routine viene richiamata prima dell'accept griglia:
**-----------------------------------------------------------------**
**-----------------------------------------------------------------**
** Inizio gestione griglia
**-----------------------------------------------------------------**
**-----------------------------------------------------------------**
perform x-disattiva-f3-conferma
move spaces to gor-r-fl-read
initialize t-gor-r-rec
.
a-grid-ini.
perform z-grid-det-carica-tab
if gor-r-n-m = 0
move spaces to gor-r-fl-read
initialize t-gor-r-rec
perform z-grid-det-carica-tab
end-if
.
a-grid.
perform x-attiva-tf-grid
Viene anche richiamata in:
Esempio della routine
*------------------------------------------------------------------*
* Caricamento della tabella di working griglia
*------------------------------------------------------------------*
z-grid-det-carica-tab.
modify e-grid-det, mass-update = 1
move 1 to i
perform Z-SVUOTA-TUTTO-nomegrid
modify e-grid-det, mass-update = 0
initialize tm-grid-det-dati
move 0 to gor-r-n-m
compute gor-r-w-t-size = w-lines-grid-det - 1
move gor-r-w-t-size to gor-r-t-length gor-r-t-size
perform X-nomegrid-SPAGINAMENTO-START
perform rem-clk
move 1 to i
perform Z-COSTRUISCI-nomegrid
if gor-r-n-m <> 0
modify e-grid-det,
cursor-x = 1, cursor-y = 2
else
modify e-grid-det,
cursor-x = 1, cursor-y = 1
end-if
.