天天看點

動态隐藏某些特殊類型的SAP CRM附件

Requirement

Only simple text file as attachment could be visible for some users but should be completely hidden for other users without enough authorizations.

The requirement could be fulfilled via BAdI:

動态隐藏某些特殊類型的SAP CRM附件
動态隐藏某些特殊類型的SAP CRM附件

CLASS zcl_im_cl_att_auth_impl DEFINITION

PUBLIC

FINAL

CREATE PUBLIC .

PUBLIC SECTION.

INTERFACES if_ex_crm_doc_authority .

CLASS-METHODS class_constructor .

PROTECTED SECTION.

PRIVATE SECTION.

CONSTANTS cv_doc_lo TYPE string VALUE 'BDS_LOC22'. "#EC NOTEXT

CONSTANTS cv_doc_ph TYPE string VALUE 'BDS_POC22'. "#EC NOTEXT

CLASS-DATA sv_file_tab TYPE sdok_fltab .

CLASS-METHODS check_internal

CHANGING

!ios_auth TYPE skwf_ios

!ios_not_auth TYPE skwf_ioerrs .

CLASS-METHODS get_file_type

IMPORTING

!is_io TYPE skwf_io

RETURNING

VALUE(rv_type) TYPE w3conttype .

ENDCLASS.

CLASS ZCL_IM_CL_ATT_AUTH_IMPL IMPLEMENTATION.

* ---------------------------------------------------------------------------------------+

* | Static Private Method ZCL_IM_CL_ATT_AUTH_IMPL=>CHECK_INTERNAL

* +-------------------------------------------------------------------------------------------------+

* | [<-->] IOS_AUTH TYPE SKWF_IOS

* | [<-->] IOS_NOT_AUTH TYPE SKWF_IOERRS

* +--------------------------------------------------------------------------------------

METHOD check_internal.

CHECK sy-uname = 'WANGJER'.

DATA: lv_type TYPE w3conttype.

LOOP AT ios_auth ASSIGNING FIELD-SYMBOL() WHERE class = cv_doc_lo.

lv_type = get_file_type( ).

IF lv_type <> 'text/plain'.

APPEND INITIAL LINE TO ios_not_auth ASSIGNING FIELD-SYMBOL().

MOVE-CORRESPONDING TO .

-id = 'ZCM_JERRY_TEST'.

-type = 'W'.

-no = '001'.

-v1 = lv_type.

DELETE ios_auth WHERE objid = -objid.

ENDIF.

ENDLOOP.

ENDMETHOD.

* | Static Public Method ZCL_IM_CL_ATT_AUTH_IMPL=>CLASS_CONSTRUCTOR

METHOD class_constructor.

DATA: ls_type TYPE sdokphcl,

ls_table TYPE sdokphtab.

SELECT SINGLE * INTO ls_type FROM sdokphcl WHERE ph_class = cv_doc_ph.

CHECK sy-subrc = 0.

SELECT SINGLE * INTO ls_table FROM sdokphtab WHERE headertab = ls_type-headertab.

sv_file_tab = ls_table-filetab.

* | Static Private Method ZCL_IM_CL_ATT_AUTH_IMPL=>GET_FILE_TYPE

* | [--->] IS_IO TYPE SKWF_IO

* | [<-()] RV_TYPE TYPE W3CONTTYPE

METHOD get_file_type.

DATA: lt_object TYPE STANDARD TABLE OF sdokobject.

DATA: lt_p TYPE STANDARD TABLE OF sdoklogphy.

APPEND INITIAL LINE TO lt_object ASSIGNING FIELD-SYMBOL().

= VALUE #( class = cv_doc_lo objid = is_io-objid ).

CALL FUNCTION 'SDOK_LOIOS_PHIOS_GET'

TABLES

object_list = lt_object

physical_objects = lt_p.

READ TABLE lt_p ASSIGNING FIELD-SYMBOL(

) INDEX 1.

SELECT SINGLE mimetype FROM (sv_file_tab) INTO rv_type WHERE phio_id =

-objid_ph.

* | Static Public Method ZCL_IM_CL_ATT_AUTH_IMPL=>IF_EX_CRM_DOC_AUTHORITY~AUTHORITY_CHECK

* | [--->] ACTIVITY TYPE SKWF_ACTVT

* | [--->] PARENT_FOLDER TYPE SKWF_IO(optional)

* | [--->] APPLICATION TYPE SKWF_APPL(optional)

* | [--->] CURRENT_BUSINESS_OBJECT TYPE SIBFLPORB(optional)

* | [--->] IOS TYPE SKWF_IOS

METHOD if_ex_crm_doc_authority~authority_check.

check_internal( CHANGING ios_auth = ios_auth ios_not_auth = ios_not_auth ).

* | Static Public Method ZCL_IM_CL_ATT_AUTH_IMPL=>IF_EX_CRM_DOC_AUTHORITY~AUTHORITY_CHECK_SEARCH_RESULT

* | [--->] IOS_WITH_LINKED_BOS TYPE CRM_KW_BOS

METHOD if_ex_crm_doc_authority~authority_check_search_result.

動态隐藏某些特殊類型的SAP CRM附件

繼續閱讀