價格主數據有效開始日期控制
價格主數據有效開始日期控制
概述:
為了確定銷售訂單的價格與價格主數據價格一致,必須保證維護價格主數據時有效開始日期不能小于或者等于今天
增強方案:
增強VK11/VK12,當有效開始日期小于或者等于今天時,給出警告提示
具體實現:
查找增強
獲取VK11/VK12程序名
獲取程序對應的包
獲取包對應的增強
根據描述查找適合自己的增強BADI
SE19增強BADI
增強代碼如下:
method IF_EX_SD_COND_SAVE_A~CONDITION_SAVE_EXIT.
TYPE-POOLS trff .
DATA: lh_ct_vake like line of CT_VAKE.
DAta: lh_konp_n like line of CT_KONPDB_NEW.
data: tday type DATUM."創建交貨單日期
DATA: SDAY TYPE DATUM.
DATA: days TYPE i."兩日期相差多少天。
tday = sy-DATUM.
DATA log_op TYPE trff_type_c_2.
LOOP AT CT_VAKE into lh_ct_vake.
CLEAR lh_konp_n.
CLEAR log_op.
"有刪除標記的不做判斷
READ TABLE CT_KONPDB_NEW into lh_konp_n with key KNUMH = lh_ct_vake-KNUMH.
if sy-subrc eq 0.
if lh_konp_n-LOEVM_KO eq 'X'.
continue.
ENDIF.
endif.
SDAY = lh_ct_vake-datab.
CALL FUNCTION 'FIMA_DATE_COMPARE'
EXPORTING
* I_FLG_INTRADAY = ' '
i_date = SDAY
* I_TIME = '000000'
* I_SINCL = '0'
* I_SULT = ' '
i_comp_date = tday
* I_COMP_TIME = '000000'
* I_COMP_SINCL = '0'
* I_COMP_SULT = ' '
IMPORTING
E_LOG_OP = log_op .
if log_op <> 'GT' .
MESSAGE '有效開始日期小于今天,您確定要這樣做嗎?這將影響生效期到現在創建的訂單' TYPE 'W'.
"MESSAGE E248(VL).
endif.
ENDLOOP.
endmethod.
posted on 2018-08-15 17:26 zouxiaoping 閱讀(901) 評論(0) 收藏 舉報





浙公網安備 33010602011771號