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

Merge pull request #748 from larshp/issue_746

Browse Source 
issue #746
This commit is contained in:
Lars Hvam 2017-04-30 09:52:44 +02:00 committed by GitHub
commit c0c52da69f
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/zabapgit_popups.prog.abap
View File

@ -17,7 +17,8 @@ CLASS lcl_popups DEFINITION FINAL.
CLASS-METHODS: CLASS-METHODS:
popup_package_export popup_package_export
RETURNING VALUE(rv_package) TYPE devclass EXPORTING ev_package TYPE devclass
ev_folder_logic TYPE string
RAISING lcx_exception, RAISING lcx_exception,
popup_object popup_object
RETURNING VALUE(rs_tadir) TYPE tadir RETURNING VALUE(rs_tadir) TYPE tadir
@ -147,6 +148,7 @@ CLASS lcl_popups IMPLEMENTATION.
" TAB FLD LABEL DEF ATTR " TAB FLD LABEL DEF ATTR
_add_dialog_fld 'TDEVC' 'DEVCLASS' 'Package' '' ''. _add_dialog_fld 'TDEVC' 'DEVCLASS' 'Package' '' ''.
_add_dialog_fld 'TDEVC' 'INTSYS' 'Folder logic' 'PREFIX' ''.
CALL FUNCTION 'POPUP_GET_VALUES' CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING EXPORTING
@ -170,8 +172,12 @@ CLASS lcl_popups IMPLEMENTATION.
READ TABLE lt_fields INDEX 1 ASSIGNING <ls_field>. READ TABLE lt_fields INDEX 1 ASSIGNING <ls_field>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
TRANSLATE <ls_field>-value TO UPPER CASE. 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 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 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. IF ls_data-package IS INITIAL.
RAISE EXCEPTION TYPE lcx_cancel. RAISE EXCEPTION TYPE lcx_cancel.
ENDIF. ENDIF.
ls_data-key = 'DUMMY'.
ls_data-dot_abapgit = lcl_dot_abapgit=>build_default( )->get_data( ).
CREATE OBJECT lo_repo CREATE OBJECT lo_repo
EXPORTING EXPORTING
is_data = ls_data. is_data = ls_data.