mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 04:36:49 +08:00
63 lines
1.5 KiB
ABAP
63 lines
1.5 KiB
ABAP
CLASS zcl_abapgit_object_chko 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_CHKO IMPLEMENTATION.
|
|
|
|
|
|
METHOD zif_abapgit_object~changed_by.
|
|
|
|
DATA: lr_data TYPE REF TO data,
|
|
lo_chko_db_api TYPE REF TO object,
|
|
lv_name TYPE c LENGTH 30,
|
|
lx_error TYPE REF TO cx_root.
|
|
|
|
FIELD-SYMBOLS: <ls_chko_header> TYPE any,
|
|
<ls_chko_user> TYPE any.
|
|
|
|
|
|
TRY.
|
|
CREATE OBJECT lo_chko_db_api TYPE ('CL_CHKO_DB_API').
|
|
CREATE DATA lr_data TYPE ('CL_CHKO_DB_API=>TY_HEADER').
|
|
ASSIGN lr_data->* TO <ls_chko_header>.
|
|
|
|
lv_name = ms_item-obj_name.
|
|
|
|
CALL METHOD lo_chko_db_api->('GET_HEADER')
|
|
EXPORTING
|
|
name = lv_name
|
|
version = 'I'
|
|
RECEIVING
|
|
header = <ls_chko_header>.
|
|
|
|
IF <ls_chko_header> IS INITIAL.
|
|
CALL METHOD lo_chko_db_api->('GET_HEADER')
|
|
EXPORTING
|
|
name = lv_name
|
|
version = 'A'
|
|
RECEIVING
|
|
header = <ls_chko_header>.
|
|
ENDIF.
|
|
|
|
ASSIGN COMPONENT 'CHANGED_BY' OF STRUCTURE <ls_chko_header> TO <ls_chko_user>.
|
|
rv_user = <ls_chko_user>.
|
|
|
|
CATCH cx_root INTO lx_error.
|
|
zcx_abapgit_exception=>raise_with_text( lx_error ).
|
|
ENDTRY.
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|