Z-ESPORTA-nomegrid |
  
|
Z-ESPORTA-nomegrid |
|
Routine che viene richiamata per l'esportazione del contenuto del file di transito collegato alla griglia su Excel
Esempio della chiamata alla routine
Questo routine viene inserita all'interno dell'accept griglia:
if s-f5
perform z-esporta-grid-det
go to a-grid
end-if
Esempio della routine
*------------------------------------------------------------------*
** Esportazione su excel di una griglia paginata: grid-det
*------------------------------------------------------------------*
z-esporta-grid-det.
move gor-r-t-key to gor-r-t-key-dep
move gor-r-b-key to gor-r-b-key-dep
move gor-r-fl-read to gor-r-fl-read-dep
move last-row-grid to last-row-grid-dep
move m-tb-esportazione-griglia to wb-msg
perform clock-msg
display grid, handle handle-grid,
width-in-cells,
adjustable-columns, column-headings,
hscroll, vscroll, use-tab,
vpadding 0, visible 0
perform z-gridadmn-prepara-grid-det
modify handle-grid, mass-update = 1
initialize gor-r-fl-read
perform X-nomegrid-SPAGINAMENTO-START
if gor-r-n-m > 0
perform with test after until gor-r-n-m = 0
move 0 to k k-rg
perform gor-r-n-m times
perform view-clk
add 1 to k k-rg
perform x-riempi-grid-det-record
move grid-det-record to gdad-record
initialize util-gdad
move 'Add-Record' to gdad-ope
move prog-err to gdad-prg
move 1 to gdad-frm
move k-id-grid-det to gdad-ctrl-id
call 'GRIDADMN' using stringhe util-gdad gdad-record
end-perform
perform grid-det-rp-fill-key-from-b
perform grid-det-rst-next
end-perform
end-if
modify handle-grid, mass-update = 0
move handle-grid to handle-grid-appunti
initialize util-gridtoxs
move 'GRIDTOXS-CALLED' to gridtoxs-called
move m-esporta-grid-esame-maskctrs to gridtoxs-esame-maskctrs
call 'GRIDTOXS' using stringhe util-gdad
cancel 'GRIDTOXS'
destroy handle-grid
set handle-grid to handle of e-grid-det
set handle-grid-appunti to handle of e-grid-det
perform rem-clk
move gor-r-t-key-dep to gor-r-t-key
move gor-r-b-key-dep to gor-r-b-key
move gor-r-fl-read-dep to gor-r-fl-read
move last-row-grid-dep to last-row-grid
initialize gor-r-fl-read
perform grid-det-rp-fill-key
perform grid-det-rst-not-less
.