SAP EWM 更改过账日期（手动、开发两种方案）

对于EWM手动进行过账日期更改，目前大致有两种实现方法：

第一种，对于卡在ECC-SMQ2中的Inbound Queue而言，可以手动去改/SPE/CL_IBDLV_CONTROL这个类去实现。

第二种，对于在EWM-PRDI中的Inbound Queue而言，先选定编辑模式对计划时间进行修改。保存之后点击收货，通过Debug修改it_date这个传参，实际上传至ECC的过账日期是由EWM端/SCDL/DB_DATE中对应的Actual过账日期。

说到记账日期，对于ECC的小伙伴来说这根本就不值得一提。不管是历史悠久的MB1*系统还是一事务代码走天下的MIGO，ECC都提供了让你修改记账日期的方式，这种改日期的操作在国内特别到了每个月底，为了各种调账、满足考核要求等是特别的频繁，这个需求量可是大大的。

可是到了EWM，系统就硬生生的没有提供这个修改记账日期的功能，我是真的完全无法理解当时德国人的设计想法，难道只有中国人才需要改记账日期？

牢骚归牢骚，可是到了项目里这种需求又是真实存在的，用户一句“ECC有这功能啊”就能把你嘴边的各种理由给硬生生堵了回去，唉，没办法，求天不如求自己，好歹这个时候可以体现顾问的价值所在了。

以下是以往项目实际使用的解决方案，仅供参考，大家可在此基础上根据各自的实际情况灵活变通，还是那句话，方案是死的，人是活的。

开发实现更改过账日期方案的整体思路：

当业务上需要进行记账日期的调整时（即实际记账日期不等于当前日期时），人工在交货单中记录一个实际记账日期，然后通过EWM的增强去读取这个日期，并将这个日期返回ECC进行最终记账的。

PART 1 EWM内向交货单的处理

首先在inbound delivery的Date/Time中增加一个ZPOST_ECC的选项，这样就提供了记录实际记账日期的可能性。此步需要通过配置实现，比较简单，大家可自行摸索。

操作人员可手工增加ZPOST_ECC且category =actual的时间，表示实际的收货记账时间，如下图。

 

其次，启用如下BADI增强，获取此值并返回至ECC。

Enhancement Spot: /SCWM/ES_ERP_MAPOUT

BAID: /SCWM/EX_ERP_MAPOUT_ID_CONFDEC

Method：MAPOUT

Enhancement Implementation：ZSCWM_EX_ERP_MAPOUT_ID_CONFDECBadI Implementation：ZSCWM_EX_ERP_MAPOUT_ID_CONFDEC源代码示例（仅供参考）：

method /SCWM/IF_EX_MAPOUT_ID_CONFDEC~MAPOUT.
  DATA: DAT TYPE d.
  DATA: TIM TYPE t,
         tz         TYPE ttzz-tzone.
  Data L_DATE type /SCDL/DL_DATE_STR.
  DATA P_DATE TYPE /SCDL/DL_TSTTO.
  DATA P_POSTDATE TYPE D.
  DATA P_POSTTIME TYPE T.

 FIELD-SYMBOLS <LS_HEADER_DEADLINES> type LINE OF /SCWM/TT_HEADER_DEADLINES.
  Loop at IS_DLV_INFO-S_HEAD-T_DATE into L_DATE
    WHERE TSTTYPE = 'ZPOST_ECC' AND TST_CATEGORY = 'ACTUAL' AND DATE_INDICATOR = 'M'.
      P_DATE = L_DATE-TSTTO.

      CALL FUNCTION '/SAPAPO/TIMESTAMP_CONVERT_DATE'
        EXPORTING
          IV_TIMESTAMP          = P_DATE
*         IV_SIMID              =
*         IV_SIMSESSION         =
*         IV_RESID              =
*         IV_LOCID              =
*         IV_PEGID              =
*         IV_PERIODSTART        =
*         IV_IGNORE_CUSTOMIZING =
          IV_TIMEZONE           = 'UTC+8'
        IMPORTING
          EV_DATE               = P_POSTDATE
          EV_TIME               = P_POSTTIME
*         EV_TIMEZONE           =
        .
      IF SY-SUBRC = '0'.
        LOOP AT CT_BAPI_HEADER_DEADLINES ASSIGNING <LS_HEADER_DEADLINES>
           WHERE TIMETYPE = 'IDRECDOCK'.
          TZ = SY-ZONLO.
          CONVERT TIME STAMP <LS_HEADER_DEADLINES>-TIMESTAMP_UTC TIME ZONE  TZ INTO DATE DAT TIME TIM.
          DAT = P_POSTDATE.
          CONVERT DATE DAT TIME TIM INTO TIME STAMP <LS_HEADER_DEADLINES>-TIMESTAMP_UTC TIME ZONE TZ.
        ENDLOOP.
      ENDIF.
  endloop.
endmethod.

PART 2 EWM外向交货单处理

首先，同内向交货单处理方式一致，在Outbound Delivery中手工增加ZPOST_ECC且category =actual的时间，表示发货的记账时间。其次，启用如下BADI增强，获取此值并返回至ECC。

Enhancement Spot: /SCWM/ES_ERP_MAPOUT

BAID: /SCWM/EX_ERP_MAPOUT_OD_CONFDEC

Method：MAPOUTEnhancement Implementation：ZSCWM_ES_ERP_MAPOUTBadI Implementation：ZSCWM_EX_ERP_MAPOUT_OD_CONFDEC

源代码示例（仅供参考）：

*add by Bruce 2013.8.21
*control the posting date from ODO
  DATA: DAT TYPE d.
  DATA: TIM TYPE t,
         tz         TYPE ttzz-tzone.
  Data L_DATE type /SCDL/DL_DATE_STR.
  DATA P_DATE TYPE /SCDL/DL_TSTTO.
  DATA P_POSTDATE TYPE D.
  DATA P_POSTTIME TYPE T.

  FIELD-SYMBOLS <LS_HEADER_DEADLINES> type LINE OF /SCWM/TT_HEADER_DEADLINES.
  Loop at IS_DLV_INFO-S_HEAD-T_DATE into L_DATE
    WHERE TSTTYPE = 'ZPOST_ECC' AND TST_CATEGORY = 'ACTUAL' AND DATE_INDICATOR = 'M'.
      P_DATE = L_DATE-TSTTO.

      CALL FUNCTION '/SAPAPO/TIMESTAMP_CONVERT_DATE'
        EXPORTING
          IV_TIMESTAMP          = P_DATE
*         IV_SIMID              =
*         IV_SIMSESSION         =
*         IV_RESID              =
*         IV_LOCID              =
*         IV_PEGID              =
*         IV_PERIODSTART        =
*         IV_IGNORE_CUSTOMIZING =
          IV_TIMEZONE           = 'UTC+8'
        IMPORTING
          EV_DATE               = P_POSTDATE
          EV_TIME               = P_POSTTIME
*         EV_TIMEZONE           =
        .
      IF SY-SUBRC = '0'.
        LOOP AT CT_BAPI_HEADER_DEADLINES ASSIGNING <LS_HEADER_DEADLINES>
           WHERE TIMETYPE = 'WSHDRWADTI'.
          TZ = SY-ZONLO.
          CONVERT TIME STAMP <LS_HEADER_DEADLINES>-TIMESTAMP_UTC TIME ZONE  TZ INTO DATE DAT TIME TIM.
          DAT = P_POSTDATE.
          CONVERT DATE DAT TIME TIM INTO TIME STAMP <LS_HEADER_DEADLINES>-TIMESTAMP_UTC TIME ZONE TZ.
        ENDLOOP.
      ENDIF.
  endloop.

到此我们的记账日期就能顺利传到ECC中啦，但这还是不是方案的完整体，因为你会发现仅仅记账日期是不够的，用户又会要求说，光改记账日期不行，还要把凭证日期也一起改了。。。。。。

好吧，我们的潜力是无穷的，这点小东西是不可能击垮我们的。

PART 3 ECC对于document date的处理

方案原理： 由于标准只能更改posting date，需要通过BADI增强将posting date的值赋给document date。

Enhancement Spot: LE_SHP_GOODSMOVEMENT

BAID: LE_SHP_GOODSMOVEMENT

Method：CHANGE_INPUT_HEADER_AND_ITEMSEnhancement Implementation：ZLE_SHP_GOODSMOVEMENTBadI Implementation：ZLE_SHP_GOODSMOVEMENT源代码示例（仅供参考）：

method IF_EX_LE_SHP_GOODSMOVEMENT~CHANGE_INPUT_HEADER_AND_ITEMS.
  BREAK SAP_HUANGYZ.
  IF IS_LIKP-LGNUM = 'B02' AND CS_IMKPF-BLDAT <> CS_IMKPF-BUDAT.
    CS_IMKPF-BLDAT = CS_IMKPF-BUDAT.
  ENDIF.
endmethod.

好了 到了这儿你可能觉得已经大功告成，但事实证明你又错了。。。

正向的流程已经顺利跑通，但是反向冲销时用户又发现冲销的日期一直使用的当前日期，而不是之前填写的实际日期，WTF。。。德国人就不能把系统设计的简单点嘛。。。。

PART 4 ECC对于发货冲销记账日期的处理

参考Note 1587761 - Goods movement date of goods issue reversal

方案原理 ：由于标准冲销的posting date一直是用使用当前日期，需要通过BADI将交货单中的发货日期的值赋给posting date。

BADI: SMOD_V50B0001

Method：EXIT_SAPLV50I_010

BADI Implementation: ZSCI_TRAN_ECC_EWM

源代码示例（仅供参考）：

method IF_EX_SMOD_V50B0001~EXIT_SAPLV50I_010.
*{   INSERT         DEVK957039                                        1
break sap_huangyz.
DATA L_DATE TYPE WADAT_IST.
select SINGLE WADAT_IST INTO L_DATE FROM LIKP WHERE VBELN = CS_VBKOK-VBELN_VL.
  IF L_DATE IS NOT INITIAL.
    CS_VBKOK-WADAT_IST = L_DATE.
    ENDIF.
*}   INSERT
endmethod.

好了，到这里总算是大功告成，关于记账日期的故事可以告一段落啦。