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,
?????????'已發(fā)貨記帳:'???L_MSG,
?????????'本單金額：'????L_MSG,
?????????'合計:'?????????L_MSG,
?????????'對應(yīng)臺階金額:'?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.
**后續(xù)不能操作裹虫，打鉤?打叉?SY-SUBRC?EQ?0
IF?SY-SUBRC?EQ?0.
ELSE.
ENDIF.
