0
点赞
收藏
分享

微信扫一扫

调用标准函数显示多条消息

调用标准函数显示多条消息_弹出对话框

*&---------------------------------------------------------------------*


*& Report  ZLM_MSG


*&


*&---------------------------------------------------------------------*


*&弹出对话框,显示多条消息


*&---------------------------------------------------------------------*



REPORT  ZLM_MSG .



"定义消息类型


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 .



CLEAR :v_lineno .

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 .


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 .

举报

相关推荐

0 条评论