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.
好了,到这里总算是大功告成,关于记账日期的故事可以告一段落啦。
文章来自于网络,如果侵犯了您的权益,请联系站长删除!