修改销售订单(备注)

DATA:SALESDOCUMENT  LIKE  BAPIVBELN-VBELNVALUE'0000000011',
     ORDER_HEADER_INX LIKE  BAPISDH1X,
     IT_RETURN  LIKE  BAPIRET2 OCCURS0WITHHEADERLINE,
     IT_ORDER_ITEM_IN LIKE  BAPISDITM OCCURS 0 WITH HEADER LINE,
     IT_ORDER_ITEM_INX  LIKE  BAPISDITMX OCCURS 0 WITH HEADER LINE,
     IT_ORDER_TEXT  LIKE  BAPISDTEXT OCCURS 0 WITH HEADER LINE.

CLEAR ORDER_HEADER_INX.
ORDER_HEADER_INX-UPDATEFLAG = 'U'.   "声明修改状态

CLEAR:IT_ORDER_ITEM_IN,IT_ORDER_ITEM_IN[],IT_ORDER_ITEM_INX,IT_ORDER_ITEM_INX[].
IT_ORDER_ITEM_IN-ITM_NUMBER = '10'.    "行项目号
APPEND IT_ORDER_ITEM_IN.
IT_ORDER_ITEM_INX-ITM_NUMBER = '10'.  "行项目号
IT_ORDER_ITEM_INX-UPDATEFLAG = 'U'.   "声明修改状态
APPEND IT_ORDER_ITEM_INX.

CLEAR :IT_ORDER_TEXT[],IT_ORDER_TEXT.
IT_ORDER_TEXT-DOC_NUMBER = SALESDOCUMENT.
IT_ORDER_TEXT-ITM_NUMBER = '10'.    "行项目号
IT_ORDER_TEXT-TEXT_ID    = '0001'.      "固定值
IT_ORDER_TEXT-LANGU      = '1'.            "语主（固定值）
IT_ORDER_TEXT-FORMAT_COL = '*'.     "格式（固定值）
IT_ORDER_TEXT-TEXT_LINE  = '我的备注.   "备注内容
APPEND IT_ORDER_TEXT.

CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
  EXPORTING
    SALESDOCUMENT    = SALESDOCUMENT
    ORDER_HEADER_INX = ORDER_HEADER_INX
  TABLES
    RETURN           = IT_RETURN
    ORDER_ITEM_IN    = IT_ORDER_ITEM_IN
    ORDER_ITEM_INX   = IT_ORDER_ITEM_INX
    ORDER_TEXT       = IT_ORDER_TEXT.

read table it_return with key type = 'E'.

if sy-subrc eq 0
  COMMIT WORK AND WAIT.

else.

  rollback work.

endif.