Guest User

Untitled

a guest
Jul 22nd, 2019
90
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DATA:
  2. lt_afvgd_get TYPE ty_t_afvgdget.
  3.  
  4. DATA:
  5. ls_comsrv TYPE comsrv,
  6. lv_origin.
  7.  
  8. DATA:
  9. lt_xesll TYPE msupdap_tty,
  10. lt_yesll TYPE msupdap_tty.
  11.  
  12. '// Перебор по всем операциям заказа ТОРО
  13. LOOP AT lt_afvgd_get[] INTO DATA(ls_afvgd_get).
  14. CLEAR:
  15. ls_comsrv,
  16. lv_origin,
  17. lt_xesll[],
  18. lt_yesll[].
  19.  
  20. CALL FUNCTION 'CO_IH_MMSRV_INFO_GET'
  21. EXPORTING
  22. afvgd_imp = ls_afvgd_get
  23. IMPORTING
  24. e_comsrv = ls_comsrv
  25. origin = lv_origin.
  26.  
  27. CALL FUNCTION 'MS_GET_SERVICES_FOR_LIS'
  28. EXPORTING
  29. old_esll = 'X'
  30. origin = lv_origin
  31. comsrv = ls_comsrv
  32. TABLES
  33. i_x_esll = lt_xesll[]
  34. i_y_esll = lt_yesll[].
  35. ENDLOOP.
RAW Paste Data