Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- mo_tor_srv->retrieve_by_association(
- EXPORTING
- iv_node_key = /scmtms/if_tor_c=>sc_node-root
- it_key = it_fa_key
- iv_association = /scmtms/if_tor_c=>sc_association-root-bupa_consignee_root
- iv_fill_data = abap_true
- IMPORTING
- et_data = lt_bupa_consignee_root
- et_target_key = DATA(lt_bupa_consignee_keys) ).
- * IF lt_item_tr_keys IS NOT INITIAL.
- * RETURN.
- * ENDIF.
- mo_bp_srv->retrieve_by_association(
- EXPORTING
- it_key = lt_bupa_consignee_keys
- iv_node_key = /bofu/if_bupa_constants=>sc_node-root
- iv_association = /bofu/if_bupa_constants=>sc_association-root-addressinformation
- IMPORTING
- et_target_key = DATA(lt_bupa_addrinfo_keys) ).
- * IF lt_item_tr_keys IS NOT INITIAL.
- * RETURN.
- * ENDIF.
- mo_bp_srv->retrieve_by_association(
- EXPORTING
- it_key = lt_bupa_addrinfo_keys
- iv_node_key = /bofu/if_bupa_constants=>sc_node-addressinformation
- iv_association = /bofu/if_bupa_constants=>sc_association-addressinformation-address
- IMPORTING
- et_data = lt_root_address
- et_target_key = DATA(lt_address_root_keys) ).
- * IF lt_item_tr_keys IS NOT INITIAL.
- * RETURN.
- * ENDIF.
- /scmtms/cl_common_helper=>get_do_keys_4_rba(
- EXPORTING
- iv_host_bo_key = /bofu/if_bupa_constants=>sc_bo_key
- iv_host_do_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
- iv_do_node_key = /bofu/if_addr_constants=>sc_node-postal_address
- iv_do_assoc_key = /bofu/if_addr_constants=>sc_association-root-postal_address
- IMPORTING
- ev_node_key = lv_node_key
- ev_assoc_key = lv_assoc_key ).
- * IF lt_item_tr_keys IS NOT INITIAL.
- * RETURN.
- * ENDIF.
- mo_bp_srv->retrieve_by_association(
- EXPORTING
- iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
- iv_association = lv_assoc_key
- iv_fill_data = abap_true
- it_key = lt_address_root_keys
- IMPORTING
- et_data = lt_pos_address ).
- * IF lt_item_tr_keys IS NOT INITIAL.
- * RETURN.
- * ENDIF.
- READ TABLE lt_stop ASSIGNING FIELD-SYMBOL(<ls_stop_f>)
- WITH KEY stop_seq_pos = 'F'.
- LOOP AT lt_location ASSIGNING FIELD-SYMBOL(<ls_location_f>)
- WHERE root_key = <ls_stop_f>-key.
- READ TABLE lt_root_address ASSIGNING FIELD-SYMBOL(<ls_root_address_f>) WITH KEY postal_address_id = <ls_location_f>-adrnummer BINARY SEARCH.
- READ TABLE lt_pos_address ASSIGNING FIELD-SYMBOL(<ls_pos_address_f>) WITH KEY parent_key = <ls_root_address_f>-key.
- ENDLOOP.
- READ TABLE lt_stop ASSIGNING FIELD-SYMBOL(<ls_stop_l>)
- WITH KEY stop_seq_pos = 'L'.
- LOOP AT lt_location ASSIGNING FIELD-SYMBOL(<ls_location_l>)
- WHERE root_key = <ls_stop_l>-key.
- READ TABLE lt_root_address ASSIGNING FIELD-SYMBOL(<ls_root_address_l>) WITH KEY postal_address_id = <ls_location_l>-adrnummer BINARY SEARCH.
- READ TABLE lt_pos_address ASSIGNING FIELD-SYMBOL(<ls_pos_address_l>) WITH KEY parent_key = <ls_root_address_l>-key.
- ENDLOOP.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement