mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 04:36:49 +08:00
57 lines
1.5 KiB
ABAP
57 lines
1.5 KiB
ABAP
CLASS zcl_abapgit_object_bgqc DEFINITION
|
|
PUBLIC
|
|
INHERITING FROM zcl_abapgit_object_common_aff FINAL
|
|
CREATE PUBLIC.
|
|
|
|
PUBLIC SECTION.
|
|
METHODS zif_abapgit_object~changed_by REDEFINITION.
|
|
|
|
PRIVATE SECTION.
|
|
CONSTANTS c_bgqc_name TYPE string VALUE 'BGQCNAME'.
|
|
CONSTANTS c_bgqc_wbi_p TYPE string VALUE 'CL_BGQC_WBI_P'.
|
|
CONSTANTS c_select_changed_by TYPE string VALUE 'IF_BGQC_WBI_P~SELECT_CHANGED_BY'.
|
|
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS zcl_abapgit_object_bgqc IMPLEMENTATION.
|
|
METHOD zif_abapgit_object~changed_by.
|
|
DATA lo_bgqc_wbi_p TYPE REF TO object.
|
|
DATA lv_ref_bgqc_name TYPE REF TO data.
|
|
DATA lv_changed_by TYPE syuname.
|
|
DATA lv_subrc TYPE sy-subrc.
|
|
DATA lx_root TYPE REF TO cx_root.
|
|
|
|
FIELD-SYMBOLS: <lv_ref_bgqc_name> TYPE any.
|
|
|
|
TRY.
|
|
|
|
CREATE DATA lv_ref_bgqc_name TYPE (c_bgqc_name).
|
|
ASSIGN lv_ref_bgqc_name->* TO <lv_ref_bgqc_name>.
|
|
ASSERT sy-subrc = 0.
|
|
|
|
me->ms_item-obj_name = <lv_ref_bgqc_name>.
|
|
|
|
CREATE OBJECT lo_bgqc_wbi_p TYPE (c_bgqc_wbi_p).
|
|
|
|
CALL METHOD lo_bgqc_wbi_p->(c_select_changed_by)
|
|
EXPORTING
|
|
iv_bgqc_name = <lv_ref_bgqc_name>
|
|
IMPORTING
|
|
ev_changed_by = lv_changed_by
|
|
ev_subrc = lv_subrc.
|
|
|
|
IF lv_subrc <> 0.
|
|
zcx_abapgit_exception=>raise_t100( ).
|
|
ENDIF.
|
|
|
|
rv_user = lv_changed_by.
|
|
|
|
CATCH cx_root INTO lx_root.
|
|
|
|
zcx_abapgit_exception=>raise_with_text( lx_root ).
|
|
|
|
ENDTRY.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|