Advertisement
Guest User

Untitled

a guest
Jul 3rd, 2018
139
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 1.26 KB | None | 0 0
  1.  
  2.     SELECT DISTINCT zlecenie as aufnr, mblnr, ilosc as bdmng
  3.       FROM zmes_kol_001w
  4.       INTO TABLE @data(lt_kol311)
  5.       FOR ALL ENTRIES IN @it_aufnr
  6.       WHERE zlecenie = @it_aufnr-table_line
  7.       AND bwart = '311'
  8.       AND status = 'A'
  9.       AND status_laczny = 'A'.
  10.  
  11.     LOOP AT lt_kol311 ASSIGNING FIELD-SYMBOL(<fs_311>).
  12.       CLEAR ls_collect.
  13.       UNPACK <fs_311>-mblnr TO <fs_311>-mblnr.
  14.       ls_collect-aufnr = <fs_311>-aufnr.
  15.       ls_collect-bwart = '311'.
  16.       ls_collect-ilosc = <fs_311>-bdmng.
  17.       COLLECT ls_collect INTO ct_collect_311.
  18.     ENDLOOP.
  19.  
  20.     IF lines( lt_kol311 ) > 0.
  21.  
  22.       SELECT vbeln_im, mblnr, menge
  23.         FROM matdoc
  24.         INTO TABLE @DATA(lt_311_potw)
  25.         FOR ALL ENTRIES IN @lt_kol311
  26.         WHERE vbeln_im = @lt_kol311-mblnr
  27.         AND bwart = '311'
  28.         AND xauto = 'X'.
  29.  
  30.       LOOP AT lt_311_potw INTO DATA(ls_311_potw).
  31.         CLEAR ls_collect.
  32.  
  33.         READ TABLE lt_kol311 INTO DATA(ls_kol_311) WITH KEY mblnr = ls_311_potw-vbeln_im.
  34.         IF sy-subrc = 0.
  35.           ls_collect-aufnr = ls_kol_311-aufnr.
  36.         ENDIF.
  37.         ls_collect-bwart = '311'.
  38.         ls_collect-ilosc = ls_311_potw-menge.
  39.         COLLECT ls_collect INTO ct_collect_311_potw.
  40.       ENDLOOP.
  41.  
  42.     ENDIF.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement