X-TROVA-COL-NUM-nomegrid |
  
|
X-TROVA-COL-NUM-nomegrid |
|
Questa routine permette di caricare l'ordine delle colonne di una griglia all'interno di apposite variabili specifiche generate nella ".WRK" (GCN-nomecolonna)
NB: questa versione analizza il contenuto della griglia direttamente con INQUIRY del controllo "griglia", ed è alternativa a X-TROVA-COL-HD-nomegrid
Esempio della chiamata alla routine
Questa routine è essenziale nel caso di griglia modificabile, ma è consigliabile anche per gli altri programmi.
Va messa nella parte iniziale di un programma, dopo le routine iniziali e soprattutto dopo la Z-PREPARA-nomegrid.
....
display s-mm-1
perform z-costruisci-controlli
perform z-prepara-tm-grid
* Caricamento id colonne griglia
perform x-trova-col-num-grid-det
.
Esempio della routine
*------------------------------------------------------------------
* Ricerca posizioni colonna per: tm-tab
*------------------------------------------------------------------
x-trova-col-num-tm-tab.
move 0 to k
perform with test after until w-hid-data-col-id = spaces
add 1 to k
inquire e-tm-tab (1, k), hidden-data in w-hidden-data
evaluate w-hid-data-col-id
when 'num'
move k to gcn-num
when 'des'
move k to gcn-des
when 'tip'
move k to gcn-tip
when 'lun'
move k to gcn-lun
.......
when 'filtro-main'
move k to gcn-filtro-main
when 'link'
move k to gcn-link
when 'fl-id'
move k to gcn-fl-id
when 'dato-calcolato'
move k to gcn-dato-calcolato
end-evaluate
inquire e-tm-tab (1, k), cell-data in w-hidden-data
end-perform
.