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

Downport

Browse Source
This commit is contained in:
Christian Günter 2017-10-10 19:37:39 +00:00
parent 6e0fac0f5b
commit 8751a39f2c
1 changed files with 123 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

145
src/zabapgit_object_ucsa.prog.abap
View File

@ -7,6 +7,17 @@ CLASS lcl_object_ucsa DEFINITION INHERITING FROM lcl_objects_super FINAL.
PUBLIC SECTION. PUBLIC SECTION.
INTERFACES lif_object. INTERFACES lif_object.
PRIVATE SECTION.
TYPES:
ty_id TYPE c LENGTH 30.
METHODS:
get_persistence
IMPORTING
iv_id TYPE ty_id
RETURNING
VALUE(ro_persistence) TYPE REF TO object.
ENDCLASS. ENDCLASS.
CLASS lcl_object_ucsa IMPLEMENTATION. CLASS lcl_object_ucsa IMPLEMENTATION.
@ -32,18 +43,22 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
METHOD lif_object~exists. METHOD lif_object~exists.
DATA: lv_id TYPE uconservid. DATA: lv_id TYPE ty_id,
lo_persistence TYPE REF TO object.
lv_id = ms_item-obj_name. lv_id = ms_item-obj_name.
TRY. TRY.
DATA(lo_persistence) = cl_ucon_sa_db_persist=>if_ucon_sa_persist~get_instance( lv_id ). lo_persistence = get_persistence( lv_id ).
lo_persistence->load( version = 'A' CALL METHOD lo_persistence->('IF_UCON_SA_PERSIST~LOAD')
language = sy-langu ). EXPORTING
version = 'A'
language = sy-langu.
CATCH cx_ucon_base. CATCH cx_root.
rv_bool = abap_false. rv_bool = abap_false.
RETURN.
ENDTRY. ENDTRY.
rv_bool = abap_true. rv_bool = abap_true.
@ -52,34 +67,70 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
METHOD lif_object~serialize. METHOD lif_object~serialize.
DATA: lv_id TYPE uconservid, DATA: lv_id TYPE ty_id,
lx_root TYPE REF TO cx_root, lx_root TYPE REF TO cx_root,
lv_text TYPE string, lv_text TYPE string,
sa TYPE uconservascomplete. lo_persistence TYPE REF TO object,
lr_sa TYPE REF TO data.
FIELD-SYMBOLS: <sa> TYPE any,
<header> TYPE any,
<field> TYPE any.
lv_id = ms_item-obj_name. lv_id = ms_item-obj_name.
TRY. TRY.
DATA(lo_persistence) = cl_ucon_sa_db_persist=>if_ucon_sa_persist~get_instance( lv_id ). CREATE DATA lr_sa TYPE ('UCONSERVASCOMPLETE').
ASSIGN lr_sa->* TO <sa>.
ASSERT sy-subrc = 0.
lo_persistence->load( lo_persistence = get_persistence( lv_id ).
CALL METHOD lo_persistence->('IF_UCON_SA_PERSIST~LOAD')
EXPORTING EXPORTING
version = 'A' version = 'A'
language = sy-langu language = sy-langu
IMPORTING IMPORTING
sa = sa ). sa = <sa>.
CLEAR: sa-header-createdby, ASSIGN COMPONENT 'HEADER' OF STRUCTURE <sa>
sa-header-createdon, TO <header>.
sa-header-createdat, ASSERT sy-subrc = 0.
sa-header-changedby,
sa-header-changedon, ASSIGN COMPONENT 'CREATEDBY' OF STRUCTURE <header>
sa-header-changedat. TO <field>.
ASSERT sy-subrc = 0.
CLEAR: <field>.
ASSIGN COMPONENT 'CREATEDON' OF STRUCTURE <header>
TO <field>.
ASSERT sy-subrc = 0.
CLEAR: <field>.
ASSIGN COMPONENT 'CREATEDAT' OF STRUCTURE <header>
TO <field>.
ASSERT sy-subrc = 0.
CLEAR: <field>.
ASSIGN COMPONENT 'CHANGEDBY' OF STRUCTURE <header>
TO <field>.
ASSERT sy-subrc = 0.
CLEAR: <field>.
ASSIGN COMPONENT 'CHANGEDON' OF STRUCTURE <header>
TO <field>.
ASSERT sy-subrc = 0.
CLEAR: <field>.
ASSIGN COMPONENT 'CHANGEDAT' OF STRUCTURE <header>
TO <field>.
ASSERT sy-subrc = 0.
CLEAR: <field>.
io_xml->add( iv_name = 'UCSA' io_xml->add( iv_name = 'UCSA'
ig_data = sa ). ig_data = <sa> ).
CATCH cx_ucon_base INTO lx_root. CATCH cx_root INTO lx_root.
lv_text = lx_root->get_text( ). lv_text = lx_root->get_text( ).
zcx_abapgit_exception=>raise( lv_text ). zcx_abapgit_exception=>raise( lv_text ).
ENDTRY. ENDTRY.
@ -88,30 +139,39 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
METHOD lif_object~deserialize. METHOD lif_object~deserialize.
DATA: lv_id TYPE uconservid, DATA: lv_id TYPE ty_id,
lx_root TYPE REF TO cx_root, lx_root TYPE REF TO cx_root,
lv_text TYPE string, lv_text TYPE string,
sa TYPE uconservascomplete. lo_persistence TYPE REF TO object,
lr_sa TYPE REF TO data.
FIELD-SYMBOLS: <sa> TYPE any.
TRY.
CREATE DATA lr_sa TYPE ('UCONSERVASCOMPLETE').
ASSIGN lr_sa->* TO <sa>.
ASSERT sy-subrc = 0.
io_xml->read( io_xml->read(
EXPORTING EXPORTING
iv_name = 'UCSA' iv_name = 'UCSA'
CHANGING CHANGING
cg_data = sa ). cg_data = <sa> ).
lv_id = ms_item-obj_name. lv_id = ms_item-obj_name.
TRY. lo_persistence = get_persistence( lv_id ).
DATA(lo_persistence) = cl_ucon_sa_db_persist=>if_ucon_sa_persist~get_instance( lv_id ).
lo_persistence->create( ). CALL METHOD lo_persistence->('IF_UCON_SA_PERSIST~CREATE').
lo_persistence->save( sa = sa CALL METHOD lo_persistence->('IF_UCON_SA_PERSIST~SAVE')
version = 'A' ). EXPORTING
sa = <sa>
version = 'A'.
tadir_insert( iv_package ). tadir_insert( iv_package ).
CATCH cx_ucon_base INTO lx_root. CATCH cx_root INTO lx_root.
lv_text = lx_root->get_text( ). lv_text = lx_root->get_text( ).
zcx_abapgit_exception=>raise( lv_text ). zcx_abapgit_exception=>raise( lv_text ).
ENDTRY. ENDTRY.
@ -120,19 +180,28 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
METHOD lif_object~delete. METHOD lif_object~delete.
DATA: lv_id TYPE uconservid, DATA: lv_id TYPE ty_id,
lx_root TYPE REF TO cx_root, lx_root TYPE REF TO cx_root,
lv_text TYPE string, lv_text TYPE string,
sa TYPE uconservascomplete. lo_persistence TYPE REF TO object,
lr_sa TYPE REF TO data.
FIELD-SYMBOLS: <sa> TYPE any.
TRY.
CREATE DATA lr_sa TYPE ('UCONSERVASCOMPLETE').
ASSIGN lr_sa->* TO <sa>.
ASSERT sy-subrc = 0.
lv_id = ms_item-obj_name. lv_id = ms_item-obj_name.
TRY. lo_persistence = get_persistence( lv_id ).
DATA(lo_persistence) = cl_ucon_sa_db_persist=>if_ucon_sa_persist~get_instance( lv_id ).
lo_persistence->delete( version = 'A' ). CALL METHOD lo_persistence->('IF_UCON_SA_PERSIST~DELETE')
EXPORTING
version = 'A'.
CATCH cx_ucon_base INTO lx_root. CATCH cx_root INTO lx_root.
lv_text = lx_root->get_text( ). lv_text = lx_root->get_text( ).
zcx_abapgit_exception=>raise( lv_text ). zcx_abapgit_exception=>raise( lv_text ).
ENDTRY. ENDTRY.
@ -165,4 +234,14 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD get_persistence.
CALL METHOD ('CL_UCON_SA_DB_PERSIST')=>('IF_UCON_SA_PERSIST~GET_INSTANCE')
EXPORTING
id = iv_id
RECEIVING
instance = ro_persistence.
ENDMETHOD.
ENDCLASS. ENDCLASS.