SUCU support via generic serializer

This commit is contained in:
larshp 2018-11-24 10:45:36 +00:00 committed by Lars Hvam
parent f3702fc5a4
commit 79c799dffb
2 changed files with 132 additions and 0 deletions

View File

@ -0,0 +1,114 @@
CLASS zcl_abapgit_object_sucu DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_objects_super
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES zif_abapgit_object .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_SUCU IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by.
rv_user = zcl_abapgit_objects_super=>c_user_unknown.
ENDMETHOD.
METHOD zif_abapgit_object~compare_to_remote_version.
CREATE OBJECT ro_comparison_result TYPE zcl_abapgit_comparison_null.
ENDMETHOD.
METHOD zif_abapgit_object~delete.
DATA: lo_generic TYPE REF TO zcl_abapgit_objects_generic.
CREATE OBJECT lo_generic
EXPORTING
is_item = ms_item.
lo_generic->delete( ).
ENDMETHOD.
METHOD zif_abapgit_object~deserialize.
DATA: lo_generic TYPE REF TO zcl_abapgit_objects_generic.
CREATE OBJECT lo_generic
EXPORTING
is_item = ms_item.
lo_generic->deserialize(
iv_package = iv_package
io_xml = io_xml ).
ENDMETHOD.
METHOD zif_abapgit_object~exists.
DATA: lo_generic TYPE REF TO zcl_abapgit_objects_generic.
CREATE OBJECT lo_generic
EXPORTING
is_item = ms_item.
rv_bool = lo_generic->exists( ).
ENDMETHOD.
METHOD zif_abapgit_object~get_metadata.
rs_metadata = get_metadata( ).
rs_metadata-delete_tadir = abap_true.
ENDMETHOD.
METHOD zif_abapgit_object~has_changed_since.
rv_changed = abap_true.
ENDMETHOD.
METHOD zif_abapgit_object~is_active.
rv_active = is_active( ).
ENDMETHOD.
METHOD zif_abapgit_object~is_locked.
rv_is_locked = abap_false.
ENDMETHOD.
METHOD zif_abapgit_object~jump.
zcx_abapgit_exception=>raise( |TODO: Jump| ).
ENDMETHOD.
METHOD zif_abapgit_object~serialize.
DATA: lo_generic TYPE REF TO zcl_abapgit_objects_generic.
CREATE OBJECT lo_generic
EXPORTING
is_item = ms_item.
lo_generic->serialize( io_xml ).
ENDMETHOD.
ENDCLASS.

View File

@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_ABAPGIT_OBJECT_SUCU</CLSNAME>
<VERSION>1</VERSION>
<LANGU>E</LANGU>
<DESCRIPT>ASFC</DESCRIPT>
<EXPOSURE>2</EXPOSURE>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>