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

SMTG: Implement changed_by (#4867)

Browse Source 
Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Christian Günter 2021-07-09 15:23:58 +02:00 committed by GitHub
parent 2cfb2790cf
commit bffe75958c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 100 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

140
src/objects/zcl_abapgit_object_smtg.clas.abap
View File

@ -37,8 +37,15 @@ CLASS zcl_abapgit_object_smtg DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
iv_structure_name TYPE string
CHANGING
ct_components TYPE abap_component_tab
RAISING
zcx_abapgit_exception,
get_template
EXPORTING
es_template TYPE any
RAISING
zcx_abapgit_exception.
ENDCLASS.
@ -129,8 +136,95 @@ CLASS zcl_abapgit_object_smtg IMPLEMENTATION.
ENDMETHOD.
METHOD get_template.
DATA:
lr_template TYPE REF TO data,
lx_error TYPE REF TO cx_root,
lo_template TYPE REF TO object.
FIELD-SYMBOLS:
<lg_template> TYPE data,
<lg_header> TYPE data,
<lt_header> TYPE INDEX TABLE,
<lt_content> TYPE INDEX TABLE.
CREATE DATA lr_template TYPE HANDLE mo_structdescr.
ASSIGN lr_template->* TO <lg_template>.
ASSERT sy-subrc = 0.
ASSIGN
COMPONENT 'HEADER'
OF STRUCTURE <lg_template>
TO <lg_header>.
ASSERT sy-subrc = 0.
ASSIGN
COMPONENT 'HEADER_T'
OF STRUCTURE <lg_template>
TO <lt_header>.
ASSERT sy-subrc = 0.
ASSIGN
COMPONENT 'CONTENT'
OF STRUCTURE <lg_template>
TO <lt_content>.
ASSERT sy-subrc = 0.
TRY.
CALL METHOD ('CL_SMTG_EMAIL_TEMPLATE')=>get
EXPORTING
iv_id = mv_template_id
RECEIVING
ro_instance = lo_template.
CALL METHOD lo_template->('IF_SMTG_EMAIL_TEMPLATE~GET_TMPL_HDR')
RECEIVING
rs_tmpl_hdr = <lg_header>.
CALL METHOD lo_template->('IF_SMTG_EMAIL_TEMPLATE~GET_TMPL_HDR_T_ALL')
RECEIVING
rt_tmpl_hdr_t = <lt_header>.
CALL METHOD lo_template->('IF_SMTG_EMAIL_TEMPLATE~GET_TMPL_CONT_ALL')
RECEIVING
rt_tmpl_cont = <lt_content>.
CATCH cx_root INTO lx_error.
zcx_abapgit_exception=>raise(
iv_text = lx_error->get_text( )
ix_previous = lx_error ).
ENDTRY.
es_template = <lg_template>.
ENDMETHOD.
METHOD zif_abapgit_object~changed_by.
rv_user = c_user_unknown.
DATA:
lr_template TYPE REF TO data.
FIELD-SYMBOLS:
<lg_template> TYPE data,
<lv_last_changed_user> TYPE data.
CREATE DATA lr_template TYPE HANDLE mo_structdescr.
ASSIGN lr_template->* TO <lg_template>.
ASSERT sy-subrc = 0.
get_template( IMPORTING es_template = <lg_template> ).
ASSIGN
COMPONENT 'HEADER-LST_CH_USER_ACCT'
OF STRUCTURE <lg_template>
TO <lv_last_changed_user>.
ASSERT sy-subrc = 0.
rv_user = <lv_last_changed_user>.
ENDMETHOD.
@ -166,8 +260,6 @@ CLASS zcl_abapgit_object_smtg IMPLEMENTATION.
<lg_description> TYPE data,
<lg_header_text> TYPE data.
mo_structdescr = get_structure( ).
CREATE DATA lr_template TYPE HANDLE mo_structdescr.
ASSIGN lr_template->* TO <lg_template>.
ASSERT sy-subrc = 0.
@ -320,58 +412,25 @@ CLASS zcl_abapgit_object_smtg IMPLEMENTATION.
DATA:
lr_template TYPE REF TO data,
lx_error TYPE REF TO cx_root,
lo_template TYPE REF TO object.
lx_error TYPE REF TO cx_root.
FIELD-SYMBOLS:
<lg_template> TYPE data,
<lg_header> TYPE data,
<lt_header> TYPE INDEX TABLE,
<lt_content> TYPE INDEX TABLE.
mo_structdescr = get_structure( ).
<lg_header> TYPE data.
CREATE DATA lr_template TYPE HANDLE mo_structdescr.
ASSIGN lr_template->* TO <lg_template>.
ASSERT sy-subrc = 0.
get_template( IMPORTING es_template = <lg_template> ).
ASSIGN
COMPONENT 'HEADER'
OF STRUCTURE <lg_template>
TO <lg_header>.
ASSERT sy-subrc = 0.
ASSIGN
COMPONENT 'HEADER_T'
OF STRUCTURE <lg_template>
TO <lt_header>.
ASSERT sy-subrc = 0.
ASSIGN
COMPONENT 'CONTENT'
OF STRUCTURE <lg_template>
TO <lt_content>.
ASSERT sy-subrc = 0.
TRY.
CALL METHOD ('CL_SMTG_EMAIL_TEMPLATE')=>get
EXPORTING
iv_id = mv_template_id
RECEIVING
ro_instance = lo_template.
CALL METHOD lo_template->('IF_SMTG_EMAIL_TEMPLATE~GET_TMPL_HDR')
RECEIVING
rs_tmpl_hdr = <lg_header>.
CALL METHOD lo_template->('IF_SMTG_EMAIL_TEMPLATE~GET_TMPL_HDR_T_ALL')
RECEIVING
rt_tmpl_hdr_t = <lt_header>.
CALL METHOD lo_template->('IF_SMTG_EMAIL_TEMPLATE~GET_TMPL_CONT_ALL')
RECEIVING
rt_tmpl_cont = <lt_content>.
clear_field( EXPORTING iv_fieldname = 'CREA_DATE_TIME' CHANGING cg_header = <lg_header> ).
clear_field( EXPORTING iv_fieldname = 'CREA_USER_ACCT' CHANGING cg_header = <lg_header> ).
clear_field( EXPORTING iv_fieldname = 'LST_CH_DATE_TIME' CHANGING cg_header = <lg_header> ).
@ -388,4 +447,5 @@ CLASS zcl_abapgit_object_smtg IMPLEMENTATION.
ENDTRY.
ENDMETHOD.
ENDCLASS.