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

AFF object RONT (#5862)

Browse Source 
Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Vanessa 2022-11-09 17:11:45 +01:00 committed by GitHub
parent e2dbcf6308
commit bf8c3590a8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 54 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/objects/aff/zcl_abapgit_object_ront.clas.abap Normal file
View File

@ -0,0 +1,38 @@
CLASS zcl_abapgit_object_ront DEFINITION
PUBLIC
INHERITING FROM zcl_abapgit_object_common_aff
CREATE PUBLIC.
PUBLIC SECTION.
METHODS zif_abapgit_object~changed_by REDEFINITION.
PRIVATE SECTION.
CONSTANTS co_table_name TYPE tabname VALUE 'RONT_HEADER'.
ENDCLASS.
CLASS zcl_abapgit_object_ront IMPLEMENTATION.
METHOD zif_abapgit_object~changed_by.
DATA: lv_user TYPE string,
lx_error TYPE REF TO cx_root.
TRY.
SELECT SINGLE changed_by INTO lv_user
FROM (co_table_name)
WHERE ront_name = ms_item-obj_name AND version = 'I'.
IF lv_user IS INITIAL.
SELECT SINGLE changed_by INTO lv_user
FROM (co_table_name)
WHERE ront_name = ms_item-obj_name AND version = 'A'.
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_ront.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_RONT</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>ABAPGIT Objecthandler for RONT - SAP Object Type</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>