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

Add comment + refactoring

Browse Source
This commit is contained in:
Christian Günter 2017-10-11 14:19:36 +00:00
parent 1da1cb74b9
commit 64474e55b6
1 changed files with 37 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
src/zabapgit_object_ucsa.prog.abap
View File

@ -19,7 +19,12 @@ CLASS lcl_object_ucsa DEFINITION INHERITING FROM lcl_objects_super FINAL.
VALUE(ro_persistence) TYPE REF TO object, VALUE(ro_persistence) TYPE REF TO object,
clear_dynamic_fields clear_dynamic_fields
CHANGING CHANGING
cs_complete_comm_assembly TYPE any. cs_complete_comm_assembly TYPE any,
clear_field
IMPORTING
iv_fieldname TYPE csequence
CHANGING
cs_header TYPE any.
ENDCLASS. ENDCLASS.
@ -54,6 +59,10 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
TRY. TRY.
lo_persistence = get_persistence( lv_id ). lo_persistence = get_persistence( lv_id ).
" Interface IF_UCON_SA_PERSIST and other objects are not present
" in lower Netweaver realeses. Therefore we have to call them
" dynamically to be downward comapatible.
CALL METHOD lo_persistence->('IF_UCON_SA_PERSIST~LOAD') CALL METHOD lo_persistence->('IF_UCON_SA_PERSIST~LOAD')
EXPORTING EXPORTING
version = zif_abapgit_definitions=>gc_version-active version = zif_abapgit_definitions=>gc_version-active
@ -216,32 +225,38 @@ CLASS lcl_object_ucsa IMPLEMENTATION.
TO <header>. TO <header>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'CREATEDBY' OF STRUCTURE <header> clear_field(
TO <field>. EXPORTING iv_fieldname = 'CREATEDBY'
ASSERT sy-subrc = 0. CHANGING cs_header = <header> ).
CLEAR: <field>.
ASSIGN COMPONENT 'CREATEDON' OF STRUCTURE <header> clear_field(
TO <field>. EXPORTING iv_fieldname = 'CREATEDON'
ASSERT sy-subrc = 0. CHANGING cs_header = <header> ).
CLEAR: <field>.
ASSIGN COMPONENT 'CREATEDAT' OF STRUCTURE <header> clear_field(
TO <field>. EXPORTING iv_fieldname = 'CREATEDAT'
ASSERT sy-subrc = 0. CHANGING cs_header = <header> ).
CLEAR: <field>.
ASSIGN COMPONENT 'CHANGEDBY' OF STRUCTURE <header> clear_field(
TO <field>. EXPORTING iv_fieldname = 'CHANGEDBY'
ASSERT sy-subrc = 0. CHANGING cs_header = <header> ).
CLEAR: <field>.
ASSIGN COMPONENT 'CHANGEDON' OF STRUCTURE <header> clear_field(
TO <field>. EXPORTING iv_fieldname = 'CHANGEDON'
ASSERT sy-subrc = 0. CHANGING cs_header = <header> ).
CLEAR: <field>.
ASSIGN COMPONENT 'CHANGEDAT' OF STRUCTURE <header> clear_field(
EXPORTING iv_fieldname = 'CHANGEDAT'
CHANGING cs_header = <header> ).
ENDMETHOD.
METHOD clear_field.
FIELD-SYMBOLS: <field> TYPE any.
ASSIGN COMPONENT iv_fieldname OF STRUCTURE cs_header
TO <field>. TO <field>.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
CLEAR: <field>. CLEAR: <field>.