SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 11:06:15 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix: after BIND_TABLE no columns in object (#731)

Browse Source 
* Fix: after BIND_TABLE no columns in object

* fix 4 methods get_{rows|columns}[_iterator]

Co-authored-by: Gregor Wolf <gregor.wolf@gmail.com>
Co-authored-by: sandraros <34005250+sandraros@users.noreply.github.com>
Co-authored-by: Lars Hvam <larshp@hotmail.com>
Co-authored-by: Abo <andrea@borgia.bo.it>
Co-authored-by: John Doe <sandra.rossi@accenture.com>
Co-authored-by: sandraros <sandra.rossi@gmail.com>
This commit is contained in:
Pascal Möller 2021-12-24 16:21:42 +01:00 committed by GitHub
parent 3df52da4c2
commit 49938b0c60
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
src/zcl_excel_worksheet.clas.abap
View File

@ -2142,12 +2142,28 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
METHOD get_columns. METHOD get_columns.
DATA: columns TYPE TABLE OF i,
column TYPE i.
FIELD-SYMBOLS:
<sheet_cell> TYPE zexcel_s_cell_data.
LOOP AT sheet_content ASSIGNING <sheet_cell>.
COLLECT <sheet_cell>-cell_column INTO columns.
ENDLOOP.
LOOP AT columns INTO column.
" This will create the column instance if it doesn't exist
get_column( column ).
ENDLOOP.
eo_columns = me->columns. eo_columns = me->columns.
ENDMETHOD. "GET_COLUMNS ENDMETHOD. "GET_COLUMNS
METHOD get_columns_iterator. METHOD get_columns_iterator.
get_columns( ).
eo_iterator = me->columns->get_iterator( ). eo_iterator = me->columns->get_iterator( ).
ENDMETHOD. "GET_COLUMNS_ITERATOR ENDMETHOD. "GET_COLUMNS_ITERATOR
@ -2494,12 +2510,40 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
METHOD get_rows. METHOD get_rows.
DATA: row TYPE i.
FIELD-SYMBOLS: <sheet_cell> TYPE zexcel_s_cell_data.
IF sheet_content IS NOT INITIAL.
row = 0.
DO.
" Find the next row
READ TABLE sheet_content ASSIGNING <sheet_cell> WITH KEY cell_row = row.
CASE sy-subrc.
WHEN 4.
" row doesn't exist, but it exists another row, SY-TABIX points to the first cell in this row.
READ TABLE sheet_content ASSIGNING <sheet_cell> INDEX sy-tabix.
ASSERT sy-subrc = 0.
row = <sheet_cell>-cell_row.
WHEN 8.
" it was the last available row
EXIT.
ENDCASE.
" This will create the row instance if it doesn't exist
get_row( row ).
row = row + 1.
ENDDO.
ENDIF.
eo_rows = me->rows. eo_rows = me->rows.
ENDMETHOD. "GET_ROWS ENDMETHOD. "GET_ROWS
METHOD get_rows_iterator. METHOD get_rows_iterator.
get_rows( ).
eo_iterator = me->rows->get_iterator( ). eo_iterator = me->rows->get_iterator( ).
ENDMETHOD. "GET_ROWS_ITERATOR ENDMETHOD. "GET_ROWS_ITERATOR