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

skip package popup for PROG objects

Browse Source
This commit is contained in:
Lars Hvam 2015-09-01 20:27:00 +02:00
parent 797f3fcb9b
commit 07c95d1242
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
zabapgit.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* See https://github.com/larshp/abapGit/ * See https://github.com/larshp/abapGit/
CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v0.65'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v0.66'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)
@ -1702,6 +1702,24 @@ CLASS lcl_objects_common IMPLEMENTATION.
ls_progdir_new TYPE progdir. ls_progdir_new TYPE progdir.
CALL FUNCTION 'RS_CORR_INSERT'
EXPORTING
object = is_progdir-name
object_class = 'ABAP'
devclass = iv_package
master_language = gc_english
mode = 'INSERT'
EXCEPTIONS
cancelled = 1
permission_failure = 2
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc = 1.
_raise 'Cancelled'.
ELSEIF sy-subrc <> 0.
_raise 'error from RS_CORR_INSERT'.
ENDIF.
READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'. READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
lv_title = ls_tpool-entry. lv_title = ls_tpool-entry.