表likp新增第一次过账输入日期字段,vl02n/vl01n/vl03n/vl06o的增强

时间:2024-06-28 12:34:26

在程序:MV50AFZ1的

FORM USEREXIT_SAVE_DOCUMENT_PREPARE.

*begin of ADD CRQ000000012135  CAIZJIAN 2014/3/25(更新第一次交货日期likp-zzsysdat)*
IF SY-TCODE = 'VL02N' OR SY-TCODE = 'VL03N' OR SY-TCODE = 'VL01N'. "ADD 'VL03N ' CRQ000000012135 caizjian 2014/5/8 add CRQ000000022053 vl01n caizjian 2015/3/19
MOVE SY-UCOMM TO OKCODE.
IF OKCODE = 'WABU_T'.
LOOP AT XLIKP.
IF XLIKP-ZZSYSDAT = ''.
XLIKP-ZZSYSDAT = SY-DATUM.
MODIFY XLIKP TRANSPORTING ZZSYSDAT .
ENDIF.
ENDLOOP.
ENDIF.
CLEAR OKCODE.
INCLUDE Z_CHECK_MFRGR. " ADD 检查 物料运输组/生产日期的修改 CRQ000000018704/CRQ000000018226 caizjian 20141202
ENDIF.
*endof ADD CRQ000000012135 CAIZJIAN 2014/3/25(更新第一次交货日期likp-zzsysdat)---*

ENDFORM.