Close some minor ToDos (#3995)

* Close some todos 

FUGR does not have any class includes

* Remove huh?

* Move WDYN activation to serializer

Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Marc Bernard 2020-10-09 07:11:24 -04:00 committed by GitHub
parent 784975fefc
commit c0192df9ec
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 76 additions and 59 deletions

View File

@ -559,8 +559,6 @@ CLASS ZCL_ABAPGIT_OBJECT_FUGR IMPLEMENTATION.
CALL FUNCTION 'RS_GET_ALL_INCLUDES' CALL FUNCTION 'RS_GET_ALL_INCLUDES'
EXPORTING EXPORTING
program = lv_program program = lv_program
* WITH_RESERVED_INCLUDES =
* WITH_CLASS_INCLUDES = ' ' hmm, todo
TABLES TABLES
includetab = rt_includes includetab = rt_includes
EXCEPTIONS EXCEPTIONS

View File

@ -1,9 +1,15 @@
CLASS zcl_abapgit_object_wdyn DEFINITION PUBLIC INHERITING FROM zcl_abapgit_objects_super FINAL. CLASS zcl_abapgit_object_wdyn DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_objects_super
FINAL
CREATE PUBLIC .
PUBLIC SECTION. PUBLIC SECTION.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
INTERFACES zif_abapgit_object .
ALIASES mo_files
FOR zif_abapgit_object~mo_files .
PROTECTED SECTION. PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
@ -63,7 +69,10 @@ CLASS zcl_abapgit_object_wdyn DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
add_fm_exception add_fm_exception
IMPORTING iv_name TYPE string IMPORTING iv_name TYPE string
iv_value TYPE i iv_value TYPE i
CHANGING ct_exception TYPE abap_func_excpbind_tab. CHANGING ct_exception TYPE abap_func_excpbind_tab,
add_with_inactive_parts
RAISING
zcx_abapgit_exception .
ENDCLASS. ENDCLASS.
@ -110,6 +119,39 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYN IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD add_with_inactive_parts.
DATA:
lv_obj_name TYPE trobj_name,
lv_object TYPE trobjtype,
lt_objects TYPE dwinactiv_tab.
FIELD-SYMBOLS: <ls_object> LIKE LINE OF lt_objects.
lv_obj_name = ms_item-obj_name.
lv_object = ms_item-obj_type.
CALL FUNCTION 'RS_INACTIVE_OBJECTS_IN_OBJECT'
EXPORTING
obj_name = lv_obj_name
object = lv_object
TABLES
inactive_objects = lt_objects
EXCEPTIONS
object_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from RS_INACTIVE_OBJECTS_IN_OBJECT' ).
ENDIF.
LOOP AT lt_objects ASSIGNING <ls_object>.
zcl_abapgit_objects_activation=>add( iv_type = <ls_object>-object
iv_name = <ls_object>-obj_name ).
ENDLOOP.
ENDMETHOD.
METHOD delta_controller. METHOD delta_controller.
DATA: li_controller TYPE REF TO if_wdy_md_controller, DATA: li_controller TYPE REF TO if_wdy_md_controller,
@ -784,7 +826,7 @@ CLASS ZCL_ABAPGIT_OBJECT_WDYN IMPLEMENTATION.
io_xml = io_xml ). io_xml = io_xml ).
ENDIF. ENDIF.
zcl_abapgit_objects_activation=>add_item( ms_item ). add_with_inactive_parts( ).
ENDMETHOD. ENDMETHOD.

View File

@ -1,22 +1,27 @@
CLASS zcl_abapgit_objects_activation DEFINITION PUBLIC CREATE PUBLIC. CLASS zcl_abapgit_objects_activation DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION. PUBLIC SECTION.
CLASS-METHODS add CLASS-METHODS add
IMPORTING iv_type TYPE trobjtype IMPORTING
iv_name TYPE clike !iv_type TYPE trobjtype
iv_delete TYPE abap_bool DEFAULT abap_false !iv_name TYPE clike
RAISING zcx_abapgit_exception. !iv_delete TYPE abap_bool DEFAULT abap_false
RAISING
zcx_abapgit_exception .
CLASS-METHODS add_item CLASS-METHODS add_item
IMPORTING is_item TYPE zif_abapgit_definitions=>ty_item IMPORTING
RAISING zcx_abapgit_exception. !is_item TYPE zif_abapgit_definitions=>ty_item
RAISING
zcx_abapgit_exception .
CLASS-METHODS activate CLASS-METHODS activate
IMPORTING iv_ddic TYPE abap_bool DEFAULT abap_false IMPORTING
RAISING zcx_abapgit_exception. !iv_ddic TYPE abap_bool DEFAULT abap_false
RAISING
CLASS-METHODS clear. zcx_abapgit_exception .
CLASS-METHODS clear .
PROTECTED SECTION. PROTECTED SECTION.
PRIVATE SECTION. PRIVATE SECTION.
@ -228,43 +233,16 @@ CLASS ZCL_ABAPGIT_OBJECTS_ACTIVATION IMPLEMENTATION.
* function module RS_INSERT_INTO_WORKING_AREA * function module RS_INSERT_INTO_WORKING_AREA
* class CL_WB_ACTIVATION_WORK_AREA * class CL_WB_ACTIVATION_WORK_AREA
DATA: lt_objects TYPE dwinactiv_tab, FIELD-SYMBOLS: <ls_object> TYPE dwinactiv.
lv_obj_name TYPE dwinactiv-obj_name.
FIELD-SYMBOLS: <ls_object> LIKE LINE OF lt_objects. IF iv_type = 'CLAS'.
APPEND iv_name TO gt_classes.
ELSE.
lv_obj_name = iv_name. APPEND INITIAL LINE TO gt_objects ASSIGNING <ls_object>.
<ls_object>-object = iv_type.
CASE iv_type. <ls_object>-obj_name = iv_name.
WHEN 'CLAS'. <ls_object>-delet_flag = iv_delete.
APPEND iv_name TO gt_classes. ENDIF.
WHEN 'WDYN'.
* todo, move this to the object type include instead
CALL FUNCTION 'RS_INACTIVE_OBJECTS_IN_OBJECT'
EXPORTING
obj_name = lv_obj_name
object = iv_type
TABLES
inactive_objects = lt_objects
EXCEPTIONS
object_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Error from RS_INACTIVE_OBJECTS_IN_OBJECT' ).
ENDIF.
LOOP AT lt_objects ASSIGNING <ls_object>.
<ls_object>-delet_flag = iv_delete.
ENDLOOP.
APPEND LINES OF lt_objects TO gt_objects.
WHEN OTHERS.
APPEND INITIAL LINE TO gt_objects ASSIGNING <ls_object>.
<ls_object>-object = iv_type.
<ls_object>-obj_name = lv_obj_name.
<ls_object>-delet_flag = iv_delete.
ENDCASE.
ENDMETHOD. ENDMETHOD.

View File

@ -370,9 +370,8 @@ CLASS ZCL_ABAPGIT_FILE_STATUS IMPLEMENTATION.
FIELD-SYMBOLS: <ls_res1> LIKE LINE OF it_results, FIELD-SYMBOLS: <ls_res1> LIKE LINE OF it_results,
<ls_res2> LIKE LINE OF it_results. <ls_res2> LIKE LINE OF it_results.
" This method just adds messages to the log. No log, nothing to do here
IF ii_log IS INITIAL. IF ii_log IS INITIAL.
* huh?
RETURN. RETURN.
ENDIF. ENDIF.