Z-S95-TM-nomecampo |
  
|
Z-S95-TM-nomecampo |
|
Questa routine esegue la chiamata a COGS95W necessaria per eseguire l'accept di un campo check-box.
Esempio della chiamata alla routine
Generalmente questa routine viene richiamata all'interno della sezione di accept di un campo; ad esempio:
**---------------------------------------------------------------*
** Informazione con totalizzazione?
**---------------------------------------------------------------*
a-tm-fl-tot.
if x-enabled-tm-fl-tot = 0
if f2
go to a-tm-link-des
else
go to a-tm-fl-att
end-if
end-if
perform x-aiuto-tm-fl-tot
initialize util-s95
perform z-s95-tm-fl-tot
if f-event
go to x-test-mouse
end-if
if wesc go to a-tm-num-tf.
if f2 go to a-tm-tab-cod.
Esempio della routine
**---------------------------------------------------------------**
** richiesta di check-box: Ordinamento x codice
**---------------------------------------------------------------**
z-s95-tm-ord-cod.
move 'S ' to s95-when-true
move 'N ' to s95-when-false
set s95-handle to handle of e-tm-ord-cod
move tm-ord-cod to s95-i-field
move funzio to s95-exception
move control-id to s95-o-control-id
call 'COGS95' using stringhe util-s95
move s95-exception to funzio
move s95-o-control-id to control-id
move s95-o-field to tm-ord-cod
.