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 WHEN zif_abapgit_definitions=>c_action-repo_newoffline. " New offline repo
zcl_abapgit_services_repo=>new_offline( ). zcl_abapgit_services_repo=>new_offline( ).
ev_state = zcl_abapgit_gui=>c_event_state-re_render. 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 WHEN zif_abapgit_definitions=>c_action-repo_refresh. " Repo refresh
zcl_abapgit_services_repo=>refresh( lv_key ). zcl_abapgit_services_repo=>refresh( lv_key ).
ev_state = zcl_abapgit_gui=>c_event_state-re_render. 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. METHOD build_advanced_dropdown.
DATA: 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. 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 }| ). iv_act = |{ zif_abapgit_definitions=>c_action-repo_remote_attach }?{ mv_key }| ).
ENDIF. 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' ro_advanced_dropdown->add( iv_txt = 'Syntax Check'
iv_act = |{ zif_abapgit_definitions=>c_action-repo_syntax_check }?{ mv_key }| ). iv_act = |{ zif_abapgit_definitions=>c_action-repo_syntax_check }?{ mv_key }| ).
ro_advanced_dropdown->add( iv_txt = 'Run Code Inspector' ro_advanced_dropdown->add( iv_txt = 'Run Code Inspector'

127
src/zcl_abapgit_transport.clas.abap
View File

@ -15,9 +15,14 @@ CLASS zcl_abapgit_transport DEFINITION
zcx_abapgit_exception . zcx_abapgit_exception .
CLASS-METHODS to_tadir CLASS-METHODS to_tadir
IMPORTING IMPORTING
!it_transport_headers TYPE trwbo_request_headers it_transport_headers TYPE trwbo_request_headers
RETURNING RETURNING
VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt 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 RAISING
zcx_abapgit_exception . zcx_abapgit_exception .
PROTECTED SECTION. PROTECTED SECTION.
@ -42,6 +47,13 @@ CLASS zcl_abapgit_transport DEFINITION
RAISING RAISING
zcx_abapgit_exception . zcx_abapgit_exception .
PRIVATE SECTION. 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. ENDCLASS.
@ -213,4 +225,115 @@ CLASS ZCL_ABAPGIT_TRANSPORT IMPLEMENTATION.
iv_show_log = iv_show_log_popup ). iv_show_log = iv_show_log_popup ).
ENDMETHOD. 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. ENDCLASS.

117
src/zif_abapgit_definitions.intf.abap
View File

@ -405,64 +405,65 @@ INTERFACE zif_abapgit_definitions
CONSTANTS c_author_regex TYPE string VALUE '^([\\\w\s\.\*\,\#@%\-_1-9\(\) ]+) <(.*)> (\d{10})\s?.\d{4}$' ##NO_TEXT. CONSTANTS c_author_regex TYPE string VALUE '^([\\\w\s\.\*\,\#@%\-_1-9\(\) ]+) <(.*)> (\d{10})\s?.\d{4}$' ##NO_TEXT.
CONSTANTS: CONSTANTS:
BEGIN OF c_action, BEGIN OF c_action,
repo_refresh TYPE string VALUE 'repo_refresh', repo_refresh TYPE string VALUE 'repo_refresh',
repo_remove TYPE string VALUE 'repo_remove', repo_remove TYPE string VALUE 'repo_remove',
repo_settings TYPE string VALUE 'repo_settings', repo_settings TYPE string VALUE 'repo_settings',
repo_purge TYPE string VALUE 'repo_purge', repo_purge TYPE string VALUE 'repo_purge',
repo_newonline TYPE string VALUE 'repo_newonline', repo_newonline TYPE string VALUE 'repo_newonline',
repo_newoffline TYPE string VALUE 'repo_newoffline', repo_newoffline TYPE string VALUE 'repo_newoffline',
repo_remote_attach TYPE string VALUE 'repo_remote_attach', repo_add_all_obj_to_trans_req TYPE string VALUE 'repo_add_all_obj_to_trans_req',
repo_remote_detach TYPE string VALUE 'repo_remote_detach', repo_remote_attach TYPE string VALUE 'repo_remote_attach',
repo_remote_change TYPE string VALUE 'repo_remote_change', repo_remote_detach TYPE string VALUE 'repo_remote_detach',
repo_refresh_checksums TYPE string VALUE 'repo_refresh_checksums', repo_remote_change TYPE string VALUE 'repo_remote_change',
repo_toggle_fav TYPE string VALUE 'repo_toggle_fav', repo_refresh_checksums TYPE string VALUE 'repo_refresh_checksums',
repo_transport_to_branch TYPE string VALUE 'repo_transport_to_branch', repo_toggle_fav TYPE string VALUE 'repo_toggle_fav',
repo_syntax_check TYPE string VALUE 'repo_syntax_check', repo_transport_to_branch TYPE string VALUE 'repo_transport_to_branch',
repo_code_inspector TYPE string VALUE 'repo_code_inspector', repo_syntax_check TYPE string VALUE 'repo_syntax_check',
repo_open_in_master_lang TYPE string VALUE 'repo_open_in_master_lang', repo_code_inspector TYPE string VALUE 'repo_code_inspector',
repo_log TYPE string VALUE 'repo_log', repo_open_in_master_lang TYPE string VALUE 'repo_open_in_master_lang',
abapgit_home TYPE string VALUE 'abapgit_home', repo_log TYPE string VALUE 'repo_log',
abapgit_install TYPE string VALUE 'abapgit_install', abapgit_home TYPE string VALUE 'abapgit_home',
zip_import TYPE string VALUE 'zip_import', abapgit_install TYPE string VALUE 'abapgit_install',
zip_export TYPE string VALUE 'zip_export', zip_import TYPE string VALUE 'zip_import',
zip_package TYPE string VALUE 'zip_package', zip_export TYPE string VALUE 'zip_export',
zip_transport TYPE string VALUE 'zip_transport', zip_package TYPE string VALUE 'zip_package',
zip_object TYPE string VALUE 'zip_object', zip_transport TYPE string VALUE 'zip_transport',
git_pull TYPE string VALUE 'git_pull', zip_object TYPE string VALUE 'zip_object',
git_reset TYPE string VALUE 'git_reset', git_pull TYPE string VALUE 'git_pull',
git_branch_create TYPE string VALUE 'git_branch_create', git_reset TYPE string VALUE 'git_reset',
git_branch_switch TYPE string VALUE 'git_branch_switch', git_branch_create TYPE string VALUE 'git_branch_create',
git_branch_delete TYPE string VALUE 'git_branch_delete', git_branch_switch TYPE string VALUE 'git_branch_switch',
git_tag_create TYPE string VALUE 'git_tag_create', git_branch_delete TYPE string VALUE 'git_branch_delete',
git_tag_delete TYPE string VALUE 'git_tag_delete', git_tag_create TYPE string VALUE 'git_tag_create',
git_tag_switch TYPE string VALUE 'git_tag_switch', git_tag_delete TYPE string VALUE 'git_tag_delete',
git_commit TYPE string VALUE 'git_commit', git_tag_switch TYPE string VALUE 'git_tag_switch',
db_display TYPE string VALUE 'db_display', git_commit TYPE string VALUE 'git_commit',
db_edit TYPE string VALUE 'db_edit', db_display TYPE string VALUE 'db_display',
bg_update TYPE string VALUE 'bg_update', db_edit TYPE string VALUE 'db_edit',
go_explore TYPE string VALUE 'go_explore', bg_update TYPE string VALUE 'bg_update',
go_repo_overview TYPE string VALUE 'go_repo_overview', go_explore TYPE string VALUE 'go_explore',
go_db TYPE string VALUE 'go_db', go_repo_overview TYPE string VALUE 'go_repo_overview',
go_background TYPE string VALUE 'go_background', go_db TYPE string VALUE 'go_db',
go_background_run TYPE string VALUE 'go_background_run', go_background TYPE string VALUE 'go_background',
go_diff TYPE string VALUE 'go_diff', go_background_run TYPE string VALUE 'go_background_run',
go_stage TYPE string VALUE 'go_stage', go_diff TYPE string VALUE 'go_diff',
go_commit TYPE string VALUE 'go_commit', go_stage TYPE string VALUE 'go_stage',
go_branch_overview TYPE string VALUE 'go_branch_overview', go_commit TYPE string VALUE 'go_commit',
go_tag_overview TYPE string VALUE 'go_tag_overview', go_branch_overview TYPE string VALUE 'go_branch_overview',
go_playground TYPE string VALUE 'go_playground', go_tag_overview TYPE string VALUE 'go_tag_overview',
go_debuginfo TYPE string VALUE 'go_debuginfo', go_playground TYPE string VALUE 'go_playground',
go_settings TYPE string VALUE 'go_settings', go_debuginfo TYPE string VALUE 'go_debuginfo',
go_tutorial TYPE string VALUE 'go_tutorial', go_settings TYPE string VALUE 'go_settings',
go_patch TYPE string VALUE 'go_patch', go_tutorial TYPE string VALUE 'go_tutorial',
jump TYPE string VALUE 'jump', go_patch TYPE string VALUE 'go_patch',
jump_transport TYPE string VALUE 'jump_transport', jump TYPE string VALUE 'jump',
url TYPE string VALUE 'url', jump_transport TYPE string VALUE 'jump_transport',
goto_source TYPE string VALUE 'goto_source', url TYPE string VALUE 'url',
show_callstack TYPE string VALUE 'show_callstack', goto_source TYPE string VALUE 'goto_source',
goto_message TYPE string VALUE 'goto_message', show_callstack TYPE string VALUE 'show_callstack',
change_order_by TYPE string VALUE 'change_order_by', change_order_by TYPE string VALUE 'change_order_by',
direction TYPE string VALUE 'direction', goto_message TYPE string VALUE 'goto_message',
direction TYPE string VALUE 'direction',
END OF c_action . END OF c_action .
CONSTANTS c_tag_prefix TYPE string VALUE 'refs/tags/' ##NO_TEXT. CONSTANTS c_tag_prefix TYPE string VALUE 'refs/tags/' ##NO_TEXT.
CONSTANTS c_spagpa_param_repo_key TYPE char20 VALUE 'REPO_KEY' ##NO_TEXT. CONSTANTS c_spagpa_param_repo_key TYPE char20 VALUE 'REPO_KEY' ##NO_TEXT.