тут всего делов-то:
Code:
REPORT ZPP_PLANORDER .
DATA: T_PLAF LIKE PLAF OCCURS 0 WITH HEADER LINE.
DATA: HD LIKE BAPIPLAF_I2 ,
HDX LIKE BAPIPLAF_I2X,
RET LIKE BAPIRETURN1,
CT TYPE I.
SELECT-OPTIONS: PLNUM FOR T_PLAF-PLNUM.
PARAMETERS: WERKS LIKE PLAF-PLWRK.
START-OF-SELECTION.
CLEAR: T_PLAF, T_PLAF[].
SELECT * FROM PLAF APPENDING TABLE T_PLAF
WHERE PLNUM IN PLNUM AND PLWRK = WERKS.
CT = 0.
CLEAR: HD, HDX.
HD-FIRMING_IND = SPACE.
HDX-FIRMING_IND = 'X'.
LOOP AT T_PLAF.
CLEAR: RET.
CALL FUNCTION 'BAPI_PLANNEDORDER_CHANGE'
EXPORTING
PLANNEDORDER = T_PLAF-PLNUM
HEADERDATA = HD
HEADERDATAX = HDX
IMPORTING
RETURN = RET.
ADD 1 TO CT.
ENDLOOP.
COMMIT WORK AND WAIT.
WRITE:/ 'Обработано ', CT, ' плановых заказов'.