diff --git a/src/objects/aff/zcl_abapgit_object_cota.clas.abap b/src/objects/aff/zcl_abapgit_object_cota.clas.abap index c283747f6..04c761d50 100644 --- a/src/objects/aff/zcl_abapgit_object_cota.clas.abap +++ b/src/objects/aff/zcl_abapgit_object_cota.clas.abap @@ -6,6 +6,7 @@ CLASS zcl_abapgit_object_cota DEFINITION PUBLIC SECTION. METHODS zif_abapgit_object~changed_by REDEFINITION. + METHODS zif_abapgit_object~delete REDEFINITION. PROTECTED SECTION. PRIVATE SECTION. ENDCLASS. @@ -28,4 +29,18 @@ CLASS zcl_abapgit_object_cota IMPLEMENTATION. zcx_abapgit_exception=>raise_with_text( lx_error ). ENDTRY. ENDMETHOD. + + METHOD zif_abapgit_object~delete. + TRY. + DATA lx_error TYPE REF TO cx_root. + DATA lv_cota_name TYPE c LENGTH 30. + lv_cota_name = ms_item-obj_name. + CALL METHOD ('CL_COTA_FACTORY')=>('DELETE_COTA') + EXPORTING + cota_name = lv_cota_name + korrnum = iv_transport. + CATCH cx_root INTO lx_error. + zcx_abapgit_exception=>raise_with_text( lx_error ). + ENDTRY. + ENDMETHOD. ENDCLASS.