API tools faq
paste
Advertisement
hxxxrz

Untitled

hxxxrz
Feb 18th, 2021
335
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 37.07 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_toritemtrunique_itemcatprd TYPE /scmtms/t_tor_item_tr_k,
  17. lt_toritemtrunique_itemcattur TYPE /scmtms/t_tor_item_tr_k,
  18. lt_sel_opt_f TYPE /bobf/t_frw_query_selparam,
  19. lt_sel_opt_l TYPE /bobf/t_frw_query_selparam,
  20. ls_sel_opt_f LIKE LINE OF lt_sel_opt_f,
  21. ls_sel_opt_l LIKE LINE OF lt_sel_opt_l,
  22. lt_loc_data_f TYPE /scmtms/t_loc_q_elem_result,
  23. lt_loc_data_l TYPE /scmtms/t_loc_q_elem_result,
  24. lv_node_key TYPE /bobf/obm_node_key,
  25. lv_assoc_key TYPE /bobf/obm_assoc_key,
  26. lv_node_key_tel TYPE /bobf/obm_node_key,
  27. lv_assoc_key_telephone TYPE /bobf/obm_assoc_key,
  28. lv_assoc_key_postal_address TYPE /bobf/obm_assoc_key,
  29. lt_bofu_address_postal_address TYPE /bofu/t_addr_postal_addressk,
  30. lt_loc_root_f TYPE /scmtms/t_bo_loc_root_k,
  31. lt_loc_root_l TYPE /scmtms/t_bo_loc_root_k,
  32. lt_drv_root TYPE /scmtms/t_res_lab_root_k,
  33. lt_tras_capa_offer TYPE /scmtms/t_res_quantity_k,
  34. lt_bupa_consignee TYPE /bofu/t_bupa_root_k,
  35. lt_tor_bupa_root TYPE /bofu/t_bupa_root_k,
  36. lt_role TYPE /bofu/t_bupa_role_k,
  37. lt_tor_bupa_ship_root TYPE /bofu/t_bupa_root_k,
  38. lt_bupa_data TYPE /bofu/t_bupa_root_k,
  39. ls_bupa_data LIKE LINE OF lt_bupa_data,
  40. lt_but000 TYPE TABLE OF but000,
  41. lt_but000_bupa_ship TYPE TABLE OF but000,
  42. lt_but000_bupa_consignee TYPE TABLE OF but000,
  43. lt_but000_tor_root TYPE TABLE OF but000,
  44. lt_relationship TYPE /bofu/t_bupa_relship_k,
  45. lt_transp_capa_offer TYPE /scmtms/t_res_quantity_k,
  46. lt_res_root TYPE /scmtms/t_res_root_k,
  47. lt_bofu_address_telephone TYPE /bofu/t_addr_telephonek,
  48. lt_stop_first TYPE /scmtms/t_tor_stop_k,
  49. lt_key_bupa TYPE /bobf/t_frw_key,
  50. ls_key_bupa LIKE LINE OF lt_key_bupa,
  51. lt_role_ship TYPE /bofu/t_bupa_role_k,
  52. lt_bp_root TYPE /bofu/t_bupa_root_k,
  53. ls_selpar TYPE /bobf/s_frw_query_selparam,
  54. lt_selpar TYPE /bobf/t_frw_query_selparam,
  55. go_message TYPE REF TO /bobf/if_frw_message,
  56. ls_bofu_address_telephone_4_1 LIKE LINE OF lt_bofu_address_telephone,
  57. ls_bofu_address_telephone_4_2 LIKE LINE OF lt_bofu_address_telephone,
  58. ls_bofu_address_telephone_6_1 LIKE LINE OF lt_bofu_address_telephone,
  59. ls_bofu_address_telephone_6_2 LIKE LINE OF lt_bofu_address_telephone,
  60. ls_bofu_address_telephone_5_1 LIKE LINE OF lt_bofu_address_telephone,
  61. ls_bofu_address_telephone_5_2 LIKE LINE OF lt_bofu_address_telephone,
  62. ls_bofu_address_telephone_7_1 LIKE LINE OF lt_bofu_address_telephone,
  63. ls_bofu_address_telephone_7_2 LIKE LINE OF lt_bofu_address_telephone,
  64. ls_bofu_address_telephone_42_1 LIKE LINE OF lt_bofu_address_telephone,
  65. ls_bofu_address_telephone_42_2 LIKE LINE OF lt_bofu_address_telephone,
  66. ls_bofu_address_telephone_43_1 LIKE LINE OF lt_bofu_address_telephone,
  67. ls_bofu_address_telephone_43_2 LIKE LINE OF lt_bofu_address_telephone,
  68. ls_bofu_address_telephone_44_1 LIKE LINE OF lt_bofu_address_telephone,
  69. ls_bofu_address_telephone_44_2 LIKE LINE OF lt_bofu_address_telephone,
  70. lt_bofu_addr_tel_sorted LIKE lt_bofu_address_telephone,
  71. lv_date TYPE d,
  72. lv_time TYPE t,
  73. lv_date_result TYPE c LENGTH 11,
  74. lv_zzcargo_condition_i TYPE i,
  75. lv_qua_pcs_val_9 TYPE i,
  76. lv_gro_wei_val_10 TYPE p LENGTH 10 DECIMALS 2,
  77. lt_tor_z_pdf TYPE ztttm_tor_pdf_k,
  78. lt_bupa_common TYPE /bofu/t_bupa_common_k,
  79. lt_bupa_tax_number TYPE /bofu/t_bupa_taxno_k,
  80. lt_t005u TYPE TABLE OF t005u,
  81. lt_but0bk TYPE TABLE OF but0bk,
  82. lt_bnka TYPE TABLE OF bnka,
  83. zzfn_shipper1 TYPE c LENGTH 1000,
  84. zzfn_shipper2 TYPE c LENGTH 1000,
  85. zzname_shipper1 TYPE c LENGTH 1000,
  86. zzname_shipper2 TYPE c LENGTH 1000,
  87. zzname_consignee1 TYPE c LENGTH 1000,
  88. zzname_consignee2 TYPE c LENGTH 1000,
  89. lv_zz14x_priem_gruza_plomba TYPE c LENGTH 1000,
  90. lv_zz14x_priem_gruza_konteiner TYPE c LENGTH 1000,
  91. lv_zz26x_reg_nomer_ts TYPE c LENGTH 1000,
  92. lv_zz26x_reg_nomer_pricep TYPE c LENGTH 1000,
  93. lt_tor_bo_material TYPE /scmtms/t_mat_root_k,
  94. lt_sapapo_matkey TYPE TABLE OF /sapapo/matkey,
  95. lt_zttm_group_mat_t TYPE TABLE OF zttm_group_mat_t,
  96. lt_loc_postal_address TYPE /bofu/t_addr_postal_addressk,
  97. lt_tor_item_tr_unique TYPE TABLE OF /scmtms/s_tor_item_tr_k,
  98. lt_tor_bo_bupa_consignee TYPE /bofu/t_bupa_root_k,
  99. lt_toritemtr_linkkeysunique TYPE /bobf/t_frw_key_link,
  100. lt_torbomat_linkkeysunique TYPE /bobf/t_frw_key_link,
  101. lt_tor_bo_material_unique LIKE lt_tor_bo_material,
  102. lt_sapapo_matkey_unique LIKE lt_sapapo_matkey,
  103. lt_bofu_address_telephone_5 LIKE lt_bofu_address_telephone,
  104. lt_bofu_addr_postal_addr_5 LIKE lt_bofu_address_postal_address,
  105. lt_bp_common_5 TYPE /bofu/t_bupa_common_k,
  106. lt_bp_tax_number_5 TYPE /bofu/t_bupa_taxno_k,
  107. lt_zz7x_naimenovanie_gruza TYPE STANDARD TABLE OF string,
  108. lv_testing TYPE string,
  109. lv_string_length TYPE i,
  110. lv_zz9x_gruz_massa_brutto TYPE decfloat16,
  111. lv_zz15x_priemgruza_vesbrutto TYPE decfloat16,
  112. lt_bp_postal_address TYPE /bofu/t_addr_postal_addressk,
  113. lt_t005u_11x TYPE TABLE OF t005u,
  114. lt_tor_seal TYPE /scmtms/t_tor_seal_k,
  115. lt_tor_bo_driver TYPE /scmtms/t_res_lab_root_k,
  116. lt_tor_bo_resource TYPE /SCMTMS/T_RES_ROOT_K.
  117.  
  118. *1x поле
  119. mo_tor_srv->retrieve_by_association(
  120. EXPORTING
  121. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  122. it_key = it_tor_key
  123. iv_association = /scmtms/if_tor_c=>sc_association-root-stop_first
  124. iv_fill_data = abap_true
  125. IMPORTING
  126. et_target_key = DATA(lt_tor_stop_first_keys)
  127. et_data = lt_tor_stop_first ).
  128.  
  129. READ TABLE lt_tor_stop_first ASSIGNING FIELD-SYMBOL(<ls_tor_stop_first>) INDEX 1.
  130.  
  131. IF <ls_tor_stop_first> IS ASSIGNED.
  132. CONVERT TIME STAMP <ls_tor_stop_first>-appointment_start TIME ZONE sy-zonlo
  133. INTO DATE lv_date TIME lv_time.
  134.  
  135. CONCATENATE lv_date+6(2) '.' lv_date+4(2) '.' lv_date(4) INTO lv_date_result.
  136.  
  137. ls_form-zz1x_fact_date = lv_date_result.
  138. ENDIF.
  139.  
  140. *2x поле
  141. mo_tor_srv->retrieve(
  142. EXPORTING
  143. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  144. it_key = it_tor_key
  145. iv_fill_data = abap_true
  146. IMPORTING
  147. et_data = lt_tor_root ).
  148.  
  149. READ TABLE lt_tor_root ASSIGNING FIELD-SYMBOL(<ls_tor_root>) INDEX 1.
  150.  
  151. IF <ls_tor_root> IS ASSIGNED.
  152. ls_form-zz2x_nomer_tn = <ls_tor_root>-tor_id.
  153. SHIFT ls_form-zz2x_nomer_tn LEFT DELETING LEADING '0'.
  154. ENDIF.
  155.  
  156. *3x поле, 4x поле; 5x поле - получение, 6x поле - получение
  157. *3x поле, 4x поле
  158. mo_tor_srv->retrieve_by_association(
  159. EXPORTING
  160. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  161. it_key = it_tor_key
  162. iv_association = /scmtms/if_tor_c=>sc_association-root-bupa_ship_root
  163. iv_fill_data = abap_true
  164. IMPORTING
  165. et_target_key = DATA(lt_tor_bupa_ship_keys)
  166. et_data = lt_tor_bupa_ship_root ).
  167.  
  168. mo_bupa_srv->retrieve_by_association(
  169. EXPORTING
  170. iv_node_key = /bofu/if_bupa_constants=>sc_node-root
  171. it_key = lt_tor_bupa_ship_keys
  172. iv_association = /bofu/if_bupa_constants=>sc_association-root-common
  173. iv_fill_data = abap_true
  174. IMPORTING
  175. et_data = lt_bupa_common ).
  176.  
  177. mo_bupa_srv->retrieve_by_association(
  178. EXPORTING
  179. iv_node_key = /bofu/if_bupa_constants=>sc_node-root
  180. it_key = lt_tor_bupa_ship_keys
  181. iv_association = /bofu/if_bupa_constants=>sc_association-root-tax_number
  182. iv_fill_data = abap_true
  183. IMPORTING
  184. et_data = lt_bupa_tax_number ).
  185.  
  186. mo_tor_srv->retrieve_by_association(
  187. EXPORTING
  188. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  189. it_key = it_tor_key
  190. iv_association = /scmtms/if_tor_c=>sc_association-root-item_tr
  191. iv_fill_data = abap_true
  192. IMPORTING
  193. et_data = lt_tor_item_tr
  194. et_target_key = DATA(lt_tor_item_tr_keys)
  195. et_key_link = DATA(lt_tor_item_tr_link_keys) ).
  196.  
  197. mo_tor_srv->retrieve_by_association(
  198. EXPORTING
  199. iv_node_key = /scmtms/if_tor_c=>sc_node-item_tr
  200. it_key = lt_tor_item_tr_keys
  201. iv_association = /scmtms/if_tor_c=>sc_association-item_tr-itemparty
  202. IMPORTING
  203. et_target_key = DATA(lt_tor_itemparty_keys) ).
  204.  
  205. mo_tor_srv->retrieve_by_association(
  206. EXPORTING
  207. iv_node_key = /scmtms/if_tor_c=>sc_node-itemparty
  208. it_key = lt_tor_itemparty_keys
  209. iv_association = /scmtms/if_tor_c=>sc_association-itemparty-bupa_root
  210. IMPORTING
  211. et_data = lt_tor_bupa_root
  212. et_target_key = DATA(lt_tor_bupa_root_keys) ).
  213.  
  214. mo_bp_srv->retrieve_by_association(
  215. EXPORTING
  216. it_key = lt_tor_bupa_ship_keys
  217. iv_node_key = /bofu/if_bupa_constants=>sc_node-root
  218. iv_association = /bofu/if_bupa_constants=>sc_association-root-addressinformation
  219. IMPORTING
  220. et_target_key = DATA(lt_bp_addressinformation_keys) ).
  221.  
  222. mo_bp_srv->retrieve_by_association(
  223. EXPORTING
  224. it_key = lt_bp_addressinformation_keys
  225. iv_node_key = /bofu/if_bupa_constants=>sc_node-addressinformation
  226. iv_association = /bofu/if_bupa_constants=>sc_association-addressinformation-address
  227. IMPORTING
  228. et_target_key = DATA(lt_bp_address_keys) ).
  229.  
  230. /scmtms/cl_common_helper=>get_do_keys_4_rba(
  231. EXPORTING
  232. iv_host_bo_key = /bofu/if_bupa_constants=>sc_bo_key
  233. iv_host_do_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  234. iv_do_node_key = /bofu/if_addr_constants=>sc_node-telephone
  235. iv_do_assoc_key = /bofu/if_addr_constants=>sc_association-root-telephone
  236. IMPORTING
  237. ev_assoc_key = lv_assoc_key_telephone ).
  238.  
  239. mo_bp_srv->retrieve_by_association(
  240. EXPORTING
  241. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  242. iv_association = lv_assoc_key_telephone
  243. iv_fill_data = abap_true
  244. it_key = lt_bp_address_keys
  245. IMPORTING
  246. et_data = lt_bofu_address_telephone ).
  247.  
  248. /scmtms/cl_common_helper=>get_do_keys_4_rba(
  249. EXPORTING
  250. iv_host_bo_key = /bofu/if_bupa_constants=>sc_bo_key
  251. iv_host_do_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  252. iv_do_node_key = /bofu/if_addr_constants=>sc_node-postal_address
  253. iv_do_assoc_key = /bofu/if_addr_constants=>sc_association-root-postal_address
  254. IMPORTING
  255. ev_assoc_key = lv_assoc_key_postal_address ).
  256.  
  257. mo_bp_srv->retrieve_by_association(
  258. EXPORTING
  259. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  260. iv_association = lv_assoc_key_postal_address
  261. iv_fill_data = abap_true
  262. it_key = lt_bp_address_keys
  263. IMPORTING
  264. et_data = lt_bofu_address_postal_address ).
  265.  
  266. READ TABLE lt_bofu_address_postal_address ASSIGNING FIELD-SYMBOL(<ls_bofu_addr_postal_addr_4>) INDEX 1.
  267.  
  268. IF <ls_bofu_addr_postal_addr_4> IS ASSIGNED.
  269. SELECT bezei
  270. FROM t005u
  271. INTO CORRESPONDING FIELDS OF TABLE lt_t005u
  272. WHERE bland EQ <ls_bofu_addr_postal_addr_4>-region AND land1 EQ <ls_bofu_addr_postal_addr_4>-country_code AND t005u~spras = 'R'.
  273. ENDIF.
  274.  
  275. READ TABLE lt_t005u ASSIGNING FIELD-SYMBOL(<ls_t005u>) INDEX 1.
  276. READ TABLE lt_tor_bupa_ship_root ASSIGNING FIELD-SYMBOL(<ls_tor_bupa_ship_root>) INDEX 1.
  277. READ TABLE lt_bupa_common ASSIGNING FIELD-SYMBOL(<ls_bupa_common>) INDEX 1.
  278. READ TABLE lt_bupa_tax_number ASSIGNING FIELD-SYMBOL(<ls_bupa_tax_number>) WITH KEY taxtype = 'RU1'.
  279.  
  280. IF <ls_tor_bupa_ship_root> IS ASSIGNED.
  281. SELECT bankn, banks, bankl
  282. FROM but0bk
  283. INTO CORRESPONDING FIELDS OF TABLE @lt_but0bk
  284. WHERE partner EQ @<ls_tor_bupa_ship_root>-partner.
  285. ENDIF.
  286.  
  287. READ TABLE lt_but0bk ASSIGNING FIELD-SYMBOL(<ls_but0bk>) INDEX 1.
  288.  
  289. IF <ls_but0bk> IS ASSIGNED.
  290. SELECT banka, ort01, bnklz, brnch
  291. FROM bnka
  292. INTO CORRESPONDING FIELDS OF TABLE @lt_bnka
  293. WHERE banks EQ @<ls_but0bk>-banks AND bankl EQ @<ls_but0bk>-bankl.
  294. ENDIF.
  295.  
  296. READ TABLE lt_bnka ASSIGNING FIELD-SYMBOL(<ls_bnka>) INDEX 1.
  297.  
  298. *3x поле
  299. IF <ls_tor_bupa_ship_root> IS ASSIGNED AND <ls_tor_bupa_ship_root>-type = '1'.
  300. READ TABLE lt_bofu_address_telephone INTO ls_bofu_address_telephone_4_1 INDEX 1.
  301. READ TABLE lt_bofu_address_telephone INTO ls_bofu_address_telephone_4_2 INDEX 2.
  302.  
  303. IF <ls_bupa_common> IS ASSIGNED
  304. AND <ls_bupa_tax_number> IS ASSIGNED
  305. AND <ls_t005u> IS ASSIGNED
  306. AND <ls_bofu_addr_postal_addr_4> IS ASSIGNED.
  307. zzfn_shipper1 = |{ <ls_bupa_common>-firstname } { <ls_bupa_common>-lastname } { '; ИНН:' } { <ls_bupa_tax_number>-taxnumber } { '; адрес:' } { <ls_t005u>-bezei } { ',' } { <ls_bofu_addr_postal_addr_4>-district_name } { ',' } {
  308. <ls_bofu_addr_postal_addr_4>-city_name } { ',' } { <ls_bofu_addr_postal_addr_4>-street_name } { <ls_bofu_addr_postal_addr_4>-house_id } { ';' }|.
  309. zzfn_shipper2 = |{ ls_bofu_address_telephone_4_1-normalised_number_text } { ',' } { ls_bofu_address_telephone_4_2-normalised_number_text } { '; Р\С:' } { <ls_but0bk>-bankn } { 'в банке' } { <ls_bnka>-banka } { 'в городе' } { <ls_bnka>-ort01 } {
  310. ', "БИК"' } { <ls_bnka>-bnklz } { ', К\С' } { <ls_bnka>-brnch }|.
  311.  
  312. CONCATENATE zzfn_shipper1 zzfn_shipper2
  313. INTO ls_form-zz3x_gruzootpravitel_fiz SEPARATED BY space.
  314. ENDIF.
  315.  
  316. *4x поле
  317. ELSEIF <ls_tor_bupa_ship_root> IS ASSIGNED AND <ls_tor_bupa_ship_root>-type = '2'.
  318. READ TABLE lt_bofu_address_telephone INTO ls_bofu_address_telephone_6_1 INDEX 1.
  319. READ TABLE lt_bofu_address_telephone INTO ls_bofu_address_telephone_6_2 INDEX 2.
  320.  
  321. IF <ls_bupa_common> IS ASSIGNED
  322. AND <ls_bupa_tax_number> IS ASSIGNED
  323. AND <ls_t005u> IS ASSIGNED
  324. AND <ls_bofu_addr_postal_addr_4> IS ASSIGNED
  325. AND <ls_but0bk> IS ASSIGNED
  326. AND <ls_bnka> IS ASSIGNED.
  327. zzname_shipper1 = |{ <ls_bupa_common>-firstname } { <ls_bupa_common>-lastname } { '; ИНН:' } { <ls_bupa_tax_number>-taxnumber } { '; адрес:' } { <ls_t005u>-bezei } { ',' } { <ls_bofu_addr_postal_addr_4>-district_name } { ',' } {
  328. <ls_bofu_addr_postal_addr_4>-city_name } { ',' } { <ls_bofu_addr_postal_addr_4>-street_name } { <ls_bofu_addr_postal_addr_4>-house_id } { ';' }|.
  329. zzname_shipper2 = |{ ls_bofu_address_telephone_6_1-normalised_number_text } { ',' } { ls_bofu_address_telephone_6_2-normalised_number_text } { '; Р\С:' } { <ls_but0bk>-bankn } { 'в банке' } { <ls_bnka>-banka } { 'в городе' } { <ls_bnka>-ort01 } {
  330. ', "БИК"' } { <ls_bnka>-bnklz } { ', К\С' } { <ls_bnka>-brnch }|.
  331.  
  332. CONCATENATE zzname_shipper1 zzname_shipper2
  333. INTO ls_form-zz4x_gruzootpravitel_yur SEPARATED BY space.
  334. ENDIF.
  335. ENDIF.
  336.  
  337. *5x поле - получение, 6x поле - получение
  338. mo_tor_srv->retrieve_by_association(
  339. EXPORTING
  340. iv_node_key = /scmtms/if_tor_c=>sc_node-item_tr
  341. it_key = lt_tor_item_tr_keys
  342. iv_association = /scmtms/if_tor_c=>sc_association-item_tr-bo_bupa_consignee
  343. iv_fill_data = abap_true
  344. IMPORTING
  345. et_data = lt_tor_bo_bupa_consignee
  346. et_target_key = DATA(lt_tor_bo_bupa_consignee_keys) ).
  347.  
  348. mo_bp_srv->retrieve_by_association(
  349. EXPORTING
  350. iv_node_key = /bofu/if_bupa_constants=>sc_node-root
  351. it_key = lt_tor_bo_bupa_consignee_keys
  352. iv_association = /bofu/if_bupa_constants=>sc_association-root-addressinformation
  353. iv_fill_data = abap_false
  354. IMPORTING
  355. et_target_key = DATA(lt_bp_addrinf_5_keys) ).
  356.  
  357. mo_bp_srv->retrieve_by_association(
  358. EXPORTING
  359. iv_node_key = /bofu/if_bupa_constants=>sc_node-addressinformation
  360. it_key = lt_bp_addrinf_5_keys
  361. iv_association = /bofu/if_bupa_constants=>sc_association-addressinformation-address
  362. iv_fill_data = abap_false
  363. IMPORTING
  364. et_target_key = DATA(lt_bp_address_5_keys) ).
  365.  
  366. mo_bp_srv->retrieve_by_association(
  367. EXPORTING
  368. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  369. iv_association = lv_assoc_key_telephone
  370. iv_fill_data = abap_true
  371. it_key = lt_bp_address_5_keys
  372. IMPORTING
  373. et_data = lt_bofu_address_telephone_5 ).
  374.  
  375. mo_bp_srv->retrieve_by_association(
  376. EXPORTING
  377. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  378. iv_association = lv_assoc_key_postal_address
  379. iv_fill_data = abap_true
  380. it_key = lt_bp_address_5_keys
  381. IMPORTING
  382. et_data = lt_bofu_addr_postal_addr_5 ).
  383.  
  384. mo_bp_srv->retrieve_by_association(
  385. EXPORTING
  386. iv_node_key = /bofu/if_bupa_constants=>sc_node-root
  387. it_key = lt_tor_bo_bupa_consignee_keys
  388. iv_association = /bofu/if_bupa_constants=>sc_association-root-common
  389. iv_fill_data = abap_true
  390. IMPORTING
  391. et_data = lt_bp_common_5 ).
  392.  
  393. mo_bp_srv->retrieve_by_association(
  394. EXPORTING
  395. iv_node_key = /bofu/if_bupa_constants=>sc_node-root
  396. it_key = lt_tor_bo_bupa_consignee_keys
  397. iv_association = /bofu/if_bupa_constants=>sc_association-root-tax_number
  398. iv_fill_data = abap_true
  399. IMPORTING
  400. et_data = lt_bp_tax_number_5 ).
  401.  
  402. SELECT bezei, land1, bland
  403. FROM t005u
  404. INTO CORRESPONDING FIELDS OF TABLE @lt_t005u
  405. WHERE spras EQ 'R'.
  406.  
  407. SELECT partner, bankn, banks, bankl
  408. FROM but0bk
  409. INTO CORRESPONDING FIELDS OF TABLE @lt_but0bk.
  410.  
  411. SELECT banka, ort01, bnklz, brnch, banks, bankl
  412. FROM bnka
  413. INTO CORRESPONDING FIELDS OF TABLE @lt_bnka.
  414.  
  415. *7x поле - получение
  416. mo_tor_srv->retrieve_by_association(
  417. EXPORTING
  418. iv_node_key = /scmtms/if_tor_c=>sc_node-item_tr
  419. it_key = lt_tor_item_tr_keys
  420. iv_association = /scmtms/if_tor_c=>sc_association-item_tr-bo_material
  421. iv_fill_data = abap_true
  422. IMPORTING
  423. et_data = lt_tor_bo_material
  424. et_target_key = DATA(lt_tor_bo_material_keys)
  425. et_key_link = DATA(lt_tor_bo_material_link_keys) ).
  426.  
  427. mo_mtrl_srv->retrieve_by_association(
  428. EXPORTING
  429. iv_node_key = /scmtms/if_mat_c=>sc_node-root
  430. it_key = lt_tor_bo_material_keys
  431. iv_association = /scmtms/if_mat_c=>sc_association-root-description
  432. iv_fill_data = abap_true
  433. IMPORTING
  434. et_data = lt_mtrl_description ).
  435.  
  436. SELECT matnr matkl
  437. FROM /sapapo/matkey
  438. INTO CORRESPONDING FIELDS OF TABLE lt_sapapo_matkey
  439. FOR ALL ENTRIES IN lt_tor_bo_material
  440. WHERE /sapapo/matkey~matnr EQ lt_tor_bo_material-internal_id.
  441.  
  442. SELECT matkl wgbez
  443. FROM zttm_group_mat_t
  444. INTO CORRESPONDING FIELDS OF TABLE lt_zttm_group_mat_t
  445. FOR ALL ENTRIES IN lt_sapapo_matkey
  446. WHERE zttm_group_mat_t~matkl EQ lt_sapapo_matkey-matkl.
  447.  
  448. *10x поле - заполнение
  449. IF <ls_tor_bupa_ship_root> IS ASSIGNED AND <ls_tor_bupa_ship_root>-type = '1'.
  450. ls_form-zz10x_priem_gruza = ls_form-zz3x_gruzootpravitel_fiz.
  451. ELSEIF <ls_tor_bupa_ship_root> IS ASSIGNED AND <ls_tor_bupa_ship_root>-type = '2'.
  452. ls_form-zz10x_priem_gruza = ls_form-zz4x_gruzootpravitel_yur.
  453. ENDIF.
  454.  
  455. *11x поле - получение
  456. mo_tor_srv->retrieve_by_association(
  457. EXPORTING
  458. iv_node_key = /scmtms/if_tor_c=>sc_node-stop
  459. it_key = lt_tor_stop_first_keys
  460. iv_association = /scmtms/if_tor_c=>sc_association-stop-bo_loc_log
  461. iv_fill_data = abap_false
  462. IMPORTING
  463. et_target_key = DATA(lt_tor_bo_loc_log_keys) ).
  464.  
  465. mo_loc_srv->retrieve_by_association(
  466. EXPORTING
  467. iv_node_key = /scmtms/if_location_c=>sc_node-root
  468. it_key = lt_tor_bo_loc_log_keys
  469. iv_association = /scmtms/if_location_c=>sc_association-root-geographical_information
  470. iv_fill_data = abap_false
  471. IMPORTING
  472. et_target_key = DATA(lt_loc_geo_info_keys) ).
  473.  
  474. mo_loc_srv->retrieve_by_association(
  475. EXPORTING
  476. iv_node_key = /scmtms/if_location_c=>sc_node-geographical_information
  477. it_key = lt_loc_geo_info_keys
  478. iv_association = /scmtms/if_location_c=>sc_association-geographical_information-address
  479. iv_fill_data = abap_false
  480. IMPORTING
  481. et_target_key = DATA(lt_loc_address_keys) ).
  482.  
  483. /scmtms/cl_common_helper=>get_do_keys_4_rba(
  484. EXPORTING
  485. iv_host_bo_key = /bofu/if_bupa_constants=>sc_bo_key
  486. iv_host_do_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  487. iv_do_node_key = /bofu/if_addr_constants=>sc_node-postal_address
  488. iv_do_assoc_key = /bofu/if_addr_constants=>sc_association-root-postal_address
  489. IMPORTING
  490. ev_assoc_key = DATA(lv_assoc_key_11x) ).
  491.  
  492. mo_bp_srv->retrieve_by_association(
  493. EXPORTING
  494. iv_node_key = /bofu/if_bupa_constants=>sc_node-/bofu/address
  495. iv_association = lv_assoc_key_11x
  496. iv_fill_data = abap_true
  497. it_key = lt_loc_address_keys
  498. IMPORTING
  499. et_data = lt_bp_postal_address ).
  500.  
  501. READ TABLE lt_bp_postal_address ASSIGNING FIELD-SYMBOL(<ls_bp_postal_address>) INDEX 1.
  502.  
  503. IF <ls_bp_postal_address> IS ASSIGNED.
  504. SELECT bezei
  505. FROM t005u
  506. INTO CORRESPONDING FIELDS OF TABLE lt_t005u_11x
  507. WHERE bland EQ <ls_bp_postal_address>-region AND land1 EQ <ls_bp_postal_address>-country_code AND t005u~spras = 'R'.
  508. ENDIF.
  509.  
  510. READ TABLE lt_t005u_11x ASSIGNING FIELD-SYMBOL(<ls_t005u_11x>) INDEX 1.
  511.  
  512. *11x поле - заполнение
  513. ls_form-zz11x_priem_gruza_fakt_adres = |{ <ls_t005u_11x>-bezei } { ',' } { <ls_bp_postal_address>-city_name } { ',' } { <ls_bp_postal_address>-street_name } { <ls_bp_postal_address>-house_id }|.
  514.  
  515. *12x поле - заполнение
  516. ls_form-zz12x_priem_gruza_fakt_pogruzk = ls_form-zz1x_fact_date.
  517.  
  518. *13x поле - заполнение
  519. ls_form-zz13x_priem_gruza_fakt_pogruzk = ls_form-zz1x_fact_date.
  520.  
  521. *14x поле - получение
  522. mo_tor_srv->retrieve_by_association(
  523. EXPORTING
  524. iv_node_key = /scmtms/if_tor_c=>sc_node-root
  525. it_key = it_tor_key
  526. iv_association = /scmtms/if_tor_c=>sc_association-root-seal
  527. iv_fill_data = abap_true
  528. IMPORTING
  529. et_data = lt_tor_seal ).
  530.  
  531. *17x поле - получение
  532. mo_tor_srv->retrieve_by_association(
  533. EXPORTING
  534. iv_node_key = /scmtms/if_tor_c=>sc_node-item_tr
  535. it_key = lt_tor_item_tr_keys
  536. iv_association = /scmtms/if_tor_c=>sc_association-item_tr-bo_driver
  537. iv_fill_data = abap_true
  538. IMPORTING
  539. et_data = lt_tor_bo_driver ).
  540.  
  541. *17x поле - заполнение
  542. READ TABLE lt_tor_bo_driver ASSIGNING FIELD-SYMBOL(<ls_tor_bo_driver>) INDEX 1.
  543.  
  544. IF <ls_tor_bo_driver> IS ASSIGNED.
  545. ls_form-zz17x_priem_gruza_fio_voditely = |{ <ls_tor_bo_driver>-name_first } { <ls_tor_bo_driver>-name_last }|.
  546. ENDIF.
  547.  
  548. *22x поле - заполнение
  549. ls_form-zz22x_sdacha_gruza_fio_voditel = ls_form-zz17x_priem_gruza_fio_voditely.
  550.  
  551. *25x поле - получение
  552. mo_tor_srv->retrieve_by_association(
  553. EXPORTING
  554. iv_node_key = /scmtms/if_tor_c=>sc_node-item_tr
  555. it_key = lt_tor_item_tr_keys
  556. iv_association = /scmtms/if_tor_c=>sc_association-item_tr-bo_resource
  557. iv_fill_data = abap_true
  558. IMPORTING
  559. et_data = lt_tor_bo_resource ).
  560.  
  561. *25x поле - заполнение
  562. READ TABLE lt_tor_bo_resource ASSIGNING FIELD-SYMBOL(<ls_tor_bo_resource>) INDEX 1.
  563.  
  564. ls_form-zz25x_marka_ts = <ls_tor_bo_resource>-description.
  565.  
  566. *26x поле - получение
  567. READ TABLE lt_tor_item_tr ASSIGNING FIELD-SYMBOL(<ls_tor_item_tr>) WITH KEY item_cat = 'AVR'.
  568.  
  569. SPLIT <ls_tor_item_tr>-tracking_no AT '/' INTO lv_zz26x_reg_nomer_ts lv_zz26x_reg_nomer_pricep.
  570.  
  571. IF lv_zz26x_reg_nomer_pricep IS INITIAL.
  572. ls_form-zz26x_reg_nomer_ts = |{ 'Регистрационный номер: ' } { lv_zz26x_reg_nomer_ts }|.
  573. ELSE.
  574. ls_form-zz26x_reg_nomer_ts = |{ 'Регистрационный номер: ' } { lv_zz26x_reg_nomer_ts } { ', прицеп: ' } { lv_zz26x_reg_nomer_pricep }|.
  575. ENDIF.
  576.  
  577. **********************************************************************
  578.  
  579. APPEND LINES OF lt_tor_item_tr TO lt_tor_item_tr_unique.
  580.  
  581. DELETE lt_tor_item_tr_unique WHERE consignee_id IS INITIAL.
  582.  
  583. SORT lt_tor_item_tr_unique BY consignee_id key.
  584.  
  585. DELETE ADJACENT DUPLICATES FROM lt_tor_item_tr_unique COMPARING consignee_id.
  586.  
  587. LOOP AT lt_tor_item_tr_unique INTO DATA(ls_tor_item_tr_unique).
  588.  
  589. *5x поле - заполнение, 6x поле - заполнение
  590. READ TABLE lt_tor_bo_bupa_consignee ASSIGNING FIELD-SYMBOL(<ls_tor_bo_bupa_consignee>) WITH KEY partner = ls_tor_item_tr_unique-consignee_id.
  591.  
  592. IF <ls_tor_bo_bupa_consignee> IS ASSIGNED.
  593. READ TABLE lt_bofu_addr_postal_addr_5 ASSIGNING FIELD-SYMBOL(<ls_bofu_addr_postal_addr_5>) WITH KEY root_key = <ls_tor_bo_bupa_consignee>-key.
  594. ENDIF.
  595.  
  596. IF <ls_bofu_addr_postal_addr_5> IS ASSIGNED.
  597. READ TABLE lt_t005u ASSIGNING FIELD-SYMBOL(<ls_t005u_5>) WITH KEY land1 = <ls_bofu_addr_postal_addr_5>-country_code bland = <ls_bofu_addr_postal_addr_5>-region.
  598. ENDIF.
  599.  
  600. READ TABLE lt_but0bk ASSIGNING FIELD-SYMBOL(<ls_but0bk_5>) WITH KEY partner = ls_tor_item_tr_unique-consignee_id.
  601.  
  602. IF <ls_but0bk_5> IS ASSIGNED.
  603. READ TABLE lt_bnka ASSIGNING FIELD-SYMBOL(<ls_bnka_5>) WITH KEY banks = <ls_but0bk_5>-banks bankl = <ls_but0bk_5>-bankl.
  604. ENDIF.
  605.  
  606. IF <ls_tor_bo_bupa_consignee> IS ASSIGNED.
  607. READ TABLE lt_bp_common_5 ASSIGNING FIELD-SYMBOL(<ls_bupa_common_5>) WITH KEY parent_key = <ls_tor_bo_bupa_consignee>-key.
  608. READ TABLE lt_bp_tax_number_5 ASSIGNING FIELD-SYMBOL(<ls_bupa_tax_number_5>) WITH KEY parent_key = <ls_tor_bo_bupa_consignee>-key taxtype = 'RU1'.
  609. ENDIF.
  610.  
  611. IF lt_bofu_address_telephone_5 IS NOT INITIAL AND <ls_tor_bo_bupa_consignee> IS ASSIGNED.
  612. LOOP AT lt_bofu_address_telephone_5 INTO DATA(ls_bofu_address_telephone).
  613. IF ls_bofu_address_telephone-root_key = <ls_tor_bo_bupa_consignee>-key.
  614. APPEND ls_bofu_address_telephone TO lt_bofu_addr_tel_sorted.
  615. ENDIF.
  616. ENDLOOP.
  617.  
  618. READ TABLE lt_bofu_addr_tel_sorted INTO ls_bofu_address_telephone_5_1 INDEX 1.
  619. READ TABLE lt_bofu_addr_tel_sorted INTO ls_bofu_address_telephone_5_2 INDEX 2.
  620. ENDIF.
  621.  
  622. *5x поле - заполнение
  623. IF <ls_tor_bo_bupa_consignee> IS ASSIGNED AND <ls_tor_bo_bupa_consignee>-type = '1'.
  624. IF <ls_bupa_common_5> IS ASSIGNED
  625. AND <ls_bupa_tax_number_5> IS ASSIGNED
  626. AND <ls_t005u> IS ASSIGNED
  627. AND <ls_bofu_addr_postal_addr_5> IS ASSIGNED
  628. AND <ls_but0bk_5> IS ASSIGNED
  629. AND <ls_bnka_5> IS ASSIGNED.
  630. zzfn_shipper1 = |{ <ls_bupa_common_5>-firstname } { <ls_bupa_common_5>-lastname } { '; ИНН:' } { <ls_bupa_tax_number_5>-taxnumber } { '; адрес:' } { <ls_t005u_5>-bezei } { ',' } { <ls_bofu_addr_postal_addr_5>-district_name } { ',' } {
  631. <ls_bofu_addr_postal_addr_5>-city_name } { ',' } { <ls_bofu_addr_postal_addr_5>-street_name } { <ls_bofu_addr_postal_addr_5>-house_id } { ';' }|.
  632. zzfn_shipper2 = |{ ls_bofu_address_telephone_5_1-normalised_number_text } { ',' } { ls_bofu_address_telephone_5_2-normalised_number_text } { '; Р\С:' } { <ls_but0bk_5>-bankn } { 'в банке' } { <ls_bnka_5>-banka } { 'в городе' } {
  633. <ls_bnka_5>-ort01 } { ', "БИК"' } { <ls_bnka_5>-bnklz } { ', К\С' } { <ls_bnka_5>-brnch }|.
  634.  
  635. CONCATENATE zzfn_shipper1 zzfn_shipper2
  636. INTO ls_form-zz5x_gruzopoluchatel_fiz SEPARATED BY space.
  637. ENDIF.
  638.  
  639. *6x поле - заполнение
  640. ELSEIF <ls_tor_bo_bupa_consignee> IS ASSIGNED AND <ls_tor_bo_bupa_consignee>-type = '2'.
  641. IF <ls_bupa_common_5> IS ASSIGNED
  642. AND <ls_bupa_tax_number_5> IS ASSIGNED
  643. AND <ls_t005u_5> IS ASSIGNED
  644. AND <ls_bofu_addr_postal_addr_5> IS ASSIGNED
  645. AND <ls_but0bk_5> IS ASSIGNED
  646. AND <ls_bnka_5> IS ASSIGNED.
  647. zzname_consignee1 = |{ <ls_bupa_common_5>-firstname } { <ls_bupa_common_5>-lastname } { '; ИНН:' } { <ls_bupa_tax_number_5>-taxnumber } { '; адрес:' } { <ls_t005u_5>-bezei } { ',' } { <ls_bofu_addr_postal_addr_5>-district_name } { ',' } {
  648. <ls_bofu_addr_postal_addr_5>-city_name } { ',' } { <ls_bofu_addr_postal_addr_5>-street_name } { <ls_bofu_addr_postal_addr_5>-house_id } { ';' }|.
  649. zzname_consignee2 = |{ ls_bofu_address_telephone_5_1-normalised_number_text } { ',' } { ls_bofu_address_telephone_5_2-normalised_number_text } { '; Р\С:' } { <ls_but0bk_5>-bankn } { 'в банке' } { <ls_bnka_5>-banka } { 'в городе' } {
  650. <ls_bnka_5>-ort01 } { ', "БИК"' } { <ls_bnka_5>-bnklz } { ', К\С' } { <ls_bnka_5>-brnch }|.
  651.  
  652. CONCATENATE zzname_consignee1 zzname_consignee2
  653. INTO ls_form-zz6x_gruzopoluchatel_yur SEPARATED BY space.
  654. ENDIF.
  655. ENDIF.
  656.  
  657. *7x поле - заполнение
  658. LOOP AT lt_tor_item_tr INTO DATA(ls_tor_item_tr).
  659. IF ls_tor_item_tr-consignee_id = ls_tor_item_tr_unique-consignee_id AND ls_tor_item_tr-item_cat = 'PRD'.
  660. APPEND ls_tor_item_tr TO lt_toritemtrunique_itemcatprd.
  661. ENDIF.
  662. ENDLOOP.
  663.  
  664. DELETE ADJACENT DUPLICATES FROM lt_toritemtrunique_itemcatprd COMPARING ALL FIELDS.
  665.  
  666. LOOP AT lt_toritemtrunique_itemcatprd INTO DATA(ls_toritemtrunique_itemcatprd).
  667. LOOP AT lt_tor_item_tr_link_keys INTO DATA(ls_tor_item_tr_link_keys).
  668. IF ls_tor_item_tr_link_keys-target_key = ls_toritemtrunique_itemcatprd-key.
  669. APPEND ls_tor_item_tr_link_keys TO lt_toritemtr_linkkeysunique.
  670. ENDIF.
  671. ENDLOOP.
  672. ENDLOOP.
  673.  
  674. DELETE ADJACENT DUPLICATES FROM lt_toritemtr_linkkeysunique.
  675.  
  676. LOOP AT lt_toritemtr_linkkeysunique INTO DATA(ls_toritemtr_linkkeysunique).
  677. LOOP AT lt_tor_bo_material_link_keys INTO DATA(ls_tor_bo_material_link_keys).
  678. IF ls_tor_bo_material_link_keys-source_key = ls_toritemtr_linkkeysunique-target_key.
  679. APPEND ls_tor_bo_material_link_keys TO lt_torbomat_linkkeysunique.
  680. ENDIF.
  681. ENDLOOP.
  682. ENDLOOP.
  683.  
  684. DELETE ADJACENT DUPLICATES FROM lt_torbomat_linkkeysunique.
  685.  
  686. LOOP AT lt_torbomat_linkkeysunique INTO ls_toritemtr_linkkeysunique.
  687. LOOP AT lt_tor_bo_material INTO DATA(ls_tor_bo_material).
  688. IF ls_tor_bo_material-key = ls_toritemtr_linkkeysunique-target_key.
  689. APPEND ls_tor_bo_material TO lt_tor_bo_material_unique.
  690. ENDIF.
  691. ENDLOOP.
  692. ENDLOOP.
  693.  
  694. DELETE ADJACENT DUPLICATES FROM lt_tor_bo_material_unique.
  695.  
  696. LOOP AT lt_tor_bo_material_unique INTO DATA(ls_tor_bo_material_unique).
  697. LOOP AT lt_sapapo_matkey INTO DATA(ls_sapapo_matkey).
  698. IF ls_sapapo_matkey-matnr = ls_tor_bo_material_unique-internal_id.
  699. APPEND ls_sapapo_matkey TO lt_sapapo_matkey_unique.
  700. ENDIF.
  701. ENDLOOP.
  702. ENDLOOP.
  703.  
  704. DELETE ADJACENT DUPLICATES FROM lt_sapapo_matkey_unique.
  705.  
  706. LOOP AT lt_sapapo_matkey_unique INTO DATA(ls_sapapo_matkey_unique).
  707. LOOP AT lt_zttm_group_mat_t INTO DATA(ls_zttm_group_mat_t).
  708. IF ls_zttm_group_mat_t-matkl = ls_sapapo_matkey_unique-matkl.
  709. APPEND ls_zttm_group_mat_t-wgbez TO lt_zz7x_naimenovanie_gruza.
  710. ENDIF.
  711. ENDLOOP.
  712. ENDLOOP.
  713.  
  714. SORT lt_zz7x_naimenovanie_gruza.
  715.  
  716. DELETE ADJACENT DUPLICATES FROM lt_zz7x_naimenovanie_gruza.
  717.  
  718. LOOP AT lt_zz7x_naimenovanie_gruza INTO DATA(ls_zz7x_naimenovanie_gruza).
  719. IF ls_zz7x_naimenovanie_gruza IS NOT INITIAL.
  720. ls_form-zz7x_naimenovanie_gruza = |{ ls_zz7x_naimenovanie_gruza } { ',' } { ls_form-zz7x_naimenovanie_gruza }|.
  721. ENDIF.
  722. ENDLOOP.
  723.  
  724. IF ls_form-zz7x_naimenovanie_gruza IS NOT INITIAL.
  725. lv_string_length = strlen( ls_form-zz7x_naimenovanie_gruza ) - 1.
  726. ls_form-zz7x_naimenovanie_gruza = ls_form-zz7x_naimenovanie_gruza+0(lv_string_length).
  727. ENDIF.
  728.  
  729. *9x поле - заполнение
  730. LOOP AT lt_toritemtrunique_itemcatprd INTO ls_toritemtrunique_itemcatprd.
  731. lv_zz9x_gruz_massa_brutto = ls_toritemtrunique_itemcatprd-gro_wei_val + lv_zz9x_gruz_massa_brutto.
  732. ENDLOOP.
  733.  
  734. ls_form-zz9x_gruz_massa_brutto = |{ lv_zz9x_gruz_massa_brutto } { ls_toritemtrunique_itemcatprd-gro_wei_uni }|.
  735.  
  736. *14x поле - заполнение
  737. LOOP AT lt_tor_item_tr INTO ls_tor_item_tr.
  738. IF ls_tor_item_tr-consignee_id = ls_tor_item_tr_unique-consignee_id AND ls_tor_item_tr-item_cat = 'TUR'.
  739. APPEND ls_tor_item_tr TO lt_toritemtrunique_itemcattur.
  740. ENDIF.
  741. ENDLOOP.
  742.  
  743. LOOP AT lt_tor_seal INTO DATA(ls_tor_seal).
  744. IF ls_tor_seal-party_id = ls_tor_item_tr_unique-consignee_id.
  745. lv_zz14x_priem_gruza_plomba = |{ 'Пломба №' } { ls_tor_seal-seal_number }|.
  746. ENDIF.
  747. ENDLOOP.
  748.  
  749. LOOP AT lt_toritemtrunique_itemcattur INTO DATA(ls_toritemtrunique_itemcattur).
  750. IF ls_toritemtrunique_itemcattur-res_id IS NOT INITIAL.
  751. lv_zz14x_priem_gruza_konteiner = |{ lv_zz14x_priem_gruza_konteiner } { 'контейнер №' } { ls_toritemtrunique_itemcattur-res_id } { ',' }|.
  752. ENDIF.
  753. ENDLOOP.
  754.  
  755. IF lv_zz14x_priem_gruza_konteiner IS NOT INITIAL.
  756. lv_zz14x_priem_gruza_konteiner = |{ '\' } { lv_zz14x_priem_gruza_konteiner }|.
  757.  
  758. lv_string_length = strlen( lv_zz14x_priem_gruza_konteiner ) - 1.
  759. lv_zz14x_priem_gruza_konteiner = lv_zz14x_priem_gruza_konteiner+0(lv_string_length).
  760.  
  761. ENDIF.
  762.  
  763. ls_form-zz14x_priem_gruza_plomba_konte = |{ lv_zz14x_priem_gruza_plomba } { ' ' } { lv_zz14x_priem_gruza_konteiner }|.
  764.  
  765. *15x поле - заполнение
  766. ls_form-zz15x_priemgruza_vesbrutto = ls_form-zz9x_gruz_massa_brutto.
  767.  
  768. *19x поле - заполнение
  769. ls_form-zz19x_sdacha_gruza_plomba_kont = ls_form-zz14x_priem_gruza_plomba_konte.
  770.  
  771. *20x поле - заполнение
  772. ls_form-zz20x_sdacha_gruza_ves_brutto = ls_form-zz9x_gruz_massa_brutto.
  773.  
  774. CLEAR lt_bofu_addr_tel_sorted.
  775. CLEAR lt_toritemtrunique_itemcatprd.
  776. CLEAR lt_toritemtr_linkkeysunique.
  777. CLEAR lt_torbomat_linkkeysunique.
  778. CLEAR lt_tor_bo_material_unique.
  779. CLEAR lt_sapapo_matkey_unique.
  780. CLEAR lt_zz7x_naimenovanie_gruza.
  781. CLEAR lt_toritemtrunique_itemcattur.
  782.  
  783. CLEAR lv_zz9x_gruz_massa_brutto.
  784. CLEAR ls_form-zz7x_naimenovanie_gruza.
  785. ENDLOOP.
  786.  
  787. MOVE-CORRESPONDING ls_form TO es_form.
  788. 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!