Advertisement
hxxxrz

Untitled

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