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

PROG: add guard for bad TADIR EIMP entries

Browse Source
This commit is contained in:
larshp 2018-08-12 08:51:51 +00:00 committed by Lars Hvam
parent 6a2125652d
commit e3df6fe4c2
1 changed files with 30 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
src/objects/zcl_abapgit_object_prog.clas.abap
View File

@ -28,7 +28,7 @@ ENDCLASS.
CLASS zcl_abapgit_object_prog IMPLEMENTATION.
CLASS ZCL_ABAPGIT_OBJECT_PROG IMPLEMENTATION.
METHOD deserialize_texts.
@ -52,6 +52,14 @@ CLASS zcl_abapgit_object_prog IMPLEMENTATION.
ENDMETHOD.
METHOD is_program_locked.
rv_is_program_locked = exists_a_lock_entry_for( iv_lock_object = 'ESRDIRE'
iv_argument = |{ ms_item-obj_name }| ).
ENDMETHOD.
METHOD serialize_texts.
DATA: lt_tpool_i18n TYPE tt_tpool_i18n,
@ -196,29 +204,6 @@ CLASS zcl_abapgit_object_prog IMPLEMENTATION.
ENDMETHOD.
METHOD zif_abapgit_object~jump.
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
operation = 'SHOW'
object_name = ms_item-obj_name
object_type = 'PROG'
in_new_window = abap_true.
ENDMETHOD.
METHOD zif_abapgit_object~serialize.
serialize_program( io_xml = io_xml
is_item = ms_item
io_files = mo_files ).
" Texts serializing (translations)
serialize_texts( io_xml ).
ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
IF is_program_locked( ) = abap_true
@ -233,11 +218,29 @@ CLASS zcl_abapgit_object_prog IMPLEMENTATION.
ENDMETHOD.
METHOD is_program_locked.
METHOD zif_abapgit_object~jump.
rv_is_program_locked = exists_a_lock_entry_for( iv_lock_object = 'ESRDIRE'
iv_argument = |{ ms_item-obj_name }| ).
CALL FUNCTION 'RS_TOOL_ACCESS'
EXPORTING
operation = 'SHOW'
object_name = ms_item-obj_name
object_type = 'PROG'
in_new_window = abap_true.
ENDMETHOD.
METHOD zif_abapgit_object~serialize.
* see SAP note 1025291, run report DELETE_TADIR_FOR_EIMP_INCLUDE to clean bad TADIR entries
ASSERT NOT ms_item-obj_name CP '*=E'.
serialize_program( io_xml = io_xml
is_item = ms_item
io_files = mo_files ).
" Texts serializing (translations)
serialize_texts( io_xml ).
ENDMETHOD.
ENDCLASS.