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)编写代码. *---------------------------------------------------------------------* *??Include???????????ZXM06U42?????????????????????????????????????????* *---------------------------------------------------------------------* DATA : ZWATEKPO like BEKPO , ???????ZIEINFO??LIKE 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 ZWATEKPO???WITH KEY EBELP = I_EKPO-EBELP . ***只对ME22N才生效. CHECK SY-TCODE = ME22N . ***EKBE是PO history 表,如有Q,R表示有发票校验历史,不允许更改价## SELECT??SINGLE * FROM EKBE ???WHERE EBELN = I_EKPO-EBELn ?????????AND EBELP = I_EKPO-EBELP ?????????AND ( 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_MESSAGE ????????EXPORTING ??????????I_ARBGB = ZFI