Advertisement
Guest User

Untitled

a guest
Nov 23rd, 2016
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 1.01 KB | None | 0 0
  1. METHOD get_data_100.
  2.     DATA: lt_caufv TYPE TABLE OF caufv.
  3.     DATA: ls_caufv TYPE  caufv.
  4.     DATA: lt_objects TYPE TABLE OF jsto_pre.
  5.     DATA: lt_objects_confirmed TYPE TABLE OF jsto_pre.
  6.  
  7.  
  8. *    ----->  Wyszukujemy zlecenia z naszego zakÅ‚adu - wszystkie
  9.     SELECT * FROM caufv
  10.        INTO TABLE lt_caufv
  11.        WHERE maufnr <> ''
  12.          AND sfcpf = 'GTPO'
  13.          AND werks = p_werks
  14.          AND maufnr IN s_maufnr
  15.          AND auart IN s_auart
  16.          AND gltrp IN s_end
  17.          AND gstrp IN s_start.
  18.  
  19.     SORT lt_caufv by maufnr aufnr.
  20.  
  21.     MOVE-CORRESPONDING lt_caufv TO lt_objects.
  22.  
  23.     CALL FUNCTION 'STATUS_CHECK_MULTI'
  24.       EXPORTING
  25.         status  = 'I0002'
  26.       TABLES
  27.         objects = lt_objects.
  28.  
  29.     LOOP AT lt_caufv INTO ls_caufv.
  30.       READ TABLE lt_objects WITH KEY objnr = ls_caufv-objnr TRANSPORTING NO FIELDS.
  31.       IF sy-subrc = 0.
  32.             MOVE-CORRESPONDING ls_caufv TO ls_data_100.
  33.             APPEND ls_data_100 TO gt_data_100.
  34.       ENDIF.
  35.     ENDLOOP.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement