Hello Everyone,
Welcome to the technical series of the SAP Transportation Management where we are aiming to learn basic codes that are used in SAP TM.
In this blog post, we will see how to update data in Freight order document through enhancement.
Our requirement here is to update the means of transport in freight order document and we will fetch means of transport from another custom table based on SPI code which is available in outbound delivery.
We have found standard class /SCMTMS/CL_TOR_D_ROOT_BS that gets called when freight document is saved. ( Please let me know if you know any better place to write this enhancement).
My aim here is to make you all aware about the code to update the data in the freight document using BOPF framework.
Hope you enjoyed reading. Please note in real time, we will have to raise various error messages like MTR not available in custom table etc, But here, just to explain how LT_mod is created and how data is updated have kept the example simple.
After the execution of this enhancement, MTR will be updated in below field in freight order
Thank You
Ishani
Welcome to the technical series of the SAP Transportation Management where we are aiming to learn basic codes that are used in SAP TM.
In this blog post, we will see how to update data in Freight order document through enhancement.
Our requirement here is to update the means of transport in freight order document and we will fetch means of transport from another custom table based on SPI code which is available in outbound delivery.
We have found standard class /SCMTMS/CL_TOR_D_ROOT_BS that gets called when freight document is saved. ( Please let me know if you know any better place to write this enhancement).
My aim here is to make you all aware about the code to update the data in the freight document using BOPF framework.
- So we created post-exit in the method /BOBF/IF_FRW_DETERMINATION~EXECUTE of the class /SCMTMS/CL_TOR_D_ROOT_BS
- First step is to Read the Freight Order and Freight Unit Data
*-- Read the Freight Order and Freight Unit data
CALL METHOD io_read->retrieve(
EXPORTING
it_key = it_key
iv_node = /scmtms/if_tor_c=>sc_node-root
IMPORTING
et_data = lt_d_root ). " This will have FO and FU data
- Then we stored the keys of various documents in different internal table
*-- Get the Key of Freight Order, freight Booking and freight Unit
LOOP AT lt_d_root ASSIGNING FIELD-SYMBOL(<lfs_d_root>).
CASE <lfs_d_root>-tor_cat.
WHEN 'TO' . "Freight Order ( Road)
IF <lfs_d_root>-mtr IS INITIAL.
" If Means of Transport is initial, then only consider it for processing
lt_fo_key = VALUE #( BASE lt_fo_key
( key = <lfs_d_root>-key ) ).
ENDIF.
WHEN 'BO'. "Freight Booking (Sea)
IF <lfs_d_root>-mtr IS INITIAL.
" If Means of Transport is initial, then only consider it for processing
lt_fb_key = VALUE #( BASE lt_fo_key
( key = <lfs_d_root>-key ) ).
ENDIF.
WHEN 'FU'. "Freight Unit
lt_fu_key = VALUE #( BASE lt_fu_key
( key = <lfs_d_root>-key ) ).
APPEND <lfs_d_root> TO lt_d_freight_unit_root.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
- Please note that as of now, we are doing this change for single mode scenario As logic would be complex for multimode scenario.
- Third step is to Get the Delivery Number from Freight Unit
" Get the Delivery Number
DATA(lv_delivery_no) = VALUE vbeln( lt_d_freight_unit_root[ 1 ]-labeltxt OPTIONAL ) .
- Next Step is to Get the Means of Transport as per the special processing indicator maintained in the delivery
IF lv_delivery_no IS NOT INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = lv_delivery_no
IMPORTING
output = lv_delivery_no.
DATA : lt_likp TYPE STANDARD TABLE OF likp.
CALL FUNCTION 'LIKP_READ'
EXPORTING
i_vbeln = lv_delivery_no
TABLES
e_likp = lt_likp
EXCEPTIONS
no_entry_found = 1
OTHERS = 2.
IF sy-subrc = 0.
DATA(lv_sdabw) = VALUE #( lt_likp[ 1 ]-sdabw OPTIONAL ).
ENDIF.
ENDIF.
- Next step is to Fetch the means of Transport value based on Special Processing Indicator from Custom table ZTM_MTR_MAPPING
SELECT SINGLE mtr
INTO @DATA(lv_mtr)
FROM ztm_mtr_mapping
WHERE sdabw = @lv_sdabw.
IF sy-subrc = 0 AND lv_mtr IS NOT INITIAL.
- Final Step is to Update the means of Transport value on the freight order. So first Read the freight order Line item data
data lt_item_tr_data TYPE /scmtms/t_tor_item_tr_k.
CALL METHOD io_read->retrieve_by_association
EXPORTING
iv_node = /scmtms/if_tor_c=>sc_node-root
it_key = lt_fo_key
iv_association = /scmtms/if_tor_c=>sc_association-root-item_tr
iv_fill_data = abap_true
IMPORTING
et_target_key = DATA(lt_fo_tem_tr_key)
et_data = lt_item_tr_data
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
CLEAR lt_item_tr_data.
ENDIF.
- Now Create the modification Table to update freight order
DATA : ls_root TYPE /scmtms/s_tor_item_tr_k,
lt_chg_fields TYPE /bobf/t_frw_name,
lt_mod TYPE /bobf/t_frw_modification.
*-- Create the Update table
CLEAR lt_chg_fields.
INSERT /scmtms/if_tor_c=>sc_node_attribute-item_tr-mtr INTO TABLE lt_chg_fields.
LOOP AT lt_order_item_data INTO DATA(ls_fo_item_data).
ls_root = CORRESPONDING #( ls_fo_item_data ) .
ls_root-mtr = lv_mtr. "UPDATE MTR here
IF ls_root IS NOT INITIAL.
/scmtms/cl_mod_helper=>mod_update_single(
EXPORTING
is_data = ls_root
it_changed_fields = lt_chg_fields
iv_key = ls_root-key
iv_node = /scmtms/if_tor_c=>sc_node-item_tr
CHANGING
ct_mod = lt_mod ).
ENDIF.
ENDLOOP.
- Final step is to call modify method and pass LT_mod table to it
IF lt_mod IS NOT INITIAL.
io_modify->do_modify(
EXPORTING
it_modification = lt_mod ).
io_modify->end_modify( IMPORTING eo_message = lo_message
eo_change = lo_change ).
ENDIF. "lt_mod IS NOT INITIAL.
- This will Update the Means of transport in the freight order
Hope you enjoyed reading. Please note in real time, we will have to raise various error messages like MTR not available in custom table etc, But here, just to explain how LT_mod is created and how data is updated have kept the example simple.
After the execution of this enhancement, MTR will be updated in below field in freight order
Freight Order Screen
Thank You
Ishani
- SAP Managed Tags:
1 Comment
| User | Count |
|---|---|
| 3 | |
| 2 | |
| 2 | |
| 2 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |
