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

Merge pull request #1164 from larshp/issue_1148

Browse Source 
TADIR, CHECK_EXISTS, add progress indicator #1148
This commit is contained in:
Lars Hvam 2018-01-21 12:05:46 +01:00 committed by GitHub
commit a38948b0a1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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. METHOD check_exists.
DATA: lv_exists TYPE abap_bool, DATA: lv_exists TYPE abap_bool,
ls_item TYPE zif_abapgit_definitions=>ty_item. 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. 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 * rows from database table TADIR are not removed for
* transportable objects until the transport is released * transportable objects until the transport is released
LOOP AT it_tadir ASSIGNING <ls_tadir>. 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_type = <ls_tadir>-object.
ls_item-obj_name = <ls_tadir>-obj_name. ls_item-obj_name = <ls_tadir>-obj_name.
ls_item-devclass = <ls_tadir>-devclass. ls_item-devclass = <ls_tadir>-devclass.