diff --git a/src/objects/aff/zcl_abapgit_aff_registry.clas.abap b/src/objects/aff/zcl_abapgit_aff_registry.clas.abap index 589441013..ed87d94f0 100644 --- a/src/objects/aff/zcl_abapgit_aff_registry.clas.abap +++ b/src/objects/aff/zcl_abapgit_aff_registry.clas.abap @@ -52,6 +52,7 @@ CLASS ZCL_ABAPGIT_AFF_REGISTRY IMPLEMENTATION. register( 'CHKC' ). register( 'CHKO' ). register( 'CHKV' ). + register( 'COTA' ). register( 'DRTY' ). register( 'DTEB' ). register( 'DSFI' ). diff --git a/src/objects/aff/zcl_abapgit_object_cota.clas.abap b/src/objects/aff/zcl_abapgit_object_cota.clas.abap new file mode 100644 index 000000000..35ecc5516 --- /dev/null +++ b/src/objects/aff/zcl_abapgit_object_cota.clas.abap @@ -0,0 +1,46 @@ +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. diff --git a/src/objects/aff/zcl_abapgit_object_cota.clas.xml b/src/objects/aff/zcl_abapgit_object_cota.clas.xml new file mode 100644 index 000000000..3e4f0b0a3 --- /dev/null +++ b/src/objects/aff/zcl_abapgit_object_cota.clas.xml @@ -0,0 +1,16 @@ + + + + + + ZCL_ABAPGIT_OBJECT_COTA + E + abapGit - COTA - Communication Target + 1 + X + X + X + + + + diff --git a/src/objects/sap/zif_abapgit_sap_package.intf.abap b/src/objects/sap/zif_abapgit_sap_package.intf.abap index 0cb7fc4df..52c2c33fa 100644 --- a/src/objects/sap/zif_abapgit_sap_package.intf.abap +++ b/src/objects/sap/zif_abapgit_sap_package.intf.abap @@ -41,14 +41,10 @@ INTERFACE zif_abapgit_sap_package zcx_abapgit_exception . METHODS read_description RETURNING - VALUE(rv_description) TYPE string - RAISING - zcx_abapgit_exception . + VALUE(rv_description) TYPE string. METHODS read_responsible RETURNING - VALUE(rv_responsible) TYPE usnam - RAISING - zcx_abapgit_exception . + VALUE(rv_responsible) TYPE usnam. METHODS create_child IMPORTING !iv_child TYPE devclass diff --git a/src/objects/zcl_abapgit_object_wdcc.clas.abap b/src/objects/zcl_abapgit_object_wdcc.clas.abap index 7ce5617de..cfd73b8da 100644 --- a/src/objects/zcl_abapgit_object_wdcc.clas.abap +++ b/src/objects/zcl_abapgit_object_wdcc.clas.abap @@ -8,6 +8,9 @@ CLASS zcl_abapgit_object_wdcc DEFINITION INTERFACES zif_abapgit_object . PROTECTED SECTION. + METHODS after_import + RAISING + zcx_abapgit_exception . PRIVATE SECTION. ENDCLASS. @@ -230,10 +233,33 @@ CLASS zcl_abapgit_object_wdcc IMPLEMENTATION. tadir_insert( iv_package ). + after_import( ). + corr_insert( iv_package ). ENDMETHOD. + METHOD after_import. + + DATA: lt_cts_object_entry TYPE STANDARD TABLE OF e071 WITH DEFAULT KEY, + ls_cts_object_entry LIKE LINE OF lt_cts_object_entry, + lt_cts_key TYPE STANDARD TABLE OF e071k WITH DEFAULT KEY. + + ls_cts_object_entry-pgmid = 'R3TR'. + ls_cts_object_entry-object = ms_item-obj_type. + ls_cts_object_entry-obj_name = ms_item-obj_name. + INSERT ls_cts_object_entry INTO TABLE lt_cts_object_entry. + + CALL FUNCTION 'WDR_CFG_AFTER_IMPORT' + EXPORTING + iv_tarclient = sy-mandt + iv_is_upgrade = abap_false + TABLES + tt_e071 = lt_cts_object_entry + tt_e071k = lt_cts_key. + + ENDMETHOD. + METHOD zif_abapgit_object~exists.