Added support for COTA Object type

This commit is contained in:
Ben Schwarz 2024-11-29 07:46:33 +00:00
parent 93935b3dfb
commit 4747f79f46
3 changed files with 45 additions and 0 deletions

View File

@ -52,6 +52,7 @@ CLASS ZCL_ABAPGIT_AFF_REGISTRY IMPLEMENTATION.
register( 'CHKC' ).
register( 'CHKO' ).
register( 'CHKV' ).
register( 'COTA' ).
register( 'DRTY' ).
register( 'DTEB' ).
register( 'DSFI' ).

View File

@ -0,0 +1,28 @@
class zcl_abapgit_object_cota definition
public
inheriting from ZCL_ABAPGIT_OBJECT_COMMON_AFF
final
create public .
public section.
METHODS zif_abapgit_object~changed_by REDEFINITION.
protected section.
private section.
ENDCLASS.
CLASS zcl_abapgit_object_cota IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by.
SELECT SINGLE changedby FROM ('sapcontargethead')
WHERE id = @ms_item-obj_name AND version = 'I'
INTO @rv_user.
IF rv_user IS INITIAL.
SELECT SINGLE changedby FROM ('sapcontargethead')
WHERE id = @ms_item-obj_name AND version = 'A'
INTO @rv_user.
ENDIF.
ENDMETHOD.
ENDCLASS.

View File

@ -0,0 +1,16 @@
<?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_COTA</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>abapGit - COTA - Communication Target</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>