
Data: f_vttkvb TYPE vttkvb,
f_tvtk TYPE tvtk,
f_tvtkt TYPE tvtkt,
f_ttds TYPE ttds,
f_ttdst TYPE ttdst,
f_vbpla TYPE vbpla,
e_delivery_missing TYPE rv56a-selkz,
e_dsd_display TYPE rv56a-selkz,
f_vttp TYPE STANDARD TABLE OF vttpvb,
f_trlk TYPE STANDARD TABLE OF vtrlk,
f_trlp TYPE STANDARD TABLE OF vtrlp,
f_vtts TYPE STANDARD TABLE OF vttsvb,
f_vtsp TYPE STANDARD TABLE OF vtspvb,
f_vbpa TYPE STANDARD TABLE OF vbpavb,
f_vbadr TYPE STANDARD TABLE OF sadrvb,
f_vtfa TYPE STANDARD TABLE OF vtfavb,
f_vbplk TYPE STANDARD TABLE OF vbplk,
f_vbplp TYPE STANDARD TABLE OF vbplp,
ls_vbplk TYPE vbplk,
ls_vbplp TYPE vbplp,
f_vbpls TYPE STANDARD TABLE OF vbpls,
f_yvtfa TYPE STANDARD TABLE OF vtfavb,
lt_shipments TYPE v54a0_refobj_tab,
ls_shipments TYPE v54a0_refobj,
i_scd_sim TYPE i VALUE 2,
lt_freight_costs TYPE v54a0_scdd_tab,
ls_freight_costs TYPE v54a0_scdd,
e_errors_occured TYPE c,
e_warnings_occured TYPE c,
e_created_freight_costs TYPE i.
CALL FUNCTION 'RV_SHIPMENT_VIEW'
EXPORTING
shipment_number = p_shipment_number
option_tvtk = abap_true
option_ttds = abap_true
language = sy-langu
option_items = abap_true
option_minimized_item_data = abap_false
option_sales_orders = abap_false
option_export_data = abap_false
option_stawn_read = abap_false
option_segments = abap_true
option_partners = abap_true
option_messages = abap_true
option_packages = abap_true
option_flow = abap_true
option_delivery_lock = abap_false
option_authority_check = abap_false
activity = 'A' "Display
option_no_refresh = abap_true
option_ignore_missing_deliv = abap_true
i_filter_type = 'F' "Transportation Relevance
IMPORTING
f_vttkvb = f_vttkvb
f_tvtk = f_tvtk
f_tvtkt = f_tvtkt
f_ttds = f_ttds
f_ttdst = f_ttdst
e_delivery_missing = e_delivery_missing
TABLES
f_vttp = f_vttp
f_trlk = f_trlk
f_trlp = f_trlp
f_vtts = f_vtts
f_vtsp = f_vtsp
f_vbpa = f_vbpa
f_vbadr = f_vbadr
f_vbplk = f_vbplk
f_vbplp = f_vbplp
f_vbpls = f_vbpls
EXCEPTIONS
not_found = 1
no_authority = 2
delivery_missing = 3
delivery_lock = 4
OTHERS = 5.
IF sy-subrc <> 0.
* Implement Suitable Exceptions
ENDIF.
ls_shipments-vttkf = f_vttkvb.
ls_shipments-vttp[] = f_vttp[].
ls_shipments-vtrlk[] = f_trlk[].
ls_shipments-vtrlp[] = f_trlp[].
ls_shipments-vtrlp_c[] = f_trlp[].
ls_shipments-vtrlp_s[] = f_trlp[].
ls_shipments-vttsf[] = f_vtts[].
ls_shipments-vtsp[] = f_vtsp[].
ls_shipments-vbpa[] = f_vbpa[].
ls_shipments-vbplk[] = f_vbplk[].
ls_shipments-vbplp[] = f_vbplp[].
ls_shipments-vbadr[] = f_vbadr[].
ls_shipments-tvtk = f_tvtk.
ls_shipments-ttds = f_ttds.
APPEND ls_shipments TO lt_shipments.
CLEAR: ls_shipments.
CALL FUNCTION 'SD_SCD_SIMULATE_FREIGHT_COSTS'
EXPORTING
i_shipments = lt_shipments
i_scd_sim = 3
i_run = 0
IMPORTING
e_freight_costs = lt_freight_costs
e_errors_occured = e_errors_occured
e_warnings_occured = e_warnings_occured
e_created_freight_costs = e_created_freight_costs.
IF NOT lt_freight_costs[] IS INITIAL.
LOOP AT lt_freight_costs INTO ls_freight_costs.
LOOP AT ls_freight_costs-x-item INTO ls_item.
LOOP AT ls_item-komv INTO ls_komv.
APPEND ls_komv TO lt_komv.
CLEAR: ls_komv.
ENDLOOP.
ENDLOOP.
ENDLOOP.
ELSE.
p_error_message = 'Cost could not be Simulated'.
ENDIF.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
3 | |
3 | |
3 | |
3 | |
2 | |
2 | |
2 | |
2 | |
2 | |
2 |