zoukankan      html  css  js  c++  java
  • 表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

  • 相关阅读:
    [leetCode]09.用两个栈实现队列
    ubuntu:无法获得锁;无法锁定管理目录
    [leetCode]07.重建二叉树
    [leetCode]剑指 Offer 06. 从尾到头打印链表
    [leetCode]剑指 Offer 05. 替换空格
    [leetCode]1330.翻转子数组得到最大的数组值
    [leetCode]312.戳气球
    UVALive
    CodeChef
    CodeChef
  • 原文地址:https://www.cnblogs.com/caizjian/p/4350014.html
Copyright © 2011-2022 走看看