Z-99-INIT-CUSTOM |
  
|
Z-99-INIT-CUSTOM |
|
Questa routine carica le customizzazioni definite sulla maschera (personalizzate dall'utente, o in mancanza di queste, quelle definite su screens).
Esempio della chiamata alla routine
Questa routine viene chiamata automaticamente all'interno di X-CARICA-LINGUA, quindi non e' necessario richiamarla.
Esempio della routine
**---------------------------------------------------------------**
** Attribuzione customizzazioni
**---------------------------------------------------------------**
z-99-init-custom.
move k-idc-tm-grid-frame to t-cf-id (0001)
move k-idc-tm-rif-ordine-cli to t-cf-id (0004)
move k-idc-w-grid-det-descrizione-ord to t-cf-id (0008)
move k-idc-grid-det to t-cf-id (0007)
move 0 to z
perform k-max-idc times
add 1 to z
initialize util-gesfield
move 'LEGGI' to gesfield-ope
move k-program-id to gesfield-prg
move 1 to gesfield-form
move t-cf-id (z) to gesfield-id
call 'GESFIELD' using stringhe util-gesfield
move gesfield-color-control to t-cf-color-control (z)
move gesfield-color-label to t-cf-color-label (z)
end-perform
.