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

downport, #383

Browse Source
This commit is contained in:
larshp 2016-10-10 17:48:45 +00:00
parent f678ee2505
commit dce6cfb023
2 changed files with 28 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100.
* See http://www.abapgit.org * See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.18.2'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v1.18.3'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)

42
src/zabapgit_object_clas.prog.abap
View File

@ -123,8 +123,9 @@ CLASS lcl_object_clas IMPLEMENTATION.
METHOD lif_object~has_changed_since. METHOD lif_object~has_changed_since.
DATA: lv_clsname TYPE seoclsname, DATA: lv_clsname TYPE seoclsname,
lt_incl TYPE seoincl_t. lv_program TYPE program,
lt_incl TYPE seoincl_t.
FIELD-SYMBOLS <incl> LIKE LINE OF lt_incl. FIELD-SYMBOLS <incl> LIKE LINE OF lt_incl.
@ -132,24 +133,35 @@ CLASS lcl_object_clas IMPLEMENTATION.
CASE ms_item-obj_type. CASE ms_item-obj_type.
WHEN 'CLAS'. WHEN 'CLAS'.
lt_incl = cl_oo_classname_service=>get_all_class_includes( lv_clsname ). TRY.
CALL METHOD cl_oo_classname_service=>('GET_ALL_CLASS_INCLUDES')
EXPORTING
class_name = lv_clsname
RECEIVING
result = lt_incl.
CATCH cx_sy_dyn_call_illegal_method.
* method does not exist in 702, just report everything as changed
rv_changed = abap_true.
ENDTRY.
LOOP AT lt_incl ASSIGNING <incl>.
rv_changed = check_prog_changed_since(
iv_program = <incl>
iv_timestamp = iv_timestamp
iv_skip_gui = abap_true ).
IF rv_changed = abap_true.
RETURN.
ENDIF.
ENDLOOP.
WHEN 'INTF'. WHEN 'INTF'.
APPEND INITIAL LINE TO lt_incl ASSIGNING <incl>. lv_program = cl_oo_classname_service=>get_interfacepool_name( lv_clsname ).
<incl> = cl_oo_classname_service=>get_interfacepool_name( lv_clsname ). rv_changed = check_prog_changed_since(
iv_program = lv_program
iv_timestamp = iv_timestamp
iv_skip_gui = abap_true ).
WHEN OTHERS. WHEN OTHERS.
lcx_exception=>raise( 'class delete, unknown type' ). lcx_exception=>raise( 'class delete, unknown type' ).
ENDCASE. ENDCASE.
LOOP AT lt_incl ASSIGNING <incl>.
rv_changed = check_prog_changed_since(
iv_program = <incl>
iv_timestamp = iv_timestamp
iv_skip_gui = abap_true ).
IF rv_changed = abap_true.
RETURN.
ENDIF.
ENDLOOP.
ENDMETHOD. "lif_object~has_changed_since ENDMETHOD. "lif_object~has_changed_since
METHOD lif_object~get_metadata. METHOD lif_object~get_metadata.