SAP中CO13取消完工确认的bapi

REPORT  z0905.
TABLES:afru,aufk.
DATA: it_afru LIKE TABLE OF afru WITH HEADER LINE.
DATA:ls_return TYPE bapiret1.
SELECT-OPTIONS: s_aufnr FOR aufk-aufnr."生产订单号
"获取正常的生产订单
SELECT *
INTO CORRESPONDING FIELDS OF TABLE  it_afru
FROM afru
WHERE  aufnr IN  s_aufnr
  AND stokz = ''
  AND stzhl = ''.
LOOP AT it_afru.
  CALL FUNCTION 'BAPI_PRODORDCONF_CANCEL'
    EXPORTING
      confirmation        = it_afru-rueck
      confirmationcounter = it_afru-rmzhl
      postg_date          = sy-datum"过账日期
      conf_text           = '取消原因测试'"取消原因
    IMPORTING
      return              = ls_return.
  IF ls_return-type = 'S'.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.
  ELSE.
    WRITE ls_return-message.
  ENDIF.
ENDLOOP.