超级实用的列表提示错误一览显示框
生活随笔
收集整理的這篇文章主要介紹了
超级实用的列表提示错误一览显示框
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
REPORT?ZTEST_DIS_ERROR
.
*介紹:彈出錯誤的顯示框
DATA :?GT_BAPIRET? TYPE? STANDARD? TABLE? OF?BAPIRET2 ,
??????GW_BAPIRET? TYPE?BAPIRET2 .
*TYPE????????1?類型?BAPI_MTYPE??CHAR??1?0?消息類型:?S?成功,E?錯誤,W?警告,I?信息,A?中斷
*ID??????????1?類型?SYMSGID?CHAR??20??0?消息類
*NUMBER??????1?類型?SYMSGNO?NUMC??3?0?消息編號
*MESSAGE?????1?類型?BAPI_MSG??CHAR??220?0?消息文本
*LOG_NO??????1?類型?BALOGNR?CHAR??20??0?應用程序日志:?日志號
*LOG_MSG_NO??1?類型?BALMNR??NUMC??6?0?應用日志:內(nèi)部郵件序列號
*MESSAGE_V1??1?類型?SYMSGV??CHAR??50??0?消息變量
*MESSAGE_V2??1?類型?SYMSGV??CHAR??50??0?消息變量
*MESSAGE_V3??1?類型?SYMSGV??CHAR??50??0?消息變量
*MESSAGE_V4??1?類型?SYMSGV??CHAR??50??0?消息變量
*PARAMETER???1?類型?BAPI_PARAM??CHAR??32??0?參數(shù)名稱
*ROW?????????1?類型?BAPI_LINE?INT4??10??0?參數(shù)中的行
*FIELD???????1?類型?BAPI_FLD??CHAR??30??0?參數(shù)中的字段
*SYSTEM??????1?類型?BAPILOGSYS??CHAR??10??0?引發(fā)消息的邏輯系統(tǒng)
DATA :?GR_TABLE?? TYPE? REF? TO?CL_SALV_TABLE .
*test
REFRESH?GT_BAPIRET .
CLEAR?GW_BAPIRET .
GW_BAPIRET - TYPE? =? 'S' .
GW_BAPIRET - ID? =? '300' .
GW_BAPIRET - NUMBER? =? 20 .
GW_BAPIRET - MESSAGE? =? '保存成功!' .
APPEND?GW_BAPIRET? TO??GT_BAPIRET .
TRY .
????CL_SALV_TABLE =>FACTORY (
?????? IMPORTING
????????R_SALV_TABLE? =?GR_TABLE
?????? CHANGING
????????T_TABLE?????? =?GT_BAPIRET? ) .
?? CATCH?CX_SALV_MSG .???????????????????????????????????? "#EC?NO_HANDLER
ENDTRY .
DATA :?LR_COLUMNS? TYPE? REF? TO?CL_SALV_COLUMNS . "All?Column?Objects
LR_COLUMNS? =?GR_TABLE ->GET_COLUMNS (? ) .
LR_COLUMNS ->SET_OPTIMIZE (? 'X'? ) .
*彈出框
GR_TABLE ->SET_SCREEN_POPUP (
??START_COLUMN? =? 1 "起始列
??END_COLUMN??? =? 100 "結(jié)束列
??START_LINE??? =? 1 "起始行
??END_LINE????? =? 10? ) . "結(jié)束行
*介紹:彈出錯誤的顯示框
DATA :?GT_BAPIRET? TYPE? STANDARD? TABLE? OF?BAPIRET2 ,
??????GW_BAPIRET? TYPE?BAPIRET2 .
*TYPE????????1?類型?BAPI_MTYPE??CHAR??1?0?消息類型:?S?成功,E?錯誤,W?警告,I?信息,A?中斷
*ID??????????1?類型?SYMSGID?CHAR??20??0?消息類
*NUMBER??????1?類型?SYMSGNO?NUMC??3?0?消息編號
*MESSAGE?????1?類型?BAPI_MSG??CHAR??220?0?消息文本
*LOG_NO??????1?類型?BALOGNR?CHAR??20??0?應用程序日志:?日志號
*LOG_MSG_NO??1?類型?BALMNR??NUMC??6?0?應用日志:內(nèi)部郵件序列號
*MESSAGE_V1??1?類型?SYMSGV??CHAR??50??0?消息變量
*MESSAGE_V2??1?類型?SYMSGV??CHAR??50??0?消息變量
*MESSAGE_V3??1?類型?SYMSGV??CHAR??50??0?消息變量
*MESSAGE_V4??1?類型?SYMSGV??CHAR??50??0?消息變量
*PARAMETER???1?類型?BAPI_PARAM??CHAR??32??0?參數(shù)名稱
*ROW?????????1?類型?BAPI_LINE?INT4??10??0?參數(shù)中的行
*FIELD???????1?類型?BAPI_FLD??CHAR??30??0?參數(shù)中的字段
*SYSTEM??????1?類型?BAPILOGSYS??CHAR??10??0?引發(fā)消息的邏輯系統(tǒng)
DATA :?GR_TABLE?? TYPE? REF? TO?CL_SALV_TABLE .
*test
REFRESH?GT_BAPIRET .
CLEAR?GW_BAPIRET .
GW_BAPIRET - TYPE? =? 'S' .
GW_BAPIRET - ID? =? '300' .
GW_BAPIRET - NUMBER? =? 20 .
GW_BAPIRET - MESSAGE? =? '保存成功!' .
APPEND?GW_BAPIRET? TO??GT_BAPIRET .
TRY .
????CL_SALV_TABLE =>FACTORY (
?????? IMPORTING
????????R_SALV_TABLE? =?GR_TABLE
?????? CHANGING
????????T_TABLE?????? =?GT_BAPIRET? ) .
?? CATCH?CX_SALV_MSG .???????????????????????????????????? "#EC?NO_HANDLER
ENDTRY .
DATA :?LR_COLUMNS? TYPE? REF? TO?CL_SALV_COLUMNS . "All?Column?Objects
LR_COLUMNS? =?GR_TABLE ->GET_COLUMNS (? ) .
LR_COLUMNS ->SET_OPTIMIZE (? 'X'? ) .
*彈出框
GR_TABLE ->SET_SCREEN_POPUP (
??START_COLUMN? =? 1 "起始列
??END_COLUMN??? =? 100 "結(jié)束列
??START_LINE??? =? 1 "起始行
??END_LINE????? =? 10? ) . "結(jié)束行
GR_TABLE->DISPLAY(?).
總結(jié)
以上是生活随笔為你收集整理的超级实用的列表提示错误一览显示框的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: ABAP modify screen:修
- 下一篇: 数据库优化之统计分析实战篇