CLASS zcl_abapgit_transport DEFINITION PUBLIC CREATE PUBLIC . PUBLIC SECTION. CLASS-METHODS zip IMPORTING !iv_show_log_popup TYPE abap_bool DEFAULT abap_true !iv_logic TYPE string OPTIONAL !is_trkorr TYPE trwbo_request_header OPTIONAL RETURNING VALUE(rv_xstr) TYPE xstring RAISING zcx_abapgit_exception . CLASS-METHODS to_tadir IMPORTING it_transport_headers TYPE trwbo_request_headers RETURNING VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt RAISING zcx_abapgit_exception . CLASS-METHODS add_all_objects_to_trans_req IMPORTING iv_key TYPE zif_abapgit_persistence=>ty_value RAISING zcx_abapgit_exception . PROTECTED SECTION. CLASS-METHODS read_requests IMPORTING !it_trkorr TYPE trwbo_request_headers RETURNING VALUE(rt_requests) TYPE trwbo_requests RAISING zcx_abapgit_exception . CLASS-METHODS find_top_package IMPORTING !it_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt RETURNING VALUE(rv_package) TYPE devclass RAISING zcx_abapgit_exception . CLASS-METHODS resolve IMPORTING !it_requests TYPE trwbo_requests RETURNING VALUE(rt_tadir) TYPE zif_abapgit_definitions=>ty_tadir_tt RAISING zcx_abapgit_exception . PRIVATE SECTION. CLASS-METHODS collect_all_objects IMPORTING iv_key TYPE zif_abapgit_persistence=>ty_value RETURNING VALUE(rt_objects) TYPE tr_objects RAISING zcx_abapgit_exception. ENDCLASS. CLASS ZCL_ABAPGIT_TRANSPORT IMPLEMENTATION. METHOD find_top_package. * assumption: all objects in transport share a common super package DATA: lt_obj TYPE zif_abapgit_sap_package=>ty_devclass_tt, lt_super TYPE zif_abapgit_sap_package=>ty_devclass_tt, lv_super LIKE LINE OF lt_super, lv_index TYPE i. FIELD-SYMBOLS: LIKE LINE OF it_tadir. READ TABLE it_tadir INDEX 1 ASSIGNING . ASSERT sy-subrc = 0. lt_super = zcl_abapgit_factory=>get_sap_package( -devclass )->list_superpackages( ). LOOP AT it_tadir ASSIGNING . lt_obj = zcl_abapgit_factory=>get_sap_package( -devclass )->list_superpackages( ). * filter out possibilities from lt_super LOOP AT lt_super INTO lv_super. lv_index = sy-tabix. READ TABLE lt_obj FROM lv_super TRANSPORTING NO FIELDS. IF sy-subrc <> 0. DELETE lt_super INDEX lv_index. ENDIF. ENDLOOP. ENDLOOP. READ TABLE lt_super INDEX lines( lt_super ) INTO rv_package. ENDMETHOD. METHOD read_requests. DATA lt_requests LIKE rt_requests. FIELD-SYMBOLS LIKE LINE OF it_trkorr. LOOP AT it_trkorr ASSIGNING . CALL FUNCTION 'TR_READ_REQUEST_WITH_TASKS' EXPORTING iv_trkorr = -trkorr IMPORTING et_requests = lt_requests EXCEPTIONS invalid_input = 1 OTHERS = 2. IF sy-subrc <> 0. zcx_abapgit_exception=>raise( 'error from TR_READ_REQUEST_WITH_TASKS' ). ENDIF. APPEND LINES OF lt_requests TO rt_requests. ENDLOOP. ENDMETHOD. METHOD resolve. DATA: lv_object TYPE tadir-object, lv_obj_name TYPE tadir-obj_name, lv_trobj_name TYPE trobj_name, ls_tadir TYPE zif_abapgit_definitions=>ty_tadir. FIELD-SYMBOLS: LIKE LINE OF it_requests, LIKE LINE OF -objects. LOOP AT it_requests ASSIGNING . LOOP AT -objects ASSIGNING . " VARX, see https://github.com/larshp/abapGit/issues/3107 IF -pgmid = 'LIMU' AND -object <> 'VARX'. CALL FUNCTION 'GET_R3TR_OBJECT_FROM_LIMU_OBJ' EXPORTING p_limu_objtype = -object p_limu_objname = -obj_name IMPORTING p_r3tr_objtype = lv_object p_r3tr_objname = lv_trobj_name EXCEPTIONS no_mapping = 1 OTHERS = 2. IF sy-subrc <> 0. zcx_abapgit_exception=>raise( 'error from GET_R3TR_OBJECT_FROM_LIMU_OBJ' ). ENDIF. lv_obj_name = lv_trobj_name. ELSE. lv_object = -object. lv_obj_name = -obj_name. ENDIF. ls_tadir = zcl_abapgit_factory=>get_tadir( )->read_single( iv_object = lv_object iv_obj_name = lv_obj_name ). APPEND ls_tadir TO rt_tadir. ENDLOOP. ENDLOOP. SORT rt_tadir BY object ASCENDING obj_name ASCENDING. DELETE ADJACENT DUPLICATES FROM rt_tadir COMPARING object obj_name. DELETE rt_tadir WHERE table_line IS INITIAL. ENDMETHOD. METHOD to_tadir. DATA: lt_requests TYPE trwbo_requests. IF lines( it_transport_headers ) = 0. RETURN. ENDIF. lt_requests = read_requests( it_transport_headers ). rt_tadir = resolve( lt_requests ). ENDMETHOD. METHOD zip. DATA: lt_requests TYPE trwbo_requests, lt_tadir TYPE zif_abapgit_definitions=>ty_tadir_tt, lv_package TYPE devclass, ls_data TYPE zif_abapgit_persistence=>ty_repo, lo_repo TYPE REF TO zcl_abapgit_repo_offline, lt_trkorr TYPE trwbo_request_headers. IF is_trkorr IS SUPPLIED. APPEND is_trkorr TO lt_trkorr. ELSE. lt_trkorr = zcl_abapgit_ui_factory=>get_popups( )->popup_to_select_transports( ). ENDIF. IF lines( lt_trkorr ) = 0. RETURN. ENDIF. lt_requests = read_requests( lt_trkorr ). lt_tadir = resolve( lt_requests ). IF lines( lt_tadir ) = 0. zcx_abapgit_exception=>raise( 'empty transport' ). ENDIF. lv_package = find_top_package( lt_tadir ). IF lv_package IS INITIAL. zcx_abapgit_exception=>raise( 'error finding super package' ). ENDIF. ls_data-key = 'TZIP'. ls_data-package = lv_package. ls_data-dot_abapgit = zcl_abapgit_dot_abapgit=>build_default( )->get_data( ). IF iv_logic IS SUPPLIED AND iv_logic IS NOT INITIAL. ls_data-dot_abapgit-folder_logic = iv_logic. ELSE. ls_data-dot_abapgit-folder_logic = zcl_abapgit_ui_factory=>get_popups( )->popup_folder_logic( ). ENDIF. CREATE OBJECT lo_repo EXPORTING is_data = ls_data. rv_xstr = zcl_abapgit_zip=>export( io_repo = lo_repo it_filter = lt_tadir iv_show_log = iv_show_log_popup ). ENDMETHOD. METHOD add_all_objects_to_trans_req. DATA: ls_request TYPE trwbo_request_header, lt_e071 TYPE tr_objects, lv_text TYPE string, lv_answer TYPE c LENGTH 1, lv_lock_objects TYPE trparflag. lv_answer = zcl_abapgit_ui_factory=>get_popups( )->popup_to_confirm( iv_titlebar = `Lock objects?` iv_text_question = `Shall all objects be locked in the transport request?` iv_display_cancel_button = abap_true ). CASE lv_answer. WHEN '1'. lv_lock_objects = abap_true. WHEN '2'. lv_lock_objects = abap_false. WHEN OTHERS. RETURN. ENDCASE. lt_e071 = collect_all_objects( iv_key ). CALL FUNCTION 'TR_REQUEST_CHOICE' EXPORTING it_e071 = lt_e071 iv_lock_objects = lv_lock_objects IMPORTING es_request = ls_request EXCEPTIONS invalid_request = 1 invalid_request_type = 2 user_not_owner = 3 no_objects_appended = 4 enqueue_error = 5 cancelled_by_user = 6 recursive_call = 7 OTHERS = 8. IF sy-subrc <> 0. zcx_abapgit_exception=>raise_t100( ). ENDIF. lv_text = |Objects successfully added to { ls_request-trkorr }|. MESSAGE lv_text TYPE 'S'. ENDMETHOD. METHOD collect_all_objects. DATA: lt_objects TYPE scts_tadir, lt_objects_all LIKE lt_objects, ls_e071 LIKE LINE OF rt_objects, lo_repo TYPE REF TO zcl_abapgit_repo, lv_package TYPE zif_abapgit_persistence=>ty_repo-package, lt_packages TYPE zif_abapgit_sap_package=>ty_devclass_tt. FIELD-SYMBOLS: TYPE devclass, TYPE tadir. lo_repo = zcl_abapgit_repo_srv=>get_instance( )->get( iv_key ). lv_package = lo_repo->get_package( ). lt_packages = zcl_abapgit_factory=>get_sap_package( lv_package )->list_subpackages( ). INSERT lv_package INTO TABLE lt_packages. LOOP AT lt_packages ASSIGNING . CLEAR: lt_objects. CALL FUNCTION 'TRINT_SELECT_OBJECTS' EXPORTING iv_devclass = iv_via_selscreen = abap_false IMPORTING et_objects_tadir = lt_objects EXCEPTIONS cancelled_by_user = 1 invalid_input = 2 OTHERS = 3. IF sy-subrc <> 0. zcx_abapgit_exception=>raise( |FM TRINT_SELECT_OBJECTS subrc={ sy-subrc }| ). ENDIF. INSERT LINES OF lt_objects INTO TABLE lt_objects_all. ENDLOOP. IF lines( lt_objects_all ) = 0. zcx_abapgit_exception=>raise( |No objects found| ). ENDIF. LOOP AT lt_objects_all ASSIGNING . CLEAR: ls_e071. MOVE-CORRESPONDING TO ls_e071. INSERT ls_e071 INTO TABLE rt_objects. ENDLOOP. ENDMETHOD. ENDCLASS.