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

TADIR, CHECK_EXISTS, add progress indicator #1148

Browse Source 
TADIR, CHECK_EXISTS, add progress indicator #1148
This commit is contained in:
larshp 2018-01-21 07:02:42 +00:00
parent aaba2a0db8
commit 4fbfbf0603
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/zabapgit_tadir.prog.abap
View File

@ -175,15 +175,24 @@ CLASS lcl_tadir IMPLEMENTATION.
METHOD check_exists.
DATA: lv_exists TYPE abap_bool,
ls_item TYPE zif_abapgit_definitions=>ty_item.
DATA: lv_exists TYPE abap_bool,
lo_progress TYPE REF TO zcl_abapgit_progress,
ls_item TYPE zif_abapgit_definitions=>ty_item.
FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF it_tadir.
CREATE OBJECT lo_progress
EXPORTING
iv_total = lines( it_tadir ).
* rows from database table TADIR are not removed for
* transportable objects until the transport is released
LOOP AT it_tadir ASSIGNING <ls_tadir>.
lo_progress->show(
iv_current = sy-tabix
iv_text = |Check object exists { <ls_tadir>-object } { <ls_tadir>-obj_name }| ).
ls_item-obj_type = <ls_tadir>-object.
ls_item-obj_name = <ls_tadir>-obj_name.
ls_item-devclass = <ls_tadir>-devclass.