From f6683582d15557b94a105374ea4321ce4a5e5da0 Mon Sep 17 00:00:00 2001 From: Marc Bernard <59966492+mbtools@users.noreply.github.com> Date: Wed, 5 Feb 2025 23:40:51 +0100 Subject: [PATCH 1/3] Remove unused exceptions (#7145) --- src/objects/sap/zif_abapgit_sap_package.intf.abap | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) 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 From 160f10c38b65aff09c6d6bc5d7f351e312a6b312 Mon Sep 17 00:00:00 2001 From: Florian Dupret <67047285+fdupret@users.noreply.github.com> Date: Thu, 6 Feb 2025 10:44:14 +0100 Subject: [PATCH 2/3] Execute WDCC after import method (#7140) Co-authored-by: Marc Bernard <59966492+mbtools@users.noreply.github.com> --- src/objects/zcl_abapgit_object_wdcc.clas.abap | 26 +++++++++++++++++++ 1 file changed, 26 insertions(+) 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. From f45425f665aab65099c97bd8eaa981e6b0666050 Mon Sep 17 00:00:00 2001 From: Ben9ka Date: Thu, 6 Feb 2025 14:27:50 +0100 Subject: [PATCH 3/3] Added support for COTA - Communication Target (#7143) --- .../aff/zcl_abapgit_aff_registry.clas.abap | 1 + .../aff/zcl_abapgit_object_cota.clas.abap | 46 +++++++++++++++++++ .../aff/zcl_abapgit_object_cota.clas.xml | 16 +++++++ 3 files changed, 63 insertions(+) create mode 100644 src/objects/aff/zcl_abapgit_object_cota.clas.abap create mode 100644 src/objects/aff/zcl_abapgit_object_cota.clas.xml 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 + + + +