SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Transport to zip. Select multiples transport requests #578

Browse Source 
Implements new feature #578
This commit is contained in:
Christian Tapia Sabogal 2017-01-25 19:00:09 -05:00 committed by GitHub
parent 436775edbe
commit 364d6703d1
2 changed files with 60 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

90
src/zabapgit_transport.prog.abap
View File

@ -11,9 +11,9 @@ CLASS lcl_transport DEFINITION FINAL.
PRIVATE SECTION. PRIVATE SECTION.
CLASS-METHODS: CLASS-METHODS:
popup popup
RETURNING VALUE(rv_trkorr) TYPE e070-trkorr, RETURNING VALUE(rt_trkorr) TYPE trwbo_request_headers,
read_requests read_requests
IMPORTING iv_trkorr TYPE e070-trkorr IMPORTING it_trkorr TYPE trwbo_request_headers
RETURNING VALUE(rt_requests) TYPE trwbo_requests RETURNING VALUE(rt_requests) TYPE trwbo_requests
RAISING lcx_exception, RAISING lcx_exception,
find_top_package find_top_package
@ -30,20 +30,19 @@ CLASS lcl_transport IMPLEMENTATION.
METHOD zip. METHOD zip.
DATA: lt_requests TYPE trwbo_requests, DATA: lt_requests TYPE trwbo_requests,
lt_tadir TYPE scts_tadir, lt_tadir TYPE scts_tadir,
lv_package TYPE devclass, lv_package TYPE devclass,
ls_data TYPE lcl_persistence_repo=>ty_repo, ls_data TYPE lcl_persistence_repo=>ty_repo,
lo_repo TYPE REF TO lcl_repo_offline, lo_repo TYPE REF TO lcl_repo_offline,
lv_trkorr TYPE e070-trkorr. lt_trkorr TYPE trwbo_request_headers.
lt_trkorr = popup( ).
lv_trkorr = popup( ). IF lines( lt_trkorr ) = 0.
IF lv_trkorr IS INITIAL.
RETURN. RETURN.
ENDIF. ENDIF.
lt_requests = read_requests( lv_trkorr ). lt_requests = read_requests( lt_trkorr ).
lt_tadir = resolve( lt_requests ). lt_tadir = resolve( lt_requests ).
IF lines( lt_tadir ) = 0. IF lines( lt_tadir ) = 0.
lcx_exception=>raise( 'empty transport' ). lcx_exception=>raise( 'empty transport' ).
@ -101,31 +100,60 @@ CLASS lcl_transport IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD popup. METHOD popup.
DATA: lrs_trfunction TYPE trsel_trs_function,
lv_types TYPE string,
ls_ranges TYPE trsel_ts_ranges.
CALL FUNCTION 'TR_F4_REQUESTS' " Fill all request types
EXPORTING lv_types = 'KWTCOEMPDRSXQFG'.
iv_username = sy-uname lrs_trfunction-sign = 'I'.
iv_trkorr_pattern = rv_trkorr lrs_trfunction-option = 'EQ'.
iv_trfunctions = sctsc_types_all WHILE lv_types NE space.
iv_trstatus = sctsc_states_changeable lrs_trfunction-low = lv_types(1).
IMPORTING APPEND lrs_trfunction TO ls_ranges-request_funcs.
ev_selected_request = rv_trkorr. SHIFT lv_types.
ENDWHILE.
CALL FUNCTION 'TRINT_SELECT_REQUESTS'
EXPORTING
iv_username_pattern = sy-uname
iv_via_selscreen = 'X'
iv_complete_projects = ''
* is_popup =
iv_title = 'abapGit: Transport Request Selection'
IMPORTING
et_requests = rt_trkorr
CHANGING
cs_ranges = ls_ranges
EXCEPTIONS
action_aborted_by_user = 1
OTHERS = 2.
IF sy-subrc <> 0.
RETURN.
ENDIF.
ENDMETHOD. ENDMETHOD.
METHOD read_requests. METHOD read_requests.
CALL FUNCTION 'TR_READ_REQUEST_WITH_TASKS' DATA lt_requests LIKE rt_requests.
EXPORTING FIELD-SYMBOLS <fs_trkorr> LIKE LINE OF it_trkorr.
iv_trkorr = iv_trkorr
IMPORTING LOOP AT it_trkorr ASSIGNING <fs_trkorr>.
et_requests = rt_requests CALL FUNCTION 'TR_READ_REQUEST_WITH_TASKS'
EXCEPTIONS EXPORTING
invalid_input = 1 iv_trkorr = <fs_trkorr>-trkorr
OTHERS = 2. IMPORTING
IF sy-subrc <> 0. et_requests = lt_requests
lcx_exception=>raise( 'error from TR_READ_REQUEST_WITH_TASKS' ). EXCEPTIONS
ENDIF. invalid_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from TR_READ_REQUEST_WITH_TASKS' ).
ENDIF.
APPEND LINES OF lt_requests TO rt_requests.
ENDLOOP.
ENDMETHOD. ENDMETHOD.

8
src/zabapgit_transport.prog.xml
View File

@ -10,13 +10,7 @@
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL/>
<item>
<ID>R</ID>
<ENTRY>Include ZABAPGIT_TRANSPORT</ENTRY>
<LENGTH>26</LENGTH>
</item>
</TPOOL>
</asx:values> </asx:values>
</asx:abap> </asx:abap>
</abapGit> </abapGit>