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

Update zcl_excel_autofilter.clas.abap

Browse Source
This commit is contained in:
Bernd 2024-05-23 11:37:39 +02:00 committed by GitHub
parent fd2dc14ac2
commit 647a006be4
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 8 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/zcl_excel_autofilter.clas.abap
View File

@ -19,7 +19,7 @@ CLASS zcl_excel_autofilter DEFINITION
tr_textfilter2 TYPE RANGE OF string, tr_textfilter2 TYPE RANGE OF string,
END OF ts_filter . END OF ts_filter .
TYPES: TYPES:
tt_filters TYPE HASHED TABLE OF ts_filter WITH UNIQUE KEY column . tt_filters TYPE SORTED TABLE OF ts_filter WITH UNIQUE KEY column .
DATA filter_area TYPE zexcel_s_autofilter_area . DATA filter_area TYPE zexcel_s_autofilter_area .
CONSTANTS mc_filter_rule_single_values TYPE tv_filter_rule VALUE 'single_values'. "#EC NOTEXT CONSTANTS mc_filter_rule_single_values TYPE tv_filter_rule VALUE 'single_values'. "#EC NOTEXT
@ -208,9 +208,6 @@ CLASS zcl_excel_autofilter IMPLEMENTATION.
METHOD is_row_hidden. METHOD is_row_hidden.
DATA: lr_filter TYPE REF TO ts_filter,
lv_col TYPE i.
FIELD-SYMBOLS: <ls_filter> TYPE ts_filter. FIELD-SYMBOLS: <ls_filter> TYPE ts_filter.
rv_is_hidden = abap_false. rv_is_hidden = abap_false.
@ -219,29 +216,25 @@ CLASS zcl_excel_autofilter IMPLEMENTATION.
* 1st row of filter area is never hidden, because here the filter * 1st row of filter area is never hidden, because here the filter
* symbol is being shown * symbol is being shown
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
IF iv_row = me->filter_area-row_start. IF iv_row <= me->filter_area-row_start OR
iv_row > me->filter_area-row_end.
RETURN. RETURN.
ENDIF. ENDIF.
lv_col = me->filter_area-col_start. LOOP AT mt_filters ASSIGNING <ls_filter> WHERE column >= me->filter_area-col_start
AND column <= me->filter_area-col_end.
WHILE lv_col <= me->filter_area-col_end.
lr_filter = me->get_column_filter( lv_col ).
ASSIGN lr_filter->* TO <ls_filter>.
CASE <ls_filter>-rule. CASE <ls_filter>-rule.
WHEN mc_filter_rule_single_values. WHEN mc_filter_rule_single_values.
rv_is_hidden = me->is_row_hidden_single_values( iv_row = iv_row rv_is_hidden = me->is_row_hidden_single_values( iv_row = iv_row
iv_col = lv_col iv_col = <ls_filter>-column
is_filter = <ls_filter> ). is_filter = <ls_filter> ).
WHEN mc_filter_rule_text_pattern. WHEN mc_filter_rule_text_pattern.
rv_is_hidden = me->is_row_hidden_text_pattern( iv_row = iv_row rv_is_hidden = me->is_row_hidden_text_pattern( iv_row = iv_row
iv_col = lv_col iv_col = <ls_filter>-column
is_filter = <ls_filter> ). is_filter = <ls_filter> ).
ENDCASE. ENDCASE.
@ -250,10 +243,7 @@ CLASS zcl_excel_autofilter IMPLEMENTATION.
RETURN. RETURN.
ENDIF. ENDIF.
ENDLOOP.
ADD 1 TO lv_col.
ENDWHILE.
ENDMETHOD. ENDMETHOD.