Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- METHOD get_data_100.
- DATA: lt_caufv TYPE TABLE OF caufv.
- DATA: ls_caufv TYPE caufv.
- DATA: lt_objects TYPE TABLE OF jsto_pre.
- DATA: lt_objects_confirmed TYPE TABLE OF jsto_pre.
- * -----> Wyszukujemy zlecenia z naszego zakładu - wszystkie
- SELECT * FROM caufv
- INTO TABLE lt_caufv
- WHERE maufnr <> ''
- AND sfcpf = 'GTPO'
- AND werks = p_werks
- AND maufnr IN s_maufnr
- AND auart IN s_auart
- AND gltrp IN s_end
- AND gstrp IN s_start.
- SORT lt_caufv by maufnr aufnr.
- MOVE-CORRESPONDING lt_caufv TO lt_objects.
- CALL FUNCTION 'STATUS_CHECK_MULTI'
- EXPORTING
- status = 'I0002'
- TABLES
- objects = lt_objects.
- LOOP AT lt_caufv INTO ls_caufv.
- READ TABLE lt_objects WITH KEY objnr = ls_caufv-objnr TRANSPORTING NO FIELDS.
- IF sy-subrc = 0.
- MOVE-CORRESPONDING ls_caufv TO ls_data_100.
- APPEND ls_data_100 TO gt_data_100.
- ENDIF.
- ENDLOOP.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement