遇到很变态的需求，要求做发票校验时把对应门店+日期放到对应的财务凭证的分配字段bseg-zuonr，不能放到gi/ir 科目上本来想用财务替代来实现被否决了。无奈中跟踪标准程序发现miro 保存时调用函数MRM_INVOICE_POST ，还好这个函数有对应的 enhance spot ENHANCEMENT-POINT lmrmpu01_03 SPOTS es_saplmrmp.
增加两行代码实现这个需求
DATA: L_WERKS TYPE BSEG-WERKS,
L_LIFNR TYPE BSEG-LIFNR.
IF SY-TCODE = 'MIRO'.
LOOP AT XACCIT..
IF NOT XACCIT-WERKS IS INITIAL.
L_WERKS = XACCIT-WERKS.
ENDIF.
IF NOT XACCIT-LIFNR IS INITIAL.
L_LIFNR = XACCIT-LIFNR.
ENDIF.
ENDLOOP.
CONCATENATE L_WERKS SY-DATUM INTO XACCIT-ZUONR.
MODIFY XACCIT TRANSPORTING ZUONR WHERE KOART = 'K'.
ENDIF.
遇到很变态的需求，要求做发票校验时把对应门店+日期放到对应的财务凭证的分配字段bseg-zuonr，不能放到gi/ir 科目上本来想用财务替代来实现被否决了。无奈中跟踪标准程序发现miro 保存时调用函数MRM_INVOICE_POST ，还好这个函数有对应的 enhance spot ENHANCEMENT-POINT lmrmpu01_03 SPOTS es_saplmrmp.
增加两行代码实现这个需求
DATA: L_WERKS TYPE BSEG-WERKS,
L_LIFNR TYPE BSEG-LIFNR.
IF SY-TCODE = 'MIRO'.
LOOP AT XACCIT..
IF NOT XACCIT-WERKS IS INITIAL.
L_WERKS = XACCIT-WERKS.
ENDIF.
IF NOT XACCIT-LIFNR IS INITIAL.
L_LIFNR = XACCIT-LIFNR.
ENDIF.
ENDLOOP.
CONCATENATE L_WERKS SY-DATUM INTO XACCIT-ZUONR.
MODIFY XACCIT TRANSPORTING ZUONR WHERE KOART = 'K'.
ENDIF.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/190059/viewspace-1032542/ ，如需转载，请注明出处，否则将追究法律责任。
