SAP MM01 MM02勾选物料来源(material origin)后程序MESSAGE_TYPE_X Dump
1.报错
2.关键词
- MESSAGE_TYPE_X
- OKEY_INTERNAL_ERROR
- COKEY
- K_SUBKEY_GET
3.解决方法
- 官方Note: Note: 673881
- 新建一个报表程序ZN673881,运行程序修正
*&---------------------------------------------------------------------*
*& Report ZN673881
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZN673881.
PARAMETERS: TEST AS CHECKBOX DEFAULT 'X'.
TABLES: NRIV,COKEY.
DATA: LD_SUBRC LIKE SY-SUBRC,
LD_NUMBER TYPE CO_SUBNR,
LD_MAX TYPE CO_SUBNR.
* Check NRIV entry (For transaction SNRO)
SELECT SINGLE * FROM NRIV
WHERE OBJECT = 'COKEY'
AND SUBOBJECT = SPACE
AND NRRANGENR = '01'
AND TOYEAR = SPACE.
LD_SUBRC = SY-SUBRC.
* Get highest value from COKEY
SELECT * FROM COKEY.
LD_NUMBER = COKEY-HRKFT+4.
IF LD_NUMBER > LD_MAX.
LD_MAX = LD_NUMBER.
ENDIF.
ENDSELECT.
* Everything fine already?
IF LD_SUBRC = 0 AND LD_MAX LE NRIV-NRLEVEL.
MESSAGE I191(B1).
EXIT.
ENDIF.
*Set entry
LD_NUMBER = 1.
NRIV-FROMNUMBER = LD_NUMBER.
LD_NUMBER = 999999999.
NRIV-TONUMBER = LD_NUMBER.
NRIV-NRLEVEL = LD_MAX + 1.
* Post it in real mode
IF TEST IS INITIAL.
MODIFY NRIV.
COMMIT WORK.
MESSAGE I017(06) WITH 'NRIV/COKEY' NRIV-NRLEVEL.
ELSE.
MESSAGE I812(FU) WITH SY-CPROG.
ENDIF.
post SAP-Garson
原文链接:https://blog.csdn.net/qq_30797051/article/details/120327961文章来自于网络,如果侵犯了您的权益,请联系站长删除!