SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-02 04:36:49 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Filter logic improvement when serializing

Browse Source
This commit is contained in:
Christian Tapia Sabogal 2017-01-20 18:25:14 -05:00 committed by GitHub
parent 0479eb36b2
commit cb021acb56
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/zabapgit_repo_impl.prog.abap
View File

@ -504,17 +504,18 @@ CLASS lcl_repo IMPLEMENTATION.
DATA: lt_tadir TYPE ty_tadir_tt, DATA: lt_tadir TYPE ty_tadir_tt,
ls_item TYPE ty_item, ls_item TYPE ty_item,
lt_files TYPE ty_files_tt. lt_files TYPE ty_files_tt,
lt_cache TYPE SORTED TABLE OF ty_file_item
WITH NON-UNIQUE KEY item.
DATA: lt_cache TYPE SORTED TABLE OF ty_file_item DATA: lt_filter TYPE SORTED TABLE OF tadir
WITH NON-UNIQUE KEY item, WITH NON-UNIQUE KEY object obj_name,
lt_tadir_aux LIKE lt_tadir. lv_filter_exist TYPE abap_bool.
FIELD-SYMBOLS: <ls_file> LIKE LINE OF lt_files, FIELD-SYMBOLS: <ls_file> LIKE LINE OF lt_files,
<ls_return> LIKE LINE OF rt_files, <ls_return> LIKE LINE OF rt_files,
<ls_cache> LIKE LINE OF lt_cache, <ls_cache> LIKE LINE OF lt_cache,
<ls_tadir> LIKE LINE OF lt_tadir, <ls_tadir> LIKE LINE OF lt_tadir.
<ls_filter> LIKE LINE OF it_filter.
" Serialization happened before and no refresh request " Serialization happened before and no refresh request
@ -536,19 +537,18 @@ CLASS lcl_repo IMPLEMENTATION.
lt_cache = mt_local. lt_cache = mt_local.
lt_tadir = lcl_tadir=>read( get_package( ) ). lt_tadir = lcl_tadir=>read( get_package( ) ).
IF it_filter[] IS INITIAL. lt_filter = it_filter.
lt_tadir_aux[] = lt_tadir[]. lv_filter_exist = boolc( lines( lt_filter ) > 0 ) .
ELSE.
LOOP AT it_filter ASSIGNING <ls_filter>.
READ TABLE lt_tadir ASSIGNING <ls_tadir> WITH KEY object = <ls_filter>-object
obj_name = <ls_filter>-obj_name.
IF sy-subrc = 0.
APPEND <ls_tadir> TO lt_tadir_aux.
ENDIF.
ENDLOOP.
ENDIF.
LOOP AT lt_tadir_aux ASSIGNING <ls_tadir>. LOOP AT lt_tadir ASSIGNING <ls_tadir>.
IF lv_filter_exist = abap_true.
READ TABLE lt_filter TRANSPORTING NO FIELDS WITH KEY object = <ls_tadir>-object
obj_name = <ls_tadir>-obj_name
BINARY SEARCH.
IF sy-subrc <> 0.
CONTINUE.
ENDIF.
ENDIF.
lcl_progress=>show( iv_key = 'Serialize' lcl_progress=>show( iv_key = 'Serialize'
iv_current = sy-tabix iv_current = sy-tabix