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

SUSO Delete: remove popup #1948 (#1949)

Browse Source 
* SUSO: Delete remove popup

* Refactor delete document method
This commit is contained in:
Christian Günter 2018-09-25 16:02:02 +02:00 committed by Lars Hvam
parent ab1fce00fe
commit f7ce109f86
1 changed files with 113 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

124
src/objects/zcl_abapgit_object_suso.clas.abap
View File

@ -4,10 +4,34 @@ CLASS zcl_abapgit_object_suso DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
METHODS:
constructor
IMPORTING
is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras.
PRIVATE SECTION.
DATA:
mv_objectname TYPE tobj-objct.
METHODS:
delete_documentation
RAISING
zcx_abapgit_exception.
ENDCLASS.
CLASS zcl_abapgit_object_suso IMPLEMENTATION.
METHOD constructor.
super->constructor( is_item = is_item
iv_language = iv_language ).
mv_objectname = ms_item-obj_name.
ENDMETHOD.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
@ -89,7 +113,7 @@ CLASS zcl_abapgit_object_suso IMPLEMENTATION.
METHOD zif_abapgit_object~deserialize.
* see function group SUSA
DATA: lv_objectname TYPE e071-obj_name,
DATA: lv_objectname TYPE trobj_name,
ls_tobj TYPE tobj,
ls_tobjt TYPE tobjt,
ls_tobjvorflg TYPE tobjvorflg,
@ -116,7 +140,8 @@ CLASS zcl_abapgit_object_suso IMPLEMENTATION.
tadir_insert( iv_package ).
lv_objectname = ms_item-obj_name.
lv_objectname = mv_objectname.
CALL FUNCTION 'SUSR_COMMEDITCHECK'
EXPORTING
objectname = lv_objectname
@ -136,25 +161,102 @@ CLASS zcl_abapgit_object_suso IMPLEMENTATION.
METHOD zif_abapgit_object~delete.
DATA: lv_object TYPE tobj-objct.
" FM SUSR_DELETE_OBJECT calls the UI. Therefore we reimplement it here.
CONSTANTS:
co_act_delete TYPE activ_auth VALUE '06'.
lv_object = ms_item-obj_name.
CALL FUNCTION 'SUSR_DELETE_OBJECT'
DATA:
lv_act_head TYPE cl_suso_gen=>td_act,
lv_dummy TYPE string,
lo_suso TYPE REF TO cl_suso_gen,
lv_failed TYPE abap_bool.
CREATE OBJECT lo_suso.
lv_failed = lo_suso->suso_load_from_db( mv_objectname ).
IF lv_failed = abap_true.
" Object & does not exist; choose an existing object
MESSAGE s111(01) WITH mv_objectname INTO lv_dummy.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
lo_suso->get_suso_edit_mode( EXPORTING id_object = mv_objectname
id_planed_act = co_act_delete
IMPORTING ed_mode_head = lv_act_head ).
IF lv_act_head <> co_act_delete.
zcx_abapgit_exception=>raise( |AUTH { mv_objectname }: Delete not allowed| ).
ENDIF.
IF lo_suso->suso_collect_in_cts( mv_objectname ) IS NOT INITIAL.
RETURN.
ENDIF.
delete_documentation( ).
DELETE FROM tobj WHERE objct = mv_objectname.
DELETE FROM tobjt WHERE object = mv_objectname.
DELETE FROM tactz WHERE brobj = mv_objectname.
CALL FUNCTION 'SUPV_DELETE_OBJECT_ASSIGNMENTS'
EXPORTING
object = lv_object.
object_name = mv_objectname
all_releases = abap_true.
CALL FUNCTION 'RS_TREE_OBJECT_PLACEMENT'
EXPORTING
object = mv_objectname
type = 'SUSO'
operation = 'DELETE'.
ENDMETHOD.
METHOD delete_documentation.
DATA:
lv_docu_obj TYPE dokhl-object,
lv_dummy TYPE sy-langu.
lv_docu_obj = mv_objectname.
SELECT SINGLE langu
FROM dokil INTO lv_dummy
WHERE id = 'UO' "#EC CI_GENBUFF
AND object = lv_docu_obj.
IF sy-subrc = 0.
CALL FUNCTION 'DOKU_DELETE_ALL'
EXPORTING
doku_id = 'UO'
doku_object = lv_docu_obj
suppress_transport = space
EXCEPTIONS
header_without_text = 1
index_without_header = 2
no_authority_for_devclass_xxxx = 3
no_docu_found = 4
object_is_already_enqueued = 5
object_is_enqueued_by_corr = 6
techn_enqueue_problem = 7
user_break = 8
OTHERS = 9.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_object~jump.
DATA: lv_object TYPE tobj-objct.
lv_object = ms_item-obj_name.
CALL FUNCTION 'SUSR_SHOW_OBJECT'
EXPORTING
object = lv_object.
object = mv_objectname.
ENDMETHOD.