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

WDYN: fix package popup

Browse Source
This commit is contained in:
larshp 2017-06-05 09:03:25 +00:00
parent 9b6bb8445f
commit 6076e8acbe
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/zabapgit_object_wdyn.prog.abap
View File

@ -42,6 +42,7 @@ CLASS lcl_object_wdyn DEFINITION INHERITING FROM lcl_objects_super FINAL.
RAISING lcx_exception, RAISING lcx_exception,
recover_definition recover_definition
IMPORTING is_definition TYPE wdy_md_component_meta_data IMPORTING is_definition TYPE wdy_md_component_meta_data
iv_package TYPE devclass
RAISING lcx_exception, RAISING lcx_exception,
recover_view recover_view
IMPORTING is_view TYPE wdy_md_view_meta_data IMPORTING is_view TYPE wdy_md_view_meta_data
@ -51,8 +52,9 @@ CLASS lcl_object_wdyn DEFINITION INHERITING FROM lcl_objects_super FINAL.
RETURNING VALUE(rs_delta) TYPE svrs2_xversionable_object RETURNING VALUE(rs_delta) TYPE svrs2_xversionable_object
RAISING lcx_exception, RAISING lcx_exception,
delta_definition delta_definition
IMPORTING is_definition TYPE wdy_md_component_meta_data IMPORTING is_definition TYPE wdy_md_component_meta_data
RETURNING VALUE(rs_delta) TYPE svrs2_xversionable_object VALUE(iv_package) TYPE devclass
RETURNING VALUE(rs_delta) TYPE svrs2_xversionable_object
RAISING lcx_exception, RAISING lcx_exception,
delta_view delta_view
IMPORTING is_view TYPE wdy_md_view_meta_data IMPORTING is_view TYPE wdy_md_view_meta_data
@ -123,7 +125,9 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
EXPORTING EXPORTING
name = ls_key-component_name name = ls_key-component_name
IMPORTING IMPORTING
component = li_component ). component = li_component
CHANGING
devclass = iv_package ).
li_component->save_to_database( ). li_component->save_to_database( ).
li_component->unlock( ). li_component->unlock( ).
CATCH cx_wdy_md_exception. CATCH cx_wdy_md_exception.
@ -333,7 +337,10 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
ls_delta TYPE svrs2_xversionable_object. ls_delta TYPE svrs2_xversionable_object.
ls_delta = delta_definition( is_definition ). ls_delta = delta_definition(
is_definition = is_definition
iv_package = iv_package ).
ls_key-component_name = is_definition-definition-component_name. ls_key-component_name = is_definition-definition-component_name.
cl_wdy_md_component=>recover_version( cl_wdy_md_component=>recover_version(
@ -745,11 +752,12 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
io_xml->read( EXPORTING iv_name = 'SOURCES' io_xml->read( EXPORTING iv_name = 'SOURCES'
CHANGING cg_data = mt_sources ). CHANGING cg_data = mt_sources ).
tadir_insert( iv_package ). * tadir_insert( iv_package ).
ls_component-comp_metadata-definition-author = sy-uname. ls_component-comp_metadata-definition-author = sy-uname.
ls_component-comp_metadata-definition-createdon = sy-datum. ls_component-comp_metadata-definition-createdon = sy-datum.
recover_definition( ls_component-comp_metadata ). recover_definition( is_definition = ls_component-comp_metadata
iv_package = iv_package ).
LOOP AT ls_component-ctlr_metadata ASSIGNING <ls_controller>. LOOP AT ls_component-ctlr_metadata ASSIGNING <ls_controller>.
<ls_controller>-definition-author = sy-uname. <ls_controller>-definition-author = sy-uname.