SHARE
TWEET

Untitled

a guest Jul 22nd, 2019 57 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
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
 
Top