SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

GSMP Object Handler (#6159)

Browse Source 
Co-authored-by: abaplint[bot] <24845621+abaplint[bot]@users.noreply.github.com>
This commit is contained in:
EkinTiras 2023-03-21 16:00:11 +01:00 committed by GitHub
parent f452b8784a
commit 6187d12812
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 68 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/objects/aff/zcl_abapgit_aff_registry.clas.abap
View File

@ -53,6 +53,7 @@ CLASS zcl_abapgit_aff_registry IMPLEMENTATION.
register( iv_obj_type = 'CHKO' ). register( iv_obj_type = 'CHKO' ).
register( iv_obj_type = 'CHKV' ). register( iv_obj_type = 'CHKV' ).
register( iv_obj_type = 'EVTB' ). register( iv_obj_type = 'EVTB' ).
register( iv_obj_type = 'GSMP' ).
register( iv_obj_type = 'INTF' register( iv_obj_type = 'INTF'
iv_experimental = abap_true ). iv_experimental = abap_true ).
register( iv_obj_type = 'SMBC' ). register( iv_obj_type = 'SMBC' ).

6
src/objects/aff/zcl_abapgit_aff_registry.clas.testclasses.abap
View File

@ -15,6 +15,7 @@ CLASS ltcl_aff_registry DEFINITION FINAL FOR TESTING
chko FOR TESTING RAISING cx_static_check, chko FOR TESTING RAISING cx_static_check,
chkv FOR TESTING RAISING cx_static_check, chkv FOR TESTING RAISING cx_static_check,
evtb FOR TESTING RAISING cx_static_check, evtb FOR TESTING RAISING cx_static_check,
gsmp FOR TESTING RAISING cx_static_check,
intf_not_supported FOR TESTING RAISING cx_static_check, intf_not_supported FOR TESTING RAISING cx_static_check,
intf_experimental FOR TESTING RAISING cx_static_check, intf_experimental FOR TESTING RAISING cx_static_check,
smbc FOR TESTING RAISING cx_static_check. smbc FOR TESTING RAISING cx_static_check.
@ -65,6 +66,11 @@ CLASS ltcl_aff_registry IMPLEMENTATION.
iv_is_supported = abap_true ). iv_is_supported = abap_true ).
ENDMETHOD. ENDMETHOD.
METHOD gsmp.
assert_that( iv_obj_type = 'GSMP'
iv_is_supported = abap_true ).
ENDMETHOD.
METHOD intf_not_supported. METHOD intf_not_supported.
assert_that( iv_obj_type = 'INTF' assert_that( iv_obj_type = 'INTF'
iv_is_supported = abap_false ). iv_is_supported = abap_false ).

45
src/objects/aff/zcl_abapgit_object_gsmp.clas.abap Normal file
View File

@ -0,0 +1,45 @@
CLASS zcl_abapgit_object_gsmp 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_GSMP IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by.
DATA lv_name TYPE c LENGTH 180.
DATA lv_user TYPE string.
DATA lx_root TYPE REF TO cx_root.
TRY.
lv_name = ms_item-obj_name.
SELECT SINGLE changed_by INTO lv_user
FROM ('GSM_MD_PRV_W')
WHERE provider_id = lv_name AND version = 'I'.
IF lv_user IS INITIAL.
SELECT SINGLE changed_by INTO lv_user
FROM ('GSM_MD_PRV_W')
WHERE provider_id = lv_name AND version = 'A'.
ENDIF.
rv_user = lv_user.
CATCH cx_root INTO lx_root.
zcx_abapgit_exception=>raise( iv_text = lx_root->get_text( )
ix_previous = lx_root ).
ENDTRY.
ENDMETHOD.
ENDCLASS.

16
src/objects/aff/zcl_abapgit_object_gsmp.clas.xml Normal file
View File

@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_ABAPGIT_OBJECT_GSMP</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>abapgit - GSMP - Generic Simple Metric Provider</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>