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

new function 'add all objects to transport request' (#2942)

Browse Source 
* new function 'add all objects to transport req'

* enable cancel
This commit is contained in:
Christian Günter 2019-10-06 09:21:51 +02:00 committed by Lars Hvam
parent 6decda9c07
commit a40e7f1bbc
4 changed files with 196 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ui/zcl_abapgit_gui_router.clas.abap
View File

@ -500,6 +500,9 @@ CLASS ZCL_ABAPGIT_GUI_ROUTER IMPLEMENTATION.
WHEN zif_abapgit_definitions=>c_action-repo_newoffline. " New offline repo
zcl_abapgit_services_repo=>new_offline( ).
ev_state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-repo_add_all_obj_to_trans_req.
zcl_abapgit_transport=>add_all_objects_to_trans_req( lv_key ).
ev_state = zcl_abapgit_gui=>c_event_state-re_render.
WHEN zif_abapgit_definitions=>c_action-repo_refresh. " Repo refresh
zcl_abapgit_services_repo=>refresh( lv_key ).
ev_state = zcl_abapgit_gui=>c_event_state-re_render.

10
src/ui/zcl_abapgit_gui_view_repo.clas.abap
View File

@ -134,7 +134,8 @@ CLASS zcl_abapgit_gui_view_repo IMPLEMENTATION.
METHOD build_advanced_dropdown.
DATA:
lv_crossout LIKE zif_abapgit_html=>c_html_opt-crossout.
lv_crossout LIKE zif_abapgit_html=>c_html_opt-crossout,
lv_package TYPE zif_abapgit_persistence=>ty_repo-package.
CREATE OBJECT ro_advanced_dropdown.
@ -167,6 +168,13 @@ CLASS zcl_abapgit_gui_view_repo IMPLEMENTATION.
iv_act = |{ zif_abapgit_definitions=>c_action-repo_remote_attach }?{ mv_key }| ).
ENDIF.
lv_package = mo_repo->get_package( ).
IF zcl_abapgit_factory=>get_sap_package( lv_package )->are_changes_recorded_in_tr_req( ) = abap_true.
ro_advanced_dropdown->add(
iv_txt = 'Add all objects to transport request'
iv_act = |{ zif_abapgit_definitions=>c_action-repo_add_all_obj_to_trans_req }?{ mv_key }| ).
ENDIF.
ro_advanced_dropdown->add( iv_txt = 'Syntax Check'
iv_act = |{ zif_abapgit_definitions=>c_action-repo_syntax_check }?{ mv_key }| ).
ro_advanced_dropdown->add( iv_txt = 'Run Code Inspector'

125
src/zcl_abapgit_transport.clas.abap
View File

@ -15,11 +15,16 @@ CLASS zcl_abapgit_transport DEFINITION
zcx_abapgit_exception .
CLASS-METHODS to_tadir
IMPORTING
!it_transport_headers TYPE trwbo_request_headers
it_transport_headers TYPE trwbo_request_headers
RETURNING
VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt
RAISING
zcx_abapgit_exception .
CLASS-METHODS add_all_objects_to_trans_req
IMPORTING
iv_key TYPE zif_abapgit_persistence=>ty_value
RAISING
zcx_abapgit_exception .
PROTECTED SECTION.
CLASS-METHODS read_requests
@ -42,6 +47,13 @@ CLASS zcl_abapgit_transport DEFINITION
RAISING
zcx_abapgit_exception .
PRIVATE SECTION.
CLASS-METHODS collect_all_objects
IMPORTING
iv_key TYPE zif_abapgit_persistence=>ty_value
RETURNING
VALUE(rt_objects) TYPE tr_objects
RAISING
zcx_abapgit_exception.
ENDCLASS.
@ -213,4 +225,115 @@ CLASS ZCL_ABAPGIT_TRANSPORT IMPLEMENTATION.
iv_show_log = iv_show_log_popup ).
ENDMETHOD.
METHOD add_all_objects_to_trans_req.
DATA:
ls_request TYPE trwbo_request_header,
lt_e071 TYPE tr_objects,
lv_text TYPE string,
lv_answer TYPE char1,
lv_lock_objects TYPE trparflag.
lv_answer = zcl_abapgit_ui_factory=>get_popups( )->popup_to_confirm(
iv_titlebar = `Lock objects?`
iv_text_question = `Shall all objects be locked in the transport request?`
iv_display_cancel_button = abap_true ).
CASE lv_answer.
WHEN '1'.
lv_lock_objects = abap_true.
WHEN '2'.
lv_lock_objects = abap_false.
WHEN OTHERS.
RETURN.
ENDCASE.
lt_e071 = collect_all_objects( iv_key ).
CALL FUNCTION 'TR_REQUEST_CHOICE'
EXPORTING
it_e071 = lt_e071
iv_lock_objects = lv_lock_objects
IMPORTING
es_request = ls_request
EXCEPTIONS
invalid_request = 1
invalid_request_type = 2
user_not_owner = 3
no_objects_appended = 4
enqueue_error = 5
cancelled_by_user = 6
recursive_call = 7
OTHERS = 8.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise_t100( ).
ENDIF.
lv_text = |Objects successfully added to { ls_request-trkorr }|.
MESSAGE lv_text TYPE 'S'.
ENDMETHOD.
METHOD collect_all_objects.
DATA:
lt_objects TYPE scts_tadir,
lt_objects_all LIKE lt_objects,
lt_e071 TYPE tr_objects,
ls_e071 LIKE LINE OF lt_e071,
lo_repo TYPE REF TO zcl_abapgit_repo,
lv_package TYPE zif_abapgit_persistence=>ty_repo-package,
lt_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt.
FIELD-SYMBOLS:
<ls_package> TYPE devclass,
<ls_object> TYPE tadir.
lo_repo = zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ).
lv_package = lo_repo->get_package( ).
lt_packages = zcl_abapgit_factory=>get_sap_package( lv_package )->list_subpackages( ).
INSERT lv_package INTO TABLE lt_packages.
LOOP AT lt_packages ASSIGNING <ls_package>.
CLEAR: lt_objects.
CALL FUNCTION 'TRINT_SELECT_OBJECTS'
EXPORTING
iv_devclass = <ls_package>
iv_via_selscreen = abap_false
IMPORTING
et_objects_tadir = lt_objects
EXCEPTIONS
cancelled_by_user = 1
invalid_input = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |FM TRINT_SELECT_OBJECTS subrc={ sy-subrc }| ).
ENDIF.
INSERT LINES OF lt_objects INTO TABLE lt_objects_all.
ENDLOOP.
IF lines( lt_objects_all ) = 0.
zcx_abapgit_exception=>raise( |No objects found| ).
ENDIF.
LOOP AT lt_objects_all ASSIGNING <ls_object>.
CLEAR: ls_e071.
MOVE-CORRESPONDING <ls_object> TO ls_e071.
INSERT ls_e071 INTO TABLE rt_objects.
ENDLOOP.
ENDMETHOD.
ENDCLASS.

3
src/zif_abapgit_definitions.intf.abap
View File

@ -411,6 +411,7 @@ INTERFACE zif_abapgit_definitions
repo_purge TYPE string VALUE 'repo_purge',
repo_newonline TYPE string VALUE 'repo_newonline',
repo_newoffline TYPE string VALUE 'repo_newoffline',
repo_add_all_obj_to_trans_req TYPE string VALUE 'repo_add_all_obj_to_trans_req',
repo_remote_attach TYPE string VALUE 'repo_remote_attach',
repo_remote_detach TYPE string VALUE 'repo_remote_detach',
repo_remote_change TYPE string VALUE 'repo_remote_change',
@ -460,8 +461,8 @@ INTERFACE zif_abapgit_definitions
url TYPE string VALUE 'url',
goto_source TYPE string VALUE 'goto_source',
show_callstack TYPE string VALUE 'show_callstack',
goto_message TYPE string VALUE 'goto_message',
change_order_by TYPE string VALUE 'change_order_by',
goto_message TYPE string VALUE 'goto_message',
direction TYPE string VALUE 'direction',
END OF c_action .
CONSTANTS c_tag_prefix TYPE string VALUE 'refs/tags/' ##NO_TEXT.