diff --git a/src/objects/aff/zcl_abapgit_object_evtb.clas.abap b/src/objects/aff/zcl_abapgit_object_evtb.clas.abap new file mode 100644 index 000000000..263e175af --- /dev/null +++ b/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. + diff --git a/src/objects/aff/zcl_abapgit_object_evtb.clas.xml b/src/objects/aff/zcl_abapgit_object_evtb.clas.xml new file mode 100644 index 000000000..9a5b3d00a --- /dev/null +++ b/src/objects/aff/zcl_abapgit_object_evtb.clas.xml @@ -0,0 +1,16 @@ + + + + + + ZCL_ABAPGIT_OBJECT_EVTB + E + ABAPGIT Objecthandler for EVBT + 1 + X + X + X + + + +