Z-AGGIORNA-T-GOR-nomecampo |
  
|
Z-AGGIORNA-T-GOR-nomecampo |
|
Serie di routines costruite per tutte le colonne modificabili della griglia: ciascuna permette l'aggiornamento del file di transito dopo la modifica di una colonna.
Esempio della chiamata alla routine
Questo routine viene inserita nelle routine di controllo di una cella griglia, quando è necessario eseguire l'aggiornamento di tale cella:
*----------------------------------------------------------------
* Colonna modificabile: se modificata vario direttamente la riga
* del file di transito
*----------------------------------------------------------------
x-controlla-tm-r-data.
move "S" to x-f3-ok-parziale
perform z-aggiorna-t-gor-r-data
.
Esempio della routine
Esempio di colonna standard
*------------------------------------------------------------------*
* Aggiornamento dei campi collegati alla griglia se modificati
*------------------------------------------------------------------*
z-aggiorna-t-gor-r-data.
if tm-r-data (i) <> grb-r-data
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-data (i) to t-gor-r-data
perform rwr-t-grid-det
end-if
end-if
.
Esempio di colonna "codice anagrafico"
In questo caso viene aggiornata anche la descrizione
z-aggiorna-t-gor-r-ana-cod.
if tm-r-ana-cod (i) <> grb-r-ana-cod
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-ana-cod (i) to t-gor-r-ana-cod
move tm-r-ana-des (i) to t-gor-r-ana-des
perform rwr-t-grid-det
end-if
end-if
.
Esempio di colonna "merce"
In questo caso vengono aggiornate tutte le colonne collegate
z-aggiorna-t-gor-r-mer-cm.
if tm-r-mer-cm (i) <> grb-r-mer-cm
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-mer-cm (i) to t-gor-r-mer-cm
perform Z-RIEMPI-T-GOR-merce
perform rwr-t-grid-det
end-if
end-if
.