Z-nomegrid-FINISH-ENTRY |
  
|
Z-nomegrid-FINISH-ENTRY |
|
Gestione delle operazioni da eseguire prima dopo la modifica di una cella.
Esempio della chiamata alla routine
Questa routine viene richiamata da alcune procedure automatiche:
Esempio della routine
**---------------------------------------------------------------**
** Gestione FINISH-ENTRY griglia: grid-det
**---------------------------------------------------------------**
z-grid-det-finish-entry.
inquire e-grid-det,
x in w-cell-x, y in w-cell-y,
cell-data in w-cell-data,
finish-reason in w-finish-reason
inquire e-grid-det (1, w-cell-x),
hidden-data in w-hidden-data
move 'S' to fl-esc-agg
move 'S' to tm-r-fl-riga-mod (i)
evaluate w-hid-data-col-id
when 'data'
initialize util-s52
move 'Acc-ext' to s52-ope
move 'Z' to s52-verifica
move w-cell-data to s52-data-edit
set s52-handle-data to null
call 'COGS52W' using stringhe util-s52
if s52-esito = 'S'
move s52-data to tm-r-data (i)
modify e-grid-det (w-cell-y, w-cell-x),
cell-data = s52-data-edit
else
set event-action to event-action-fail
end-if
if (w-finish-naviga or
w-finish-reason > 0) and
fl-validazione-contestuale = 'S'
perform x-controlla-tm-r-data-auto
perform x-ctr-color-tm-r-data
if x-f3-ok-parziale = 'N'
move x-f3-msg to wb-msg
perform vbx-msg-error
set event-action to event-action-fail-terminate
end-if
end-if
when 'ora'
initialize util-s93
move 'Acc-ext' to s93-ope
move 'Z' to s93-verifica
move w-cell-data to s93-ora-edit
call 'COGS93W' using stringhe util-s93
if s93-esito = 'S'
move s93-ora to tm-r-ora (i)
modify e-grid-det (w-cell-y, w-cell-x),
cell-data = s93-ora-edit
else
set event-action to event-action-fail
end-if
when 'val-f'
initialize util-gridcol
move 'CERCA-DES' to gridcol-ope
move k-program-id to gridcol-grid-prg
move 1 to gridcol-grid-form
move k-id-grid-det to gridcol-grid-id
move 'val-f' to gridcol-col-id
move w-cell-data to gridcol-i-val
call 'GRIDCOL' using stringhe util-gridcol
if gridcol-o-val = low-values
set event-action to event-action-fail-terminate
else
move gridcol-o-val to tm-r-val-f (i)
modify e-grid-det,
x = w-cell-x, y = w-cell-y,
cell-data = gridcol-o-des
end-if
when 'ana-des'
move w-cell-data to tm-r-ana-des (i)
if w-finish-enter
initialize util-s65
move 'DOPO-ACCEPT-DES' to s65-ope
perform z-s65-tm-r-ana
perform z-valida-fe-tm-r-ana
else
if w-finish-reason > 0
set funzio to w-finish-reason
if ext-rv-major-version > '07'
perform z-usa-tf-grid-det
end-if
end-if
end-if
when 'check'
continue
when 'ana-cod'
move function numval(w-cell-data)
to tm-r-ana-cod (i)
initialize util-s65
move 'DOPO-ACCEPT-COD' to s65-ope
perform z-s65-tm-r-ana
perform z-valida-fe-tm-r-ana
when 'mer'
perform z-grid-det-fe-mer
end-evaluate
initialize w-finish-reason
.