abapGit/src/objects/zcl_abapgit_object_cus0.clas.abap
Lars Hvam 3213d0c2dd
Deserialization performance, refactor COMPARE_TO_REMOTE_VERSION (#2438)
* core part refactored #2436

* indentation

* fix implementations

* delete ZCL_ABAPGIT_COMPARISON_NULL

* pretty print

* Update serializers.md

* downport
2019-02-20 22:20:24 -08:00

181 lines
4.3 KiB
ABAP

CLASS zcl_abapgit_object_cus0 DEFINITION PUBLIC INHERITING FROM zcl_abapgit_objects_super FINAL.
PUBLIC SECTION.
INTERFACES zif_abapgit_object.
ALIASES mo_files FOR zif_abapgit_object~mo_files.
METHODS constructor
IMPORTING
is_item TYPE zif_abapgit_definitions=>ty_item
iv_language TYPE spras.
PROTECTED SECTION.
PRIVATE SECTION.
TYPES: tty_img_activity_texts TYPE STANDARD TABLE OF cus_imgact
WITH NON-UNIQUE DEFAULT KEY,
BEGIN OF ty_img_activity,
header TYPE cus_imgach,
texts TYPE tty_img_activity_texts,
END OF ty_img_activity.
DATA: mv_img_activity TYPE cus_img_ac.
ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_CUS0 IMPLEMENTATION.
METHOD constructor.
super->constructor( is_item = is_item
iv_language = iv_language ).
mv_img_activity = ms_item-obj_name.
ENDMETHOD.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
ENDMETHOD.
METHOD zif_abapgit_object~delete.
DATA: ls_message TYPE hier_mess.
CALL FUNCTION 'S_CUS_IMG_ACTIVITY_DELETE'
EXPORTING
img_activity = mv_img_activity
IMPORTING
message = ls_message.
IF ls_message-msgty <> 'S'.
zcx_abapgit_exception=>raise( |error from delete CUS0 { mv_img_activity } S_CUS_IMG_ACTIVITY_DELETE| ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_object~deserialize.
DATA: ls_img_activity TYPE ty_img_activity,
ls_text LIKE LINE OF ls_img_activity-texts.
io_xml->read(
EXPORTING
iv_name = 'CUS0'
CHANGING
cg_data = ls_img_activity ).
READ TABLE ls_img_activity-texts INTO ls_text
WITH KEY spras = sy-langu.
CALL FUNCTION 'S_CUS_IMG_ACTIVITY_SAVE'
EXPORTING
img_activity = ls_img_activity-header-activity
i_docu = ls_img_activity-header-docu_id
i_attributes = ls_img_activity-header-attributes
i_activity = ls_img_activity-header-c_activity
i_description = ls_text
i_tcode = ls_img_activity-header-tcode.
CALL FUNCTION 'RS_CORR_INSERT'
EXPORTING
object = ms_item-obj_name
object_class = ms_item-obj_type
mode = 'I'
global_lock = abap_true
devclass = iv_package
master_language = sy-langu
EXCEPTIONS
cancelled = 1
permission_failure = 2
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, CUS0' ).
ENDIF.
ENDMETHOD.
METHOD zif_abapgit_object~exists.
DATA: ls_message TYPE hier_mess.
CALL FUNCTION 'S_CUS_IMG_ACTIVITY_EXISTS'
EXPORTING
img_activity = mv_img_activity
IMPORTING
message = ls_message.
rv_bool = boolc( ls_message IS INITIAL ).
ENDMETHOD.
METHOD zif_abapgit_object~get_comparator.
RETURN.
ENDMETHOD.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = abap_true.
ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false.
ENDMETHOD.
METHOD zif_abapgit_object~jump.
zcx_abapgit_exception=>raise( |TODO: Jump| ).
* doesn't work...
* CALL FUNCTION 'S_CUS_IMG_ACTIVITY_MAINTAIN'
* EXPORTING
* i_display = 'X'
* i_no_replacement = 'X'
* CHANGING
* img_activity = mv_img_activity.
ENDMETHOD.
METHOD zif_abapgit_object~serialize.
DATA: ls_img_activity TYPE ty_img_activity.
CALL FUNCTION 'S_CUS_IMG_ACTIVITY_READ'
EXPORTING
img_activity = mv_img_activity
IMPORTING
img_activity_header = ls_img_activity-header
TABLES
img_activity_texts = ls_img_activity-texts.
CLEAR: ls_img_activity-header-fuser,
ls_img_activity-header-fdate,
ls_img_activity-header-ftime,
ls_img_activity-header-luser,
ls_img_activity-header-ldate,
ls_img_activity-header-ltime.
io_xml->add( iv_name = 'CUS0'
ig_data = ls_img_activity ).
ENDMETHOD.
ENDCLASS.