ABAP_message的创建及使用.doc

ABAP 的message 的创建及使用 2010-05-18 10:44:22| 分类： ABAP学习笔记 | 标签：|字号大中小 订阅 se91创建一个message，图1： 图2： *测试message。SELECTION-SCREEN begin of BLOCK bk2 WITH FRAME TITLE text-002. parameters: p_budget type n, p_area type c, p_wemge type n.SELECTION-SCREEN END OF BLOCK bk2.IF p_budget IS NOT INITIAL. MESSAGE I000(zfi01) WITH p_budget p_area p_wemge.endif. I 是类型；（zfi01）对应的是图1：message class；000 是对应的图2的message下的消息号：000；with 后的是三个变量，单价、面积、预算。运行代码图3： 弹出结果。因为类型 是I,所以是弹出来的对话框，也可以设置为类型e等。 图4： PS: 不创建message ，直接运用message： lMESSAGE Test message type I TYPE I.结果：图5 PS:所有的消息都存储在系统数据表T100中，包含四个字段，语言代码，消息类，消息序列号，消息文本。进入消息的初始界面的事务代码为SE91。消息类型（与消息类不同）共六种，A,E,I S,W,X。系统消息类为00。例： MESSAGE S001(ZMM01) WITH Data was not found.S是消息类型，001是消息文本，在此处为&占位符，所以需要WITH文本来替代,ZMM01是消息类。 READ_CUSTOMIZED_MESSAGE 使用方法PO在有发票校验后禁止修改价格,假设无PO release策略,使用User-exit步骤如下:(1)找合适的用户出口发现EXIT_SAPMM06E_017比较合适,SMOD 输入enhancement name :MM06E005(2)编写代码.*&-*&IncludeZXM06U42*&-*DATA : ZWATEKPO like BEKPO ,ZIEINFOLIKE EINFO OCCURS 0 WITH HEADER LINE,ZERMSG(73) TYPE C.TABLES EKBE .*TEKPO records all the old PO item date .* I_EKPO records currently processed PO item .READ TABLE TEKPO INTO ZWATEKPOWITH KEY EBELP = I_EKPO-EBELP .*只对ME22N才生效.CHECK SY-TCODE = ME22N .*EKBE是PO history 表,如有Q,R表示有发票校验历史,不允许更改价#SELECTSINGLE * FROM EKBEWHERE EBELN = I_EKPO-EBELnAND EBELP = I_EKPO-EBELPAND ( BEWTP = Q OR BEWTP = R).CHECK SY-SUBRC = 0 .*如果SY-SUBRC =0表示发票已经校验，不允许更改价格，否则还是可更改价格#IF I_EKPO-NETPR ZWATEKPO-NETPR .* Change e017(ZFIMSG) accordingly*MESSAGE e017(ZFIMSG).使用下面函数代替.CALL FUNCTION READ_CUSTOMIZED_MESSAGEEXPORTINGI_ARBGB = ZFIMSGI_DTYPE = I_MSGNR = 017IMPORTINGE_MSGTY = SY-MSGTY.CHECK SY-MSGTY NE - .REFRESH ZIEINFO.ZIEINFO-MSGID = ZFIMSG.ZIEINFO-MSGNO = 017 .ZIEINFO-MSGV1 = VAR1.ZIEINFO-MSGV2 = VAR2.APPEND ZIEINFO .CALL FUNCTION MESSAGE_GET_TEXTEXPORT