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

Downport Part I

Browse Source
This commit is contained in:
Christian Günter 2017-11-07 21:37:12 +00:00
parent 6e77e7d30c
commit 0576b8e7d1
1 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/zabapgit_object_ddlx.prog.abap
View File

@ -25,7 +25,8 @@ CLASS lcl_object_ddlx IMPLEMENTATION.
super->constructor( is_item = is_item super->constructor( is_item = is_item
iv_language = iv_language ). iv_language = iv_language ).
mo_persistence = NEW cl_ddlx_adt_object_persist( ). CREATE OBJECT mo_persistence
TYPE ('CL_DDLX_ADT_OBJECT_PERSIST').
ENDMETHOD. ENDMETHOD.
@ -46,10 +47,14 @@ CLASS lcl_object_ddlx IMPLEMENTATION.
METHOD lif_object~exists. METHOD lif_object~exists.
DATA: lv_object_key TYPE seu_objkey.
lv_object_key = ms_item-obj_name.
rv_bool = abap_true. rv_bool = abap_true.
TRY. TRY.
mo_persistence->get( p_object_key = CONV #( ms_item-obj_name ) mo_persistence->get( p_object_key = lv_object_key
p_version = 'A' p_version = 'A'
p_existence_check_only = abap_true ). p_existence_check_only = abap_true ).
@ -74,14 +79,18 @@ CLASS lcl_object_ddlx IMPLEMENTATION.
METHOD lif_object~delete. METHOD lif_object~delete.
DATA: lo_data_model TYPE REF TO if_wb_object_data_model, DATA: lv_object_key TYPE seu_objkey,
lo_data_model TYPE REF TO if_wb_object_data_model,
lv_text TYPE string, lv_text TYPE string,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
TRY. lv_object_key = ms_item-obj_name.
lo_data_model = NEW cl_ddlx_wb_object_data( ).
mo_persistence->delete( p_object_key = CONV #( ms_item-obj_name ) TRY.
CREATE OBJECT lo_data_model
TYPE ('CL_DDLX_WB_OBJECT_DATA').
mo_persistence->delete( p_object_key = lv_object_key
p_version = 'A' ). p_version = 'A' ).
CATCH cx_root INTO lx_error. CATCH cx_root INTO lx_error.
@ -93,17 +102,21 @@ CLASS lcl_object_ddlx IMPLEMENTATION.
METHOD lif_object~serialize. METHOD lif_object~serialize.
DATA: lo_data_model TYPE REF TO if_wb_object_data_model, DATA: lv_object_key TYPE seu_objkey,
lo_data_model TYPE REF TO if_wb_object_data_model,
ls_data TYPE cl_ddlx_wb_object_data=>ty_object_data, ls_data TYPE cl_ddlx_wb_object_data=>ty_object_data,
lv_text TYPE string, lv_text TYPE string,
lx_error TYPE REF TO cx_root. lx_error TYPE REF TO cx_root.
lv_object_key = ms_item-obj_name.
TRY. TRY.
lo_data_model = NEW cl_ddlx_wb_object_data( ). CREATE OBJECT lo_data_model
TYPE ('CL_DDLX_WB_OBJECT_DATA').
mo_persistence->get( mo_persistence->get(
EXPORTING EXPORTING
p_object_key = CONV #( ms_item-obj_name ) p_object_key = lv_object_key
p_version = 'A' p_version = 'A'
CHANGING CHANGING
p_object_data = lo_data_model ). p_object_data = lo_data_model ).
@ -143,7 +156,8 @@ CLASS lcl_object_ddlx IMPLEMENTATION.
cg_data = ls_data ). cg_data = ls_data ).
TRY. TRY.
lo_data_model = NEW cl_ddlx_wb_object_data( ). CREATE OBJECT lo_data_model
TYPE ('CL_DDLX_WB_OBJECT_DATA').
lo_data_model->set_data( ls_data ). lo_data_model->set_data( ls_data ).