mirror of
https://github.com/abapGit/abapGit.git
synced 2025-04-30 20:03:20 +08:00
47 lines
1.3 KiB
ABAP
47 lines
1.3 KiB
ABAP
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.
|
|
METHODS zif_abapgit_object~delete REDEFINITION.
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS zcl_abapgit_object_cota IMPLEMENTATION.
|
|
|
|
METHOD zif_abapgit_object~changed_by.
|
|
DATA lx_error TYPE REF TO cx_root.
|
|
TRY.
|
|
SELECT SINGLE changedby FROM ('sapcontargethead') INTO rv_user
|
|
WHERE id = ms_item-obj_name AND version = 'I'.
|
|
|
|
IF rv_user IS INITIAL.
|
|
SELECT SINGLE changedby FROM ('sapcontargethead') INTO rv_user
|
|
WHERE id = ms_item-obj_name AND version = 'A'.
|
|
ENDIF.
|
|
CATCH cx_root INTO lx_error.
|
|
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
|
ENDTRY.
|
|
ENDMETHOD.
|
|
|
|
METHOD zif_abapgit_object~delete.
|
|
DATA lx_error TYPE REF TO cx_root.
|
|
DATA lv_cota_name TYPE c LENGTH 30.
|
|
TRY.
|
|
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.
|