X-CTR-COLOR-TM-nomecampo |
  
|
X-CTR-COLOR-TM-nomecampo |
|
Viene costruita una routine di questo tipo per ciascun controllo della maschera che è soggetto ad accept.
Permette di variare il colore del controllo dopo la validazione.
Esempio della chiamata alla routine
Questa routine viene inserita all'interno della routine X-CONTROLLA-TM-nomecampo come ultima operazione prima di uscire.
x-controlla-tm-des.
move "S" to x-f3-ok-parziale
if tm-des (i) = spaces
move "m-crm013-29-1" to x-f3-msg-id
move m-crm013-29-1 to x-f3-msg
move "N" to x-f3-ok-parziale
end-if
perform x-ctr-color-tm-des
.
Esempio della routine
In questo caso, il colore potrebbe anche essere customizzato, perche' il programma lo prevede.
**---------------------------------------------------------------**
** Modifico il colore del campo: Descrizione informazione
** dopo il controllo della validita` del campo
**---------------------------------------------------------------**
x-ctr-color-tm-des.
if x-f3-ok-parziale = "S"
if x-enabled-dettaglio = 0
modify e-tm-des,
color = ext-color-disabled
else
modify e-tm-des,
color = t-cf-color-control
(k-idc-tm-des)
end-if
else
modify e-tm-des,
color = ext-color-error
end-if
.