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

Replace TR_TADIR_INTERFACE with tadir_delete (#6606)

Browse Source
This commit is contained in:
Marc Bernard 2023-11-01 01:09:02 -04:00 committed by GitHub
parent 5b88d4b6be
commit ea85a8d78f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 5 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/objects/zcl_abapgit_object_enhc.clas.abap
View File

@ -94,18 +94,7 @@ CLASS zcl_abapgit_object_enhc IMPLEMENTATION.
IF sy-subrc = 0.
" If object exists already, then set TADIR entry to deleted
" otherwise create_enhancement_composite will fail
CALL FUNCTION 'TR_TADIR_INTERFACE'
EXPORTING
wi_test_modus = abap_false
wi_tadir_pgmid = 'R3TR'
wi_tadir_object = ms_item-obj_type
wi_tadir_obj_name = ms_item-obj_name
iv_delflag = abap_true
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
tadir_delete( ).
ENDIF.
TRY.

31
src/objects/zcl_abapgit_object_shma.clas.abap
View File

@ -37,11 +37,8 @@ CLASS zcl_abapgit_object_shma IMPLEMENTATION.
DATA: lv_request TYPE i,
lv_area_name TYPE shm_area_name,
lv_order TYPE e070-trkorr,
lv_korrnum TYPE tadir-korrnum,
lv_objname TYPE tadir-obj_name,
lv_task TYPE e070-trkorr,
lv_append TYPE abap_bool,
ls_tadir TYPE tadir,
ls_tdevc TYPE tdevc,
lo_cts_if TYPE REF TO object.
@ -95,23 +92,9 @@ CLASS zcl_abapgit_object_shma IMPLEMENTATION.
DELETE FROM shma_attributes WHERE area_name = lv_area_name.
DELETE FROM shma_start WHERE area_name = lv_area_name.
lv_korrnum = lv_order.
lv_objname = lv_area_name.
CALL FUNCTION 'TR_TADIR_INTERFACE'
EXPORTING
wi_read_only = abap_true
wi_tadir_pgmid = 'R3TR'
wi_tadir_object = 'SHMA'
wi_tadir_obj_name = lv_objname
IMPORTING
new_tadir_entry = ls_tadir
EXCEPTIONS
OTHERS = 0.
CALL FUNCTION 'TR_DEVCLASS_GET'
EXPORTING
iv_devclass = ls_tadir-devclass
iv_devclass = iv_package
IMPORTING
es_tdevc = ls_tdevc
EXCEPTIONS
@ -120,17 +103,7 @@ CLASS zcl_abapgit_object_shma IMPLEMENTATION.
IF sy-subrc = 0 AND ls_tdevc-korrflag IS INITIAL.
" TADIR entries for local objects must be deleted 'by hand'
CALL FUNCTION 'TR_TADIR_INTERFACE'
EXPORTING
wi_test_modus = abap_false
wi_delete_tadir_entry = abap_true
wi_tadir_pgmid = 'R3TR'
wi_tadir_object = 'SHMA'
wi_tadir_obj_name = lv_objname
wi_tadir_korrnum = lv_korrnum
EXCEPTIONS
OTHERS = 0.
tadir_delete( ).
ENDIF.

16
src/objects/zcl_abapgit_object_susc.clas.abap
View File

@ -78,9 +78,7 @@ CLASS zcl_abapgit_object_susc IMPLEMENTATION.
DATA: lv_tr_object_name TYPE e071-obj_name,
lv_tr_return TYPE char1,
ls_package_info TYPE tdevc,
lv_tadir_object TYPE tadir-object,
lv_tadir_obj_name TYPE tadir-obj_name.
ls_package_info TYPE tdevc.
lv_tr_object_name = ms_item-obj_name.
@ -104,17 +102,7 @@ CLASS zcl_abapgit_object_susc IMPLEMENTATION.
EXCEPTIONS
OTHERS = 1.
IF sy-subrc = 0 AND ls_package_info-korrflag IS INITIAL.
lv_tadir_object = ms_item-obj_type.
lv_tadir_obj_name = lv_tr_object_name.
CALL FUNCTION 'TR_TADIR_INTERFACE'
EXPORTING
wi_delete_tadir_entry = abap_true
wi_test_modus = space
wi_tadir_pgmid = 'R3TR'
wi_tadir_object = lv_tadir_object
wi_tadir_obj_name = lv_tadir_obj_name
EXCEPTIONS
OTHERS = 0.
tadir_delete( ).
ENDIF.
ENDMETHOD.