Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- SELECT DISTINCT zlecenie as aufnr, mblnr, ilosc as bdmng
- FROM zmes_kol_001w
- INTO TABLE @data(lt_kol311)
- FOR ALL ENTRIES IN @it_aufnr
- WHERE zlecenie = @it_aufnr-table_line
- AND bwart = '311'
- AND status = 'A'
- AND status_laczny = 'A'.
- LOOP AT lt_kol311 ASSIGNING FIELD-SYMBOL(<fs_311>).
- CLEAR ls_collect.
- UNPACK <fs_311>-mblnr TO <fs_311>-mblnr.
- ls_collect-aufnr = <fs_311>-aufnr.
- ls_collect-bwart = '311'.
- ls_collect-ilosc = <fs_311>-bdmng.
- COLLECT ls_collect INTO ct_collect_311.
- ENDLOOP.
- IF lines( lt_kol311 ) > 0.
- SELECT vbeln_im, mblnr, menge
- FROM matdoc
- INTO TABLE @DATA(lt_311_potw)
- FOR ALL ENTRIES IN @lt_kol311
- WHERE vbeln_im = @lt_kol311-mblnr
- AND bwart = '311'
- AND xauto = 'X'.
- LOOP AT lt_311_potw INTO DATA(ls_311_potw).
- CLEAR ls_collect.
- READ TABLE lt_kol311 INTO DATA(ls_kol_311) WITH KEY mblnr = ls_311_potw-vbeln_im.
- IF sy-subrc = 0.
- ls_collect-aufnr = ls_kol_311-aufnr.
- ENDIF.
- ls_collect-bwart = '311'.
- ls_collect-ilosc = ls_311_potw-menge.
- COLLECT ls_collect INTO ct_collect_311_potw.
- ENDLOOP.
- ENDIF.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement