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.
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.
CLASS lcl_object_ucsa IMPLEMENTATION.
@ -32,18 +43,22 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
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.
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'
language = sy-langu ).
CALL METHOD lo_persistence->('IF_UCON_SA_PERSIST~LOAD')
EXPORTING
version = 'A'
language = sy-langu.
CATCH cx_ucon_base.
CATCH cx_root.
rv_bool = abap_false.
RETURN.
ENDTRY.
rv_bool = abap_true.
@ -52,34 +67,70 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
METHOD lif_object~serialize.
DATA: lv_id TYPE uconservid,
DATA: lv_id TYPE ty_id,
lx_root TYPE REF TO cx_root,
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.
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
version = 'A'
language = sy-langu
IMPORTING
sa = sa ).
sa = <sa>.
CLEAR: sa-header-createdby,
sa-header-createdon,
sa-header-createdat,
sa-header-changedby,
sa-header-changedon,
sa-header-changedat.
ASSIGN COMPONENT 'HEADER' OF STRUCTURE <sa>
TO <header>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'CREATEDBY' OF STRUCTURE <header>
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'
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( ).
zcx_abapgit_exception=>raise( lv_text ).
ENDTRY.
@ -88,30 +139,39 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
METHOD lif_object~deserialize.
DATA: lv_id TYPE uconservid,
DATA: lv_id TYPE ty_id,
lx_root TYPE REF TO cx_root,
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(
EXPORTING
iv_name = 'UCSA'
CHANGING
cg_data = sa ).
cg_data = <sa> ).
lv_id = ms_item-obj_name.
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->create( ).
CALL METHOD lo_persistence->('IF_UCON_SA_PERSIST~CREATE').
lo_persistence->save( sa = sa
version = 'A' ).
CALL METHOD lo_persistence->('IF_UCON_SA_PERSIST~SAVE')
EXPORTING
sa = <sa>
version = 'A'.
tadir_insert( iv_package ).
CATCH cx_ucon_base INTO lx_root.
CATCH cx_root INTO lx_root.
lv_text = lx_root->get_text( ).
zcx_abapgit_exception=>raise( lv_text ).
ENDTRY.
@ -120,19 +180,28 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
METHOD lif_object~delete.
DATA: lv_id TYPE uconservid,
DATA: lv_id TYPE ty_id,
lx_root TYPE REF TO cx_root,
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.
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->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( ).
zcx_abapgit_exception=>raise( lv_text ).
ENDTRY.
@ -165,4 +234,14 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
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.