mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 12:20:51 +08:00
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:
parent
784975fefc
commit
c0192df9ec
|
@ -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
|
||||||
|
|
|
@ -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.
|
||||||
|
|
||||||
|
|
|
@ -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.
|
||||||
|
|
||||||
|
|
|
@ -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.
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user