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

uninstall append structure, close #304

Browse Source 
append structures will now be deleted before tables
This commit is contained in:
larshp 2016-08-31 13:06:01 +00:00
parent 7875f009b2
commit 917177070e
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100.
* See http://www.abapgit.org * See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.17.3'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v1.17.4'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)

11
src/zabapgit_object.prog.abap
View File

@ -305,6 +305,7 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD delete. METHOD delete.
DATA: ls_item TYPE ty_item, DATA: ls_item TYPE ty_item,
lv_tabclass TYPE dd02l-tabclass,
lt_tadir LIKE it_tadir. lt_tadir LIKE it_tadir.
FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF it_tadir. FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF it_tadir.
@ -325,7 +326,17 @@ CLASS lcl_objects IMPLEMENTATION.
WHEN 'SUSC'. WHEN 'SUSC'.
<ls_tadir>-korrnum = '5000'. <ls_tadir>-korrnum = '5000'.
WHEN 'TTYP' OR 'TABL' OR 'VIEW'. WHEN 'TTYP' OR 'TABL' OR 'VIEW'.
SELECT SINGLE tabclass FROM dd02l
INTO lv_tabclass
WHERE tabname = <ls_tadir>-obj_name
AND as4local = 'A'
AND as4vers = '0000'.
IF sy-subrc = 0 AND lv_tabclass = 'APPEND'.
* delete append structures before database tables
<ls_tadir>-korrnum = '6500'.
ELSE.
<ls_tadir>-korrnum = '7000'. <ls_tadir>-korrnum = '7000'.
ENDIF.
WHEN 'DTEL'. WHEN 'DTEL'.
<ls_tadir>-korrnum = '8000'. <ls_tadir>-korrnum = '8000'.
WHEN 'DOMA'. WHEN 'DOMA'.