BAPI_GOODSMVT_CANCEL 添加移动原因

REPORT ZLFY_BAPI_GOODSMVT_CANCEL .
DATA:ls_goodsmvt_headret TYPE bapi2017_gm_head_ret .
DATA:lt_return TYPE TABLE OF bapiret2 .

INITIALIZATION .

PARAMETERS p_mat TYPE godynpro-mat_doc OBLIGATORY .
PARAMETERS p_year TYPE godynpro-doc_year OBLIGATORY DEFAULT '2025' .
PARAMETERS p_grund TYPE goitem-grund OBLIGATORY DEFAULT '0001'." 来料不良
PARAMETERS p_budat TYPE gohead-budat OBLIGATORY DEFAULT sy-datum .
PARAMETERS p_test AS CHECKBOX .

START-OF-SELECTION .
"原因代码 ,把值给到 MB_CANCEL_GOODS_MOVEMENT

EXPORT P_GRUND = -grund TO MEMORY ID 'ZLFY_BAPI_GOODSMVT_CANCEL' .

CALL FUNCTION 'BAPI_GOODSMVT_CANCEL'
EXPORTING
materialdocument = p_mat
matdocumentyear = p_year
goodsmvt_pstng_date = p_budat
IMPORTING goodsmvt_headret = ls_goodsmvt_headret
TABLES
return = lt_return.

BREAK-POINT .

IF ls_goodsmvt_headret IS NOT INITIAL .
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING wait = 'X'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF . -

增强修改移动原因：