在有些增强里只能发出E类型的消息,而警告的消息报不出来,例如ME_PROCESS_PO_CUST,这时候可以使用如下方法发出消息:
CALL METHOD cl_message_mm=>create
EXPORTING
im_msgid = 'ZBC'
im_msgty = 'W'
im_msgno = '000'
im_msgv1 = ''
im_msgv2 = ''
im_msgv3 = ''
im_msgv4 = ''
EXCEPTIONS
failure = 1
dialog = 2
OTHERS = 3.
采购订单ME_PROCESS_PO_CUST~CHECK消息显示
INCLUDE mm_messages_mac.
IF ls_item-pstyp <> l_pstyp.
mmpur_business_obj_id ls_item-id. "确定错误消息显示到哪个行项目上
MESSAGE '委外采购订单,一个订单只能有一种项目类型' TYPE 'E'.
CALL METHOD ls_po_item-item->invalidate( ). "将发生错误的行设置为无效行
ch_failed = 'X'.
ENDIF.
mmpur_business_obj im_header. 指定消息显示到抬头
上一篇: mb21 保存增强...
下一篇: 常用BAPI...