價格主數據有效開始日期控制

概述：

為了確定銷售訂單的價格與價格主數據價格一致，必須保證維護價格主數據時有效開始日期不能小于或者等于今天

增強方案：

增強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.