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

Routine unica che permette l'aggiornamento di un record del file di transito con tutti i campi presenti in griglia.

Esempio della chiamata alla routine

Questa routine può essere inserita ad esempio in una routine di controllo di una cella griglia, se collegata a tale cella ce ne sono altre: se ad esempio abbiamo modificato una cella "codice tabella", e sulla griglia e' presente una cella "descrizione" non editabile, non verrà costruita la routine Z-AGGIORNA-T-GOR-nomecampo per essa, di conseguenza si potrà richiamare direttamente questa; es. da COGS55:

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

* Controlli su campi in griglia

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

x-controlla-tm-r-tab-val.

move "S" to x-f3-ok-parziale

initialize euta-rec

move 62 to euta-tipo

move tm-r-tab (i) to euta-ptc-tip

move tm-r-tab-val (i) to euta-ptc-cod

perform rd-cogtabel

if w-verbo-invalido

if tm-r-tab-lib (i) = "S"

initialize euta-tma

else

move "Valore non esistente sulla tabella!" to x-f3-msg

move "N" to x-f3-ok-parziale

end-if

if euta-tma-des = spaces

move euta-ptc-cod to euta-tma-des

end-if

move euta-tma-des to tm-r-val-des (i)

if x-f3-ok-parziale = "S"

perform z-aggiorna-t-gor-r-tutto

end-if

.....

Esempio della routine

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

* Aggiornamento di tutti i campi collegati alla griglia

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

z-aggiorna-t-gor-r-tutto.

initialize t-gor-r-rec

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

perform rd-t-grid-det

if w-verbo-ok

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

move tm-r-tab (i) to t-gor-r-tab

move tm-r-des (i) to t-gor-r-des

move tm-r-tab-len (i) to t-gor-r-tab-len

move tm-r-tab-lib (i) to t-gor-r-tab-lib

move tm-r-padre (i) to t-gor-r-padre

move tm-r-tab-crea-cod (i) to t-gor-r-tab-crea-cod

move tm-r-tab-gui (i) to t-gor-r-tab-gui

move tm-r-pre (i) to t-gor-r-pre

move tm-r-suf (i) to t-gor-r-suf

move tm-r-f-pre (i) to t-gor-r-f-pre

move tm-r-f-suf (i) to t-gor-r-f-suf

move tm-r-tab-val (i) to t-gor-r-tab-val

move tm-r-val-des (i) to t-gor-r-val-des

move tm-r-ind-des (i) to t-gor-r-ind-des

move tm-r-ind-alt (i) to t-gor-r-ind-alt

perform rwr-t-grid-det

end-if

Z-AGGIORNA-T-GOR-TUTTI

Z-AGGIORNA-T-GOR-TUTTI