前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >How to make the message displayed for only a given times in UI

How to make the message displayed for only a given times in UI

作者头像
Jerry Wang
发布2019-05-30 15:04:13
4430
发布2019-05-30 15:04:13
举报

版权声明:本文为博主汪子熙原创文章,未经博主允许不得转载。 https://cloud.tencent.com/developer/article/1438851

Created by Wang, Jerry, last modified on Dec 06, 2014

代码语言:javascript
复制
class ZCL_MESSAGE_HANDLER definition
public
final
create private .
public section.
interfaces IF_BSP_WD_MESSAGE_HANDLER .
class-methods GET_INSTANCE
returning
value(RO_INSTANCE) type ref to ZCL_MESSAGE_HANDLER .
protected section.
private section.
class-data SO_INSTANCE type ref to ZCL_MESSAGE_HANDLER .
class-data SV_COUNT type I .
constants CV_COUNT type I value 3. "#EC NOTEXT
methods CONSTRUCTOR .
ENDCLASS.
 
CLASS ZCL_MESSAGE_HANDLER IMPLEMENTATION.

* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZCL_MESSAGE_HANDLER->CONSTRUCTOR
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
method CONSTRUCTOR.
sv_count = 0.
endmethod.

* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_MESSAGE_HANDLER=>GET_INSTANCE
* +-------------------------------------------------------------------------------------------------+
* | [<-()] RO_INSTANCE TYPE REF TO ZCL_MESSAGE_HANDLER
* +--------------------------------------------------------------------------------------</SIGNATURE>
method GET_INSTANCE.
IF so_instance IS INITIAL.
CREATE OBJECT so_instance.
ENDIF.
ro_instance = so_instance.
endmethod.

* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_MESSAGE_HANDLER->IF_BSP_WD_MESSAGE_HANDLER~HANDLE_MESSAGE
* +-------------------------------------------------------------------------------------------------+
* | [--->] IS_MESSAGE TYPE BSP_WD_MESSAGE
* +--------------------------------------------------------------------------------------</SIGNATURE>
method IF_BSP_WD_MESSAGE_HANDLER~HANDLE_MESSAGE.
endmethod.

* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_MESSAGE_HANDLER->IF_BSP_WD_MESSAGE_HANDLER~VERIFY_MESSAGE
* +-------------------------------------------------------------------------------------------------+
* | [--->] IS_MESSAGE TYPE BSP_WD_MESSAGE
* | [<-()] RV_IS_VALID TYPE ABAP_BOOL
* +--------------------------------------------------------------------------------------</SIGNATURE>
method IF_BSP_WD_MESSAGE_HANDLER~VERIFY_MESSAGE.
IF sv_count = cv_count.
rv_is_valid = abap_false.
sv_count = 0.
RETURN.
ENDIF.
sv_count = sv_count + 1.
rv_is_valid = abap_true.
endmethod.
ENDCLASS.
 
 
 
class ZCL_IM_CL_JERRY_CREATE definition
public
final
create public .
public section.
interfaces IF_EX_CRM_DOCUMENTS .
protected section.
private section.
type-pools ABAP .
class-data SV_IS_IN_BADI type ABAP_BOOL .
ENDCLASS.
 
CLASS ZCL_IM_CL_JERRY_CREATE IMPLEMENTATION.

* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_IM_CL_JERRY_CREATE->IF_EX_CRM_DOCUMENTS~CARRY_OUT_ACTION
* +-------------------------------------------------------------------------------------------------+
* | [--->] CHANGED_DOCUMENTS TYPE CRMT_KW_DOCUMENT_CHANGE
* +--------------------------------------------------------------------------------------</SIGNATURE>
METHOD if_ex_crm_documents~carry_out_action.
CONSTANTS: cv_max_size TYPE int4 VALUE 20480. "20KB
CHECK sy-uname = 'WANGJER'.
DATA: lt_loios TYPE skwf_ios,
ls_error TYPE skwf_error,
lv_size TYPE sdok_fsize,
lt_badios TYPE skwf_ioerrs.
READ TABLE changed_documents ASSIGNING FIELD-SYMBOL(<first_line>) INDEX 1.
CHECK sy-subrc = 0.
CHECK <first_line>-action = 'CREATE_DOCUMENT'.
DATA(ls_bo) = VALUE sibflporb( instid = <first_line>-instidbor
typeid = <first_line>-typeidbor
catid = <first_line>-catidbor ).
DATA(ls_loios) = VALUE skwf_io( objtype = <first_line>-objtype class = <first_line>-class objid = <first_line>-objid ).
APPEND ls_loios TO lt_loios.
CALL METHOD cl_crm_documents=>get_file_info
EXPORTING
loio = ls_loios
IMPORTING
file_size = lv_size.
CHECK lv_size >= cv_max_size.
CALL METHOD cl_crm_documents=>delete
EXPORTING
business_object = ls_bo
ios = lt_loios
IMPORTING
bad_ios = lt_badios
error = ls_error.
COMMIT WORK AND WAIT.
DATA(lo_service) = cl_bsp_wd_message_service=>get_instance( ).
DATA(lo_message) = zcl_message_handler=>get_instance( ).
lo_service->add_message( EXPORTING iv_msg_type = 'E' iv_msg_id = 'ZCM_JERRY_TEST' iv_msg_number = '000'
iv_verification = lo_message ).
ENDMETHOD.
ENDCLASS.

本文参与 腾讯云自媒体分享计划,分享自作者个人站点/博客。
原始发表:2019年04月21日,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体分享计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
目录
  • Created by Wang, Jerry, last modified on Dec 06, 2014
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档