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

CDBO Object Handler (#6930)

Browse Source
This commit is contained in:
ThomasPloski 2024-05-15 08:04:47 +02:00 committed by GitHub
parent 40c5cd7212
commit 2973cb4cba
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
3 changed files with 70 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,7 +37,7 @@ ENDCLASS.
CLASS zcl_abapgit_aff_registry IMPLEMENTATION. CLASS ZCL_ABAPGIT_AFF_REGISTRY IMPLEMENTATION.
METHOD constructor. METHOD constructor.
@ -46,6 +46,7 @@ CLASS zcl_abapgit_aff_registry IMPLEMENTATION.
METHOD initialize_registry_table. METHOD initialize_registry_table.
register( 'CDBO' ).
register( 'CHKC' ). register( 'CHKC' ).
register( 'CHKO' ). register( 'CHKO' ).
register( 'CHKV' ). register( 'CHKV' ).

52
src/objects/aff/zcl_abapgit_object_cdbo.clas.abap Normal file
View File

@ -0,0 +1,52 @@
CLASS zcl_abapgit_object_cdbo DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_object_common_aff
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
METHODS constructor
IMPORTING
!is_item TYPE zif_abapgit_definitions=>ty_item
!iv_language TYPE spras
RAISING
zcx_abapgit_exception .
METHODS zif_abapgit_object~changed_by
REDEFINITION .
PROTECTED SECTION.
PRIVATE SECTION.
CONSTANTS c_table_name TYPE tabname VALUE 'CDB_OBJH' ##NO_TEXT.
ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_CDBO IMPLEMENTATION.
METHOD constructor.
super->constructor( is_item = is_item
iv_language = iv_language ).
ENDMETHOD.
METHOD zif_abapgit_object~changed_by.
DATA: lv_user TYPE string,
lx_error TYPE REF TO cx_root.
TRY.
SELECT SINGLE changed_by FROM (c_table_name) INTO lv_user WHERE obj_name = ms_item-obj_name.
IF lv_user IS INITIAL.
SELECT SINGLE created_by FROM (c_table_name) INTO lv_user WHERE obj_name = ms_item-obj_name.
ENDIF.
rv_user = lv_user.
CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise_with_text( lx_error ).
ENDTRY.
ENDMETHOD.
ENDCLASS.

16
src/objects/aff/zcl_abapgit_object_cdbo.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_CDBO</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>abapGit - CDBO - Customer Data Browser Object</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>