X-CARICA-LINGUA |
  
|
X-CARICA-LINGUA |
|
Questa routine carica su apposite variabili definite nel file ".WRK", tutti i testi gestiti nel programma:
•Messaggi
•Etichette
•Valori fissi
•.....
Esempio della chiamata alla routine
Questa routine deve essere inserita tra le prime istruzioni del programma, ad esempio:
move k-program-id to prog-err w-nome-hlp.
perform ctr-abil.
perform z-99-init-program
perform open-files
perform rd-azi
initialize util-ncnf
perform x-configurazione-nascosta
perform x-carica-lingua
initialize w-dati-called.
Esempio della routine
**---------------------------------------------------------------**
** Carico le descrizioni in lingua se previsto
**---------------------------------------------------------------**
x-carica-lingua.
perform z-99-init-custom
**---------------------------------------------------------------**
** Etichette locali del programma
**---------------------------------------------------------------**
initialize util-rlng
move function lower-case('CRM013.lng') to rlng-percorso
move 'l-frame-ordinamento' to rlng-chiave (0001)
move 'l-tm-ord-cod' to rlng-chiave (0002)
...
move 0022 to rlng-pnt
move 'LE' to rlng-tipo-testo
call 'READLNG' using stringhe util-rlng rlng-tab
move rlng-valore (0001) to l-frame-ordinamento
move rlng-valore (0002) to l-tm-ord-cod
....
**---------------------------------------------------------------**
** Status bar del programma
**---------------------------------------------------------------**
initialize util-rlng
move function lower-case('CRM013.lng') to rlng-percorso
move 's-tm-ord-cod' to rlng-chiave (0001)
move 's-tm-ord-des' to rlng-chiave (0002)
..
move 0024 to rlng-pnt
move 'LB' to rlng-tipo-testo
call 'READLNG' using stringhe util-rlng rlng-tab
move rlng-valore (0001) to s-tm-ord-cod
move rlng-valore (0002) to s-tm-ord-des
....
**---------------------------------------------------------------**
** Combo-box del programma
**---------------------------------------------------------------**
initialize util-rlng
move function lower-case('CRM013.lng') to rlng-percorso
move 'v-tm-tip-01' to rlng-chiave (0001)
move 'v-tm-tip-02' to rlng-chiave (0002)
move 'v-tm-link-des-01' to rlng-chiave (0013)
move 'v-tm-link-des-02' to rlng-chiave (0014)
...
move 0014 to rlng-pnt
move 'LV' to rlng-tipo-testo
call 'READLNG' using stringhe util-rlng rlng-tab
move rlng-valore (0001) to v-tm-tip (01) (4:26)
move rlng-valore (0002) to v-tm-tip (02) (4:26)
move rlng-valore (0013) to v-tm-link-des (01) (4:17)
move rlng-valore (0014) to v-tm-link-des (02) (4:17)
...
**---------------------------------------------------------------**
** Messaggi locali del programma
**---------------------------------------------------------------**
initialize util-rlng
move function lower-case('CRM013.lng') to rlng-percorso
move 'm-crm013-10-1' to rlng-chiave (0001)
move 'm-crm013-11-1' to rlng-chiave (0002)
..
move 0080 to rlng-pnt
move 'LM' to rlng-tipo-testo
call 'READLNG' using stringhe util-rlng rlng-tab
move rlng-valore (0001) to m-crm013-10-1
move rlng-valore (0002) to m-crm013-11-1
..
**---------------------------------------------------------------**
** Messaggi generici
**---------------------------------------------------------------**
initialize util-rlng
move 'gen.lng' to rlng-percorso
move 'm-no-abi-inserimento' to rlng-chiave (0001)
move 'm-dato-troncato' to rlng-chiave (0002)
move 0002 to rlng-pnt
move 'GM' to rlng-tipo-testo
call 'READLNG' using stringhe util-rlng rlng-tab
move rlng-valore (0001) to m-no-abi-inserimento
move rlng-valore (0002) to m-dato-troncato
.