物料凭证过账日期修改

最新推荐文章于 2024-04-25 14:10:53 发布

阴天也不错

最新推荐文章于 2024-04-25 14:10:53 发布

阅读量356

点赞数

分类专栏：增强文章标签：其他

本文链接：https://blog.csdn.net/weixin_49691117/article/details/132729711

版权

增强专栏收录该内容

7 篇文章 2 订阅

订阅专栏

物料凭证过账日期修改

增强点：SAPFM07M
增强方式：隐式增强
在这里插入图片描述

完整代码

根据工厂和当前日期从自建表获取对应的凭证日期

ENHANCEMENT 1  Z_MATDOC_BUDAT_SAPFM07M.    "active version
*物料凭证过账日期修改
DATA:LV_BUDAT   TYPE BUDAT,
         LV_DATUMF  TYPE /SCMB/SPLR_DATI_LOG,
         LV_DATUMT  TYPE /SCMB/SPLR_DATI_LOG,
         LV_DATUM   TYPE /SCMB/SPLR_DATI_LOG.

DATA:BEGIN OF LT_FI039 OCCURS 0,
       DATE_FROM TYPE ZTFI039-DATE_FROM,
       TIMS_FROM TYPE ZTFI039-TIMS_FROM,
       DATE_TO   TYPE ZTFI039-DATE_TO,
       TIMS_TO   TYPE ZTFI039-TIMS_TO,
       BUDAT     TYPE ZTFI039-BUDAT,
     END OF LT_FI039,

     LS_FI039 LIKE LINE OF LT_FI039.

        LV_BUDAT = SY-DATUM.

        LV_DATUM = SY-DATUM && SY-UZEIT.

        SELECT DATE_FROM
               TIMS_FROM
               DATE_TO
               TIMS_TO
               BUDAT
          INTO TABLE LT_FI039
          FROM ZTFI039
         WHERE DATE_FROM LE SY-DATUM
           AND DATE_TO   GE SY-DATUM
           AND WERKS           = W-WERKS.

        LOOP AT LT_FI039 INTO LS_FI039.
          CLEAR:LV_DATUMF,LV_DATUMT.
          LV_DATUMF = LS_FI039-DATE_FROM && LS_FI039-TIMS_FROM.
          LV_DATUMT = LS_FI039-DATE_TO && LS_FI039-TIMS_TO.

          IF LV_DATUM >= LV_DATUMF AND LV_DATUM <= LV_DATUMT.
            LV_BUDAT = LS_FI039-BUDAT.
            EXIT.
          ENDIF.
        ENDLOOP.

        IF LV_BUDAT NE SY-DATUM.
            w-budat = LV_BUDAT.
        ENDIF.
ENDENHANCEMENT.