在程序: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.