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

DCLS/DDLS: Fix uninstall dependencies (#3726)

Browse Source 
* DCLS/DDLS: Fix uninstall dependencies 

Closes https://github.com/larshp/abapGit/issues/2467

* Move DDLS before other DDIC

DDLS must be deleted before TABL (which is used in DDLS)

Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Marc Bernard 2020-08-13 02:52:50 -04:00 committed by GitHub
parent dfc19fe718
commit cfc900a2b1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 25 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
src/zcl_abapgit_dependencies.clas.abap
View File

@ -78,20 +78,26 @@ CLASS zcl_abapgit_dependencies IMPLEMENTATION.
CASE <ls_tadir>-object.
WHEN 'DEVC'.
" Packages last
<ls_tadir>-korrnum = '9990'.
<ls_tadir>-korrnum = '999000'.
WHEN 'DOMA'.
<ls_tadir>-korrnum = '9000'.
<ls_tadir>-korrnum = '900000'.
WHEN 'PARA'.
" PARA after DTEL
<ls_tadir>-korrnum = '8100'.
<ls_tadir>-korrnum = '810000'.
WHEN 'DTEL'.
<ls_tadir>-korrnum = '8000'.
<ls_tadir>-korrnum = '800000'.
WHEN 'DCLS'.
" AUTH after DCLS
<ls_tadir>-korrnum = '7100'.
" AUTH and SUSO after DCLS
<ls_tadir>-korrnum = '705000'.
WHEN 'SUSO'.
" SUSO after DCLS
<ls_tadir>-korrnum = '710000'.
WHEN 'AUTH'.
" AUTH after DCLS
<ls_tadir>-korrnum = '7050'.
<ls_tadir>-korrnum = '715000'.
WHEN 'DDLS'.
" DDLS after DCLS but before other DDIC
<ls_tadir>-korrnum = '720000'.
WHEN 'TTYP' OR 'TABL' OR 'VIEW'.
SELECT SINGLE tabclass FROM dd02l
INTO lv_tabclass
@ -100,21 +106,21 @@ CLASS zcl_abapgit_dependencies IMPLEMENTATION.
AND as4vers = '0000'.
IF sy-subrc = 0 AND lv_tabclass = 'APPEND'.
" delete append structures before database tables
<ls_tadir>-korrnum = '6500'.
<ls_tadir>-korrnum = '730000'.
ELSE.
<ls_tadir>-korrnum = '7000'.
<ls_tadir>-korrnum = '750000'.
ENDIF.
WHEN 'IASP'.
<ls_tadir>-korrnum = '5520'.
<ls_tadir>-korrnum = '552000'.
WHEN 'IARP'.
<ls_tadir>-korrnum = '5510'.
<ls_tadir>-korrnum = '551000'.
WHEN 'IATU'.
<ls_tadir>-korrnum = '5500'.
<ls_tadir>-korrnum = '550000'.
WHEN 'SUSC'.
<ls_tadir>-korrnum = '5000'.
<ls_tadir>-korrnum = '500000'.
WHEN 'ACID'.
" ACID after PROG/FUGR/CLAS
<ls_tadir>-korrnum = '3000'.
<ls_tadir>-korrnum = '300000'.
WHEN 'PROG'.
" delete includes after main programs
SELECT COUNT(*) FROM reposrc
@ -122,16 +128,16 @@ CLASS zcl_abapgit_dependencies IMPLEMENTATION.
AND r3state = 'A'
AND subc = 'I'.
IF sy-subrc = 0.
<ls_tadir>-korrnum = '2000'.
<ls_tadir>-korrnum = '200000'.
ELSE.
<ls_tadir>-korrnum = '1000'.
<ls_tadir>-korrnum = '100000'.
ENDIF.
WHEN 'IDOC'.
<ls_tadir>-korrnum = '2000'.
<ls_tadir>-korrnum = '200000'.
WHEN 'IEXT'.
<ls_tadir>-korrnum = '1500'.
<ls_tadir>-korrnum = '150000'.
WHEN OTHERS.
<ls_tadir>-korrnum = '1000'.
<ls_tadir>-korrnum = '100000'.
ENDCASE.
ENDLOOP.