生产订单报工取消CO13：BAPI_PRODORDCONF_CANCEL

程序代码：

FUNCTION zppfm011.
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" VALUE(I_INPUT) TYPE ZPPS005 OPTIONAL
*" EXPORTING
*" VALUE(E_MESSAGE) TYPE ZOTS001
*"----------------------------------------------------------------------
DATA:BEGIN OF ls_aufnr,
rueck TYPE afru-rueck,
rmzhl TYPE afru-rmzhl,
END OF ls_aufnr.
DATA:lt_aufnr LIKE TABLE OF ls_aufnr WITH HEADER LINE.
DATA:lv_line TYPE i.
DATA:ls_return TYPE bapiret1.
IF i_input-rueck IS NOT INITIAL AND i_input-rmzhl IS NOT INITIAL.
SELECT SINGLE rueck rmzhl INTO ls_aufnr FROM afru WHERE rueck = i_input-rueck AND rmzhl = i_input-rmzhl AND stokz = '' AND stzhl = ''.
IF sy-subrc NE 0.
e_message-type = 'S'.
e_message-message = '没有符合条件数据'.
EXIT.
ENDIF.
ELSEIF i_input-conf_text IS NOT INITIAL.
SELECT rueck rmzhl INTO TABLE lt_aufnr FROM afru WHERE ltxa1 = i_input-conf_text AND stokz = '' AND stzhl = ''. "stokz已冲销，stzhl取消确认
IF sy-subrc = 0.
DESCRIBE TABLE lt_aufnr LINES lv_line.
IF lv_line = 1.
READ TABLE lt_aufnr INTO ls_aufnr INDEX 1.
ELSE.
e_message-type = 'E'.
e_message-message = '数据异常：多条'.
EXIT.
ENDIF.
ELSE.
e_message-type = 'S'.
e_message-message = '没有符合条件数据'.
EXIT.
ENDIF.
ELSE.
e_message-type = 'E'.
e_message-message = '输入条件不能全为空'.
EXIT.
ENDIF.
CHECK e_message-type NE 'E'.
CALL FUNCTION 'BAPI_PRODORDCONF_CANCEL'
EXPORTING
confirmation = ls_aufnr-rueck
confirmationcounter = ls_aufnr-rmzhl
postg_date = sy-datum
* CONF_TEXT =
IMPORTING
return = ls_return
* LOCKED =
* CREATED_CONF_NO =
* CREATED_CONF_COUNT =
.
IF ls_return-type CA 'AEX' .
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
e_message-type = 'E'.
e_message-message = ls_return-message.
EXIT.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
e_message-type = 'S'.
e_message-message = '取消生产订单报工成功'.
ENDIF.
ENDFUNCTION.

复制代码

[BAPI] 生产订单报工取消CO13：BAPI_PRODORDCONF_CANCEL

相关帖子

Ta最近发表

快速回帖