Z-S60-TM-nomecampo |
  
|
Z-S60-TM-nomecampo |
|
Questa routine esegue la chiamata a COGS60W necessaria per eseguire l'accept di un campo combo-box.
Esempio della chiamata alla routine
Generalmente questa routine viene richiamata all'interno della sezione di accept di un campo; ad esempio:
*
**---------------------------------------------------------------*
** Tipo informazione
**---------------------------------------------------------------*
a-tm-tip.
perform x-aiuto-tm-tip
initialize util-s60
perform z-s60-tm-tip
perform z-carica-controlli
if f-event
go to x-test-mouse
end-if
if wesc go to a-tm-num-tf.
if f2 go to a-tm-des.
Esempio della routine
**---------------------------------------------------------------**
** richiesta di combo: Tipo informazione
**---------------------------------------------------------------**
z-s60-tm-tip.
move 29 to s60-s
move 'D' to s60-fl-disp
move 12 to s60-n-opt
move tab-opt-tm-tip to s60-dati
set s60-handle to handle of e-tm-tip
if i > 0
move tm-tip (i) to s60-i-field
end-if
move funzio to s60-exception
move control-id to s60-o-control-id
call 'COGS60W' using stringhe util-s60
move s60-exception to funzio
if i > 0
move s60-o-field to tm-tip (i)
end-if
move s60-o-control-id to control-id
.