ass*&---------------------------------------------------------------------*
REPORT ZJOBY_TANCHAUNGXIAOXI.
"定义消息类型
TYPES: BEGIN OF ESP1_MESSAGE_WA_TYPE,
MSGID LIKE SY-MSGID,
MSGTY LIKE SY-MSGTY,
MSGNO LIKE SY-MSGNO,
MSGV1 LIKE SY-MSGV1,
MSGV2 LIKE SY-MSGV2,
MSGV3 LIKE SY-MSGV3,
MSGV4 LIKE SY-MSGV4,
LINENO LIKE MESG-ZEILE,
END OF ESP1_MESSAGE_WA_TYPE.
TYPES: ESP1_MESSAGE_TAB_TYPE TYPE ESP1_MESSAGE_WA_TYPE OCCURS 20.
DATA: IT_ERROR_MESSAGE TYPE ESP1_MESSAGE_TAB_TYPE WITH HEADER LINE.
DATA: V_LINENO TYPE MESG-ZEILE.
DATA: L_MSGID TYPE SY-MSGID,
L_MSGTY TYPE SY-MSGTY,
L_MSGNO TYPE SY-MSGNO,
L_MSG TYPE CHAR100.
L_MSGID = 'ZZCSD001'.
L_MSGTY = 'W'.
L_MSGNO = '002'.
L_MSG = '321.00'.
DEFINE MAC_MSG.
v_lineno = v_lineno + 1.
it_error_message-lineno = v_lineno.
it_error_message-msgid = L_MSGID.
it_error_message-msgty = L_MSGTY.
it_error_message-msgno = L_msgno.
it_error_message-msgv1 = &1.
it_error_message-msgv2 = &2.
APPEND it_error_message.
CLEAR it_error_message.
END-OF-DEFINITION.
MAC_MSG: '已下订单金额:' L_MSG,
'已发货记帐:' L_MSG,
'本单金额：' L_MSG,
'合计:' L_MSG,
'对应台阶金额:' L_MSG,
'比率:' L_MSG.
*CLEAR:V_LINENO.
V_LINENO = V_LINENO + 1.
IT_ERROR_MESSAGE-LINENO = V_LINENO.
IT_ERROR_MESSAGE-MSGID = 'ZMSG'.
IT_ERROR_MESSAGE-MSGTY = 'E'.
IT_ERROR_MESSAGE-MSGNO = '000'.
IT_ERROR_MESSAGE-MSGV1 = '测试 C14Z_MESSAGES_SHOW_AS_POPUP'.
APPEND IT_ERROR_MESSAGE.
*V_LINENO = V_LINENO + 1.
*IT_ERROR_MESSAGE-LINENO = V_LINENO.
*IT_ERROR_MESSAGE-MSGID = 'ZLM_MSG'.
*IT_ERROR_MESSAGE-MSGTY = 'W'.
*IT_ERROR_MESSAGE-MSGNO = '000'.
*IT_ERROR_MESSAGE-MSGV1 = '测试测试测试测试'.
*APPEND IT_ERROR_MESSAGE.
*
*V_LINENO = V_LINENO + 1.
*IT_ERROR_MESSAGE-LINENO = V_LINENO.
*IT_ERROR_MESSAGE-MSGID = 'ZLM_MSG'.
*IT_ERROR_MESSAGE-MSGTY = 'S'.
*IT_ERROR_MESSAGE-MSGNO = '000'.
*IT_ERROR_MESSAGE-MSGV1 = '测试测试测试测试测试测试试'.
*APPEND IT_ERROR_MESSAGE.
*
*V_LINENO = V_LINENO + 1.
*IT_ERROR_MESSAGE-LINENO = V_LINENO.
*IT_ERROR_MESSAGE-MSGID = 'ZLM_MSG'.
*IT_ERROR_MESSAGE-MSGTY = 'E'.
*IT_ERROR_MESSAGE-MSGNO = '000'.
*IT_ERROR_MESSAGE-MSGV1 = '测试测试测试'.
*APPEND IT_ERROR_MESSAGE.
CALL FUNCTION 'C14Z_MESSAGES_SHOW_AS_POPUP'
TABLES
I_MESSAGE_TAB = IT_ERROR_MESSAGE.
**后续不能操作，打钩 打叉 SY-SUBRC EQ 0
IF SY-SUBRC EQ 0.
ELSE.
ENDIF.
网友评论