Z-nomegrid-ORD-AGGIUNGI |
  
|
Z-nomegrid-ORD-AGGIUNGI |
|
Operazioni necessarie per aggiungere una colonna all'ordinamento attuale (preparazione).
Esempio della chiamata alla routine
Questa routine viene richiamata da alcune procedure automatiche. Le routine automatiche sono:
Esempio della routine
*------------------------------------------------------------------*
* Aggiungo una colonna all'ordinamento
*------------------------------------------------------------------*
z-grid-det-ord-aggiungi.
if w-grid-det-ord-reset = 'S'
move 0 to gor-r-pnt
move 'N' to w-grid-det-ord-reset
end-if
* Cerco se la colonna e' gia' stata selezionata
move 1 to gor-r-k
perform gor-r-pnt times
if gor-r-col (gor-r-k) = gor-r-col-sel
exit perform
end-if
add 1 to gor-r-k
end-perform
if gor-r-k <= gor-r-pnt
exit paragraph
end-if
* Aggiungo la colonna all'ordinamento
if gor-r-pnt = 10
move m-tb-max-colonne-ord-grid to wb-msg
perform vbx-msg-error
else
add 1 to gor-r-pnt
move gor-r-col-sel to gor-r-col (gor-r-pnt)
if funzio = k-pmg-ord-aggiungi-des
move 'D' to gor-r-ord-tipo (gor-r-pnt)
else
move 'A' to gor-r-ord-tipo (gor-r-pnt)
end-if
end-if
perform Z-nomegrid-COMPONI-ORD
.