diff --git a/changelog.txt b/changelog.txt index 6cabba47f..62f52c34a 100644 --- a/changelog.txt +++ b/changelog.txt @@ -8,6 +8,15 @@ Legend + : added - : removed +2017-01-22 v1.26.0 +------------------ ++ XML ignore initial fields ++ Newline added to end of all ABAP code + +2017-01-22 v1.25.2 +------------------ ++ Possibility to set max number of objects in list + 2016-12-01 v1.24.0 ------------------ + abap syntax highlighting diff --git a/src/zabapgit.prog.abap b/src/zabapgit.prog.abap index ce60c9815..1c7a15d73 100644 --- a/src/zabapgit.prog.abap +++ b/src/zabapgit.prog.abap @@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100. * See http://www.abapgit.org CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT - gc_abap_version TYPE string VALUE 'v1.25.0'. "#EC NOTEXT + gc_abap_version TYPE string VALUE 'v1.26.0'. "#EC NOTEXT ******************************************************************************** * The MIT License (MIT) @@ -102,4 +102,4 @@ AT SELECTION-SCREEN ON EXIT-COMMAND. AT SELECTION-SCREEN. IF sy-dynnr = lcl_password_dialog=>dynnr. lcl_password_dialog=>on_screen_event( sscrfields-ucomm ). - ENDIF. \ No newline at end of file + ENDIF. diff --git a/src/zabapgit.prog.xml b/src/zabapgit.prog.xml index aed90ce00..b47a5359e 100644 --- a/src/zabapgit.prog.xml +++ b/src/zabapgit.prog.xml @@ -5,32 +5,10 @@ ZABAPGIT A - - X S - - - - 1 - - - - 0000-00-00 - - 0000-00-00 - - - - - X - - 0000-00-00 - - 0000-00-00 - D$S X @@ -38,10 +16,8 @@ R - abapGit 7 - diff --git a/src/zabapgit.tran.xml b/src/zabapgit.tran.xml index dee3f4873..6e5c39b16 100644 --- a/src/zabapgit.tran.xml +++ b/src/zabapgit.tran.xml @@ -6,20 +6,13 @@ ZABAPGIT ZABAPGIT 1000 - gA== - ZABAPGIT 1 X X - - - - - E diff --git a/src/zabapgit_app.prog.abap b/src/zabapgit_app.prog.abap index 26f17a1b2..f6ea82515 100644 --- a/src/zabapgit_app.prog.abap +++ b/src/zabapgit_app.prog.abap @@ -42,4 +42,4 @@ CLASS lcl_app DEFINITION FINAL. go_repo_srv TYPE REF TO lcl_repo_srv, go_settings TYPE REF TO lcl_persistence_settings. -ENDCLASS. "lcl_app \ No newline at end of file +ENDCLASS. "lcl_app diff --git a/src/zabapgit_app.prog.xml b/src/zabapgit_app.prog.xml index bdb2a00f4..406a57fbc 100644 --- a/src/zabapgit_app.prog.xml +++ b/src/zabapgit_app.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_APP A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_APP 20 - diff --git a/src/zabapgit_app_impl.prog.abap b/src/zabapgit_app_impl.prog.abap index 9af5079b0..f41691290 100644 --- a/src/zabapgit_app_impl.prog.abap +++ b/src/zabapgit_app_impl.prog.abap @@ -67,4 +67,4 @@ CLASS lcl_app IMPLEMENTATION. ro_settings = go_settings. ENDMETHOD. -ENDCLASS. "lcl_app \ No newline at end of file +ENDCLASS. "lcl_app diff --git a/src/zabapgit_app_impl.prog.xml b/src/zabapgit_app_impl.prog.xml index a0840230e..ee0d07361 100644 --- a/src/zabapgit_app_impl.prog.xml +++ b/src/zabapgit_app_impl.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_APP_IMPL A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_APP_IMPL 25 - diff --git a/src/zabapgit_background.prog.abap b/src/zabapgit_background.prog.abap index 21fce22bf..1b3368c04 100644 --- a/src/zabapgit_background.prog.abap +++ b/src/zabapgit_background.prog.abap @@ -229,4 +229,4 @@ CLASS lcl_background IMPLEMENTATION. ENDMETHOD. -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_background.prog.xml b/src/zabapgit_background.prog.xml index 0ac646b8b..c3c16b84d 100644 --- a/src/zabapgit_background.prog.xml +++ b/src/zabapgit_background.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_BACKGROUND A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_BACKGROUND 27 - diff --git a/src/zabapgit_definitions.prog.abap b/src/zabapgit_definitions.prog.abap index e8612e1b6..478591319 100644 --- a/src/zabapgit_definitions.prog.abap +++ b/src/zabapgit_definitions.prog.abap @@ -229,4 +229,4 @@ CONSTANTS: BEGIN OF gc_action, go_tutorial TYPE string VALUE 'go_tutorial', jump TYPE string VALUE 'jump', jump_pkg TYPE string VALUE 'jump_pkg', - END OF gc_action. \ No newline at end of file + END OF gc_action. diff --git a/src/zabapgit_definitions.prog.xml b/src/zabapgit_definitions.prog.xml index 6ed0ef3cc..f18279278 100644 --- a/src/zabapgit_definitions.prog.xml +++ b/src/zabapgit_definitions.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_DEFINITIONS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_DEFINITIONS 28 - diff --git a/src/zabapgit_dot_abapgit.prog.abap b/src/zabapgit_dot_abapgit.prog.abap index 36d823007..24f95ac35 100644 --- a/src/zabapgit_dot_abapgit.prog.abap +++ b/src/zabapgit_dot_abapgit.prog.abap @@ -219,4 +219,4 @@ CLASS lcl_dot_abapgit IMPLEMENTATION. ENDMETHOD. "get_signature -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_dot_abapgit.prog.xml b/src/zabapgit_dot_abapgit.prog.xml index 4225cb8d0..2bb3d0990 100644 --- a/src/zabapgit_dot_abapgit.prog.xml +++ b/src/zabapgit_dot_abapgit.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_DOT_ABAPGIT A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_DOT_ABAPGIT 28 - diff --git a/src/zabapgit_exceptions.prog.abap b/src/zabapgit_exceptions.prog.abap index 076cbd371..8302f029e 100644 --- a/src/zabapgit_exceptions.prog.abap +++ b/src/zabapgit_exceptions.prog.abap @@ -67,4 +67,4 @@ ENDCLASS. "lcx_cancel DEFINITION *----------------------------------------------------------------------* CLASS lcx_cancel IMPLEMENTATION. -ENDCLASS. "lcx_cancel IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcx_cancel IMPLEMENTATION diff --git a/src/zabapgit_exceptions.prog.xml b/src/zabapgit_exceptions.prog.xml index 86be0fe8d..de71cb87e 100644 --- a/src/zabapgit_exceptions.prog.xml +++ b/src/zabapgit_exceptions.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_EXCEPTIONS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_EXCEPTIONS 27 - diff --git a/src/zabapgit_file_status.prog.abap b/src/zabapgit_file_status.prog.abap index d30919b97..c81453dae 100644 --- a/src/zabapgit_file_status.prog.abap +++ b/src/zabapgit_file_status.prog.abap @@ -21,7 +21,8 @@ CLASS lcl_file_status DEFINITION FINAL PRIVATE SECTION. CLASS-METHODS calculate_status - IMPORTING it_local TYPE ty_files_item_tt + IMPORTING iv_devclass TYPE devclass + it_local TYPE ty_files_item_tt it_remote TYPE ty_files_tt it_cur_state TYPE ty_file_signatures_tt RETURNING VALUE(rt_results) TYPE ty_results_tt. @@ -36,7 +37,8 @@ CLASS lcl_file_status DEFINITION FINAL IMPORTING is_local TYPE ty_file_item RETURNING VALUE(rs_result) TYPE ty_result, build_new_remote - IMPORTING is_remote TYPE ty_file + IMPORTING iv_devclass TYPE devclass + is_remote TYPE ty_file it_items TYPE ty_items_ts it_state TYPE ty_file_signatures_ts RETURNING VALUE(rs_result) TYPE ty_result, @@ -61,7 +63,9 @@ CLASS lcl_file_status IMPLEMENTATION. rt_results = calculate_status( - it_local = io_repo->get_files_local( io_log ) + + iv_devclass = io_repo->get_package( ) + it_local = io_repo->get_files_local( io_log = io_log ) it_remote = io_repo->get_files_remote( ) it_cur_state = io_repo->get_local_checksums_per_file( ) ). @@ -147,9 +151,10 @@ CLASS lcl_file_status IMPLEMENTATION. " Process new remote files (marked above with empty SHA1) LOOP AT lt_remote ASSIGNING WHERE sha1 IS NOT INITIAL. APPEND INITIAL LINE TO rt_results ASSIGNING . - = build_new_remote( is_remote = - it_items = lt_items_idx - it_state = lt_state_idx ). + = build_new_remote( iv_devclass = iv_devclass + is_remote = + it_items = lt_items_idx + it_state = lt_state_idx ). ENDLOOP. SORT rt_results BY @@ -278,7 +283,8 @@ CLASS lcl_file_status IMPLEMENTATION. ENDIF. " Item is in state and in cache but with no package - it was deleted - IF ls_item-devclass IS INITIAL. + " OR devclass is the same as repo package (see #532) + IF ls_item-devclass IS INITIAL OR ls_item-devclass = iv_devclass. rs_result-match = abap_false. rs_result-lstate = gc_state-deleted. ENDIF. @@ -290,4 +296,4 @@ CLASS lcl_file_status IMPLEMENTATION. ENDMETHOD. "build_new_remote -ENDCLASS. "lcl_file_status IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_file_status IMPLEMENTATION diff --git a/src/zabapgit_file_status.prog.xml b/src/zabapgit_file_status.prog.xml index d4e829924..d137f4325 100644 --- a/src/zabapgit_file_status.prog.xml +++ b/src/zabapgit_file_status.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_FILE_STATUS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_FILE_STATUS 28 - diff --git a/src/zabapgit_forms.prog.abap b/src/zabapgit_forms.prog.abap index d40ba19e7..ce245c1f1 100644 --- a/src/zabapgit_forms.prog.abap +++ b/src/zabapgit_forms.prog.abap @@ -139,4 +139,4 @@ FORM exit RAISING lcx_exception. LEAVE TO SCREEN 1001. ENDIF. ENDCASE. -ENDFORM. \ No newline at end of file +ENDFORM. diff --git a/src/zabapgit_forms.prog.xml b/src/zabapgit_forms.prog.xml index d5f46747a..21eb950e5 100644 --- a/src/zabapgit_forms.prog.xml +++ b/src/zabapgit_forms.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_FORMS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_FORMS 22 - diff --git a/src/zabapgit_git.prog.abap b/src/zabapgit_git.prog.abap index 60f81a2db..42d46cee5 100644 --- a/src/zabapgit_git.prog.abap +++ b/src/zabapgit_git.prog.abap @@ -261,6 +261,8 @@ CLASS lcl_git_transport IMPLEMENTATION. lcx_exception=>raise( 'unpack not ok' ). ELSEIF lv_string CP '*pre-receive hook declined*'. lcx_exception=>raise( 'pre-receive hook declined' ). + ELSEIF lv_string CP '*funny refname*'. + lcx_exception=>raise( 'funny refname' ). ENDIF. ENDMETHOD. "receive_pack @@ -1581,4 +1583,4 @@ CLASS lcl_git_porcelain IMPLEMENTATION. ENDMETHOD. "walk -ENDCLASS. "lcl_porcelain IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_porcelain IMPLEMENTATION diff --git a/src/zabapgit_git.prog.xml b/src/zabapgit_git.prog.xml index 8e3e91b43..829207dc7 100644 --- a/src/zabapgit_git.prog.xml +++ b/src/zabapgit_git.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_GIT A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_GIT 20 - diff --git a/src/zabapgit_git_helpers.prog.abap b/src/zabapgit_git_helpers.prog.abap index 257730392..3d7353882 100644 --- a/src/zabapgit_git_helpers.prog.abap +++ b/src/zabapgit_git_helpers.prog.abap @@ -352,4 +352,4 @@ CLASS lcl_git_branch_list IMPLEMENTATION. ENDMETHOD. " normalize_branch_name. -ENDCLASS. "lcl_git_branch_list \ No newline at end of file +ENDCLASS. "lcl_git_branch_list diff --git a/src/zabapgit_git_helpers.prog.xml b/src/zabapgit_git_helpers.prog.xml index 486b646d6..1f1c5039f 100644 --- a/src/zabapgit_git_helpers.prog.xml +++ b/src/zabapgit_git_helpers.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_GIT_HELPERS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_GIT_HELPERS 28 - diff --git a/src/zabapgit_gui.prog.abap b/src/zabapgit_gui.prog.abap index b5397ea7d..5cf394f57 100644 --- a/src/zabapgit_gui.prog.abap +++ b/src/zabapgit_gui.prog.abap @@ -325,4 +325,4 @@ CLASS lcl_gui IMPLEMENTATION. ENDMETHOD. "get_current_page_name -ENDCLASS. "lcl_gui IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_gui IMPLEMENTATION diff --git a/src/zabapgit_gui.prog.xml b/src/zabapgit_gui.prog.xml index ed4afb635..99e351529 100644 --- a/src/zabapgit_gui.prog.xml +++ b/src/zabapgit_gui.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_GUI A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_GUI 20 - diff --git a/src/zabapgit_gui_asset_manager.prog.abap b/src/zabapgit_gui_asset_manager.prog.abap index c1419eb12..95b2d0aa1 100644 --- a/src/zabapgit_gui_asset_manager.prog.abap +++ b/src/zabapgit_gui_asset_manager.prog.abap @@ -266,4 +266,4 @@ CLASS lcl_gui_asset_manager IMPLEMENTATION. ENDMETHOD. " get_webfont_link -ENDCLASS. "lcl_gui_asset_manager \ No newline at end of file +ENDCLASS. "lcl_gui_asset_manager diff --git a/src/zabapgit_gui_asset_manager.prog.xml b/src/zabapgit_gui_asset_manager.prog.xml index bcab6cac1..f80a3d729 100644 --- a/src/zabapgit_gui_asset_manager.prog.xml +++ b/src/zabapgit_gui_asset_manager.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_GUI_ASSET_MANAGER A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_GUI_ASSET_MANAGER 34 - diff --git a/src/zabapgit_gui_pages.prog.abap b/src/zabapgit_gui_pages.prog.abap index 2d5b77f67..9d3c60c7c 100644 --- a/src/zabapgit_gui_pages.prog.abap +++ b/src/zabapgit_gui_pages.prog.abap @@ -28,4 +28,4 @@ INCLUDE zabapgit_page_explore. INCLUDE zabapgit_page_main. INCLUDE zabapgit_page_stage. INCLUDE zabapgit_page_debug. -INCLUDE zabapgit_page_settings. \ No newline at end of file +INCLUDE zabapgit_page_settings. diff --git a/src/zabapgit_gui_pages.prog.xml b/src/zabapgit_gui_pages.prog.xml index 068beb75a..e96a5afbe 100644 --- a/src/zabapgit_gui_pages.prog.xml +++ b/src/zabapgit_gui_pages.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_GUI_PAGES A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_GUI_PAGES 26 - diff --git a/src/zabapgit_gui_router.prog.abap b/src/zabapgit_gui_router.prog.abap index 3c259c095..c70393e4a 100644 --- a/src/zabapgit_gui_router.prog.abap +++ b/src/zabapgit_gui_router.prog.abap @@ -342,4 +342,4 @@ CLASS lcl_gui_router IMPLEMENTATION. ENDMETHOD. "get_page_playground -ENDCLASS. " lcl_gui_router \ No newline at end of file +ENDCLASS. " lcl_gui_router diff --git a/src/zabapgit_gui_router.prog.xml b/src/zabapgit_gui_router.prog.xml index 554bbc558..4330cfa4f 100644 --- a/src/zabapgit_gui_router.prog.xml +++ b/src/zabapgit_gui_router.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_GUI_ROUTER A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_GUI_ROUTER 27 - diff --git a/src/zabapgit_html.prog.abap b/src/zabapgit_html.prog.abap index 340f7fadb..b78ebff3e 100644 --- a/src/zabapgit_html.prog.abap +++ b/src/zabapgit_html.prog.abap @@ -418,4 +418,4 @@ CLASS lcl_html_toolbar IMPLEMENTATION. ENDMETHOD. "render -ENDCLASS. "lcl_html_toolbar IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_html_toolbar IMPLEMENTATION diff --git a/src/zabapgit_html.prog.xml b/src/zabapgit_html.prog.xml index 60fedebc9..722e3f464 100644 --- a/src/zabapgit_html.prog.xml +++ b/src/zabapgit_html.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_HTML A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_HTML 21 - diff --git a/src/zabapgit_html_action_utils.prog.abap b/src/zabapgit_html_action_utils.prog.abap index df57ea389..8de0a7462 100644 --- a/src/zabapgit_html_action_utils.prog.abap +++ b/src/zabapgit_html_action_utils.prog.abap @@ -326,4 +326,4 @@ CLASS lcl_html_action_utils IMPLEMENTATION. ENDMETHOD. "decode_bg_update -ENDCLASS. "lcl_html_action_utils IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_html_action_utils IMPLEMENTATION diff --git a/src/zabapgit_html_action_utils.prog.xml b/src/zabapgit_html_action_utils.prog.xml index a83a04c8a..83227eaaa 100644 --- a/src/zabapgit_html_action_utils.prog.xml +++ b/src/zabapgit_html_action_utils.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_HTML_ACTION_UTILS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_HTML_ACTION_UTILS 34 - diff --git a/src/zabapgit_html_chunks.prog.abap b/src/zabapgit_html_chunks.prog.abap index 0161e66dd..0b5780749 100644 --- a/src/zabapgit_html_chunks.prog.abap +++ b/src/zabapgit_html_chunks.prog.abap @@ -202,4 +202,4 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION. ENDMETHOD. "render_error -ENDCLASS. "lcl_gui_chunk_lib \ No newline at end of file +ENDCLASS. "lcl_gui_chunk_lib diff --git a/src/zabapgit_html_chunks.prog.xml b/src/zabapgit_html_chunks.prog.xml index e668d34ba..f469b1b49 100644 --- a/src/zabapgit_html_chunks.prog.xml +++ b/src/zabapgit_html_chunks.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_HTML_CHUNKS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_HTML_CHUNKS 28 - diff --git a/src/zabapgit_http.prog.abap b/src/zabapgit_http.prog.abap index 1f08d18f5..11c1fb551 100644 --- a/src/zabapgit_http.prog.abap +++ b/src/zabapgit_http.prog.abap @@ -517,4 +517,4 @@ CLASS lcl_http IMPLEMENTATION. ENDMETHOD. "acquire_login_details -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_http.prog.xml b/src/zabapgit_http.prog.xml index e17d9183e..916ca0370 100644 --- a/src/zabapgit_http.prog.xml +++ b/src/zabapgit_http.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_HTTP A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_HTTP 21 - diff --git a/src/zabapgit_macros.prog.abap b/src/zabapgit_macros.prog.abap index 5bf603e19..ddb8c245e 100644 --- a/src/zabapgit_macros.prog.abap +++ b/src/zabapgit_macros.prog.abap @@ -20,4 +20,4 @@ DEFINE _object_check_timestamp. rv_changed = abap_true. RETURN. ENDIF. -END-OF-DEFINITION. \ No newline at end of file +END-OF-DEFINITION. diff --git a/src/zabapgit_macros.prog.xml b/src/zabapgit_macros.prog.xml index 0e9ebfa35..0859bb7e0 100644 --- a/src/zabapgit_macros.prog.xml +++ b/src/zabapgit_macros.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_MACROS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_MACROS 23 - diff --git a/src/zabapgit_migrations.prog.abap b/src/zabapgit_migrations.prog.abap index 1ecd6dae0..cf708f7d1 100644 --- a/src/zabapgit_migrations.prog.abap +++ b/src/zabapgit_migrations.prog.abap @@ -90,4 +90,4 @@ CLASS lcl_migrations IMPLEMENTATION. ENDMETHOD. " rebuild_local_checksums_20161112. -ENDCLASS. "lcl_migrations \ No newline at end of file +ENDCLASS. "lcl_migrations diff --git a/src/zabapgit_migrations.prog.xml b/src/zabapgit_migrations.prog.xml index 69876d498..188245fd5 100644 --- a/src/zabapgit_migrations.prog.xml +++ b/src/zabapgit_migrations.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_MIGRATIONS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_MIGRATIONS 27 - diff --git a/src/zabapgit_object_acid.prog.abap b/src/zabapgit_object_acid.prog.abap index e65983ce0..24c2d9c50 100644 --- a/src/zabapgit_object_acid.prog.abap +++ b/src/zabapgit_object_acid.prog.abap @@ -152,4 +152,4 @@ CLASS lcl_object_acid IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_acid IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_acid IMPLEMENTATION diff --git a/src/zabapgit_object_acid.prog.xml b/src/zabapgit_object_acid.prog.xml index 8c047a765..5d51af2d2 100644 --- a/src/zabapgit_object_acid.prog.xml +++ b/src/zabapgit_object_acid.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_ACID A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_ACID 28 - diff --git a/src/zabapgit_object_auth.prog.abap b/src/zabapgit_object_auth.prog.abap index f772b72ce..92b7a294f 100644 --- a/src/zabapgit_object_auth.prog.abap +++ b/src/zabapgit_object_auth.prog.abap @@ -123,4 +123,4 @@ CLASS lcl_object_auth IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_auth IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_auth IMPLEMENTATION diff --git a/src/zabapgit_object_auth.prog.xml b/src/zabapgit_object_auth.prog.xml index 9206032e1..e25a487be 100644 --- a/src/zabapgit_object_auth.prog.xml +++ b/src/zabapgit_object_auth.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_AUTH A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_AUTH 28 - diff --git a/src/zabapgit_object_clas.prog.abap b/src/zabapgit_object_clas.prog.abap index 2ecece5c7..ea8794c50 100644 --- a/src/zabapgit_object_clas.prog.abap +++ b/src/zabapgit_object_clas.prog.abap @@ -1298,4 +1298,4 @@ CLASS lcl_object_intf IMPLEMENTATION. iv_skip_gui = abap_true ). ENDMETHOD. -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_object_clas.prog.xml b/src/zabapgit_object_clas.prog.xml index 5b52c65de..7299c946b 100644 --- a/src/zabapgit_object_clas.prog.xml +++ b/src/zabapgit_object_clas.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_CLAS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_CLAS 28 - diff --git a/src/zabapgit_object_doct.prog.abap b/src/zabapgit_object_doct.prog.abap index 76ed284a4..250730cd6 100644 --- a/src/zabapgit_object_doct.prog.abap +++ b/src/zabapgit_object_doct.prog.abap @@ -155,4 +155,4 @@ CLASS lcl_object_doct IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_msag IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_msag IMPLEMENTATION diff --git a/src/zabapgit_object_doct.prog.xml b/src/zabapgit_object_doct.prog.xml index 6cf5b9d7b..1a330c342 100644 --- a/src/zabapgit_object_doct.prog.xml +++ b/src/zabapgit_object_doct.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_DOCT A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_DOCT 28 - diff --git a/src/zabapgit_object_docv.prog.abap b/src/zabapgit_object_docv.prog.abap index c54655a2e..ef3374284 100644 --- a/src/zabapgit_object_docv.prog.abap +++ b/src/zabapgit_object_docv.prog.abap @@ -159,4 +159,4 @@ CLASS lcl_object_docv IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_msag IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_msag IMPLEMENTATION diff --git a/src/zabapgit_object_docv.prog.xml b/src/zabapgit_object_docv.prog.xml index 89a002ba1..f35b5a0a3 100644 --- a/src/zabapgit_object_docv.prog.xml +++ b/src/zabapgit_object_docv.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_DOCV A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_DOCT 28 - diff --git a/src/zabapgit_object_doma.prog.abap b/src/zabapgit_object_doma.prog.abap index cd24e26e9..53eacb1c6 100644 --- a/src/zabapgit_object_doma.prog.abap +++ b/src/zabapgit_object_doma.prog.abap @@ -363,4 +363,4 @@ CLASS lcl_object_doma IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_doma IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_doma IMPLEMENTATION diff --git a/src/zabapgit_object_doma.prog.xml b/src/zabapgit_object_doma.prog.xml index fe2045f3b..c9433ef8d 100644 --- a/src/zabapgit_object_doma.prog.xml +++ b/src/zabapgit_object_doma.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_DOMA A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_DOMA 28 - diff --git a/src/zabapgit_object_dtel.prog.abap b/src/zabapgit_object_dtel.prog.abap index 508d59316..bb8cf957f 100644 --- a/src/zabapgit_object_dtel.prog.abap +++ b/src/zabapgit_object_dtel.prog.abap @@ -319,4 +319,4 @@ CLASS lcl_object_dtel IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_dtel IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_dtel IMPLEMENTATION diff --git a/src/zabapgit_object_dtel.prog.xml b/src/zabapgit_object_dtel.prog.xml index f27be3dc9..7993eff31 100644 --- a/src/zabapgit_object_dtel.prog.xml +++ b/src/zabapgit_object_dtel.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_DTEL A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_DTEL 28 - diff --git a/src/zabapgit_object_enho.prog.abap b/src/zabapgit_object_enho.prog.abap index 3515f207c..4df55118e 100644 --- a/src/zabapgit_object_enho.prog.abap +++ b/src/zabapgit_object_enho.prog.abap @@ -1055,4 +1055,4 @@ CLASS lcl_object_enho IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. "lif_object~compare_to_remote_version -ENDCLASS. "lcl_object_enho IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_enho IMPLEMENTATION diff --git a/src/zabapgit_object_enho.prog.xml b/src/zabapgit_object_enho.prog.xml index 5e8fde11e..506c910ff 100644 --- a/src/zabapgit_object_enho.prog.xml +++ b/src/zabapgit_object_enho.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_ENHO A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_ENHO 28 - diff --git a/src/zabapgit_object_enhs.prog.abap b/src/zabapgit_object_enhs.prog.abap index e3e021e3a..623d4dbbd 100644 --- a/src/zabapgit_object_enhs.prog.abap +++ b/src/zabapgit_object_enhs.prog.abap @@ -215,4 +215,4 @@ CLASS lcl_object_enhs IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_enhs \ No newline at end of file +ENDCLASS. "lcl_object_enhs diff --git a/src/zabapgit_object_enhs.prog.xml b/src/zabapgit_object_enhs.prog.xml index aba2f76bd..afb39dbdc 100644 --- a/src/zabapgit_object_enhs.prog.xml +++ b/src/zabapgit_object_enhs.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_ENHS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_ENHS 28 - diff --git a/src/zabapgit_object_enqu.prog.abap b/src/zabapgit_object_enqu.prog.abap index 43ba2a3db..0daf862d9 100644 --- a/src/zabapgit_object_enqu.prog.abap +++ b/src/zabapgit_object_enqu.prog.abap @@ -187,4 +187,4 @@ CLASS lcl_object_enqu IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_enqu IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_enqu IMPLEMENTATION diff --git a/src/zabapgit_object_enqu.prog.xml b/src/zabapgit_object_enqu.prog.xml index 205e9f4bd..0b58488cc 100644 --- a/src/zabapgit_object_enqu.prog.xml +++ b/src/zabapgit_object_enqu.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_ENQU A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_ENUQ 28 - diff --git a/src/zabapgit_object_ensc.prog.abap b/src/zabapgit_object_ensc.prog.abap index cc29f012f..c7bdc0a8b 100644 --- a/src/zabapgit_object_ensc.prog.abap +++ b/src/zabapgit_object_ensc.prog.abap @@ -194,4 +194,4 @@ CLASS lcl_object_ensc IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_ensc \ No newline at end of file +ENDCLASS. "lcl_object_ensc diff --git a/src/zabapgit_object_ensc.prog.xml b/src/zabapgit_object_ensc.prog.xml index 24fe588db..735d6a196 100644 --- a/src/zabapgit_object_ensc.prog.xml +++ b/src/zabapgit_object_ensc.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_ENSC A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_ENSC 28 - diff --git a/src/zabapgit_object_fugr.prog.abap b/src/zabapgit_object_fugr.prog.abap index 2b988430b..63a63ab96 100644 --- a/src/zabapgit_object_fugr.prog.abap +++ b/src/zabapgit_object_fugr.prog.abap @@ -17,19 +17,20 @@ CLASS lcl_object_fugr DEFINITION INHERITING FROM lcl_objects_program FINAL. TYPES: ty_rs38l_incl_tt TYPE STANDARD TABLE OF rs38l_incl WITH DEFAULT KEY. TYPES: BEGIN OF ty_function, - funcname TYPE rs38l_fnam, - include TYPE progname, - global_flag TYPE rs38l-global, - remote_call TYPE rs38l-remote, - update_task TYPE rs38l-utask, - short_text TYPE tftit-stext, - remote_basxml TYPE rs38l-basxml_enabled, - import TYPE STANDARD TABLE OF rsimp WITH DEFAULT KEY, - changing TYPE STANDARD TABLE OF rscha WITH DEFAULT KEY, - export TYPE STANDARD TABLE OF rsexp WITH DEFAULT KEY, - tables TYPE STANDARD TABLE OF rstbl WITH DEFAULT KEY, - exception TYPE STANDARD TABLE OF rsexc WITH DEFAULT KEY, - documentation TYPE STANDARD TABLE OF rsfdo WITH DEFAULT KEY, + funcname TYPE rs38l_fnam, + include TYPE progname, + global_flag TYPE rs38l-global, + remote_call TYPE rs38l-remote, + update_task TYPE rs38l-utask, + short_text TYPE tftit-stext, + remote_basxml TYPE rs38l-basxml_enabled, + import TYPE STANDARD TABLE OF rsimp WITH DEFAULT KEY, + changing TYPE STANDARD TABLE OF rscha WITH DEFAULT KEY, + export TYPE STANDARD TABLE OF rsexp WITH DEFAULT KEY, + tables TYPE STANDARD TABLE OF rstbl WITH DEFAULT KEY, + exception TYPE STANDARD TABLE OF rsexc WITH DEFAULT KEY, + documentation TYPE STANDARD TABLE OF rsfdo WITH DEFAULT KEY, + exception_classes TYPE abap_bool, END OF ty_function. TYPES: ty_function_tt TYPE STANDARD TABLE OF ty_function WITH DEFAULT KEY. @@ -71,6 +72,11 @@ CLASS lcl_object_fugr DEFINITION INHERITING FROM lcl_objects_program FINAL. iv_package TYPE devclass RAISING lcx_exception. + METHODS are_exceptions_class_based + IMPORTING iv_function_name TYPE rs38l_fnam + RETURNING VALUE(rv_return) TYPE abap_bool + RAISING lcx_exception. + ENDCLASS. "lcl_object_fugr DEFINITION *----------------------------------------------------------------------* @@ -247,6 +253,7 @@ CLASS lcl_object_fugr IMPLEMENTATION. remote_call = -remote_call short_text = -short_text update_task = -update_task + exception_class = -exception_classes * NAMESPACE = ' ' todo remote_basxml_supported = -remote_basxml IMPORTING @@ -276,10 +283,6 @@ CLASS lcl_object_fugr IMPLEMENTATION. ENDIF. INSERT REPORT lv_include FROM lt_source. - -* lcl_objects_activation=>add( iv_type = 'FUNC' -* iv_name = -funcname ). - ENDLOOP. ENDMETHOD. "deserialize_functions @@ -537,7 +540,7 @@ CLASS lcl_object_fugr IMPLEMENTATION. lt_source TYPE TABLE OF rssource, lt_functab TYPE ty_rs38l_incl_tt, lt_new_source TYPE rsfb_source, - ls_ret LIKE LINE OF rt_functions. + ls_function LIKE LINE OF rt_functions. FIELD-SYMBOLS: LIKE LINE OF lt_functab. @@ -547,8 +550,8 @@ CLASS lcl_object_fugr IMPLEMENTATION. LOOP AT lt_functab ASSIGNING . * fm RPY_FUNCTIONMODULE_READ does not support source code * lines longer than 72 characters - CLEAR ls_ret. - MOVE-CORRESPONDING TO ls_ret. + CLEAR ls_function. + MOVE-CORRESPONDING TO ls_function. CLEAR lt_new_source. CLEAR lt_source. @@ -557,18 +560,18 @@ CLASS lcl_object_fugr IMPLEMENTATION. EXPORTING functionname = -funcname IMPORTING - global_flag = ls_ret-global_flag - remote_call = ls_ret-remote_call - update_task = ls_ret-update_task - short_text = ls_ret-short_text - remote_basxml_supported = ls_ret-remote_basxml + global_flag = ls_function-global_flag + remote_call = ls_function-remote_call + update_task = ls_function-update_task + short_text = ls_function-short_text + remote_basxml_supported = ls_function-remote_basxml TABLES - import_parameter = ls_ret-import - changing_parameter = ls_ret-changing - export_parameter = ls_ret-export - tables_parameter = ls_ret-tables - exception_list = ls_ret-exception - documentation = ls_ret-documentation + import_parameter = ls_function-import + changing_parameter = ls_function-changing + export_parameter = ls_function-export + tables_parameter = ls_function-tables + exception_list = ls_function-exception + documentation = ls_function-documentation source = lt_source CHANGING new_source = lt_new_source @@ -583,7 +586,9 @@ CLASS lcl_object_fugr IMPLEMENTATION. lcx_exception=>raise( 'Error from RPY_FUNCTIONMODULE_READ_NEW' ). ENDIF. - APPEND ls_ret TO rt_functions. + ls_function-exception_classes = are_exceptions_class_based( -funcname ). + + APPEND ls_function TO rt_functions. IF NOT lt_new_source IS INITIAL. mo_files->add_abap( iv_extra = -funcname @@ -618,6 +623,35 @@ CLASS lcl_object_fugr IMPLEMENTATION. ENDMETHOD. "serialize_includes + METHOD are_exceptions_class_based. + DATA: + lt_dokumentation TYPE TABLE OF funct, + lt_exception_list TYPE TABLE OF rsexc, + lt_export_parameter TYPE TABLE OF rsexp, + lt_import_parameter TYPE TABLE OF rsimp, + lt_tables_parameter TYPE TABLE OF rstbl. + + CALL FUNCTION 'FUNCTION_IMPORT_DOKU' + EXPORTING + funcname = iv_function_name + IMPORTING + exception_class = rv_return + TABLES + dokumentation = lt_dokumentation + exception_list = lt_exception_list + export_parameter = lt_export_parameter + import_parameter = lt_import_parameter + tables_parameter = lt_tables_parameter + EXCEPTIONS + error_message = 1 + function_not_found = 2 + invalid_name = 3 + OTHERS = 4. + IF sy-subrc <> 0. + lcx_exception=>raise( 'Error from FUNCTION_IMPORT_DOKU' ). + ENDIF. + ENDMETHOD. + METHOD lif_object~serialize. DATA: lt_functions TYPE ty_function_tt, @@ -730,4 +764,4 @@ CLASS lcl_object_fugr IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_fugr IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_fugr IMPLEMENTATION diff --git a/src/zabapgit_object_fugr.prog.xml b/src/zabapgit_object_fugr.prog.xml index 1d911fdc1..2db659b49 100644 --- a/src/zabapgit_object_fugr.prog.xml +++ b/src/zabapgit_object_fugr.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_FUGR A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_FUGR 28 - diff --git a/src/zabapgit_object_iarp.prog.abap b/src/zabapgit_object_iarp.prog.abap index 9d6fb5bed..ecf2118d5 100644 --- a/src/zabapgit_object_iarp.prog.abap +++ b/src/zabapgit_object_iarp.prog.abap @@ -192,4 +192,4 @@ CLASS lcl_object_iarp IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_iarp IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_iarp IMPLEMENTATION diff --git a/src/zabapgit_object_iarp.prog.xml b/src/zabapgit_object_iarp.prog.xml index 46b112ef2..24b0a2fdf 100644 --- a/src/zabapgit_object_iarp.prog.xml +++ b/src/zabapgit_object_iarp.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_IARP A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_IARP 28 - diff --git a/src/zabapgit_object_iasp.prog.abap b/src/zabapgit_object_iasp.prog.abap index 30ee4e5f7..ae8338707 100644 --- a/src/zabapgit_object_iasp.prog.abap +++ b/src/zabapgit_object_iasp.prog.abap @@ -192,4 +192,4 @@ CLASS lcl_object_iasp IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_iasp IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_iasp IMPLEMENTATION diff --git a/src/zabapgit_object_iasp.prog.xml b/src/zabapgit_object_iasp.prog.xml index 6c4de26bb..5acfdf6dd 100644 --- a/src/zabapgit_object_iasp.prog.xml +++ b/src/zabapgit_object_iasp.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_IASP A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_IASP 28 - diff --git a/src/zabapgit_object_iatu.prog.abap b/src/zabapgit_object_iatu.prog.abap index 2373edf40..57321b2cb 100644 --- a/src/zabapgit_object_iatu.prog.abap +++ b/src/zabapgit_object_iatu.prog.abap @@ -209,4 +209,4 @@ CLASS lcl_object_iatu IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_iatu IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_iatu IMPLEMENTATION diff --git a/src/zabapgit_object_iatu.prog.xml b/src/zabapgit_object_iatu.prog.xml index 449360e3d..56705931a 100644 --- a/src/zabapgit_object_iatu.prog.xml +++ b/src/zabapgit_object_iatu.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_IATU A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_IATU 28 - diff --git a/src/zabapgit_object_msag.prog.abap b/src/zabapgit_object_msag.prog.abap index bfb8d2837..447502686 100644 --- a/src/zabapgit_object_msag.prog.abap +++ b/src/zabapgit_object_msag.prog.abap @@ -300,4 +300,4 @@ CLASS lcl_object_msag IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_msag IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_msag IMPLEMENTATION diff --git a/src/zabapgit_object_msag.prog.xml b/src/zabapgit_object_msag.prog.xml index f2d00825d..6753f5137 100644 --- a/src/zabapgit_object_msag.prog.xml +++ b/src/zabapgit_object_msag.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_MSAG A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_MSAG 28 - diff --git a/src/zabapgit_object_nrob.prog.abap b/src/zabapgit_object_nrob.prog.abap index 47edb4254..62987cf57 100644 --- a/src/zabapgit_object_nrob.prog.abap +++ b/src/zabapgit_object_nrob.prog.abap @@ -272,4 +272,4 @@ CLASS lcl_object_nrob IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_nrob IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_nrob IMPLEMENTATION diff --git a/src/zabapgit_object_nrob.prog.xml b/src/zabapgit_object_nrob.prog.xml index 34309b7e4..77f8a3b7a 100644 --- a/src/zabapgit_object_nrob.prog.xml +++ b/src/zabapgit_object_nrob.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_NROB A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_NROB 28 - diff --git a/src/zabapgit_object_para.prog.abap b/src/zabapgit_object_para.prog.abap index e13cb24f7..c3ad3e5b8 100644 --- a/src/zabapgit_object_para.prog.abap +++ b/src/zabapgit_object_para.prog.abap @@ -148,4 +148,4 @@ CLASS lcl_object_para IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_para IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_para IMPLEMENTATION diff --git a/src/zabapgit_object_para.prog.xml b/src/zabapgit_object_para.prog.xml index 60c2adcf0..6524a0404 100644 --- a/src/zabapgit_object_para.prog.xml +++ b/src/zabapgit_object_para.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_PARA A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_PARA 28 - diff --git a/src/zabapgit_object_pinf.prog.abap b/src/zabapgit_object_pinf.prog.abap index 727fd1fb1..a992e0590 100644 --- a/src/zabapgit_object_pinf.prog.abap +++ b/src/zabapgit_object_pinf.prog.abap @@ -352,4 +352,4 @@ CLASS lcl_object_pinf IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_PINF IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_PINF IMPLEMENTATION diff --git a/src/zabapgit_object_pinf.prog.xml b/src/zabapgit_object_pinf.prog.xml index b9cb78ec0..f670e1a2c 100644 --- a/src/zabapgit_object_pinf.prog.xml +++ b/src/zabapgit_object_pinf.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_PINF A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_PINF 28 - diff --git a/src/zabapgit_object_prog.prog.abap b/src/zabapgit_object_prog.prog.abap index c3a32baee..17700fa4a 100644 --- a/src/zabapgit_object_prog.prog.abap +++ b/src/zabapgit_object_prog.prog.abap @@ -140,4 +140,4 @@ CLASS lcl_object_prog IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_prog IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_prog IMPLEMENTATION diff --git a/src/zabapgit_object_prog.prog.xml b/src/zabapgit_object_prog.prog.xml index 508c79fd4..63cab6974 100644 --- a/src/zabapgit_object_prog.prog.xml +++ b/src/zabapgit_object_prog.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_PROG A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_PROG 28 - diff --git a/src/zabapgit_object_serializing.prog.abap b/src/zabapgit_object_serializing.prog.abap index 0536d687c..1acc6fa52 100644 --- a/src/zabapgit_object_serializing.prog.abap +++ b/src/zabapgit_object_serializing.prog.abap @@ -48,4 +48,4 @@ INCLUDE zabapgit_object_w3xx. INCLUDE zabapgit_object_wdya. INCLUDE zabapgit_object_wdyn. INCLUDE zabapgit_object_webi. -INCLUDE zabapgit_object_xslt. \ No newline at end of file +INCLUDE zabapgit_object_xslt. diff --git a/src/zabapgit_object_serializing.prog.xml b/src/zabapgit_object_serializing.prog.xml index cfd9247d6..fde95641c 100644 --- a/src/zabapgit_object_serializing.prog.xml +++ b/src/zabapgit_object_serializing.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_SERIALIZING A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_SERIALIZATION 37 - diff --git a/src/zabapgit_object_sfbf.prog.abap b/src/zabapgit_object_sfbf.prog.abap index 03bada100..154582f2f 100644 --- a/src/zabapgit_object_sfbf.prog.abap +++ b/src/zabapgit_object_sfbf.prog.abap @@ -238,4 +238,4 @@ CLASS lcl_object_sfbf IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_SFBF IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_SFBF IMPLEMENTATION diff --git a/src/zabapgit_object_sfbf.prog.xml b/src/zabapgit_object_sfbf.prog.xml index b4e34931a..76e5ac9d8 100644 --- a/src/zabapgit_object_sfbf.prog.xml +++ b/src/zabapgit_object_sfbf.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_SFBF A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_SFBF 28 - diff --git a/src/zabapgit_object_sfbs.prog.abap b/src/zabapgit_object_sfbs.prog.abap index 4ff5c288e..78b76e509 100644 --- a/src/zabapgit_object_sfbs.prog.abap +++ b/src/zabapgit_object_sfbs.prog.abap @@ -214,4 +214,4 @@ CLASS lcl_object_sfbs IMPLEMENTATION. -ENDCLASS. "lcl_object_SFBS IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_SFBS IMPLEMENTATION diff --git a/src/zabapgit_object_sfbs.prog.xml b/src/zabapgit_object_sfbs.prog.xml index d92d19c27..c4b4957d6 100644 --- a/src/zabapgit_object_sfbs.prog.xml +++ b/src/zabapgit_object_sfbs.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_SFBS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_SFBS 28 - diff --git a/src/zabapgit_object_sfsw.prog.abap b/src/zabapgit_object_sfsw.prog.abap index 3812c9eaf..5f0d563c0 100644 --- a/src/zabapgit_object_sfsw.prog.abap +++ b/src/zabapgit_object_sfsw.prog.abap @@ -206,4 +206,4 @@ CLASS lcl_object_sfsw IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_sfsw IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_sfsw IMPLEMENTATION diff --git a/src/zabapgit_object_sfsw.prog.xml b/src/zabapgit_object_sfsw.prog.xml index f21c9b800..6096a8269 100644 --- a/src/zabapgit_object_sfsw.prog.xml +++ b/src/zabapgit_object_sfsw.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_SFSW A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_SFSW 28 - diff --git a/src/zabapgit_object_shi3.prog.abap b/src/zabapgit_object_shi3.prog.abap index 382b08bcd..baf26fb0f 100644 --- a/src/zabapgit_object_shi3.prog.abap +++ b/src/zabapgit_object_shi3.prog.abap @@ -328,4 +328,4 @@ CLASS lcl_object_shi3 IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_shi3 IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_shi3 IMPLEMENTATION diff --git a/src/zabapgit_object_shi3.prog.xml b/src/zabapgit_object_shi3.prog.xml index a6432c322..80b375e9d 100644 --- a/src/zabapgit_object_shi3.prog.xml +++ b/src/zabapgit_object_shi3.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_SHI3 A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_SHI3 28 - diff --git a/src/zabapgit_object_shlp.prog.abap b/src/zabapgit_object_shlp.prog.abap index e9c34345e..604d6f897 100644 --- a/src/zabapgit_object_shlp.prog.abap +++ b/src/zabapgit_object_shlp.prog.abap @@ -208,4 +208,4 @@ CLASS lcl_object_shlp IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_shlp IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_shlp IMPLEMENTATION diff --git a/src/zabapgit_object_shlp.prog.xml b/src/zabapgit_object_shlp.prog.xml index 9a694e7c3..9bd3083e4 100644 --- a/src/zabapgit_object_shlp.prog.xml +++ b/src/zabapgit_object_shlp.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_SHLP A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_SHLP 28 - diff --git a/src/zabapgit_object_sicf.prog.abap b/src/zabapgit_object_sicf.prog.abap index 3ff67774b..c495a443c 100644 --- a/src/zabapgit_object_sicf.prog.abap +++ b/src/zabapgit_object_sicf.prog.abap @@ -22,6 +22,7 @@ CLASS lcl_object_sicf DEFINITION INHERITING FROM lcl_objects_super FINAL. END OF ty_sicf_key. METHODS read + IMPORTING iv_clear TYPE abap_bool DEFAULT abap_true EXPORTING es_icfservice TYPE icfservice es_icfdocu TYPE icfdocu et_icfhandler TYPE ty_icfhandler_tt @@ -71,7 +72,8 @@ CLASS lcl_object_sicf IMPLEMENTATION. DATA: ls_icfservice TYPE icfservice. - read( IMPORTING es_icfservice = ls_icfservice ). + read( EXPORTING iv_clear = abap_false + IMPORTING es_icfservice = ls_icfservice ). rv_user = ls_icfservice-icf_muser. @@ -174,10 +176,12 @@ CLASS lcl_object_sicf IMPLEMENTATION. ASSERT sy-subrc = 0. MOVE-CORRESPONDING ls_serv_info-service TO es_icfservice. - CLEAR es_icfservice-icf_cuser. - CLEAR es_icfservice-icf_cdate. - CLEAR es_icfservice-icf_muser. - CLEAR es_icfservice-icf_mdate. + IF iv_clear = abap_true. + CLEAR es_icfservice-icf_cuser. + CLEAR es_icfservice-icf_cdate. + CLEAR es_icfservice-icf_muser. + CLEAR es_icfservice-icf_mdate. + ENDIF. CLEAR es_icfdocu-icfparguid. @@ -422,4 +426,4 @@ CLASS lcl_object_sicf IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_sicf IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_sicf IMPLEMENTATION diff --git a/src/zabapgit_object_sicf.prog.xml b/src/zabapgit_object_sicf.prog.xml index a11ae0758..0af1dfc8c 100644 --- a/src/zabapgit_object_sicf.prog.xml +++ b/src/zabapgit_object_sicf.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_SICF A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_SICF 28 - diff --git a/src/zabapgit_object_smim.prog.abap b/src/zabapgit_object_smim.prog.abap index 7fe035bc1..ac30efc6b 100644 --- a/src/zabapgit_object_smim.prog.abap +++ b/src/zabapgit_object_smim.prog.abap @@ -321,4 +321,4 @@ CLASS lcl_object_smim IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_smim IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_smim IMPLEMENTATION diff --git a/src/zabapgit_object_smim.prog.xml b/src/zabapgit_object_smim.prog.xml index 9bae0d613..ecdeb3942 100644 --- a/src/zabapgit_object_smim.prog.xml +++ b/src/zabapgit_object_smim.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_SMIM A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_SMIM 28 - diff --git a/src/zabapgit_object_splo.prog.abap b/src/zabapgit_object_splo.prog.abap index c8a958482..a056c1b38 100644 --- a/src/zabapgit_object_splo.prog.abap +++ b/src/zabapgit_object_splo.prog.abap @@ -131,4 +131,4 @@ CLASS lcl_object_splo IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_splo IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_splo IMPLEMENTATION diff --git a/src/zabapgit_object_splo.prog.xml b/src/zabapgit_object_splo.prog.xml index 90a46fbaf..af48a7774 100644 --- a/src/zabapgit_object_splo.prog.xml +++ b/src/zabapgit_object_splo.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_SPLO A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_SPLO 28 - diff --git a/src/zabapgit_object_ssfo.prog.abap b/src/zabapgit_object_ssfo.prog.abap index efef1e0c8..248443624 100644 --- a/src/zabapgit_object_ssfo.prog.abap +++ b/src/zabapgit_object_ssfo.prog.abap @@ -242,4 +242,4 @@ CLASS lcl_object_ssfo IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_ssfo IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_ssfo IMPLEMENTATION diff --git a/src/zabapgit_object_ssfo.prog.xml b/src/zabapgit_object_ssfo.prog.xml index 9545a6bce..c3a33beef 100644 --- a/src/zabapgit_object_ssfo.prog.xml +++ b/src/zabapgit_object_ssfo.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_SSFO A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_SSFO 28 - diff --git a/src/zabapgit_object_ssst.prog.abap b/src/zabapgit_object_ssst.prog.abap index 40dced694..def3c24af 100644 --- a/src/zabapgit_object_ssst.prog.abap +++ b/src/zabapgit_object_ssst.prog.abap @@ -207,4 +207,4 @@ CLASS lcl_object_ssst IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_ssst IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_ssst IMPLEMENTATION diff --git a/src/zabapgit_object_ssst.prog.xml b/src/zabapgit_object_ssst.prog.xml index a39f3f914..35653ad0f 100644 --- a/src/zabapgit_object_ssst.prog.xml +++ b/src/zabapgit_object_ssst.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_SSST A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_SSST 28 - diff --git a/src/zabapgit_object_susc.prog.abap b/src/zabapgit_object_susc.prog.abap index 615cb27a6..e0a5be805 100644 --- a/src/zabapgit_object_susc.prog.abap +++ b/src/zabapgit_object_susc.prog.abap @@ -127,4 +127,4 @@ CLASS lcl_object_susc IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_susc IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_susc IMPLEMENTATION diff --git a/src/zabapgit_object_susc.prog.xml b/src/zabapgit_object_susc.prog.xml index 7a3199e11..ec145a928 100644 --- a/src/zabapgit_object_susc.prog.xml +++ b/src/zabapgit_object_susc.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_SUSC A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_SUSC 28 - diff --git a/src/zabapgit_object_suso.prog.abap b/src/zabapgit_object_suso.prog.abap index 09eace64a..ebd09188b 100644 --- a/src/zabapgit_object_suso.prog.abap +++ b/src/zabapgit_object_suso.prog.abap @@ -173,4 +173,4 @@ CLASS lcl_object_suso IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_suso IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_suso IMPLEMENTATION diff --git a/src/zabapgit_object_suso.prog.xml b/src/zabapgit_object_suso.prog.xml index 7630b96d1..6c50ceeb2 100644 --- a/src/zabapgit_object_suso.prog.xml +++ b/src/zabapgit_object_suso.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_SUSO A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_SUSO 28 - diff --git a/src/zabapgit_object_tabl.prog.abap b/src/zabapgit_object_tabl.prog.abap index c956017d5..de2f10201 100644 --- a/src/zabapgit_object_tabl.prog.abap +++ b/src/zabapgit_object_tabl.prog.abap @@ -106,7 +106,7 @@ CLASS lcl_object_tabl IMPLEMENTATION. CALL FUNCTION 'RS_DD_DELETE_OBJ' EXPORTING - no_ask = abap_false + no_ask = abap_true objname = lv_objname objtype = 'T' EXCEPTIONS @@ -433,4 +433,4 @@ CLASS lcl_object_tabl IMPLEMENTATION. ENDIF. ENDMETHOD. -ENDCLASS. "lcl_object_TABL IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_TABL IMPLEMENTATION diff --git a/src/zabapgit_object_tabl.prog.xml b/src/zabapgit_object_tabl.prog.xml index ca1c45f41..8f6de638d 100644 --- a/src/zabapgit_object_tabl.prog.xml +++ b/src/zabapgit_object_tabl.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_TABL A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_TABL 28 - diff --git a/src/zabapgit_object_tabl_valid.prog.abap b/src/zabapgit_object_tabl_valid.prog.abap index a79812452..6c33de4a5 100644 --- a/src/zabapgit_object_tabl_valid.prog.abap +++ b/src/zabapgit_object_tabl_valid.prog.abap @@ -216,4 +216,4 @@ CLASS lct_table_validation IMPLEMENTATION. iv_xml = mo_current_version_out_xml->render( ). ENDMETHOD. -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_object_tabl_valid.prog.xml b/src/zabapgit_object_tabl_valid.prog.xml index 0a56f24a3..5198ea961 100644 --- a/src/zabapgit_object_tabl_valid.prog.xml +++ b/src/zabapgit_object_tabl_valid.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_TABL_VALID A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_TABL_VALID 34 - diff --git a/src/zabapgit_object_tobj.prog.abap b/src/zabapgit_object_tobj.prog.abap index 3319bbee6..408c2dd6e 100644 --- a/src/zabapgit_object_tobj.prog.abap +++ b/src/zabapgit_object_tobj.prog.abap @@ -187,4 +187,4 @@ CLASS lcl_object_tobj IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_tobj IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_tobj IMPLEMENTATION diff --git a/src/zabapgit_object_tobj.prog.xml b/src/zabapgit_object_tobj.prog.xml index 3198d35a3..7a70a2b7a 100644 --- a/src/zabapgit_object_tobj.prog.xml +++ b/src/zabapgit_object_tobj.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_TOBJ A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_TOBJ 28 - diff --git a/src/zabapgit_object_tran.prog.abap b/src/zabapgit_object_tran.prog.abap index 9c0b283fc..18b030d4d 100644 --- a/src/zabapgit_object_tran.prog.abap +++ b/src/zabapgit_object_tran.prog.abap @@ -287,6 +287,11 @@ CLASS lcl_object_tran IMPLEMENTATION. lt_param_values TYPE TABLE OF rsparam, ls_rsstcd TYPE rsstcd. + + IF lif_object~exists( ) = abap_true. + lif_object~delete( ). + ENDIF. + io_xml->read( EXPORTING iv_name = 'TSTC' CHANGING cg_data = ls_tstc ). io_xml->read( EXPORTING iv_name = 'TSTCC' @@ -413,4 +418,4 @@ CLASS lcl_object_tran IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_tran IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_tran IMPLEMENTATION diff --git a/src/zabapgit_object_tran.prog.xml b/src/zabapgit_object_tran.prog.xml index 0e52e4fbb..90022ad92 100644 --- a/src/zabapgit_object_tran.prog.xml +++ b/src/zabapgit_object_tran.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_TRAN A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_TRAN 28 - diff --git a/src/zabapgit_object_ttyp.prog.abap b/src/zabapgit_object_ttyp.prog.abap index 0ef632c77..a621527ca 100644 --- a/src/zabapgit_object_ttyp.prog.abap +++ b/src/zabapgit_object_ttyp.prog.abap @@ -187,4 +187,4 @@ CLASS lcl_object_ttyp IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_ttyp IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_ttyp IMPLEMENTATION diff --git a/src/zabapgit_object_ttyp.prog.xml b/src/zabapgit_object_ttyp.prog.xml index ffd8a5c56..8f41a7b2d 100644 --- a/src/zabapgit_object_ttyp.prog.xml +++ b/src/zabapgit_object_ttyp.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_TTYP A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_TTYP 28 - diff --git a/src/zabapgit_object_type.prog.abap b/src/zabapgit_object_type.prog.abap index 8068d26c1..1908b94e0 100644 --- a/src/zabapgit_object_type.prog.abap +++ b/src/zabapgit_object_type.prog.abap @@ -209,4 +209,4 @@ CLASS lcl_object_type IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_type IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_type IMPLEMENTATION diff --git a/src/zabapgit_object_type.prog.xml b/src/zabapgit_object_type.prog.xml index 6e2711cee..aeb879eb0 100644 --- a/src/zabapgit_object_type.prog.xml +++ b/src/zabapgit_object_type.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_TYPE A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_TYPE 28 - diff --git a/src/zabapgit_object_vcls.prog.abap b/src/zabapgit_object_vcls.prog.abap index 05094edfd..4b4952620 100644 --- a/src/zabapgit_object_vcls.prog.abap +++ b/src/zabapgit_object_vcls.prog.abap @@ -199,4 +199,4 @@ CLASS lcl_object_vcls IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_vcls IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_vcls IMPLEMENTATION diff --git a/src/zabapgit_object_vcls.prog.xml b/src/zabapgit_object_vcls.prog.xml index 9d5c37372..43e48849b 100644 --- a/src/zabapgit_object_vcls.prog.xml +++ b/src/zabapgit_object_vcls.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_VCLS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_VCLS 28 - diff --git a/src/zabapgit_object_view.prog.abap b/src/zabapgit_object_view.prog.abap index cbd51c60e..49632e13f 100644 --- a/src/zabapgit_object_view.prog.abap +++ b/src/zabapgit_object_view.prog.abap @@ -248,4 +248,4 @@ CLASS lcl_object_view IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_view IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_view IMPLEMENTATION diff --git a/src/zabapgit_object_view.prog.xml b/src/zabapgit_object_view.prog.xml index b242baeb5..bd95ce1c0 100644 --- a/src/zabapgit_object_view.prog.xml +++ b/src/zabapgit_object_view.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_VIEW A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_VIEW 28 - diff --git a/src/zabapgit_object_w3xx.prog.abap b/src/zabapgit_object_w3xx.prog.abap index c14bdc062..26e19791b 100644 --- a/src/zabapgit_object_w3xx.prog.abap +++ b/src/zabapgit_object_w3xx.prog.abap @@ -443,4 +443,4 @@ ENDCLASS. "lcl_object_W3MI DEFINITION * Web Reporting/Internet Transaction Server MIME Types (html data) *----------------------------------------------------------------------* CLASS lcl_object_w3ht DEFINITION INHERITING FROM lcl_object_w3super FINAL. -ENDCLASS. "lcl_object_W3HT DEFINITION \ No newline at end of file +ENDCLASS. "lcl_object_W3HT DEFINITION diff --git a/src/zabapgit_object_w3xx.prog.xml b/src/zabapgit_object_w3xx.prog.xml index e5efdbbac..1f67e528b 100644 --- a/src/zabapgit_object_w3xx.prog.xml +++ b/src/zabapgit_object_w3xx.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_W3XX A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_W3XX 28 - diff --git a/src/zabapgit_object_wdya.prog.abap b/src/zabapgit_object_wdya.prog.abap index 3d1defc49..578d901cc 100644 --- a/src/zabapgit_object_wdya.prog.abap +++ b/src/zabapgit_object_wdya.prog.abap @@ -215,4 +215,4 @@ CLASS lcl_object_wdya IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_wdya IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_wdya IMPLEMENTATION diff --git a/src/zabapgit_object_wdya.prog.xml b/src/zabapgit_object_wdya.prog.xml index 4387af0e9..65ce6f1b2 100644 --- a/src/zabapgit_object_wdya.prog.xml +++ b/src/zabapgit_object_wdya.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_WDYA A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_WDYA 28 - diff --git a/src/zabapgit_object_wdyn.prog.abap b/src/zabapgit_object_wdyn.prog.abap index faef8e810..ba33a8a24 100644 --- a/src/zabapgit_object_wdyn.prog.abap +++ b/src/zabapgit_object_wdyn.prog.abap @@ -802,4 +802,4 @@ CLASS lcl_object_wdyn IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. "lif_object~compare_to_remote_version -ENDCLASS. "lcl_object_wdyn IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_wdyn IMPLEMENTATION diff --git a/src/zabapgit_object_wdyn.prog.xml b/src/zabapgit_object_wdyn.prog.xml index 8439027ce..119f8e2d2 100644 --- a/src/zabapgit_object_wdyn.prog.xml +++ b/src/zabapgit_object_wdyn.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_WDYN A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_WDYN 28 - diff --git a/src/zabapgit_object_webi.prog.abap b/src/zabapgit_object_webi.prog.abap index e3a690dbb..d2c5a9110 100644 --- a/src/zabapgit_object_webi.prog.abap +++ b/src/zabapgit_object_webi.prog.abap @@ -447,4 +447,4 @@ CLASS lcl_object_webi IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_webi IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_webi IMPLEMENTATION diff --git a/src/zabapgit_object_webi.prog.xml b/src/zabapgit_object_webi.prog.xml index db71c561c..3d7cd0b72 100644 --- a/src/zabapgit_object_webi.prog.xml +++ b/src/zabapgit_object_webi.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_WEBI A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_WEBI 28 - diff --git a/src/zabapgit_object_xslt.prog.abap b/src/zabapgit_object_xslt.prog.abap index dc359b965..6fb2babf5 100644 --- a/src/zabapgit_object_xslt.prog.abap +++ b/src/zabapgit_object_xslt.prog.abap @@ -94,6 +94,10 @@ CLASS lcl_object_xslt IMPLEMENTATION. ls_attributes TYPE o2xsltattr. + IF lif_object~exists( ) = abap_true. + lif_object~delete( ). + ENDIF. + io_xml->read( EXPORTING iv_name = 'ATTRIBUTES' CHANGING cg_data = ls_attributes ). @@ -192,4 +196,4 @@ CLASS lcl_object_xslt IMPLEMENTATION. CREATE OBJECT ro_comparison_result TYPE lcl_null_comparison_result. ENDMETHOD. -ENDCLASS. "lcl_object_xslt IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_object_xslt IMPLEMENTATION diff --git a/src/zabapgit_object_xslt.prog.xml b/src/zabapgit_object_xslt.prog.xml index 37eee2114..200b754aa 100644 --- a/src/zabapgit_object_xslt.prog.xml +++ b/src/zabapgit_object_xslt.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECT_XSLT A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT_XSLT 28 - diff --git a/src/zabapgit_objects.prog.abap b/src/zabapgit_objects.prog.abap index 383f0ea69..4cc56812d 100644 --- a/src/zabapgit_objects.prog.abap +++ b/src/zabapgit_objects.prog.abap @@ -373,6 +373,9 @@ CLASS lcl_objects_files IMPLEMENTATION. CONCATENATE LINES OF it_abap INTO lv_source SEPARATED BY gc_newline. +* when editing files via eg. GitHub web interface it adds a newline at end of file + lv_source = lv_source && gc_newline. + ls_file-path = '/'. ls_file-filename = filename( iv_extra = iv_extra iv_ext = 'abap' ). "#EC NOTEXT @@ -1746,4 +1749,4 @@ CLASS lcl_objects DEFINITION FINAL. CHANGING ct_files TYPE ty_file_signatures_tt RAISING lcx_exception. -ENDCLASS. "lcl_object DEFINITION \ No newline at end of file +ENDCLASS. "lcl_object DEFINITION diff --git a/src/zabapgit_objects.prog.xml b/src/zabapgit_objects.prog.xml index a849c4fa4..48776da05 100644 --- a/src/zabapgit_objects.prog.xml +++ b/src/zabapgit_objects.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECTS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECTS 24 - diff --git a/src/zabapgit_objects_impl.prog.abap b/src/zabapgit_objects_impl.prog.abap index 770740d2a..a37f4f419 100644 --- a/src/zabapgit_objects_impl.prog.abap +++ b/src/zabapgit_objects_impl.prog.abap @@ -742,4 +742,4 @@ CLASS lcl_objects IMPLEMENTATION. ENDMETHOD. -ENDCLASS. "lcl_objects IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_objects IMPLEMENTATION diff --git a/src/zabapgit_objects_impl.prog.xml b/src/zabapgit_objects_impl.prog.xml index f426626b7..8fd2077d7 100644 --- a/src/zabapgit_objects_impl.prog.xml +++ b/src/zabapgit_objects_impl.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_OBJECTS_IMPL A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_OBJECT 23 - diff --git a/src/zabapgit_page.prog.abap b/src/zabapgit_page.prog.abap index 078a1ea27..3ec5c331f 100644 --- a/src/zabapgit_page.prog.abap +++ b/src/zabapgit_page.prog.abap @@ -184,4 +184,4 @@ CLASS lcl_gui_page IMPLEMENTATION. ENDMETHOD. " lif_gui_page~render. -ENDCLASS. "lcl_gui_page \ No newline at end of file +ENDCLASS. "lcl_gui_page diff --git a/src/zabapgit_page.prog.xml b/src/zabapgit_page.prog.xml index e834a5280..be0c12979 100644 --- a/src/zabapgit_page.prog.xml +++ b/src/zabapgit_page.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PAGE A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PAGE 21 - diff --git a/src/zabapgit_page_background.prog.abap b/src/zabapgit_page_background.prog.abap index 691bcbf1b..1ffa6cc60 100644 --- a/src/zabapgit_page_background.prog.abap +++ b/src/zabapgit_page_background.prog.abap @@ -246,4 +246,4 @@ CLASS lcl_gui_page_background IMPLEMENTATION. ENDMETHOD. "render_content -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_page_background.prog.xml b/src/zabapgit_page_background.prog.xml index 8edbac35e..f2855627a 100644 --- a/src/zabapgit_page_background.prog.xml +++ b/src/zabapgit_page_background.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PAGE_BACKGROUND A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PAGE_BACKGROUND 32 - diff --git a/src/zabapgit_page_branch_overview.prog.abap b/src/zabapgit_page_branch_overview.prog.abap index 297dc2990..a98e66738 100644 --- a/src/zabapgit_page_branch_overview.prog.abap +++ b/src/zabapgit_page_branch_overview.prog.abap @@ -591,4 +591,4 @@ CLASS lcl_gui_page_branch_overview IMPLEMENTATION. ENDMETHOD. "render_content -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_page_branch_overview.prog.xml b/src/zabapgit_page_branch_overview.prog.xml index f9bc1a592..ee044f1f4 100644 --- a/src/zabapgit_page_branch_overview.prog.xml +++ b/src/zabapgit_page_branch_overview.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PAGE_BRANCH_OVERVIEW A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PAGE_BRANCH_OVERVIEW 37 - diff --git a/src/zabapgit_page_commit.prog.abap b/src/zabapgit_page_commit.prog.abap index 4914b6d7d..c9550a045 100644 --- a/src/zabapgit_page_commit.prog.abap +++ b/src/zabapgit_page_commit.prog.abap @@ -219,4 +219,4 @@ CLASS lcl_gui_page_commit IMPLEMENTATION. ENDMETHOD. "scripts -ENDCLASS. "lcl_gui_page_commit \ No newline at end of file +ENDCLASS. "lcl_gui_page_commit diff --git a/src/zabapgit_page_commit.prog.xml b/src/zabapgit_page_commit.prog.xml index 902f3a12b..6090e4cd1 100644 --- a/src/zabapgit_page_commit.prog.xml +++ b/src/zabapgit_page_commit.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PAGE_COMMIT A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PAGE_COMMIT 28 - diff --git a/src/zabapgit_page_db.prog.abap b/src/zabapgit_page_db.prog.abap index bb637d5a9..d05b1723c 100644 --- a/src/zabapgit_page_db.prog.abap +++ b/src/zabapgit_page_db.prog.abap @@ -268,4 +268,4 @@ CLASS lcl_gui_page_db IMPLEMENTATION. ENDCASE. ENDMETHOD. "explain_content -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_page_db.prog.xml b/src/zabapgit_page_db.prog.xml index 440928dc0..89c5081a0 100644 --- a/src/zabapgit_page_db.prog.xml +++ b/src/zabapgit_page_db.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PAGE_DB A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PAGE_DB 24 - diff --git a/src/zabapgit_page_debug.prog.abap b/src/zabapgit_page_debug.prog.abap index 6d2dfa9f3..4e26aa5ee 100644 --- a/src/zabapgit_page_debug.prog.abap +++ b/src/zabapgit_page_debug.prog.abap @@ -97,4 +97,4 @@ CLASS lcl_gui_page_debuginfo IMPLEMENTATION. ENDMETHOD. "scripts -ENDCLASS. "lcl_gui_page_debuginfo \ No newline at end of file +ENDCLASS. "lcl_gui_page_debuginfo diff --git a/src/zabapgit_page_debug.prog.xml b/src/zabapgit_page_debug.prog.xml index 3a6595916..fd99ac7c5 100644 --- a/src/zabapgit_page_debug.prog.xml +++ b/src/zabapgit_page_debug.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PAGE_DEBUG A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PAGE_DEBUG 27 - diff --git a/src/zabapgit_page_diff.prog.abap b/src/zabapgit_page_diff.prog.abap index c00b09add..22316357a 100644 --- a/src/zabapgit_page_diff.prog.abap +++ b/src/zabapgit_page_diff.prog.abap @@ -483,4 +483,4 @@ CLASS lcl_gui_page_diff IMPLEMENTATION. ENDMETHOD. "render_line_unified -ENDCLASS. "lcl_gui_page_diff \ No newline at end of file +ENDCLASS. "lcl_gui_page_diff diff --git a/src/zabapgit_page_diff.prog.xml b/src/zabapgit_page_diff.prog.xml index c4a21410c..ddcc8fbd9 100644 --- a/src/zabapgit_page_diff.prog.xml +++ b/src/zabapgit_page_diff.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PAGE_DIFF A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PAGE_DIFF 26 - diff --git a/src/zabapgit_page_explore.prog.abap b/src/zabapgit_page_explore.prog.abap index e46baba68..ea5e75bcd 100644 --- a/src/zabapgit_page_explore.prog.abap +++ b/src/zabapgit_page_explore.prog.abap @@ -26,4 +26,4 @@ CLASS lcl_gui_page_explore IMPLEMENTATION. ASSERT 1 = 1. " Dummy ENDMETHOD. "render_content. -ENDCLASS. "lcl_gui_page_explore IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_gui_page_explore IMPLEMENTATION diff --git a/src/zabapgit_page_explore.prog.xml b/src/zabapgit_page_explore.prog.xml index e1a90a7d3..cfedbf9a9 100644 --- a/src/zabapgit_page_explore.prog.xml +++ b/src/zabapgit_page_explore.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PAGE_EXPLORE A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PAGE_EXPLORE 29 - diff --git a/src/zabapgit_page_main.prog.abap b/src/zabapgit_page_main.prog.abap index 1cad667f1..fe47740c7 100644 --- a/src/zabapgit_page_main.prog.abap +++ b/src/zabapgit_page_main.prog.abap @@ -338,4 +338,4 @@ CLASS lcl_gui_page_main IMPLEMENTATION. ENDMETHOD. "render_repo -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_page_main.prog.xml b/src/zabapgit_page_main.prog.xml index 3ac53fc8d..f677a3ae3 100644 --- a/src/zabapgit_page_main.prog.xml +++ b/src/zabapgit_page_main.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PAGE_MAIN A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PAGE_MAIN 26 - diff --git a/src/zabapgit_page_merge.prog.abap b/src/zabapgit_page_merge.prog.abap index e51157d7a..f55542f18 100644 --- a/src/zabapgit_page_merge.prog.abap +++ b/src/zabapgit_page_merge.prog.abap @@ -478,4 +478,4 @@ CLASS lcl_gui_page_merge IMPLEMENTATION. ENDMETHOD. "render_content -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_page_merge.prog.xml b/src/zabapgit_page_merge.prog.xml index 8643e362b..a08ecbcba 100644 --- a/src/zabapgit_page_merge.prog.xml +++ b/src/zabapgit_page_merge.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PAGE_MERGE A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PAGE_MERGE 27 - diff --git a/src/zabapgit_page_settings.prog.abap b/src/zabapgit_page_settings.prog.abap index fecba3154..075ecedc6 100644 --- a/src/zabapgit_page_settings.prog.abap +++ b/src/zabapgit_page_settings.prog.abap @@ -30,6 +30,8 @@ CLASS lcl_gui_page_settings DEFINITION FINAL INHERITING FROM lcl_gui_page. RETURNING VALUE(ro_html) TYPE REF TO lcl_html. METHODS render_form_end RETURNING VALUE(ro_html) TYPE REF TO lcl_html. + METHODS render_max_lines + RETURNING VALUE(ro_html) TYPE REF TO lcl_html. METHODS build_settings IMPORTING it_post_fields TYPE tihttpnvp. @@ -63,6 +65,8 @@ CLASS lcl_gui_page_settings IMPLEMENTATION. ro_html->add( render_proxy( ) ). ro_html->add( |
| ). ro_html->add( render_development_internals( ) ). + ro_html->add( |
| ). + ro_html->add( render_max_lines( ) ). ro_html->add( render_form_end( ) ). ENDMETHOD. "render_content @@ -110,7 +114,8 @@ CLASS lcl_gui_page_settings IMPLEMENTATION. METHOD build_settings. - DATA ls_post_field TYPE ihttpnvp. + DATA: ls_post_field TYPE ihttpnvp, + lv_max_lines_as_integer TYPE i. CREATE OBJECT mo_settings. READ TABLE it_post_fields INTO ls_post_field WITH KEY name = 'proxy_url'. @@ -132,6 +137,14 @@ CLASS lcl_gui_page_settings IMPLEMENTATION. mo_settings->set_run_critical_tests( abap_false ). ENDIF. + READ TABLE it_post_fields INTO ls_post_field WITH KEY name = 'max_lines'. + IF sy-subrc = 0. + lv_max_lines_as_integer = ls_post_field-value. + mo_settings->set_max_lines( lv_max_lines_as_integer ). + ELSE. + mo_settings->set_max_lines( 0 ). + ENDIF. + ENDMETHOD. @@ -209,4 +222,15 @@ CLASS lcl_gui_page_settings IMPLEMENTATION. ENDMETHOD. -ENDCLASS. \ No newline at end of file + METHOD render_max_lines. + CREATE OBJECT ro_html. + + ro_html->add( |

List size

| ). + ro_html->add( || ). + ro_html->add( |
| ). + ro_html->add( `` ). + ro_html->add( |
| ). + ro_html->add( |
| ). + ENDMETHOD. + +ENDCLASS. diff --git a/src/zabapgit_page_settings.prog.xml b/src/zabapgit_page_settings.prog.xml index 8506d80c5..31a798767 100644 --- a/src/zabapgit_page_settings.prog.xml +++ b/src/zabapgit_page_settings.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PAGE_SETTINGS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PAGE_SETTINGS 30 - diff --git a/src/zabapgit_page_stage.prog.abap b/src/zabapgit_page_stage.prog.abap index e460b7c1b..70ab47e95 100644 --- a/src/zabapgit_page_stage.prog.abap +++ b/src/zabapgit_page_stage.prog.abap @@ -261,4 +261,4 @@ CLASS lcl_gui_page_stage IMPLEMENTATION. ENDMETHOD. "scripts -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_page_stage.prog.xml b/src/zabapgit_page_stage.prog.xml index 4c5081d0c..39f1bd3dc 100644 --- a/src/zabapgit_page_stage.prog.xml +++ b/src/zabapgit_page_stage.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PAGE_STAGE A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PAGE_STAGE 27 - diff --git a/src/zabapgit_password_dialog.prog.abap b/src/zabapgit_password_dialog.prog.abap index 896d94e0a..354f0d44d 100644 --- a/src/zabapgit_password_dialog.prog.abap +++ b/src/zabapgit_password_dialog.prog.abap @@ -128,4 +128,4 @@ CLASS lcl_password_dialog IMPLEMENTATION. ENDMETHOD. "on_screen_event -ENDCLASS. " lcl_password_dialog IMPLEMENTATION \ No newline at end of file +ENDCLASS. " lcl_password_dialog IMPLEMENTATION diff --git a/src/zabapgit_password_dialog.prog.xml b/src/zabapgit_password_dialog.prog.xml index bbc81505b..6792ff817 100644 --- a/src/zabapgit_password_dialog.prog.xml +++ b/src/zabapgit_password_dialog.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PASSWORD_DIALOG A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Password dialog and selection screen 36 - diff --git a/src/zabapgit_persistence.prog.abap b/src/zabapgit_persistence.prog.abap index af4d6a437..7232279af 100644 --- a/src/zabapgit_persistence.prog.abap +++ b/src/zabapgit_persistence.prog.abap @@ -1459,11 +1459,17 @@ CLASS lcl_settings DEFINITION FINAL. METHODS get_run_critical_tests RETURNING VALUE(rv_run) TYPE abap_bool. + METHODS set_max_lines + IMPORTING iv_lines TYPE i. + METHODS get_max_lines + RETURNING + VALUE(rv_lines) TYPE i. PRIVATE SECTION. DATA mv_proxy_url TYPE string. DATA mv_proxy_port TYPE string. DATA mv_run_critical_tests TYPE abap_bool. + DATA mv_lines TYPE i. ENDCLASS. @@ -1494,6 +1500,14 @@ CLASS lcl_settings IMPLEMENTATION. rv_run = mv_run_critical_tests. ENDMETHOD. + METHOD get_max_lines. + rv_lines = mv_lines. + ENDMETHOD. + + METHOD set_max_lines. + mv_lines = iv_lines. + ENDMETHOD. + ENDCLASS. @@ -1529,12 +1543,20 @@ CLASS lcl_persistence_settings IMPLEMENTATION. iv_type = 'SETTINGS' iv_value = 'CRIT_TESTS' iv_data = io_settings->get_run_critical_tests( ) ). + + lcl_app=>db( )->modify( + iv_type = 'SETTINGS' + iv_value = 'MAX_LINES' + iv_data = |{ io_settings->get_max_lines( ) }| ). + ENDMETHOD. METHOD read. DATA: lv_critical_tests_as_string TYPE string, - lv_critical_tests_as_boolean TYPE abap_bool. + lv_critical_tests_as_boolean TYPE abap_bool, + lv_max_lines_as_string TYPE string, + lv_max_lines_as_integer TYPE i. CREATE OBJECT ro_settings. TRY. @@ -1562,6 +1584,15 @@ CLASS lcl_persistence_settings IMPLEMENTATION. CATCH lcx_not_found. ro_settings->set_run_critical_tests( abap_false ). ENDTRY. + TRY. + lv_max_lines_as_string = lcl_app=>db( )->read( + iv_type = 'SETTINGS' + iv_value = 'MAX_LINES' ). + lv_max_lines_as_integer = lv_max_lines_as_string. + ro_settings->set_max_lines( lv_max_lines_as_integer ). + CATCH lcx_not_found. + ro_settings->set_max_lines( 500 ). " default + ENDTRY. ENDMETHOD. -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_persistence.prog.xml b/src/zabapgit_persistence.prog.xml index 49f6b180a..9f6f980ea 100644 --- a/src/zabapgit_persistence.prog.xml +++ b/src/zabapgit_persistence.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PERSISTENCE A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PERSISTENCE 28 - diff --git a/src/zabapgit_persistence_old.prog.abap b/src/zabapgit_persistence_old.prog.abap index 78b900f2e..a30b6ae36 100644 --- a/src/zabapgit_persistence_old.prog.abap +++ b/src/zabapgit_persistence_old.prog.abap @@ -566,4 +566,4 @@ CLASS lcl_user IMPLEMENTATION. ENDMETHOD. "get_email -ENDCLASS. "lcl_user IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_user IMPLEMENTATION diff --git a/src/zabapgit_persistence_old.prog.xml b/src/zabapgit_persistence_old.prog.xml index 5204f19c3..670887559 100644 --- a/src/zabapgit_persistence_old.prog.xml +++ b/src/zabapgit_persistence_old.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_PERSISTENCE_OLD A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PERSISTENCE_OLD 32 - diff --git a/src/zabapgit_popups.prog.abap b/src/zabapgit_popups.prog.abap index ff7a4238f..46f82d07a 100644 --- a/src/zabapgit_popups.prog.abap +++ b/src/zabapgit_popups.prog.abap @@ -482,4 +482,4 @@ CLASS lcl_popups IMPLEMENTATION. ENDMETHOD. " popup_to_inform. -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_popups.prog.xml b/src/zabapgit_popups.prog.xml index ff7fba395..bb223be13 100644 --- a/src/zabapgit_popups.prog.xml +++ b/src/zabapgit_popups.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_POPUPS A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_POPUPS 23 - diff --git a/src/zabapgit_repo.prog.abap b/src/zabapgit_repo.prog.abap index 6d6eb40b5..8353d11d9 100644 --- a/src/zabapgit_repo.prog.abap +++ b/src/zabapgit_repo.prog.abap @@ -18,6 +18,7 @@ CLASS lcl_repo DEFINITION ABSTRACT FRIENDS lcl_repo_srv. RAISING lcx_exception, get_files_local IMPORTING io_log TYPE REF TO lcl_log OPTIONAL + it_filter TYPE scts_tadir OPTIONAL RETURNING VALUE(rt_files) TYPE ty_files_item_tt RAISING lcx_exception, get_local_checksums @@ -223,4 +224,4 @@ CLASS lcl_repo_srv DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app. IMPORTING iv_package TYPE devclass RAISING lcx_exception. -ENDCLASS. "lcl_repo_srv DEFINITION \ No newline at end of file +ENDCLASS. "lcl_repo_srv DEFINITION diff --git a/src/zabapgit_repo.prog.xml b/src/zabapgit_repo.prog.xml index ee25763d5..928e7e911 100644 --- a/src/zabapgit_repo.prog.xml +++ b/src/zabapgit_repo.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_REPO A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_REPO 21 - diff --git a/src/zabapgit_repo_browser_util.prog.abap b/src/zabapgit_repo_browser_util.prog.abap index cfee28bed..7cab7d7e7 100644 --- a/src/zabapgit_repo_browser_util.prog.abap +++ b/src/zabapgit_repo_browser_util.prog.abap @@ -240,4 +240,4 @@ CLASS lcl_repo_content_browser IMPLEMENTATION. ENDMETHOD. "build_repo_items_online -ENDCLASS. "lcl_repo_content_browser \ No newline at end of file +ENDCLASS. "lcl_repo_content_browser diff --git a/src/zabapgit_repo_browser_util.prog.xml b/src/zabapgit_repo_browser_util.prog.xml index 53f8f567b..d70b73f28 100644 --- a/src/zabapgit_repo_browser_util.prog.xml +++ b/src/zabapgit_repo_browser_util.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_REPO_BROWSER_UTIL A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_REPO_BROWSER_UTIL 34 - diff --git a/src/zabapgit_repo_impl.prog.abap b/src/zabapgit_repo_impl.prog.abap index 364f8a55b..36b8f7cce 100644 --- a/src/zabapgit_repo_impl.prog.abap +++ b/src/zabapgit_repo_impl.prog.abap @@ -504,10 +504,13 @@ CLASS lcl_repo IMPLEMENTATION. DATA: lt_tadir TYPE ty_tadir_tt, ls_item TYPE ty_item, - lt_files TYPE ty_files_tt. + lt_files TYPE ty_files_tt, + lt_cache TYPE SORTED TABLE OF ty_file_item + WITH NON-UNIQUE KEY item. - DATA: lt_cache TYPE SORTED TABLE OF ty_file_item - WITH NON-UNIQUE KEY item. + DATA: lt_filter TYPE SORTED TABLE OF tadir + WITH NON-UNIQUE KEY object obj_name, + lv_filter_exist TYPE abap_bool. FIELD-SYMBOLS: LIKE LINE OF lt_files, LIKE LINE OF rt_files, @@ -533,7 +536,19 @@ CLASS lcl_repo IMPLEMENTATION. lt_cache = mt_local. lt_tadir = lcl_tadir=>read( get_package( ) ). + + lt_filter = it_filter. + lv_filter_exist = boolc( lines( lt_filter ) > 0 ) . + LOOP AT lt_tadir ASSIGNING . + IF lv_filter_exist = abap_true. + READ TABLE lt_filter TRANSPORTING NO FIELDS WITH KEY object = -object + obj_name = -obj_name + BINARY SEARCH. + IF sy-subrc <> 0. + CONTINUE. + ENDIF. + ENDIF. lcl_progress=>show( iv_key = 'Serialize' iv_current = sy-tabix @@ -923,4 +938,4 @@ CLASS lcl_repo_srv IMPLEMENTATION. ENDMETHOD. "switch_repo_type -ENDCLASS. "lcl_repo_srv IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_repo_srv IMPLEMENTATION diff --git a/src/zabapgit_repo_impl.prog.xml b/src/zabapgit_repo_impl.prog.xml index a1b4b53bc..eb737a7ba 100644 --- a/src/zabapgit_repo_impl.prog.xml +++ b/src/zabapgit_repo_impl.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_REPO_IMPL A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_REPO_IMPL 26 - diff --git a/src/zabapgit_sap_package.prog.abap b/src/zabapgit_sap_package.prog.abap index d9a0ad838..632941449 100644 --- a/src/zabapgit_sap_package.prog.abap +++ b/src/zabapgit_sap_package.prog.abap @@ -363,4 +363,4 @@ CLASS lcl_sap_package IMPLEMENTATION. ENDMETHOD. "create -ENDCLASS. "lcl_package IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_package IMPLEMENTATION diff --git a/src/zabapgit_sap_package.prog.xml b/src/zabapgit_sap_package.prog.xml index 8b7003d0c..4cb21c124 100644 --- a/src/zabapgit_sap_package.prog.xml +++ b/src/zabapgit_sap_package.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_SAP_PACKAGE A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_SAP_PACKAGE 28 - diff --git a/src/zabapgit_services.prog.abap b/src/zabapgit_services.prog.abap index 88e26e99b..801ffd6d7 100644 --- a/src/zabapgit_services.prog.abap +++ b/src/zabapgit_services.prog.abap @@ -6,4 +6,4 @@ INCLUDE zabapgit_services_repo. INCLUDE zabapgit_services_abapgit. INCLUDE zabapgit_services_git. INCLUDE zabapgit_services_db. -INCLUDE zabapgit_services_background. \ No newline at end of file +INCLUDE zabapgit_services_background. diff --git a/src/zabapgit_services.prog.xml b/src/zabapgit_services.prog.xml index 94fd322ab..e21ee1f24 100644 --- a/src/zabapgit_services.prog.xml +++ b/src/zabapgit_services.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_SERVICES A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_SERVICES 25 - diff --git a/src/zabapgit_services_abapgit.prog.abap b/src/zabapgit_services_abapgit.prog.abap index 94f76577f..58ecbbe21 100644 --- a/src/zabapgit_services_abapgit.prog.abap +++ b/src/zabapgit_services_abapgit.prog.abap @@ -178,4 +178,4 @@ CLASS lcl_services_abapgit IMPLEMENTATION. ENDMETHOD. "is_installed_pi -ENDCLASS. "lcl_services_abapgit \ No newline at end of file +ENDCLASS. "lcl_services_abapgit diff --git a/src/zabapgit_services_abapgit.prog.xml b/src/zabapgit_services_abapgit.prog.xml index 4db10411f..70ac94319 100644 --- a/src/zabapgit_services_abapgit.prog.xml +++ b/src/zabapgit_services_abapgit.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_SERVICES_ABAPGIT A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_SERVICES_ABAPGIT 33 - diff --git a/src/zabapgit_services_background.prog.abap b/src/zabapgit_services_background.prog.abap index 701f36538..4e372ddc2 100644 --- a/src/zabapgit_services_background.prog.abap +++ b/src/zabapgit_services_background.prog.abap @@ -32,4 +32,4 @@ CLASS lcl_services_background IMPLEMENTATION. ENDMETHOD. "update_task -ENDCLASS. "lcl_services_background \ No newline at end of file +ENDCLASS. "lcl_services_background diff --git a/src/zabapgit_services_background.prog.xml b/src/zabapgit_services_background.prog.xml index ac4f12b1d..1a6276ed2 100644 --- a/src/zabapgit_services_background.prog.xml +++ b/src/zabapgit_services_background.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_SERVICES_BACKGROUND A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_SERVICES_BACKGROUND 36 - diff --git a/src/zabapgit_services_db.prog.abap b/src/zabapgit_services_db.prog.abap index e32884e55..4bd7d8e24 100644 --- a/src/zabapgit_services_db.prog.abap +++ b/src/zabapgit_services_db.prog.abap @@ -60,4 +60,4 @@ CLASS lcl_services_db IMPLEMENTATION. ENDMETHOD. "update -ENDCLASS. "lcl_services_db \ No newline at end of file +ENDCLASS. "lcl_services_db diff --git a/src/zabapgit_services_db.prog.xml b/src/zabapgit_services_db.prog.xml index 98309e91c..0ad2b046a 100644 --- a/src/zabapgit_services_db.prog.xml +++ b/src/zabapgit_services_db.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_SERVICES_DB A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_SERVICES_DB 28 - diff --git a/src/zabapgit_services_git.prog.abap b/src/zabapgit_services_git.prog.abap index ee3d03d13..929803158 100644 --- a/src/zabapgit_services_git.prog.abap +++ b/src/zabapgit_services_git.prog.abap @@ -212,4 +212,4 @@ CLASS lcl_services_git IMPLEMENTATION. ENDMETHOD. "commit -ENDCLASS. " lcl_services_git \ No newline at end of file +ENDCLASS. " lcl_services_git diff --git a/src/zabapgit_services_git.prog.xml b/src/zabapgit_services_git.prog.xml index 8e5e125f7..5357b8a80 100644 --- a/src/zabapgit_services_git.prog.xml +++ b/src/zabapgit_services_git.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_SERVICES_GIT A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_SERVICES_GIT 29 - diff --git a/src/zabapgit_services_repo.prog.abap b/src/zabapgit_services_repo.prog.abap index 59e9157a3..90f052424 100644 --- a/src/zabapgit_services_repo.prog.abap +++ b/src/zabapgit_services_repo.prog.abap @@ -314,4 +314,4 @@ CLASS lcl_services_repo IMPLEMENTATION. ENDMETHOD. " open_se80. -ENDCLASS. "lcl_services_repo \ No newline at end of file +ENDCLASS. "lcl_services_repo diff --git a/src/zabapgit_services_repo.prog.xml b/src/zabapgit_services_repo.prog.xml index 8e628a2f6..12c63c2b5 100644 --- a/src/zabapgit_services_repo.prog.xml +++ b/src/zabapgit_services_repo.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_SERVICES_REPO A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_SERVICES_REPO 30 - diff --git a/src/zabapgit_stage.prog.abap b/src/zabapgit_stage.prog.abap index 958a136cc..2567a3178 100644 --- a/src/zabapgit_stage.prog.abap +++ b/src/zabapgit_stage.prog.abap @@ -193,4 +193,4 @@ CLASS lcl_stage IMPLEMENTATION. rv_count = lines( mt_stage ). ENDMETHOD. "count -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_stage.prog.xml b/src/zabapgit_stage.prog.xml index 7dc0d55d1..454bc358e 100644 --- a/src/zabapgit_stage.prog.xml +++ b/src/zabapgit_stage.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_STAGE A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_STAGE 22 - diff --git a/src/zabapgit_stage_logic.prog.abap b/src/zabapgit_stage_logic.prog.abap index 2857381aa..20266e33d 100644 --- a/src/zabapgit_stage_logic.prog.abap +++ b/src/zabapgit_stage_logic.prog.abap @@ -91,4 +91,4 @@ CLASS lcl_stage_logic IMPLEMENTATION. ENDMETHOD. -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_stage_logic.prog.xml b/src/zabapgit_stage_logic.prog.xml index feb6d4f0c..a39f3eb56 100644 --- a/src/zabapgit_stage_logic.prog.xml +++ b/src/zabapgit_stage_logic.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_STAGE_LOGIC A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_STAGE_LOGIC 28 - diff --git a/src/zabapgit_syntax_highlighter.prog.abap b/src/zabapgit_syntax_highlighter.prog.abap index 050c9e107..cb1e391d3 100644 --- a/src/zabapgit_syntax_highlighter.prog.abap +++ b/src/zabapgit_syntax_highlighter.prog.abap @@ -1236,4 +1236,4 @@ CLASS ltcl_syntax_basic_logic IMPLEMENTATION. ENDMETHOD. " process_line -ENDCLASS. " ltcl_syntax_highlighter \ No newline at end of file +ENDCLASS. " ltcl_syntax_highlighter diff --git a/src/zabapgit_syntax_highlighter.prog.xml b/src/zabapgit_syntax_highlighter.prog.xml index 6e2f1cb34..4f1a01c95 100644 --- a/src/zabapgit_syntax_highlighter.prog.xml +++ b/src/zabapgit_syntax_highlighter.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_SYNTAX_HIGHLIGHTER A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_SYNTAX_HIGHLIGHTER 35 - diff --git a/src/zabapgit_tadir.prog.abap b/src/zabapgit_tadir.prog.abap index 42ca99fcd..0dff031d8 100644 --- a/src/zabapgit_tadir.prog.abap +++ b/src/zabapgit_tadir.prog.abap @@ -190,4 +190,4 @@ CLASS lcl_tadir IMPLEMENTATION. ENDMETHOD. "build -ENDCLASS. "lcl_tadir IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_tadir IMPLEMENTATION diff --git a/src/zabapgit_tadir.prog.xml b/src/zabapgit_tadir.prog.xml index 16942b0ac..54f70dd51 100644 --- a/src/zabapgit_tadir.prog.xml +++ b/src/zabapgit_tadir.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_TADIR A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_TADIR 22 - diff --git a/src/zabapgit_transport.prog.xml b/src/zabapgit_transport.prog.xml index b31498d76..d27b57809 100644 --- a/src/zabapgit_transport.prog.xml +++ b/src/zabapgit_transport.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_TRANSPORT A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_TRANSPORT 26 - diff --git a/src/zabapgit_unit_test.prog.abap b/src/zabapgit_unit_test.prog.abap index 98f84d9ef..11e58a8c5 100644 --- a/src/zabapgit_unit_test.prog.abap +++ b/src/zabapgit_unit_test.prog.abap @@ -1917,6 +1917,7 @@ CLASS ltcl_file_status IMPLEMENTATION. lt_results_exp = lt_results. lt_results = lcl_file_status=>calculate_status( + iv_devclass = '$Z$' it_local = lt_local it_remote = lt_remote it_cur_state = lt_state ). @@ -2210,4 +2211,4 @@ CLASS ltcl_persistence_settings IMPLEMENTATION. ENDCLASS. -INCLUDE ZABAPGIT_UNIT_TEST_CLAS_INTF. \ No newline at end of file +INCLUDE ZABAPGIT_UNIT_TEST_CLAS_INTF. diff --git a/src/zabapgit_unit_test.prog.xml b/src/zabapgit_unit_test.prog.xml index 57d4937b5..4a8363652 100644 --- a/src/zabapgit_unit_test.prog.xml +++ b/src/zabapgit_unit_test.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_UNIT_TEST A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Program ZABAPGIT_UNIT_TEST 26 - diff --git a/src/zabapgit_unit_test_clas_intf.prog.abap b/src/zabapgit_unit_test_clas_intf.prog.abap index d83e798d6..a5f4c7b37 100644 --- a/src/zabapgit_unit_test_clas_intf.prog.abap +++ b/src/zabapgit_unit_test_clas_intf.prog.abap @@ -643,4 +643,4 @@ CLASS ltcl_interface_changed IMPLEMENTATION. act = mo_spy_oo_object->mv_get_includes_called exp = abap_true ). ENDMETHOD. -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_unit_test_clas_intf.prog.xml b/src/zabapgit_unit_test_clas_intf.prog.xml index 1d21085bf..b5b051403 100644 --- a/src/zabapgit_unit_test_clas_intf.prog.xml +++ b/src/zabapgit_unit_test_clas_intf.prog.xml @@ -5,42 +5,19 @@ ZABAPGIT_UNIT_TEST_CLAS_INTF A - - X S D$ - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - - X - - 0000-00-00 - - 0000-00-00 - D$S X R - Unit tests for classes and interfaces objecst 45 - diff --git a/src/zabapgit_util.prog.abap b/src/zabapgit_util.prog.abap index 9c9ca66dd..de87acd11 100644 --- a/src/zabapgit_util.prog.abap +++ b/src/zabapgit_util.prog.abap @@ -1122,4 +1122,4 @@ CLASS lcl_log IMPLEMENTATION. rv_yes = boolc( sy-subrc = 0 ). ENDMETHOD. "has_rc -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_util.prog.xml b/src/zabapgit_util.prog.xml index 8fc89ca26..c7068cc40 100644 --- a/src/zabapgit_util.prog.xml +++ b/src/zabapgit_util.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_UTIL A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_UTIL 21 - diff --git a/src/zabapgit_view_repo.prog.abap b/src/zabapgit_view_repo.prog.abap index 5c9cd9b74..f35b67758 100644 --- a/src/zabapgit_view_repo.prog.abap +++ b/src/zabapgit_view_repo.prog.abap @@ -111,10 +111,15 @@ CLASS lcl_gui_view_repo_content IMPLEMENTATION. lv_lstate TYPE char1, lv_rstate TYPE char1, lv_max TYPE abap_bool, - lo_log TYPE REF TO lcl_log. + lo_log TYPE REF TO lcl_log, + lo_settings TYPE REF TO lcl_settings, + lv_max_lines TYPE i. FIELD-SYMBOLS LIKE LINE OF lt_repo_items. + " Read global settings to get max # of objects to be listed + lo_settings = lcl_app=>settings( )->read( ). + lv_max_lines = lo_settings->get_max_lines( ). " Reinit, for the case of type change mo_repo = lcl_app=>repo_srv( )->get( mo_repo->get_key( ) ). @@ -160,7 +165,7 @@ CLASS lcl_gui_view_repo_content IMPLEMENTATION. ro_html->add( render_empty_package( ) ). ELSE. LOOP AT lt_repo_items ASSIGNING . - IF sy-tabix > 500. + IF lv_max_lines > 0 AND sy-tabix > lv_max_lines. lv_max = abap_true. EXIT. " current loop ENDIF. @@ -171,7 +176,11 @@ CLASS lcl_gui_view_repo_content IMPLEMENTATION. ro_html->add( '' ). IF lv_max = abap_true. - ro_html->add( 'Only first 500 objects shown in list' ). + IF lv_max_lines = 1. + ro_html->add( |Only 1 object shown in list (Set in Advanced > Settings )| ). + ELSE. + ro_html->add( |Only first { lv_max_lines } objects shown in list (Set in Advanced > Settings )| ). + ENDIF. ENDIF. ro_html->add( '' ). @@ -541,4 +550,4 @@ CLASS lcl_gui_view_repo_content IMPLEMENTATION. ENDMETHOD. "build_obj_jump_link -ENDCLASS. "lcl_gui_view_repo_content \ No newline at end of file +ENDCLASS. "lcl_gui_view_repo_content diff --git a/src/zabapgit_view_repo.prog.xml b/src/zabapgit_view_repo.prog.xml index 6da1c7449..2bf307e7f 100644 --- a/src/zabapgit_view_repo.prog.xml +++ b/src/zabapgit_view_repo.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_VIEW_REPO A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_VIEW_REPO 26 - diff --git a/src/zabapgit_view_tutorial.prog.abap b/src/zabapgit_view_tutorial.prog.abap index bdb915b91..b61c7e976 100644 --- a/src/zabapgit_view_tutorial.prog.abap +++ b/src/zabapgit_view_tutorial.prog.abap @@ -69,4 +69,4 @@ CLASS lcl_gui_view_tutorial IMPLEMENTATION. ENDMETHOD. " render_content. -ENDCLASS. "lcl_gui_view_tutorial \ No newline at end of file +ENDCLASS. "lcl_gui_view_tutorial diff --git a/src/zabapgit_view_tutorial.prog.xml b/src/zabapgit_view_tutorial.prog.xml index d7ba73043..232ea0b98 100644 --- a/src/zabapgit_view_tutorial.prog.xml +++ b/src/zabapgit_view_tutorial.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_VIEW_TUTORIAL A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_PAGE_TUTORIAL 30 - diff --git a/src/zabapgit_xml.prog.abap b/src/zabapgit_xml.prog.abap index 23e1828c4..e3aece7cb 100644 --- a/src/zabapgit_xml.prog.abap +++ b/src/zabapgit_xml.prog.abap @@ -222,6 +222,7 @@ CLASS lcl_xml_output IMPLEMENTATION. li_doc = cl_ixml=>create( )->create_document( ). CALL TRANSFORMATION id + OPTIONS initial_components = 'suppress' SOURCE (lt_stab) RESULT XML li_doc. @@ -424,4 +425,4 @@ CLASS lcl_xml_pretty IMPLEMENTATION. ENDMETHOD. -ENDCLASS. \ No newline at end of file +ENDCLASS. diff --git a/src/zabapgit_xml.prog.xml b/src/zabapgit_xml.prog.xml index 3a2acf6a0..1d7df9bac 100644 --- a/src/zabapgit_xml.prog.xml +++ b/src/zabapgit_xml.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_XML A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_XML 20 - diff --git a/src/zabapgit_zip.prog.abap b/src/zabapgit_zip.prog.abap index 497f0b474..b27607ed9 100644 --- a/src/zabapgit_zip.prog.abap +++ b/src/zabapgit_zip.prog.abap @@ -404,25 +404,13 @@ CLASS lcl_zip IMPLEMENTATION. CREATE OBJECT lo_log. - lt_zip = io_repo->get_files_local( lo_log ). + lt_zip = io_repo->get_files_local( io_log = lo_log + it_filter = it_filter ). IF lo_log->count( ) > 0. lo_log->show( ). ENDIF. - IF lines( it_filter ) > 0. - LOOP AT lt_zip ASSIGNING . - lv_index = sy-tabix. - READ TABLE it_filter WITH KEY - object = -item-obj_type - obj_name = -item-obj_name - TRANSPORTING NO FIELDS. - IF sy-subrc <> 0. - DELETE lt_zip INDEX lv_index. - ENDIF. - ENDLOOP. - ENDIF. - file_download( iv_package = io_repo->get_package( ) iv_xstr = encode_files( lt_zip ) ). @@ -551,4 +539,4 @@ CLASS lcl_zip IMPLEMENTATION. ENDMETHOD. "export_package -ENDCLASS. "lcl_zip IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_zip IMPLEMENTATION diff --git a/src/zabapgit_zip.prog.xml b/src/zabapgit_zip.prog.xml index 8fea0a06e..6c9ce7fbe 100644 --- a/src/zabapgit_zip.prog.xml +++ b/src/zabapgit_zip.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_ZIP A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_ZIP 20 - diff --git a/src/zabapgit_zlib.prog.abap b/src/zabapgit_zlib.prog.abap index c22d67822..b0b128435 100644 --- a/src/zabapgit_zlib.prog.abap +++ b/src/zabapgit_zlib.prog.abap @@ -707,4 +707,4 @@ CLASS lcl_zlib IMPLEMENTATION. ENDMETHOD. "decompress -ENDCLASS. "lcl_zlib IMPLEMENTATION \ No newline at end of file +ENDCLASS. "lcl_zlib IMPLEMENTATION diff --git a/src/zabapgit_zlib.prog.xml b/src/zabapgit_zlib.prog.xml index a5e41f38d..fe4ce5f27 100644 --- a/src/zabapgit_zlib.prog.xml +++ b/src/zabapgit_zlib.prog.xml @@ -5,42 +5,16 @@ ZABAPGIT_ZLIB A - - X - - - - - I - - - - 0000-00-00 - - 0000-00-00 - - - - E - - - 0000-00-00 - - 0000-00-00 - - X R - Include ZABAPGIT_ZLIB 21 -