BADI:WORKORDER_UPDATE
方法:REORG_STATUS_ACT_CHECK
i_order_status = 1 表示订单执行TECO。
IF i_order_status = 1.
SELECT ekkn~aufnr ekkn~ebeln ekkn~ebelp ekpo~elikz
INTO CORRESPONDING FIELDS OF TABLE lt_tab FROM ekpo
INNER JOIN ekkn ON ekkn~ebeln = ekpo~ebeln AND ekkn~ebelp = ekpo~ebelp
WHERE ekkn~aufnr = is_header_dialog-aufnr .
LOOP AT lt_tab INTO ls_tab.
IF ls_tab-elikz = ''.
ls_tab-ebeln = |{ ls_tab-ebeln ALPHA = OUT }|.
IF msg NS ls_tab-ebeln.
CONCATENATE ls_tab-ebeln ';' INTO msg.
ENDIF.
ENDIF.
ENDLOOP.
IF msg IS NOT INITIAL.
msg = | 请对' { msg } '采购订单进行收货或关闭' |.
MESSAGE msg TYPE 'E'.
ENDIF.
ENDIF.