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

NROB SUSC: fix popups

Browse Source 
SUSC: remove package popup
NROB: remove popup "& & & generated, changes possible" when uninstalling
This commit is contained in:
larshp 2017-02-18 13:31:29 +00:00
parent 514ddb91e7
commit ff056a218e
3 changed files with 25 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/zabapgit_object_nrob.prog.abap
View File

@ -153,21 +153,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
lcx_exception=>raise( 'error from NUMBER_RANGE_OBJECT_CLOSE' ). lcx_exception=>raise( 'error from NUMBER_RANGE_OBJECT_CLOSE' ).
ENDIF. ENDIF.
CALL FUNCTION 'TR_TADIR_INTERFACE' tadir_insert( iv_package ).
EXPORTING
wi_test_modus = abap_false
wi_tadir_pgmid = 'R3TR'
wi_tadir_object = 'NROB'
wi_tadir_obj_name = ms_item-obj_name
wi_tadir_author = sy-uname
wi_tadir_devclass = iv_package
wi_tadir_masterlang = mv_language
wi_set_genflag = abap_true
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from TR_TADIR_INTERFACE' ).
ENDIF.
ENDMETHOD. "deserialize ENDMETHOD. "deserialize

6
src/zabapgit_object_susc.prog.abap
View File

@ -32,7 +32,6 @@ CLASS lcl_object_susc IMPLEMENTATION.
METHOD lif_object~get_metadata. METHOD lif_object~get_metadata.
rs_metadata = get_metadata( ). rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD. "lif_object~get_metadata ENDMETHOD. "lif_object~get_metadata
METHOD lif_object~exists. METHOD lif_object~exists.
@ -61,9 +60,6 @@ CLASS lcl_object_susc IMPLEMENTATION.
SELECT SINGLE * FROM tobct INTO ls_tobct SELECT SINGLE * FROM tobct INTO ls_tobct
WHERE oclss = ms_item-obj_name WHERE oclss = ms_item-obj_name
AND langu = mv_language. AND langu = mv_language.
* IF sy-subrc <> 0.
* lcx_exception=>raise( 'TOBCT no english description' ).
* ENDIF.
io_xml->add( iv_name = 'TOBC' io_xml->add( iv_name = 'TOBC'
ig_data = ls_tobc ). ig_data = ls_tobc ).
@ -85,6 +81,8 @@ CLASS lcl_object_susc IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'TOBCT' io_xml->read( EXPORTING iv_name = 'TOBCT'
CHANGING cg_data = ls_tobct ). CHANGING cg_data = ls_tobct ).
tadir_insert( iv_package ).
lv_objectname = ms_item-obj_name. lv_objectname = ms_item-obj_name.
CALL FUNCTION 'SUSR_COMMEDITCHECK' CALL FUNCTION 'SUSR_COMMEDITCHECK'
EXPORTING EXPORTING

22
src/zabapgit_objects.prog.abap
View File

@ -570,6 +570,9 @@ CLASS lcl_objects_super DEFINITION ABSTRACT.
corr_insert corr_insert
IMPORTING iv_package TYPE devclass IMPORTING iv_package TYPE devclass
RAISING lcx_exception, RAISING lcx_exception,
tadir_insert
IMPORTING iv_package TYPE devclass
RAISING lcx_exception,
jump_se11 jump_se11
IMPORTING iv_radio TYPE string IMPORTING iv_radio TYPE string
iv_field TYPE string iv_field TYPE string
@ -1616,6 +1619,25 @@ CLASS lcl_objects_super IMPLEMENTATION.
rs_metadata-version = 'v1.0.0' ##no_text. rs_metadata-version = 'v1.0.0' ##no_text.
ENDMETHOD. "get_metadata ENDMETHOD. "get_metadata
METHOD tadir_insert.
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
wi_tadir_author = sy-uname
wi_tadir_devclass = iv_package
wi_tadir_masterlang = mv_language
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from TR_TADIR_INTERFACE' ).
ENDIF.
ENDMETHOD.
METHOD corr_insert. METHOD corr_insert.
DATA: ls_object TYPE ddenqs. DATA: ls_object TYPE ddenqs.