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

在程序：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 = '00000000'.
          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. 

转载于:https://www.cnblogs.com/caizjian/p/4350014.html