From 2b02fe4b26366c8511f2fe71bcf36b69471cae67 Mon Sep 17 00:00:00 2001 From: Thomas Ploski Date: Sat, 24 Aug 2024 10:19:47 +0000 Subject: [PATCH] fixes #1581 fixes #1581 --- .../aff/zcl_abapgit_aff_registry.clas.abap | 1 + .../aff/zcl_abapgit_object_sajt.clas.abap | 39 +++++++++++++++++++ .../aff/zcl_abapgit_object_sajt.clas.xml | 16 ++++++++ 3 files changed, 56 insertions(+) create mode 100644 src/objects/aff/zcl_abapgit_object_sajt.clas.abap create mode 100644 src/objects/aff/zcl_abapgit_object_sajt.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 a0ca81ef4..07c7573b4 100644 --- a/src/objects/aff/zcl_abapgit_aff_registry.clas.abap +++ b/src/objects/aff/zcl_abapgit_aff_registry.clas.abap @@ -61,6 +61,7 @@ CLASS ZCL_ABAPGIT_AFF_REGISTRY IMPLEMENTATION. register( 'GSMP' ). register( iv_obj_type = 'INTF' iv_experimental = abap_true ). + register( 'SAJT' ). register( 'SMBC' ). register( 'SWCR' ). register( 'NONT' ). diff --git a/src/objects/aff/zcl_abapgit_object_sajt.clas.abap b/src/objects/aff/zcl_abapgit_object_sajt.clas.abap new file mode 100644 index 000000000..86b19688e --- /dev/null +++ b/src/objects/aff/zcl_abapgit_object_sajt.clas.abap @@ -0,0 +1,39 @@ +CLASS zcl_abapgit_object_sajt DEFINITION + PUBLIC + INHERITING FROM zcl_abapgit_object_common_aff + FINAL + CREATE PUBLIC . + + PUBLIC SECTION. + + METHODS zif_abapgit_object~changed_by + REDEFINITION . + PROTECTED SECTION. + PRIVATE SECTION. +ENDCLASS. + + + +CLASS ZCL_ABAPGIT_OBJECT_SAJT IMPLEMENTATION. + + + METHOD zif_abapgit_object~changed_by. + + CONSTANTS lc_table_name TYPE tabname VALUE 'APJ_W_JT_ROOT'. + + SELECT SINGLE lst_ch_user_acct + FROM (lc_table_name) + INTO rv_user + WHERE job_template_name = ms_item-obj_name + AND job_template_version = 'I'. + + IF rv_user IS INITIAL. + SELECT SINGLE lst_ch_user_acct + FROM (lc_table_name) + INTO rv_user + WHERE job_template_name = ms_item-obj_name + AND job_template_version = 'A'. + ENDIF. + + ENDMETHOD. +ENDCLASS. diff --git a/src/objects/aff/zcl_abapgit_object_sajt.clas.xml b/src/objects/aff/zcl_abapgit_object_sajt.clas.xml new file mode 100644 index 000000000..7f3cc8aae --- /dev/null +++ b/src/objects/aff/zcl_abapgit_object_sajt.clas.xml @@ -0,0 +1,16 @@ + + + + + + ZCL_ABAPGIT_OBJECT_SAJT + E + zcl_abapgit_object_sajt + 1 + X + X + X + + + +