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

Merge pull request #1090 from larshp/issue_1078

Browse Source 
fix find superpackages #1078
This commit is contained in:
Lars Hvam 2018-01-07 09:24:44 +01:00 committed by GitHub
commit 4330995bfe
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/zabapgit_sap_package.prog.abap
View File

@ -237,18 +237,17 @@ CLASS lcl_sap_package IMPLEMENTATION.
METHOD lif_sap_package~list_superpackages. METHOD lif_sap_package~list_superpackages.
DATA: lt_list LIKE rt_list, DATA: lt_list LIKE rt_list,
lv_parent TYPE tdevc-parentcl, lv_parent TYPE tdevc-parentcl.
lv_devclass LIKE LINE OF rt_list.
APPEND mv_package TO rt_list. APPEND mv_package TO rt_list.
SELECT SINGLE parentcl INTO lv_parent SELECT SINGLE parentcl INTO lv_parent
FROM tdevc WHERE devclass = mv_package. "#EC CI_GENBUFF "#EC CI_SUBRC FROM tdevc WHERE devclass = mv_package. "#EC CI_GENBUFF
IF NOT lv_parent IS INITIAL. IF sy-subrc = 0 AND NOT lv_parent IS INITIAL.
APPEND lv_parent TO rt_list. APPEND lv_parent TO rt_list.
lt_list = get( lv_devclass )->list_superpackages( ). lt_list = get( lv_parent )->list_superpackages( ).
APPEND LINES OF lt_list TO rt_list. APPEND LINES OF lt_list TO rt_list.
ENDIF. ENDIF.