- 需求说明:在使用VL02N进行DN过账时,交货日期修改为实际实际货物移动日期+运输天数)节假日顺延
- 增强点:BADI -->LE_SHP_DELIVERY_PROC
接口:IF_EX_LE_SHP_DELIVERY_PROC
方法:SAVE_DOCUMENT_PREPARE
IF ( sy-tcode EQ 'VL02N' OR sy-tcode EQ 'VL03N' OR sy-tcode EQ 'VL01N' )
AND sy-ucomm EQ 'WABU_T'. DN过账时交货日期修改(实际实际货物移动日期+运输天数)节假日顺延
LOOP AT ct_xlikp ASSIGNING FIELD-SYMBOL(<fs_xlikp>).
SELECT SINGLE tvro~route,tvro~traztd
FROM tvro
INNER JOIN vbap ON vbap~route = tvro~route
INNER JOIN lips ON lips~vgbel = vbap~vbeln
INTO @DATA(ls_tvro) WHERE lips~vbeln = @<fs_xlikp>-vbeln.
IF ls_tvro-traztd IS NOT INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_TSTRG_OUTPUT'
EXPORTING
input = ls_tvro-traztd
IMPORTING
output = ls_tvro-traztd.
<fs_xlikp>-lfdat = <fs_xlikp>-wadat_ist + ls_tvro-traztd.
CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
EXPORTING
correct_option = '+'
date = <fs_xlikp>-lfdat
factory_calendar_id = <fs_xlikp>-knfak
IMPORTING
date = <fs_xlikp>-lfdat
"workingday_indicator = da_feiertag
EXCEPTIONS
date_after_range = 01
date_before_range = 02
date_invalid = 03
factory_calendar_not_found = 04
OTHERS = 05.
ENDIF.
ENDLOOP.
ENDIF.
同时如果EWM过账同步SAP也许同步调整收货日期
- 增强点:BADI :/SCWM/EX_ERP_MAPOUT_OD_CONFDEC
接口:/SCWM/IF_EX_MAPOUT_OD_CONFDEC
方法: /SCWM/IF_EX_MAPOUT_OD_CONFDEC~MAPOUT