diff --git a/src/objects/aff/zcl_abapgit_object_ront.clas.abap b/src/objects/aff/zcl_abapgit_object_ront.clas.abap new file mode 100644 index 000000000..1067cb22c --- /dev/null +++ b/src/objects/aff/zcl_abapgit_object_ront.clas.abap @@ -0,0 +1,38 @@ +CLASS zcl_abapgit_object_ront DEFINITION + PUBLIC + INHERITING FROM zcl_abapgit_object_common_aff + CREATE PUBLIC. + + PUBLIC SECTION. + METHODS zif_abapgit_object~changed_by REDEFINITION. + + PRIVATE SECTION. + CONSTANTS co_table_name TYPE tabname VALUE 'RONT_HEADER'. +ENDCLASS. + + + +CLASS zcl_abapgit_object_ront 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 ront_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 ront_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_ront.clas.xml b/src/objects/aff/zcl_abapgit_object_ront.clas.xml new file mode 100644 index 000000000..c6aaee028 --- /dev/null +++ b/src/objects/aff/zcl_abapgit_object_ront.clas.xml @@ -0,0 +1,16 @@ + + + + + + ZCL_ABAPGIT_OBJECT_RONT + E + ABAPGIT Objecthandler for RONT - SAP Object Type + 1 + X + X + X + + + +