Merge branch 'main' into larshp-patch-1

This commit is contained in:
Lars Hvam 2025-02-09 16:29:32 +01:00 committed by GitHub
commit ec25fdd257
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194

View File

@ -174,8 +174,10 @@ CLASS zcl_excel_table IMPLEMENTATION.
METHOD get_reference. METHOD get_reference.
DATA: lv_column TYPE zexcel_cell_column, DATA: lv_start_column TYPE zexcel_cell_column,
lv_end_column TYPE zexcel_cell_column,
lv_table_lines TYPE i, lv_table_lines TYPE i,
lv_left_column TYPE zexcel_cell_column_alpha,
lv_right_column TYPE zexcel_cell_column_alpha, lv_right_column TYPE zexcel_cell_column_alpha,
ls_field_catalog TYPE zexcel_s_fieldcatalog, ls_field_catalog TYPE zexcel_s_fieldcatalog,
lv_bottom_row TYPE zexcel_cell_row, lv_bottom_row TYPE zexcel_cell_row,
@ -185,13 +187,12 @@ CLASS zcl_excel_table IMPLEMENTATION.
FIELD-SYMBOLS: <fs_table> TYPE STANDARD TABLE. FIELD-SYMBOLS: <fs_table> TYPE STANDARD TABLE.
*column *column
lv_column = zcl_excel_common=>convert_column2int( settings-top_left_column ). lv_start_column = zcl_excel_common=>convert_column2int( settings-top_left_column ).
lv_table_lines = 0. lv_table_lines = 0.
LOOP AT fieldcat INTO ls_field_catalog WHERE dynpfld EQ abap_true. LOOP AT fieldcat INTO ls_field_catalog WHERE dynpfld EQ abap_true.
ADD 1 TO lv_table_lines. ADD 1 TO lv_table_lines.
ENDLOOP. ENDLOOP.
lv_column = lv_column + lv_table_lines - 1. lv_end_column = lv_start_column + lv_table_lines - 1.
lv_right_column = zcl_excel_common=>convert_column2alpha( lv_column ).
*row *row
ASSIGN table_data->* TO <fs_table>. ASSIGN table_data->* TO <fs_table>.
@ -208,7 +209,9 @@ CLASS zcl_excel_table IMPLEMENTATION.
lv_top_row_string = zcl_excel_common=>number_to_excel_string( settings-top_left_row ). lv_top_row_string = zcl_excel_common=>number_to_excel_string( settings-top_left_row ).
lv_bottom_row_string = zcl_excel_common=>number_to_excel_string( lv_bottom_row ). lv_bottom_row_string = zcl_excel_common=>number_to_excel_string( lv_bottom_row ).
CONCATENATE settings-top_left_column lv_top_row_string lv_left_column = zcl_excel_common=>convert_column2alpha( lv_start_column ).
lv_right_column = zcl_excel_common=>convert_column2alpha( lv_end_column ).
CONCATENATE lv_left_column lv_top_row_string
':' ':'
lv_right_column lv_bottom_row_string INTO ov_reference. lv_right_column lv_bottom_row_string INTO ov_reference.