在企业应用里，根据用户身份，动态控制 attachment UI 的可编辑性，是一个常见需求。
在 ABAP 技术栈的系统里，权限控制（Authorization Control）是采取 ABAP 的 Authorization Object 实现的。
本文通过一个具体的例子，介绍如何动态控制 CRM attachment UI 的可编辑性（editability）。
下图我开发了一个 WebClient UI，通过一个叫做 Allow Edit 的 checkbox，动态控制 attachment UI 工具栏上这些按钮的 enable 与否状态。
这套解决方案能够工作的技术前提是，在 reuse Component GS_CM 里，提供了一个叫做 ATTRIBUTES 的 value node，这个 value node 通过 reuse Component 的 Component controller 暴露出来，可以被其他组件绑定。
在SAP CRM系统中，WebClient UI开发技术是一项关键的任务，它允许开发人员创建灵活且功能强大的用户界面，以满足企业客户关系管理的需求。在WebClient UI开发中，value node（值节点）和model node（模型节点）是两个重要的概念，它们在数据管理和界面设计中扮演着不同的角色。
Value Node（值节点）
Value node是WebClient UI中的一种数据结构，用于表示应用程序数据的一个节点。它主要负责存储和管理用户界面上的数据。在ABAP层面，value node通过数据字典中的数据元素来定义，并且在CRM应用程序中，它通常与业务对象相关联。Value node中的数据通常用于显示和编辑用户界面上的字段。
Model Node（模型节点）
Model node也是WebClient UI中的一种数据结构，但它的作用更加宽泛，不仅仅限于存储数据。Model node负责管理应用程序的状态和行为，它包含了与界面逻辑相关的信息，例如事件处理、导航和其他控制逻辑。与value node不同，model node的数据可以来自多个value node，它的目标是提供一个整体的应用程序状态管理。
下面 reuse Component GS_CM 的 Component controller 代码里，首先检查当前的 BOR type 是否 valid，如果检测结果 invalid，会自动将 attachment UI 设置成 readonly 模式。
具体的开发步骤：
- 为 checkbox 控件的
status change事件，创建一个 event handler，引入一个全局变量存储 checkbox 状态：
- 在 wrapper Component 里创建一个新的 value node，同样取名
ATTRIBUTE：
重新实现 INIT 方法：
method IF_BSP_MODEL~INIT. super->if_bsp_model~init( id = id owner = owner ). mr_owner ?= owner. DATA: lv_struct_ref TYPE REF TO crmt_cm_comp_st, lv_value_node TYPE REF TO cl_bsp_wd_value_node, lv_bo_coll TYPE REF TO if_bol_bo_col. CREATE DATA lv_struct_ref. CREATE OBJECT lv_value_node EXPORTING iv_data_ref = lv_struct_ref. CREATE OBJECT lv_bo_coll TYPE cl_crm_bol_bo_col. lv_bo_coll->add( lv_value_node ). set_collection( lv_bo_coll ). CL_ZSMCATT_BSPWDCOMPONENT_IMPL=>GO_ATTR_WRAPPER = me->collection_wrapper. endmethod.
重新实现 ON_NEW_FOCUS:
method ON_NEW_FOCUS. DATA: lr_entity TYPE REF TO cl_crm_bol_entity, lr_parent TYPE REF TO cl_crm_bol_entity, lv_entity_name TYPE string, ls_cm_attr TYPE crmt_cm_comp_st, lv_product_type TYPE comt_product_type, lr_bo_attr TYPE REF TO if_bol_bo_property_access, ls_prtyp_cust TYPE coms_prtyp_cust, lv_object_guid TYPE ib_recno_16, lv_current TYPE flag, ls_button TYPE crmt_thtmlb_button. CHECK focus_bo IS BOUND. lr_entity ?= focus_bo. lv_entity_name = lr_entity->get_name( ). IF CL_ZSMCATT_BSPWDCOMPONENT_IMPL=>gv_can_edit = 'X'. ls_cm_attr-display = ''. ELSE. ls_cm_attr-display = 'X'. ENDIF. CHECK CL_ZSMCATT_BSPWDCOMPONENT_IMPL=>GO_ATTR_WRAPPER IS NOT INITIAL. lr_bo_attr = CL_ZSMCATT_BSPWDCOMPONENT_IMPL=>GO_ATTR_WRAPPER->get_current( ). CHECK lr_bo_attr IS BOUND. lr_bo_attr->set_properties( ls_cm_attr ). endmethod.
- 实现 ZSMCATTR component controller 的
WD_USAGE_INITIALIZE：
CALL METHOD iv_usage->bind_context_node EXPORTING iv_controller_type = cl_bsp_wd_controller=>co_type_custom iv_name = 'ZSMCATT/CMBO' iv_target_node_name = 'ATTRIBUTE' "#EC NOTEXT iv_node_2_bind = 'ATTRIBUTES'. "#EC NOTEXT lr_cuco_attachement ?= get_custom_controller( 'ZSMCATT/CMBO' ). IF lr_cuco_attachement IS BOUND. lr_property = me>typed_context->socialpost->collection_wrapper->get_current( ). lr_cuco_attachement->typed_context->cmbo->on_new_focus( lr_property ). lr_cuco_attachement->typed_context->attribute->on_new_focus( lr_property ). ENDIF.
上述三个步骤实现完毕后，即可达到本文开头介绍的效果。
