SO增強 修改SO狀態

如果SO金額超出指定金額，需要審批，通過標準的配置實現SO的審批功能，然後通過增強檢查so的金額，控制是否需要審批。

MV45AFZZ - FORM USEREXIT_READ_DOCUMENT

FORM USEREXIT_READ_DOCUMENT.
* { INSERT
data: lv_netwr TYPE vbak-netwr,
lv_total type p DECIMALS 2 VALUE ‘50000.00’.
IF vbak-waerk NE ‘CNY’.
DATA:lw_return TYPE bapiret1,
lw_rate TYPE bapi1093_0.

CALL FUNCTION ‘BAPI_EXCHANGERATE_GETDETAIL’
EXPORTING
rate_type = ‘M’
from_curr = vbak-waerk
to_currncy = ‘CNY’
date = sy-datum
IMPORTING
exch_rate = lw_rate
return = lw_return.

IF lw_rate-from_factor <> 0.
lv_netwr = vbak-netwr * lw_rate-exch_rate / lw_rate-from_factor.
ELSE.
lv_netwr = vbak-netwr * lw_rate-exch_rate.
ENDIF.
ELSE.
lv_netwr = vbak-netwr.
ENDIF.

" if lv_netwr lt 50000. " 這裏不能比較，達不到預期結果，定義一個變量，賦值50000.00，與netwr相同類型 p(8) decimals 2.
if lv_netwr lt lv_total
data: l_objnr type vbak-objnr,
l_objnr2 type vbak-objnr.