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

issue #746

Browse Source 
allow for specifying folder logic when using Advanced -> Export to zip
This commit is contained in:
larshp 2017-04-29 10:57:42 +02:00
parent 15b9ce3cd1
commit 131f8e690d
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/zabapgit_popups.prog.abap
View File

@ -17,7 +17,8 @@ CLASS lcl_popups DEFINITION FINAL.
CLASS-METHODS:
popup_package_export
RETURNING VALUE(rv_package) TYPE devclass
EXPORTING ev_package TYPE devclass
ev_folder_logic TYPE string
RAISING lcx_exception,
popup_object
RETURNING VALUE(rs_tadir) TYPE tadir
@ -145,8 +146,9 @@ CLASS lcl_popups IMPLEMENTATION.
FIELD-SYMBOLS: <ls_field> LIKE LINE OF lt_fields.
" TAB FLD LABEL DEF ATTR
_add_dialog_fld 'TDEVC' 'DEVCLASS' 'Package' '' ''.
" TAB FLD LABEL DEF ATTR
_add_dialog_fld 'TDEVC' 'DEVCLASS' 'Package' '' ''.
_add_dialog_fld 'TDEVC' 'INTSYS' 'Folder logic' 'PREFIX' ''.
CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
@ -170,8 +172,12 @@ CLASS lcl_popups IMPLEMENTATION.
READ TABLE lt_fields INDEX 1 ASSIGNING <ls_field>.
ASSERT sy-subrc = 0.
TRANSLATE <ls_field>-value TO UPPER CASE.
ev_package = <ls_field>-value.
rv_package = <ls_field>-value.
READ TABLE lt_fields INDEX 2 ASSIGNING <ls_field>.
ASSERT sy-subrc = 0.
TRANSLATE <ls_field>-value TO UPPER CASE.
ev_folder_logic = <ls_field>-value.
ENDMETHOD. "popup_package_export

11
src/zabapgit_zip.prog.abap
View File

@ -388,14 +388,17 @@ CLASS lcl_zip IMPLEMENTATION.
ls_data TYPE lcl_persistence_repo=>ty_repo.
ls_data-package = lcl_popups=>popup_package_export( ).
ls_data-key = 'DUMMY'.
ls_data-dot_abapgit = lcl_dot_abapgit=>build_default( )->get_data( ).
lcl_popups=>popup_package_export(
IMPORTING
ev_package = ls_data-package
ev_folder_logic = ls_data-dot_abapgit-folder_logic ).
IF ls_data-package IS INITIAL.
RAISE EXCEPTION TYPE lcx_cancel.
ENDIF.
ls_data-key = 'DUMMY'.
ls_data-dot_abapgit = lcl_dot_abapgit=>build_default( )->get_data( ).
CREATE OBJECT lo_repo
EXPORTING
is_data = ls_data.