New Object EVTB based on AFF (#5707)

src/objects/aff/zcl_abapgit_object_evtb.clas.abap

@@ -0,0 +1,45 @@
+CLASS zcl_abapgit_object_evtb DEFINITION
+  PUBLIC
+  INHERITING FROM zcl_abapgit_object_common_aff
+  CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    METHODS zif_abapgit_object~changed_by REDEFINITION .
+
+
+  PROTECTED SECTION.
+  PRIVATE SECTION.
+    CONSTANTS:
+    co_table_name TYPE tabname VALUE 'EVTB_HEADER'.
+ENDCLASS.
+
+
+CLASS zcl_abapgit_object_evtb IMPLEMENTATION.
+
+  METHOD zif_abapgit_object~changed_by.
+
+    DATA: lv_user                TYPE string,
+          lx_error               TYPE REF TO cx_root.
+
+    TRY.
+
+        SELECT SINGLE changed_by INTO lv_user
+            FROM (co_table_name)
+            WHERE evtb_name = ms_item-obj_name AND version = 'I'.
+
+        IF lv_user IS INITIAL.
+          SELECT SINGLE changed_by INTO lv_user
+            FROM (co_table_name)
+            WHERE evtb_name = ms_item-obj_name AND version = 'A'.
+        ENDIF.
+
+        rv_user = lv_user.
+
+      CATCH cx_root INTO lx_error.
+        zcx_abapgit_exception=>raise_with_text( lx_error ).
+    ENDTRY.
+
+  ENDMETHOD.
+
+ENDCLASS.
+

src/objects/aff/zcl_abapgit_object_evtb.clas.xml

@@ -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_EVTB</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>ABAPGIT Objecthandler for EVBT</DESCRIPT>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>