Advertisement
hxxxrz

Untitled

Dec 11th, 2020
410
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.22 KB | None | 0 0
  1. mo_tor_srv->retrieve_by_association(
  2. EXPORTING
  3. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  4. it_key = it_fa_key
  5. iv_association = /scmtms/if_tor_c=>sc_association-root-bupa_consignee_root
  6. iv_fill_data = abap_true
  7. IMPORTING
  8. et_data = lt_bupa_consignee_root
  9. et_target_key = DATA(lt_bupa_consignee_keys) ).
  10.  
  11. * IF lt_item_tr_keys IS NOT INITIAL.
  12. * RETURN.
  13. * ENDIF.
  14.  
  15. mo_bp_srv->retrieve_by_association(
  16. EXPORTING
  17. it_key = lt_bupa_consignee_keys
  18. iv_node_key = /bofu/if_bupa_constants=>sc_node-root
  19. iv_association = /bofu/if_bupa_constants=>sc_association-root-addressinformation
  20. IMPORTING
  21. et_target_key = DATA(lt_bupa_addrinfo_keys) ).
  22.  
  23. * IF lt_item_tr_keys IS NOT INITIAL.
  24. * RETURN.
  25. * ENDIF.
  26.  
  27. mo_bp_srv->retrieve_by_association(
  28. EXPORTING
  29. it_key = lt_bupa_addrinfo_keys
  30. iv_node_key = /bofu/if_bupa_constants=>sc_node-addressinformation
  31. iv_association = /bofu/if_bupa_constants=>sc_association-addressinformation-address
  32. IMPORTING
  33. et_data = lt_root_address
  34. et_target_key = DATA(lt_address_root_keys) ).
  35.  
  36. * IF lt_item_tr_keys IS NOT INITIAL.
  37. * RETURN.
  38. * ENDIF.
  39.  
  40. /scmtms/cl_common_helper=>get_do_keys_4_rba(
  41. EXPORTING
  42. iv_host_bo_key = /bofu/if_bupa_constants=>sc_bo_key
  43. iv_host_do_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  44. iv_do_node_key = /bofu/if_addr_constants=>sc_node-postal_address
  45. iv_do_assoc_key = /bofu/if_addr_constants=>sc_association-root-postal_address
  46. IMPORTING
  47. ev_node_key = lv_node_key
  48. ev_assoc_key = lv_assoc_key ).
  49.  
  50. * IF lt_item_tr_keys IS NOT INITIAL.
  51. * RETURN.
  52. * ENDIF.
  53.  
  54. mo_bp_srv->retrieve_by_association(
  55. EXPORTING
  56. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  57. iv_association = lv_assoc_key
  58. iv_fill_data = abap_true
  59. it_key = lt_address_root_keys
  60. IMPORTING
  61. et_data = lt_pos_address ).
  62.  
  63. * IF lt_item_tr_keys IS NOT INITIAL.
  64. * RETURN.
  65. * ENDIF.
  66.  
  67. READ TABLE lt_stop ASSIGNING FIELD-SYMBOL(<ls_stop_f>)
  68. WITH KEY stop_seq_pos = 'F'.
  69.  
  70. LOOP AT lt_location ASSIGNING FIELD-SYMBOL(<ls_location_f>)
  71. WHERE root_key = <ls_stop_f>-key.
  72. READ TABLE lt_root_address ASSIGNING FIELD-SYMBOL(<ls_root_address_f>) WITH KEY postal_address_id = <ls_location_f>-adrnummer BINARY SEARCH.
  73. READ TABLE lt_pos_address ASSIGNING FIELD-SYMBOL(<ls_pos_address_f>) WITH KEY parent_key = <ls_root_address_f>-key.
  74. ENDLOOP.
  75.  
  76. READ TABLE lt_stop ASSIGNING FIELD-SYMBOL(<ls_stop_l>)
  77. WITH KEY stop_seq_pos = 'L'.
  78.  
  79. LOOP AT lt_location ASSIGNING FIELD-SYMBOL(<ls_location_l>)
  80. WHERE root_key = <ls_stop_l>-key.
  81. READ TABLE lt_root_address ASSIGNING FIELD-SYMBOL(<ls_root_address_l>) WITH KEY postal_address_id = <ls_location_l>-adrnummer BINARY SEARCH.
  82. READ TABLE lt_pos_address ASSIGNING FIELD-SYMBOL(<ls_pos_address_l>) WITH KEY parent_key = <ls_root_address_l>-key.
  83. ENDLOOP.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement