API tools faq
paste
Advertisement
hxxxrz

Untitled

hxxxrz
Jan 22nd, 2021
370
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 36.20 KB | None | 0 0
raw download clone embed print report
  1. *&---------------------------------------------------------------------*
  2. *& Номер спецификации: BR_D_024
  3. *& Наименование спецификации: Печатные формы
  4. *& Дата создания: 22.12.2020
  5. *& Проект: Создание печатных форм
  6. *& Разработчик: Федоров К
  7.  
  8. METHOD get_vehwaybill_data.
  9.  
  10. DATA: ls_form TYPE zstm_vehicle_waybill,
  11. lt_tor_root TYPE /scmtms/t_tor_root_k,
  12. lt_tor_stop TYPE /scmtms/t_tor_stop_k,
  13. lt_tor_stop_first TYPE /scmtms/t_tor_stop_k,
  14. lt_mtrl_description TYPE /scmtms/t_mat_description_k,
  15. lt_tor_item_tr TYPE /scmtms/t_tor_item_tr_k,
  16. lt_sel_opt_f TYPE /bobf/t_frw_query_selparam,
  17. lt_sel_opt_l TYPE /bobf/t_frw_query_selparam,
  18. ls_sel_opt_f LIKE LINE OF lt_sel_opt_f,
  19. ls_sel_opt_l LIKE LINE OF lt_sel_opt_l,
  20. lt_loc_data_f TYPE /scmtms/t_loc_q_elem_result,
  21. lt_loc_data_l TYPE /scmtms/t_loc_q_elem_result,
  22. lv_node_key TYPE /bobf/obm_node_key,
  23. lv_assoc_key TYPE /bobf/obm_assoc_key,
  24. lv_node_key_tel TYPE /bobf/obm_node_key,
  25. lv_assoc_key_tel TYPE /bobf/obm_assoc_key,
  26. lt_pos_address TYPE /bofu/t_addr_postal_addressk,
  27. lt_loc_root_f TYPE /scmtms/t_bo_loc_root_k,
  28. lt_loc_root_l TYPE /scmtms/t_bo_loc_root_k,
  29. lt_drv_root TYPE /scmtms/t_res_lab_root_k,
  30. lt_tras_capa_offer TYPE /scmtms/t_res_quantity_k,
  31. lt_bupa_consignee TYPE /bofu/t_bupa_root_k,
  32. lt_bupa_root TYPE /bofu/t_bupa_root_k,
  33. lt_role TYPE /bofu/t_bupa_role_k,
  34. lt_bupa_ship_root TYPE /bofu/t_bupa_root_k,
  35. lt_bupa_data TYPE /bofu/t_bupa_root_k,
  36. ls_bupa_data LIKE LINE OF lt_bupa_data,
  37. lt_but000 TYPE TABLE OF but000,
  38. lt_but000_bupa_ship TYPE TABLE OF but000,
  39. lt_but000_bupa_consignee TYPE TABLE OF but000,
  40. lt_but000_tor_root TYPE TABLE OF but000,
  41. lt_relationship TYPE /bofu/t_bupa_relship_k,
  42. lt_transp_capa_offer TYPE /scmtms/t_res_quantity_k,
  43. lt_res_root TYPE /scmtms/t_res_root_k,
  44. lt_telephone TYPE /bofu/t_addr_telephonek,
  45. lt_stop_first TYPE /scmtms/t_tor_stop_k,
  46. lt_key_bupa TYPE /bobf/t_frw_key,
  47. ls_key_bupa LIKE LINE OF lt_key_bupa,
  48. lt_role_ship TYPE /bofu/t_bupa_role_k,
  49. lt_bp_root TYPE /bofu/t_bupa_root_k,
  50. ls_selpar TYPE /bobf/s_frw_query_selparam,
  51. lt_selpar TYPE /bobf/t_frw_query_selparam,
  52. go_message TYPE REF TO /bobf/if_frw_message.
  53.  
  54. *поле 2
  55. mo_tor_srv->retrieve_by_association(
  56. EXPORTING
  57. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  58. it_key = it_tor_key
  59. iv_association = /scmtms/if_tor_c=>sc_association-root-stop_first
  60. iv_fill_data = abap_true
  61. IMPORTING
  62. et_data = lt_tor_stop_first ).
  63.  
  64. * IF lt_tor_stop_first IS INITIAL.
  65. * RETURN.
  66. * ENDIF.
  67. "2 записи в узле stop
  68.  
  69. READ TABLE lt_tor_stop_first ASSIGNING FIELD-SYMBOL(<ls_tor_stop_first>) INDEX 1.
  70.  
  71. IF <ls_tor_stop_first> IS ASSIGNED.
  72. ls_form-zzdate = <ls_tor_stop_first>-plan_trans_time.
  73. ENDIF.
  74.  
  75.  
  76. *поле 3
  77. mo_tor_srv->retrieve(
  78. EXPORTING
  79. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  80. it_key = it_tor_key
  81. iv_fill_data = abap_true
  82. IMPORTING
  83. et_data = lt_tor_root ).
  84.  
  85. * IF lt_tor_root IS INITIAL.
  86. * RETURN.
  87. * ENDIF.
  88.  
  89. READ TABLE lt_tor_root ASSIGNING FIELD-SYMBOL(<ls_tor_root>) INDEX 1.
  90.  
  91. IF <ls_tor_root> IS ASSIGNED.
  92. ls_form-zznumber = <ls_tor_root>-tor_id.
  93. ENDIF.
  94. SHIFT ls_form-zznumber LEFT DELETING LEADING '0'.
  95.  
  96. *4, 6, 63; 5, 7, 62; 42, 43, 65; 44
  97. *4, 6, 63
  98. mo_tor_srv->retrieve_by_association(
  99. EXPORTING
  100. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  101. it_key = it_tor_key
  102. iv_association = /scmtms/if_tor_c=>sc_association-root-bupa_ship_root
  103. iv_fill_data = abap_true
  104. IMPORTING
  105. et_target_key = DATA(lt_bupa_ship_keys)
  106. et_data = lt_bupa_ship_root ).
  107.  
  108. * IF lt_bupa_ship_keys IS INITIAL.
  109. * RETURN.
  110. * ENDIF.
  111. *
  112. * IF lt_bupa_ship_root IS INITIAL.
  113. * RETURN.
  114. * ENDIF.
  115.  
  116. SELECT *
  117. FROM but000
  118. INTO TABLE lt_but000_bupa_ship
  119. FOR ALL ENTRIES IN lt_bupa_ship_root
  120. WHERE but000~partner EQ lt_bupa_ship_root-partner.
  121.  
  122. mo_tor_srv->retrieve_by_association(
  123. EXPORTING
  124. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  125. it_key = it_tor_key
  126. iv_association = /scmtms/if_tor_c=>sc_association-root-item_tr
  127. IMPORTING
  128. et_target_key = DATA(lt_itemtr_keys) ).
  129.  
  130. * IF lt_itemtr_keys IS NOT INITIAL.
  131. * RETURN.
  132. * ENDIF.
  133.  
  134. mo_tor_srv->retrieve_by_association(
  135. EXPORTING
  136. iv_node_key = /scmtms/if_tor_c=>sc_node-item_tr
  137. it_key = lt_itemtr_keys
  138. iv_association = /scmtms/if_tor_c=>sc_association-item_tr-itemparty
  139. IMPORTING
  140. et_target_key = DATA(lt_itemparty_keys) ).
  141.  
  142. * IF lt_itemparty_keys IS NOT INITIAL.
  143. * RETURN.
  144. * ENDIF.
  145.  
  146. mo_tor_srv->retrieve_by_association(
  147. EXPORTING
  148. iv_node_key = /scmtms/if_tor_c=>sc_node-itemparty
  149. it_key = lt_itemparty_keys
  150. iv_association = /scmtms/if_tor_c=>sc_association-itemparty-bupa_root
  151. IMPORTING
  152. et_data = lt_bupa_root
  153. et_target_key = DATA(lt_bupa_root_keys) ).
  154.  
  155. * IF lt_bupa_root_keys IS INITIAL.
  156. * RETURN.
  157. * ENDIF.
  158. *
  159. * IF lt_bupa_root_keys IS NOT INITIAL.
  160. * RETURN.
  161. * ENDIF.
  162.  
  163. mo_bp_srv->retrieve_by_association(
  164. EXPORTING
  165. it_key = lt_bupa_ship_keys
  166. iv_node_key = /bofu/if_bupa_constants=>sc_node-root
  167. iv_association = /bofu/if_bupa_constants=>sc_association-root-role
  168. iv_fill_data = abap_true
  169. IMPORTING
  170. et_data = lt_role_ship ).
  171.  
  172. * IF lt_role IS NOT INITIAL.
  173. * RETURN.
  174. * ENDIF.
  175.  
  176. LOOP AT lt_role_ship ASSIGNING FIELD-SYMBOL(<ls_role_bupa_ship>).
  177. READ TABLE lt_bupa_ship_root ASSIGNING FIELD-SYMBOL(<ls_bupa_ship_root>) WITH KEY key = <ls_role_bupa_ship>-parent_key BINARY SEARCH.
  178.  
  179. CHECK sy-subrc = 0.
  180.  
  181. IF <ls_role_bupa_ship>-partnerrole = mc_bbp000.
  182. mo_bp_srv->retrieve_by_association(
  183. EXPORTING
  184. it_key = lt_bupa_ship_keys
  185. iv_node_key = /bofu/if_bupa_constants=>sc_node-root
  186. iv_association = /bofu/if_bupa_constants=>sc_association-root-addressinformation
  187. IMPORTING
  188. et_target_key = DATA(lt_bupa_addrinfo_keys) ).
  189.  
  190. * IF lt_bupa_addrinfo_keys IS INITIAL.
  191. * RETURN.
  192. * ENDIF.
  193.  
  194. mo_bp_srv->retrieve_by_association(
  195. EXPORTING
  196. it_key = lt_bupa_addrinfo_keys
  197. iv_node_key = /bofu/if_bupa_constants=>sc_node-addressinformation
  198. iv_association = /bofu/if_bupa_constants=>sc_association-addressinformation-address
  199. IMPORTING
  200. et_target_key = DATA(lt_address_root_keys) ).
  201.  
  202. * IF lt_address_root_keys IS INITIAL.
  203. * RETURN.
  204. * ENDIF.
  205.  
  206. /scmtms/cl_common_helper=>get_do_keys_4_rba(
  207. EXPORTING
  208. iv_host_bo_key = /bofu/if_bupa_constants=>sc_bo_key
  209. iv_host_do_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  210. iv_do_node_key = /bofu/if_addr_constants=>sc_node-telephone
  211. iv_do_assoc_key = /bofu/if_addr_constants=>sc_association-root-telephone
  212. IMPORTING
  213. ev_node_key = lv_node_key_tel
  214. ev_assoc_key = lv_assoc_key_tel ).
  215.  
  216. * IF lv_node_key_tel IS INITIAL.
  217. * RETURN.
  218. * ENDIF.
  219. *
  220. * IF lv_assoc_key_tel IS INITIAL.
  221. * RETURN.
  222. * ENDIF.
  223.  
  224. mo_bp_srv->retrieve_by_association(
  225. EXPORTING
  226. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  227. iv_association = lv_assoc_key_tel
  228. iv_fill_data = abap_true
  229. it_key = lt_address_root_keys
  230. IMPORTING
  231. et_data = lt_telephone ).
  232.  
  233. * IF lt_telephone IS INITIAL.
  234. * RETURN.
  235. * ENDIF.
  236.  
  237. /scmtms/cl_common_helper=>get_do_keys_4_rba(
  238. EXPORTING
  239. iv_host_bo_key = /bofu/if_bupa_constants=>sc_bo_key
  240. iv_host_do_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  241. iv_do_node_key = /bofu/if_addr_constants=>sc_node-postal_address
  242. iv_do_assoc_key = /bofu/if_addr_constants=>sc_association-root-postal_address
  243. IMPORTING
  244. ev_node_key = lv_node_key
  245. ev_assoc_key = lv_assoc_key ).
  246.  
  247. * IF lv_node_key IS INITIAL.
  248. * RETURN.
  249. * ENDIF.
  250. *
  251. * IF lv_assoc_key IS INITIAL.
  252. * RETURN.
  253. * ENDIF.
  254.  
  255. mo_bp_srv->retrieve_by_association(
  256. EXPORTING
  257. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  258. iv_association = lv_assoc_key
  259. iv_fill_data = abap_true
  260. it_key = lt_address_root_keys
  261. IMPORTING
  262. et_data = lt_pos_address ).
  263.  
  264. * IF lt_pos_address IS INITIAL.
  265. * RETURN.
  266. * ENDIF.
  267.  
  268. *4 поле
  269. IF <ls_bupa_ship_root>-type = '1'.
  270. READ TABLE lt_but000_bupa_ship ASSIGNING FIELD-SYMBOL(<ls_but000_bupa_ship_4>) WITH KEY partner = <ls_bupa_ship_root>-partner BINARY SEARCH.
  271. READ TABLE lt_pos_address ASSIGNING FIELD-SYMBOL(<ls_pos_address_4>) INDEX 1.
  272. READ TABLE lt_telephone ASSIGNING FIELD-SYMBOL(<ls_telephone_4>) INDEX 1.
  273.  
  274. IF <ls_bupa_ship_root> IS ASSIGNED
  275. AND <ls_but000_bupa_ship_4> IS ASSIGNED
  276. AND <ls_pos_address_4> IS ASSIGNED
  277. AND <ls_telephone_4> IS ASSIGNED.
  278. ls_form-zzshipper_name = |{ <ls_bupa_ship_root>-description } { <ls_bupa_ship_root>-partner } { <ls_but000_bupa_ship_4>-name_first } { <ls_but000_bupa_ship_4>-name_last } { <ls_but000_bupa_ship_4>-namemiddle } { <ls_pos_address_4>-city_name } {
  279. <ls_pos_address_4>-street_name } { <ls_pos_address_4>-house_id } { <ls_pos_address_4>-region } { <ls_telephone_4>-formatted_number_text }|.
  280. ENDIF.
  281.  
  282. *6 поле
  283. ELSEIF <ls_bupa_ship_root>-type = '2'.
  284. READ TABLE lt_but000_bupa_ship ASSIGNING FIELD-SYMBOL(<ls_but000_bupa_ship_6>) WITH KEY partner = <ls_bupa_ship_root>-partner BINARY SEARCH.
  285. READ TABLE lt_pos_address ASSIGNING FIELD-SYMBOL(<ls_pos_address_6>) INDEX 1.
  286. READ TABLE lt_telephone ASSIGNING FIELD-SYMBOL(<ls_telephone_6>) INDEX 1.
  287.  
  288. IF <ls_bupa_ship_root> IS ASSIGNED
  289. AND <ls_but000_bupa_ship_6> IS ASSIGNED
  290. AND <ls_pos_address_6> IS ASSIGNED
  291. AND <ls_telephone_6> IS ASSIGNED.
  292. ls_form-zzname_shipper = |{ <ls_bupa_ship_root>-description } { <ls_bupa_ship_root>-partner } { <ls_but000_bupa_ship_6>-name_first } { <ls_but000_bupa_ship_6>-name_last } { <ls_but000_bupa_ship_6>-namemiddle } { <ls_pos_address_6>-city_name } {
  293. <ls_pos_address_6>-street_name } { <ls_pos_address_6>-house_id } { <ls_pos_address_6>-region } { <ls_telephone_6>-formatted_number_text }|.
  294. ENDIF.
  295. ENDIF.
  296.  
  297. *63 поле
  298. READ TABLE lt_but000_bupa_ship ASSIGNING FIELD-SYMBOL(<ls_but000_bupa_ship_63>) WITH KEY partner = <ls_bupa_ship_root>-partner BINARY SEARCH.
  299.  
  300. IF <ls_bupa_ship_root> IS ASSIGNED.
  301. ls_form-zzfn_shipper = <ls_bupa_ship_root>-description.
  302. ENDIF.
  303. ENDIF.
  304. ENDLOOP.
  305.  
  306. *5, 7, 62
  307. mo_tor_srv->retrieve_by_association(
  308. EXPORTING
  309. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  310. it_key = it_tor_key
  311. iv_association = /scmtms/if_tor_c=>sc_association-root-bupa_consignee_root
  312. iv_fill_data = abap_true
  313. IMPORTING
  314. et_data = lt_bupa_consignee
  315. et_target_key = DATA(lt_bupa_consignee_keys) ).
  316.  
  317. * IF lt_bupa_consignee_keys IS INITIAL.
  318. * RETURN.
  319. * ENDIF.
  320. *
  321. * IF lt_bupa_consignee IS INITIAL.
  322. * RETURN.
  323. * ENDIF.
  324.  
  325. SELECT *
  326. FROM but000
  327. INTO TABLE lt_but000_bupa_consignee
  328. FOR ALL ENTRIES IN lt_bupa_consignee
  329. WHERE but000~partner EQ lt_bupa_consignee-partner.
  330.  
  331. LOOP AT lt_role ASSIGNING FIELD-SYMBOL(<ls_role_bupa_consignee>).
  332. READ TABLE lt_bupa_consignee ASSIGNING FIELD-SYMBOL(<ls_bupa_consignee>) WITH KEY key = <ls_role_bupa_consignee>-parent_key BINARY SEARCH.
  333.  
  334. IF <ls_role_bupa_consignee>-partnerrole = mc_crm002.
  335. mo_bp_srv->retrieve_by_association(
  336. EXPORTING
  337. it_key = lt_bupa_consignee_keys
  338. iv_node_key = /bofu/if_bupa_constants=>sc_node-root
  339. iv_association = /bofu/if_bupa_constants=>sc_association-root-addressinformation
  340. IMPORTING
  341. et_target_key = DATA(lt_bupa_cons_addrinfo_keys) ).
  342.  
  343. * IF lt_bupa_cons_addrinfo_keys IS INITIAL.
  344. * RETURN.
  345. * ENDIF.
  346.  
  347. mo_bp_srv->retrieve_by_association(
  348. EXPORTING
  349. it_key = lt_bupa_cons_addrinfo_keys
  350. iv_node_key = /bofu/if_bupa_constants=>sc_node-addressinformation
  351. iv_association = /bofu/if_bupa_constants=>sc_association-addressinformation-address
  352. IMPORTING
  353. et_target_key = DATA(lt_bupa_cons_address_root_keys) ).
  354.  
  355. * IF lt_bupa_cons_address_root_keys IS INITIAL.
  356. * RETURN.
  357. * ENDIF.
  358.  
  359. CLEAR lt_telephone.
  360.  
  361. mo_bp_srv->retrieve_by_association(
  362. EXPORTING
  363. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  364. iv_association = lv_assoc_key_tel
  365. iv_fill_data = abap_true
  366. it_key = lt_bupa_cons_address_root_keys
  367. IMPORTING
  368. et_data = lt_telephone ).
  369.  
  370. * IF lt_telephone IS INITIAL.
  371. * RETURN.
  372. * ENDIF.
  373.  
  374. CLEAR lt_pos_address.
  375.  
  376. mo_bp_srv->retrieve_by_association(
  377. EXPORTING
  378. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  379. iv_association = lv_assoc_key
  380. iv_fill_data = abap_true
  381. it_key = lt_bupa_cons_address_root_keys
  382. IMPORTING
  383. et_data = lt_pos_address ).
  384.  
  385. * IF lt_pos_address IS INITIAL.
  386. * RETURN.
  387. * ENDIF.
  388. ENDIF.
  389.  
  390. *5 поле
  391. IF <ls_bupa_consignee>-type = '1'.
  392.  
  393. READ TABLE lt_but000_bupa_consignee ASSIGNING FIELD-SYMBOL(<ls_but000_bupa_consignee_5>) WITH KEY partner = <ls_bupa_consignee>-partner BINARY SEARCH.
  394. READ TABLE lt_pos_address ASSIGNING FIELD-SYMBOL(<ls_pos_address_5>) INDEX 1.
  395. READ TABLE lt_telephone ASSIGNING FIELD-SYMBOL(<ls_telephone_5>) INDEX 1.
  396.  
  397. IF <ls_bupa_consignee> IS ASSIGNED
  398. AND <ls_but000_bupa_consignee_5> IS ASSIGNED
  399. AND <ls_pos_address_5> IS ASSIGNED
  400. AND <ls_telephone_5> IS ASSIGNED.
  401. ls_form-zzcons = |{ <ls_bupa_consignee>-description } { <ls_bupa_consignee>-partner } { <ls_but000_bupa_consignee_5>-name_first } { <ls_but000_bupa_consignee_5>-name_last } { <ls_but000_bupa_consignee_5>-namemiddle } {
  402. <ls_pos_address_5>-city_name } { <ls_pos_address_5>-street_name } { <ls_pos_address_5>-house_id } { <ls_pos_address_5>-region } { <ls_telephone_5>-formatted_number_text }|.
  403. ENDIF.
  404.  
  405. *7 поле
  406. ELSEIF <ls_bupa_consignee>-type = '2'.
  407. READ TABLE lt_but000_bupa_consignee ASSIGNING FIELD-SYMBOL(<ls_but000_bupa_consignee_7>) WITH KEY partner = <ls_bupa_consignee>-partner BINARY SEARCH.
  408. READ TABLE lt_pos_address ASSIGNING FIELD-SYMBOL(<ls_pos_address_7>) INDEX 1.
  409. READ TABLE lt_telephone ASSIGNING FIELD-SYMBOL(<ls_telephone_7>) INDEX 1.
  410.  
  411. IF <ls_bupa_consignee> IS ASSIGNED
  412. AND <ls_but000_bupa_consignee_7> IS ASSIGNED
  413. AND <ls_pos_address_7> IS ASSIGNED
  414. AND <ls_telephone_7> IS ASSIGNED.
  415. ls_form-zzname_consignee = |{ <ls_bupa_consignee>-description } { <ls_bupa_consignee>-partner } { <ls_but000_bupa_consignee_7>-name_first } { <ls_but000_bupa_consignee_7>-name_last } { <ls_but000_bupa_consignee_7>-namemiddle } {
  416. <ls_pos_address_7>-city_name } { <ls_pos_address_7>-street_name } { <ls_pos_address_7>-house_id } { <ls_pos_address_7>-region } { <ls_telephone_7>-formatted_number_text }|.
  417. ENDIF.
  418. ENDIF.
  419.  
  420. *62 поле
  421. IF <ls_role_bupa_consignee>-partnerrole = mc_crm003.
  422. CLEAR lt_pos_address.
  423.  
  424. mo_bp_srv->retrieve_by_association(
  425. EXPORTING
  426. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  427. iv_association = lv_assoc_key
  428. iv_fill_data = abap_true
  429. it_key = lt_bupa_cons_address_root_keys
  430. IMPORTING
  431. et_data = lt_pos_address ).
  432.  
  433. * IF lt_pos_address IS INITIAL.
  434. * RETURN.
  435. * ENDIF.
  436.  
  437. READ TABLE lt_but000_bupa_consignee ASSIGNING FIELD-SYMBOL(<ls_but000_bupa_consignee_62>) WITH KEY partner = <ls_bupa_consignee>-partner BINARY SEARCH.
  438. READ TABLE lt_pos_address ASSIGNING FIELD-SYMBOL(<ls_pos_address_62>) INDEX 1.
  439.  
  440. IF <ls_bupa_consignee> IS ASSIGNED
  441. AND <ls_pos_address_62> IS ASSIGNED.
  442. ls_form-zzsupplied_certif = |{ <ls_bupa_consignee>-partner } { <ls_bupa_consignee>-description } { <ls_pos_address_62>-city_name } { <ls_pos_address_62>-street_name } { <ls_pos_address_62>-house_id } { <ls_pos_address_62>-region }|.
  443. ENDIF.
  444. ENDIF.
  445. ENDLOOP.
  446.  
  447. *42, 43, 65
  448. SELECT *
  449. FROM but000
  450. INTO TABLE lt_but000_tor_root
  451. FOR ALL ENTRIES IN lt_tor_root
  452. WHERE but000~partner EQ lt_tor_root-tspid.
  453. LOOP AT lt_tor_root ASSIGNING FIELD-SYMBOL(<ls_tor_root_2>).
  454.  
  455. ls_selpar-attribute_name = /bofu/if_bupa_constants=>sc_query_attribute-root-query_by_role-partner.
  456. ls_selpar-option = 'EQ'.
  457. ls_selpar-sign = 'I'.
  458. ls_selpar-low = <ls_tor_root_2>-tspid.
  459. APPEND ls_selpar TO lt_selpar.
  460. *
  461. * mo_bp_srv = /bobf/cl_tra_serv_mgr_factory=>get_service_manager( /bofu/if_bupa_constants=>sc_bo_key ).
  462. mo_bp_srv->query(
  463. EXPORTING
  464. iv_query_key = /bofu/if_bupa_constants=>sc_query-root-query_by_role
  465. it_selection_parameters = lt_selpar
  466. iv_fill_data = abap_true
  467. IMPORTING
  468. eo_message = go_message
  469. et_data = lt_bp_root
  470. et_key = DATA(lt_bp_root_keys) ).
  471. ENDLOOP.
  472.  
  473. LOOP AT lt_role ASSIGNING FIELD-SYMBOL(<ls_role_tor_root>).
  474. READ TABLE lt_tor_root ASSIGNING FIELD-SYMBOL(<ls_tor_root_42>) WITH KEY key = <ls_role_tor_root>-parent_key BINARY SEARCH.
  475.  
  476. CHECK sy-subrc = 0.
  477.  
  478. mo_bp_srv->retrieve_by_association(
  479. EXPORTING
  480. it_key = lt_bp_root_keys
  481. iv_node_key = /bofu/if_bupa_constants=>sc_node-root
  482. iv_association = /bofu/if_bupa_constants=>sc_association-root-addressinformation
  483. IMPORTING
  484. et_target_key = DATA(lt_tor_root_addrinfo_keys) ).
  485.  
  486. * IF lt_tor_root_addrinfo_keys IS INITIAL.
  487. * RETURN.
  488. * ENDIF.
  489.  
  490. mo_bp_srv->retrieve_by_association(
  491. EXPORTING
  492. it_key = lt_tor_root_addrinfo_keys
  493. iv_node_key = /bofu/if_bupa_constants=>sc_node-addressinformation
  494. iv_association = /bofu/if_bupa_constants=>sc_association-addressinformation-address
  495. IMPORTING
  496. et_target_key = DATA(lt_tor_root_address_keys) ).
  497.  
  498. /scmtms/cl_common_helper=>get_do_keys_4_rba(
  499. EXPORTING
  500. iv_host_bo_key = /bofu/if_bupa_constants=>sc_bo_key
  501. iv_host_do_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  502. iv_do_node_key = /bofu/if_addr_constants=>sc_node-telephone
  503. iv_do_assoc_key = /bofu/if_addr_constants=>sc_association-root-telephone
  504. IMPORTING
  505. ev_node_key = lv_node_key_tel
  506. ev_assoc_key = lv_assoc_key_tel ).
  507.  
  508. * IF lt_tor_root_address_keys IS INITIAL.
  509. * RETURN.
  510. * ENDIF.
  511.  
  512. * CLEAR lt_telephone.
  513.  
  514. mo_bp_srv->retrieve_by_association(
  515. EXPORTING
  516. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  517. iv_association = lv_assoc_key_tel
  518. iv_fill_data = abap_true
  519. it_key = lt_tor_root_address_keys
  520. IMPORTING
  521. et_data = lt_telephone ).
  522.  
  523. * IF lt_telephone IS INITIAL.
  524. * RETURN.
  525. * ENDIF.
  526.  
  527. CLEAR lt_pos_address.
  528.  
  529. mo_bp_srv->retrieve_by_association(
  530. EXPORTING
  531. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  532. iv_association = lv_assoc_key
  533. iv_fill_data = abap_true
  534. it_key = lt_tor_root_address_keys
  535. IMPORTING
  536. et_data = lt_pos_address ).
  537.  
  538. * IF lt_pos_address IS INITIAL.
  539. * RETURN.
  540. * ENDIF.
  541.  
  542. IF <ls_role_tor_root>-partnerrole = mc_crm010.
  543. *42 поле
  544. READ TABLE lt_bupa_root ASSIGNING FIELD-SYMBOL(<ls_bupa_root>) INDEX 1.
  545.  
  546. IF <ls_bupa_root>-type = '1'.
  547. READ TABLE lt_but000_tor_root ASSIGNING FIELD-SYMBOL(<lt_but000_tor_root_42>) WITH KEY partner = <ls_tor_root_42>-tspid BINARY SEARCH.
  548. READ TABLE lt_pos_address ASSIGNING FIELD-SYMBOL(<ls_pos_address_42>) INDEX 1.
  549. READ TABLE lt_telephone ASSIGNING FIELD-SYMBOL(<ls_telephone_42>) INDEX 1.
  550.  
  551. IF <lt_but000_tor_root_42> IS ASSIGNED
  552. AND <ls_pos_address_42> IS ASSIGNED
  553. AND <ls_telephone_42> IS ASSIGNED.
  554. ls_form-zza42 = |{ <lt_but000_tor_root_42>-name_first } { <lt_but000_tor_root_42>-name_last } { <lt_but000_tor_root_42>-namemiddle } { <ls_pos_address_42>-city_name } { <ls_pos_address_42>-street_name } { <ls_pos_address_42>-house_id } {
  555. <ls_pos_address_42>-region } { <ls_telephone_42>-formatted_number_text }|.
  556. ENDIF.
  557.  
  558. ENDIF.
  559.  
  560. *43 поле
  561. IF <ls_bupa_root>-type = '2'.
  562. READ TABLE lt_but000_tor_root ASSIGNING FIELD-SYMBOL(<lt_but000_tor_root_43>) WITH KEY partner = <ls_tor_root_42>-tspid BINARY SEARCH.
  563. READ TABLE lt_pos_address ASSIGNING FIELD-SYMBOL(<ls_pos_address_43>) INDEX 1.
  564. READ TABLE lt_telephone ASSIGNING FIELD-SYMBOL(<ls_telephone_43>) INDEX 1.
  565.  
  566. IF <lt_but000_tor_root_43> IS ASSIGNED
  567. AND <ls_pos_address_43> IS ASSIGNED
  568. AND <ls_telephone_43> IS ASSIGNED.
  569. ls_form-zza43 = |{ <lt_but000_tor_root_43>-name_first } { <lt_but000_tor_root_43>-name_last } { <lt_but000_tor_root_43>-namemiddle } { <ls_pos_address_43>-city_name } { <ls_pos_address_43>-street_name } { <ls_pos_address_43>-house_id } {
  570. <ls_pos_address_43>-region } { <ls_telephone_43>-formatted_number_text }|.
  571. ENDIF.
  572. ENDIF.
  573.  
  574. *65 поле
  575. IF <ls_bupa_root> IS ASSIGNED.
  576. ls_form-zza51 = <ls_bupa_root>-description.
  577. ENDIF.
  578. ENDIF.
  579. ENDLOOP.
  580.  
  581. *44 поле
  582.  
  583. CLEAR lt_but000.
  584.  
  585. SELECT *
  586. FROM but000
  587. INTO TABLE lt_but000
  588. FOR ALL ENTRIES IN lt_bupa_root
  589. WHERE but000~partner EQ lt_bupa_root-partner.
  590.  
  591. LOOP AT lt_role ASSIGNING FIELD-SYMBOL(<ls_role_bupa_root>).
  592. READ TABLE lt_bupa_root ASSIGNING FIELD-SYMBOL(<ls_bupa_root_44>) WITH KEY key = <ls_role_bupa_root>-parent_key BINARY SEARCH.
  593.  
  594. CHECK sy-subrc = 0.
  595.  
  596. mo_bp_srv->retrieve_by_association(
  597. EXPORTING
  598. it_key = lt_bupa_root_keys
  599. iv_node_key = /bofu/if_bupa_constants=>sc_node-root
  600. iv_association = /bofu/if_bupa_constants=>sc_association-root-addressinformation
  601. IMPORTING
  602. et_target_key = DATA(lt_bupa_root_addrinfo_keys) ).
  603.  
  604. * IF lt_bupa_root_addrinfo_keys IS INITIAL.
  605. * RETURN.
  606. * ENDIF.
  607.  
  608. mo_bp_srv->retrieve_by_association(
  609. EXPORTING
  610. it_key = lt_bupa_root_addrinfo_keys
  611. iv_node_key = /bofu/if_bupa_constants=>sc_node-addressinformation
  612. iv_association = /bofu/if_bupa_constants=>sc_association-addressinformation-address
  613. IMPORTING
  614. et_target_key = DATA(lt_bupa_root_address_keys) ).
  615.  
  616. * IF lt_bupa_root_address_keys IS INITIAL.
  617. * RETURN.
  618. * ENDIF.
  619.  
  620. CLEAR lt_telephone.
  621.  
  622. mo_bp_srv->retrieve_by_association(
  623. EXPORTING
  624. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  625. iv_association = lv_assoc_key_tel
  626. iv_fill_data = abap_true
  627. it_key = lt_bupa_root_address_keys
  628. IMPORTING
  629. et_data = lt_telephone ).
  630.  
  631. * IF lt_telephone IS INITIAL.
  632. * RETURN.
  633. * ENDIF.
  634.  
  635. CLEAR lt_pos_address.
  636.  
  637. mo_bp_srv->retrieve_by_association(
  638. EXPORTING
  639. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  640. iv_association = lv_assoc_key
  641. iv_fill_data = abap_true
  642. it_key = lt_bupa_root_address_keys
  643. IMPORTING
  644. et_data = lt_pos_address ).
  645.  
  646. * IF lt_pos_address IS INITIAL.
  647. * RETURN.
  648. * ENDIF.
  649.  
  650. IF <ls_role_tor_root>-partnerrole = mc_tm0001.
  651. READ TABLE lt_but000 ASSIGNING FIELD-SYMBOL(<ls_but000_bupa_root_44>) WITH KEY partner = <ls_bupa_root_44>-partner BINARY SEARCH.
  652. READ TABLE lt_telephone ASSIGNING FIELD-SYMBOL(<ls_telephone_44>) INDEX 1.
  653.  
  654. IF <ls_but000_bupa_root_44> IS ASSIGNED
  655. AND <ls_telephone_44> IS ASSIGNED.
  656. ls_form-zza44 = |{ <ls_but000_bupa_root_44>-name_first } { <ls_but000_bupa_root_44>-name_last } { <ls_but000_bupa_root_44>-namemiddle } { <ls_telephone_44>-formatted_number_text }|.
  657. ENDIF.
  658. ENDIF.
  659. ENDLOOP.
  660.  
  661. *9 и 10 поле
  662. mo_tor_srv->retrieve_by_association(
  663. EXPORTING
  664. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  665. it_key = it_tor_key
  666. iv_association = /scmtms/if_tor_c=>sc_association-root-item_tr
  667. iv_fill_data = abap_true
  668. IMPORTING
  669. et_data = lt_tor_item_tr
  670. et_target_key = DATA(lt_tor_item_tr_key) ).
  671.  
  672. * IF lt_tor_item_tr_key IS INITIAL.
  673. * RETURN.
  674. * ENDIF.
  675.  
  676. mo_tor_srv->retrieve_by_association(
  677. EXPORTING
  678. iv_node_key = /scmtms/if_tor_c=>sc_node-item_tr
  679. it_key = lt_tor_item_tr_key
  680. iv_association = /scmtms/if_tor_c=>sc_association-item_tr-bo_material
  681. IMPORTING
  682. et_target_key = DATA(lt_tor_bo_material_key) ).
  683.  
  684. * IF lt_tor_bo_material_key IS INITIAL.
  685. * RETURN.
  686. * ENDIF.
  687.  
  688. mo_mtrl_srv->retrieve_by_association(
  689. EXPORTING
  690. iv_node_key = /scmtms/if_mat_c=>sc_node-root
  691. it_key = lt_tor_bo_material_key
  692. iv_association = /scmtms/if_mat_c=>sc_association-root-description
  693. iv_fill_data = abap_true
  694. IMPORTING
  695. et_data = lt_mtrl_description ).
  696.  
  697. * IF lt_mtrl_description IS INITIAL.
  698. * RETURN.
  699. * ENDIF.
  700.  
  701. READ TABLE lt_mtrl_description ASSIGNING FIELD-SYMBOL(<ls_mtrl_description>) INDEX 1.
  702. READ TABLE lt_tor_item_tr ASSIGNING FIELD-SYMBOL(<ls_tor_item_tr>) WITH KEY item_cat = mc_item_cat.
  703.  
  704. IF <ls_mtrl_description> IS ASSIGNED
  705. AND <ls_tor_item_tr> IS ASSIGNED.
  706. ls_form-zzcargo_space = |{ <ls_mtrl_description>-maktx } { <ls_tor_item_tr>-qua_pcs_val }|.
  707. ENDIF.
  708.  
  709. IF <ls_tor_item_tr> IS ASSIGNED.
  710. ls_form-zzcargo_condition = <ls_tor_item_tr>-gro_wei_val.
  711. ENDIF.
  712.  
  713. *17 поле
  714. mo_tor_srv->retrieve_by_association(
  715. EXPORTING
  716. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  717. it_key = it_tor_key
  718. iv_association = /scmtms/if_tor_c=>sc_association-root-stop
  719. iv_fill_data = abap_true
  720. IMPORTING
  721. et_data = lt_tor_stop ).
  722.  
  723. READ TABLE lt_tor_stop ASSIGNING FIELD-SYMBOL(<ls_tor_stop_pos_f>) WITH KEY stop_seq_pos = mc_stop_seq_pos_f.
  724.  
  725. ls_sel_opt_f-attribute_name = 'LOCATION_ID'.
  726. ls_sel_opt_f-option = 'EQ'.
  727. ls_sel_opt_f-sign = 'I'.
  728. IF <ls_tor_stop_pos_f> IS ASSIGNED.
  729. ls_sel_opt_f-low = <ls_tor_stop_pos_f>-log_locid.
  730. ENDIF.
  731.  
  732. APPEND ls_sel_opt_f TO lt_sel_opt_f.
  733.  
  734. mo_loc_srv->query(
  735. EXPORTING
  736. iv_query_key = /scmtms/if_location_c=>sc_query-root-qdb_by_elements
  737. it_selection_parameters = lt_sel_opt_f
  738. iv_fill_data = abap_true
  739. IMPORTING
  740. et_data = lt_loc_data_f ).
  741.  
  742. * IF lt_loc_data_f IS INITIAL.
  743. * RETURN.
  744. * ENDIF.
  745.  
  746. READ TABLE lt_loc_data_f INTO DATA(ls_query_data_f) INDEX 1.
  747.  
  748. mo_loc_srv->retrieve(
  749. EXPORTING
  750. iv_node_key = /scmtms/if_location_c=>sc_node-root
  751. it_key = VALUE #( ( key = ls_query_data_f-db_key ) )
  752. iv_fill_data = abap_true
  753. IMPORTING
  754. et_data = lt_loc_root_f ).
  755.  
  756. * IF lt_loc_root_f IS INITIAL.
  757. * RETURN.
  758. * ENDIF.
  759.  
  760. READ TABLE lt_loc_root_f ASSIGNING FIELD-SYMBOL(<ls_loc_root_f>) INDEX 1.
  761.  
  762. CLEAR lt_pos_address.
  763.  
  764. mo_bp_srv->retrieve_by_association(
  765. EXPORTING
  766. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  767. iv_association = lv_assoc_key
  768. iv_fill_data = abap_true
  769. it_key = lt_address_root_keys
  770. IMPORTING
  771. et_data = lt_pos_address ).
  772.  
  773. * IF lt_pos_address IS INITIAL.
  774. * RETURN.
  775. * ENDIF.
  776.  
  777. READ TABLE lt_pos_address ASSIGNING FIELD-SYMBOL(<ls_pos_address_17>) INDEX 1.
  778.  
  779. IF <ls_tor_stop_pos_f> IS ASSIGNED
  780. AND <ls_loc_root_f> IS ASSIGNED
  781. AND <ls_pos_address_17> IS ASSIGNED.
  782. ls_form-zzload_adress = |{ <ls_tor_stop_pos_f>-log_locid } { <ls_loc_root_f>-adrnummer } { <ls_pos_address_17>-country_code } { <ls_pos_address_17>-region } { <ls_pos_address_17>-city_name }|.
  783. ENDIF.
  784.  
  785. *26 поле
  786.  
  787. READ TABLE lt_tor_stop ASSIGNING FIELD-SYMBOL(<ls_tor_stop_pos_l>) WITH KEY stop_seq_pos = mc_stop_seq_pos_l.
  788.  
  789. ls_sel_opt_l-attribute_name = 'LOCATION_ID'.
  790. ls_sel_opt_l-option = 'EQ'.
  791. ls_sel_opt_l-sign = 'I'.
  792.  
  793. IF <ls_mtrl_description> IS ASSIGNED.
  794. ls_sel_opt_l-low = <ls_tor_stop_pos_l>-log_locid.
  795. ENDIF.
  796.  
  797. APPEND ls_sel_opt_l TO lt_sel_opt_l.
  798.  
  799. mo_loc_srv->query(
  800. EXPORTING
  801. iv_query_key = /scmtms/if_location_c=>sc_query-root-qdb_by_elements
  802. it_selection_parameters = lt_sel_opt_l
  803. iv_fill_data = abap_true
  804. IMPORTING
  805. et_data = lt_loc_data_l ).
  806.  
  807. * IF lt_loc_data_l IS INITIAL.
  808. * RETURN.
  809. * ENDIF.
  810.  
  811. READ TABLE lt_loc_data_l INTO DATA(ls_query_data_l) INDEX 1.
  812.  
  813. mo_loc_srv->retrieve(
  814. EXPORTING
  815. iv_node_key = /scmtms/if_location_c=>sc_node-root
  816. it_key = VALUE #( ( key = ls_query_data_l-db_key ) )
  817. iv_fill_data = abap_true
  818. IMPORTING
  819. et_data = lt_loc_root_l ).
  820.  
  821. * IF lt_loc_root_l IS INITIAL.
  822. * RETURN.
  823. * ENDIF.
  824.  
  825. READ TABLE lt_loc_root_l ASSIGNING FIELD-SYMBOL(<ls_loc_root_l>) INDEX 1.
  826. READ TABLE lt_pos_address ASSIGNING FIELD-SYMBOL(<ls_pos_address_26>) INDEX 1.
  827.  
  828. IF <ls_tor_stop_pos_l> IS ASSIGNED
  829. AND <ls_loc_root_l> IS ASSIGNED
  830. AND <ls_pos_address_26> IS ASSIGNED.
  831. ls_form-zzuploading_adress = |{ <ls_tor_stop_pos_l>-log_locid } { <ls_loc_root_l>-adrnummer } { <ls_pos_address_26>-country_code } { <ls_pos_address_26>-region } { <ls_pos_address_26>-city_name }|.
  832. ENDIF.
  833.  
  834. *18 поле
  835. READ TABLE lt_tor_stop ASSIGNING FIELD-SYMBOL(<ls_tor_stop_l>) WITH KEY stop_seq_pos = mc_stop_seq_pos_l.
  836.  
  837. IF <ls_tor_stop_pos_l> IS ASSIGNED.
  838. ls_form-zztimedate_admission = <ls_tor_stop_l>-plan_trans_time.
  839. ENDIF.
  840.  
  841. *19 поле
  842. mo_tor_srv->retrieve_by_association(
  843. EXPORTING
  844. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  845. it_key = it_tor_key
  846. iv_association = /scmtms/if_tor_c=>sc_association-root-stop_first
  847. iv_fill_data = abap_true
  848. IMPORTING
  849. et_data = lt_stop_first ).
  850.  
  851. * IF lt_stop_first IS INITIAL.
  852. * RETURN.
  853. * ENDIF.
  854.  
  855. READ TABLE lt_stop_first ASSIGNING FIELD-SYMBOL(<ls_stop_first>) INDEX 1.
  856.  
  857. IF <ls_stop_first> IS ASSIGNED.
  858. ls_form-zztimedate_admission2 = <ls_stop_first>-plan_trans_time.
  859. ENDIF.
  860.  
  861. IF <ls_tor_item_tr> IS ASSIGNED.
  862. *22 поле
  863. ls_form-zzweight_load = <ls_tor_item_tr>-gro_wei_val.
  864. *23 поле
  865. ls_form-zzn_seats = <ls_tor_item_tr>-qua_pcs_val.
  866. ENDIF.
  867.  
  868. *24 поле
  869. mo_bp_srv->retrieve_by_association(
  870. EXPORTING
  871. it_key = lt_bupa_root_keys
  872. iv_node_key = /bofu/if_bupa_constants=>sc_node-root
  873. iv_association = /bofu/if_bupa_constants=>sc_association-root-relationship
  874. iv_fill_data = abap_true
  875. IMPORTING
  876. et_data = lt_relationship ).
  877.  
  878. * IF lt_relationship IS INITIAL.
  879. * RETURN.
  880. * ENDIF.
  881.  
  882. CLEAR lt_but000.
  883.  
  884. SELECT *
  885. FROM but000
  886. INTO TABLE lt_but000
  887. FOR ALL ENTRIES IN lt_relationship
  888. WHERE but000~partner EQ lt_relationship-partner.
  889.  
  890. READ TABLE lt_but000 ASSIGNING FIELD-SYMBOL(<ls_but000>) INDEX 1.
  891.  
  892. IF <ls_but000> IS ASSIGNED.
  893. ls_form-zzattached_doc = |{ <ls_but000>-partner } { <ls_but000>-name_first } { <ls_but000>-name_last }|.
  894. ENDIF.
  895.  
  896. *25 поле
  897. mo_tor_srv->retrieve_by_association(
  898. EXPORTING
  899. it_key = lt_tor_item_tr_key
  900. iv_node_key = /scmtms/if_tor_c=>sc_node-item_tr
  901. iv_association = /scmtms/if_tor_c=>sc_association-item_tr-bo_driver
  902. IMPORTING
  903. et_target_key = DATA(lt_driver_key) ).
  904.  
  905. mo_drv_srm->retrieve(
  906. EXPORTING
  907. it_key = lt_driver_key
  908. iv_node_key = /scmtms/if_driver_c=>sc_node-root
  909. iv_fill_data = abap_true
  910. IMPORTING
  911. et_data = lt_drv_root ).
  912.  
  913. READ TABLE lt_drv_root ASSIGNING FIELD-SYMBOL(<ls_drv_root>) INDEX 1.
  914.  
  915. IF <ls_drv_root> IS ASSIGNED.
  916. ls_form-zzinstrqar = |{ <ls_drv_root>-name_last } { <ls_drv_root>-name_first }|.
  917. *34 поле
  918. ls_form-zza34 = |{ <ls_drv_root>-name_last } { <ls_drv_root>-name_first }|.
  919. ENDIF.
  920.  
  921. *46 поле
  922. READ TABLE lt_tor_item_tr ASSIGNING FIELD-SYMBOL(<ls_item_tr>) INDEX 1.
  923.  
  924. IF <ls_item_tr> IS ASSIGNED.
  925. ls_form-zza46 = <ls_item_tr>-platenumber.
  926. ENDIF.
  927.  
  928. * 45 поле
  929. mo_res_srm->retrieve(
  930. EXPORTING
  931. iv_node_key = /scmtms/if_resource_c=>sc_node-root
  932. it_key = lt_itemtr_keys
  933. iv_fill_data = abap_true
  934. IMPORTING
  935. et_data = lt_res_root ).
  936.  
  937. * IF lt_res_root IS INITIAL.
  938. * RETURN.
  939. * ENDIF.
  940.  
  941. mo_res_srm->retrieve_by_association(
  942. EXPORTING
  943. iv_node_key = /scmtms/if_resource_c=>sc_node-root
  944. it_key = lt_itemtr_keys
  945. iv_association = /scmtms/if_resource_c=>sc_association-root-transp_capa_offer
  946. iv_fill_data = abap_true
  947. IMPORTING
  948. et_data = lt_transp_capa_offer ).
  949.  
  950. * IF lt_transp_capa_offer IS INITIAL.
  951. * RETURN.
  952. * ENDIF.
  953.  
  954. READ TABLE lt_transp_capa_offer ASSIGNING FIELD-SYMBOL(<ls_transp_capa_offer>) INDEX 1.
  955. READ TABLE lt_res_root ASSIGNING FIELD-SYMBOL(<ls_res_root>) INDEX 1.
  956. READ TABLE lt_tor_root ASSIGNING FIELD-SYMBOL(<ls_tor_root_45>) INDEX 1.
  957.  
  958. IF <ls_tor_item_tr> IS ASSIGNED
  959. AND <ls_res_root> IS ASSIGNED
  960. AND <ls_transp_capa_offer> IS ASSIGNED
  961. AND <ls_tor_root_45> IS ASSIGNED.
  962. ls_form-zza45 = |{ <ls_tor_item_tr>-tracking_no } { <ls_res_root>-description } { <ls_transp_capa_offer>-qty_value } { <ls_tor_root_45>-gro_wei_val } { <ls_tor_root_45>-gro_vol_val }|.
  963. ENDIF.
  964.  
  965. MOVE-CORRESPONDING ls_form TO es_form.
  966.  
  967. ENDMETHOD.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!