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 #183 from mrsimpson/master

Browse Source 
Enabled WDCA
This commit is contained in:
Lars Hvam 2016-02-26 14:16:56 +01:00
commit 1f27a0f9c6
1 changed files with 25 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
zabapgit.prog.abap
View File

@ -6585,35 +6585,32 @@ CLASS lcl_object_wdca IMPLEMENTATION.
METHOD save.
_raise 'WDCA, save, todo'.
DATA: lo_cfg TYPE REF TO cl_wdr_cfg_persistence_appl,
ls_key TYPE wdy_config_key,
ls_data LIKE LINE OF it_data,
lv_operation TYPE i,
lv_name TYPE wdy_md_object_name.
* DATA: lo_cfg TYPE REF TO cl_wdr_cfg_persistence_appl,
* ls_key TYPE wdy_config_key,
* ls_data LIKE LINE OF it_data,
* lv_operation TYPE i,
* lv_name TYPE wdy_md_object_name.
*
*
* MOVE-CORRESPONDING is_outline TO ls_key.
*
* TRY.
* CREATE OBJECT lo_cfg
* EXPORTING
* config_key = ls_key
* object_name = lv_name.
*
* READ TABLE it_data INDEX 1 INTO ls_data.
* ASSERT sy-subrc = 0.
*
* lv_operation = if_wdr_cfg_constants=>c_cts_operation-e_save.
* lo_cfg->do_next_step( CHANGING c_operation = lv_operation ).
* lo_cfg->do_next_step( CHANGING c_operation = lv_operation ).
*
* lo_cfg->set_save_data( ls_data ).
*
* CATCH cx_wd_configuration.
* _raise 'WDCA, save error'.
* ENDTRY.
MOVE-CORRESPONDING is_outline TO ls_key.
TRY.
CREATE OBJECT lo_cfg
EXPORTING
config_key = ls_key
object_name = lv_name.
READ TABLE it_data INDEX 1 INTO ls_data.
ASSERT sy-subrc = 0.
lo_cfg->set_save_data( ls_data ).
lv_operation = if_wdr_cfg_constants=>c_cts_operation-e_save.
lo_cfg->do_next_step( CHANGING c_operation = lv_operation ).
CATCH cx_wd_configuration.
_raise 'WDCA, save error'.
ENDTRY.
ENDMETHOD. "save