SAP IDoc 状态消息接口

最新推荐文章于 2023-08-19 22:55:23 发布

SAP 千里马

最新推荐文章于 2023-08-19 22:55:23 发布

阅读量479

点赞数

文章标签： sap

本文链接：https://blog.csdn.net/weixin_46075394/article/details/121399963

版权

传入参数：
在这里插入图片描述
传出参数：

FUNCTION ZFM_IDOC_MESSAGE.
*"----------------------------------------------------------------------
"“Local interface:
*” IMPORTING
*" REFERENCE(IS_STATUS) TYPE BDIDOCSTAT
*" REFERENCE(IS_RETURN) TYPE ZMDME1RETURN
*" REFERENCE(IS_CONTRL) TYPE EDIDC
*" REFERENCE(IV_DGUID) TYPE CHAR50
*" REFERENCE(IV_CLIENT_SYSTEM) TYPE ZZMDMSYFG
*" REFERENCE(IV_SUCC) TYPE CHAR1
*" REFERENCE(IV_MSG) TYPE CHAR200
*" REFERENCE(IV_TCODE) TYPE SYTCODE
*" EXPORTING
*" REFERENCE(ES_STATUS) TYPE BDIDOCSTAT
*" REFERENCE(ES_RETURN) TYPE ZMDME1RETURN
*"----------------------------------------------------------------------
ES_STATUS = IS_STATUS.
ES_RETURN = IS_RETURN.

IF IV_SUCC = ‘X’ .
ES_STATUS-DOCNUM = IS_CONTRL-DOCNUM. "IDoc number
ES_STATUS-STATUS = ‘53’. "SUCCESS
ES_STATUS-MSGID = SY-MSGID.
ES_STATUS-MSGNO = SY-MSGNO.
ES_STATUS-MSGTY = SY-MSGTY.
ES_STATUS-MSGV1 = SY-MSGV1.
ES_STATUS-MSGV2 = SY-MSGV2.
ES_STATUS-MSGV3 = SY-MSGV3.
ES_STATUS-MSGV4 = SY-MSGV4.

ES_RETURN-DISTUS =  C_SUC.
ES_RETURN-MDMNU = IV_MSG.

ELSE.
ES_STATUS-DOCNUM = IS_CONTRL-DOCNUM.
ES_STATUS-STATUS = ‘51’. "Error
ES_STATUS-MSGID = SY-MSGID.
ES_STATUS-MSGNO = SY-MSGNO.
ES_STATUS-MSGTY = SY-MSGTY.
ES_STATUS-MSGV1 = SY-MSGV1.
ES_STATUS-MSGV2 = SY-MSGV2.
ES_STATUS-MSGV3 = SY-MSGV3.
ES_STATUS-MSGV4 = SY-MSGV4.

ES_RETURN-DISTUS =  C_ERR.
ES_RETURN-MDMNU = IV_MSG.

ENDIF.

ES_RETURN-DOCNUM = IS_CONTRL-DOCNUM.
ES_RETURN-MESTYP = IS_CONTRL-MESTYP.
ES_RETURN-IDOCTP = IS_CONTRL-IDOCTP.
ES_RETURN-MSGID = SY-MSGID.
ES_RETURN-MSGNO = SY-MSGNO.
ES_RETURN-MSGV1 = SY-MSGV1.
ES_RETURN-MSGV2 = SY-MSGV2.
ES_RETURN-MSGV3 = SY-MSGV3.
ES_RETURN-MSGV4 = SY-MSGV4.
ES_RETURN-RCVPRN = IS_CONTRL-RCVPRN.
ES_RETURN-RCVPOR = IS_CONTRL-RCVPOR.
ES_RETURN-DGUID = IV_DGUID.
ES_RETURN-CLIENT_SYSTEM = IV_CLIENT_SYSTEM.
ES_RETURN-TCODE = IV_TCODE.

ENDFUNCTION.