Ansicht
Dokumentation

SM_CM_RETRO_BADI_CRE - BAdI for the creation of Retrofit Data

Addresses (Business Address Services)   General Data in Customer Master  
This documentation is copyright by SAP AG.

The BADI /TMWFLOW/RETRO_RELEASE affects the retrofit functions during release (create retrofit data).

" BADI Call for retrofit creation
TRY.
GET BADI lr_badi_retro_release.
CATCH cx_badi_not_implemented. "#EC NO_HANDLER

ENDTRY.

ev_continue = abap_false.
"assume retrofit data should be created
lv_process_retrofit = abap_true.
" call badi after release transport request
"method to decide whether to process retrofit
"for this request
IF lr_badi_retro_release IS NOT INITIAL.

CALL BADI lr_badi_retro_release->decide_process_retrofit
EXPORTING
trorder_number = is_rfitc-trorder_number
IMPORTING
process_retrofit = lv_process_retrofit.

ENDIF.

edit_rfit_obj_list

IF lr_badi_retro_release IS NOT INITIAL.
" change object list by customer badi
CALL BADI lr_badi_retro_release->edit_rfit_obj_list
EXPORTING
it_object_list = lt_objects
IMPORTING
et_object_list = lt_objects_out
ev_suppress_after_badi_check = lv_suppress_after_badi_check.
" compare lt_object with lt_objects_out
CALL FUNCTION '/TMWFLOW/COMPARE_OBJLISTS'
EXPORTING
it_object_list = lt_objects
it_object_list_mod = lt_objects_out
iv_suppress_after_badi_check = lv_suppress_after_badi_check
IMPORTING
et_object_list = lt_objects_new.
" get over all error status of object list
CALL FUNCTION '/TMWFLOW/OBJ_LIST_GET_CATEGORY'
EXPORTING
it_object_list = lt_objects_new
IMPORTING
ev_retrofit_category = lv_errorflag.

lt_objects[] = lt_objects_new[].
ENDIF. edit_change_id

"call the badi method to overwrite the change ID
"if implemented
IF lr_badi_retro_release IS NOT INITIAL.
CALL BADI lr_badi_retro_release->edit_change_id
EXPORTING
is_rfitc = is_rfitc
IMPORTING
ev_new_change_id = lv_new_change_id.
IF NOT lv_new_change_id IS INITIAL.
MOVE lv_new_change_id TO is_rfitc-change_id.
ENDIF.
ENDIF.

General Data in Customer Master   BAL_S_LOG - Application Log: Log header data  
This documentation is copyright by SAP AG.

Length: 2614 Date: 20240523 Time: 161552     sap01-206 ( 23 ms )