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

Merge pull request #1154 from christianguenter2/downport

Browse Source 
Downport
This commit is contained in:
Lars Hvam 2018-01-17 20:15:23 +01:00 committed by GitHub
commit 44e4911e41
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/zabapgit_object_ddlx.prog.abap
View File

@ -101,11 +101,12 @@ CLASS lcl_object_ddlx IMPLEMENTATION.
METHOD zif_abapgit_object~serialize. METHOD zif_abapgit_object~serialize.
DATA: lv_object_key TYPE seu_objkey, DATA: lv_object_key TYPE seu_objkey,
lo_data_model TYPE REF TO if_wb_object_data_model, lo_data_model TYPE REF TO if_wb_object_data_model,
lr_data TYPE REF TO data, lo_persistence TYPE REF TO if_wb_object_persist,
lv_text TYPE string, lr_data TYPE REF TO data,
lx_error TYPE REF TO cx_root. lv_text TYPE string,
lx_error TYPE REF TO cx_root.
FIELD-SYMBOLS: <ls_data> TYPE any. FIELD-SYMBOLS: <ls_data> TYPE any.
@ -119,12 +120,13 @@ CLASS lcl_object_ddlx IMPLEMENTATION.
CREATE OBJECT lo_data_model CREATE OBJECT lo_data_model
TYPE ('CL_DDLX_WB_OBJECT_DATA'). TYPE ('CL_DDLX_WB_OBJECT_DATA').
get_persistence( )->get( lo_persistence = get_persistence( ).
lo_persistence->get(
EXPORTING EXPORTING
p_object_key = lv_object_key p_object_key = lv_object_key
p_version = swbm_version_active p_version = swbm_version_active
CHANGING CHANGING
p_object_data = lo_data_model ). p_object_data = lo_data_model ).
lo_data_model->get_data( lo_data_model->get_data(
IMPORTING IMPORTING

3
src/zabapgit_object_devc.prog.abap
View File

@ -251,8 +251,7 @@ CLASS lcl_object_devc IMPLEMENTATION.
e_package_exists = rv_bool e_package_exists = rv_bool
EXCEPTIONS EXCEPTIONS
intern_err = 1 intern_err = 1
package_hierarchy_error = 2 OTHERS = 2 ).
OTHERS = 3 ).
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from CL_PACKAGE_HELPER=>CHECK_PACKAGE_EXISTENCE { sy-subrc }| ). zcx_abapgit_exception=>raise( |Error from CL_PACKAGE_HELPER=>CHECK_PACKAGE_EXISTENCE { sy-subrc }| ).
ENDIF. ENDIF.