效果图:
原本的普通搜索帮助,改成上面这样层级的搜索帮助。这里只做了两级。
一,新建一个TREE节点
1.新建tree结构:ZGRTEXT
2.新建树叶节点处理类:
修改超类为CL_BSP_WD_TREE_NODE_PROXY
重定义取子节点的方法:(因为这里是两级节点,所以这步可以不用)
添加值属性节点GET方法:CODE的
修改方法的传入传出参数:CODE对应上面结构中的CODE
METHOD get_code.
DATA:lr_entity TYPE REF TO if_bol_bo_property_access."cl_crm_bol_entity.
IF me->bo IS BOUND.
lr_entity = me->bo.
lr_entity->get_property_as_string( EXPORTING iv_attr_name = 'CODE'
RECEIVING rv_result = value ).
ENDIF.
ENDMETHOD.
添加文本描述的节点GET方法:
参数同上:KURZTEXT对应上面结构中的KURZTEXT
METHOD get_kurztext.
DATA:lr_entity TYPE REF TO if_bol_bo_property_access."cl_crm_bol_entity.
IF me->bo IS BOUND.
lr_entity = me->bo.
lr_entity->get_property_as_string( EXPORTING iv_attr_name = 'KURZTEXT'
RECEIVING rv_result = value ).
ENDIF.
ENDMETHOD.
3.创建一级节点处理类:ZCL_LYTREE_PROXY_MAIN
同上一个类,重定义GET_CHILDREN方法:这里会使用到上面定义的处理类
method IF_BSP_WD_TREE_NODE~GET_CHILDREN.
DATA:lr_coll TYPE REF TO if_bol_bo_col,
lr_coll2 TYPE REF TO if_bol_bo_col,
lr_entity TYPE REF TO if_bol_bo_property_access, "cl_crm_bol_entity,
lr_child TYPE REF TO if_bsp_wd_tree_node,
gt_qpgt TYPE TABLE OF zgrtext,
gw_qpgt LIKE LINE OF gt_qpgt,
lr_line TYPE REF TO zgrtext,
lr_valuenode TYPE REF TO cl_bsp_wd_value_node,
lr_col TYPE REF TO if_bol_bo_col.
lr_entity ?= me->bo.
TRY.
lr_entity->get_properties(
IMPORTING
es_attributes = gw_qpgt ).
IF gw_qpgt-codegr IS NOT INITIAL.
SELECT a~sales_org
a~zcode_catalog
a~zprod_category
a~zscode_id AS code
b~kurztext
INTO CORRESPONDING FIELDS OF TABLE gt_qpgt
FROM ziriscode_config AS a
INNER JOIN qpct AS b
ON a~zcode_catalog = b~katalogart
AND a~zprod_category = b~codegruppe
AND a~zscode_id = b~code
WHERE a~sales_org = gw_qpgt-sales_org
AND a~zcode_catalog = gw_qpgt-zcode_catalog
AND a~zprod_category = gw_qpgt-zprod_category
AND a~zfcode_id = gw_qpgt-codegr
AND b~sprache = sy-langu.
ENDIF.
IF gt_qpgt IS NOT INITIAL.
CREATE OBJECT lr_col TYPE cl_crm_bol_bo_col.
LOOP AT gt_qpgt INTO gw_qpgt.
CREATE DATA lr_line.
CREATE OBJECT lr_valuenode
EXPORTING
iv_data_ref = lr_line.
lr_valuenode->set_properties( gw_qpgt ).
lr_col->add( lr_valuenode ).
lr_entity ?= lr_col->get_last( ).
IF lr_entity IS BOUND.
lr_child = me->node_factory->get_proxy( iv_bo = lr_entity
iv_proxy_type = 'ZCL_CATE_PROXY_CUSTOMER'
iv_parent_proxy = me ).
lr_child->is_leaf = abap_true.
APPEND lr_child TO rt_children.
ENDIF.
ENDLOOP.
ENDIF.
CATCH cx_crm_genil_model_error.
ENDTRY.
endmethod.
同样添加CODE GROUP和GROUP TEXT的GET方法:
METHOD get_codegr.
DATA:lr_entity TYPE REF TO if_bol_bo_property_access.
IF me->bo IS BOUND.
lr_entity = me->bo.
lr_entity->get_property_as_string( EXPORTING iv_attr_name = 'CODEGR'
RECEIVING rv_result = value ).
ENDIF.
ENDMETHOD.
method GET_KURZTEXT.
DATA:lr_entity TYPE REF TO if_bol_bo_property_access.
IF me->bo IS BOUND.
lr_entity = me->bo.
lr_entity->get_property_as_string( EXPORTING iv_attr_name = 'KURZTEXT'
RECEIVING rv_result = value ).
ENDIF.
endmethod.
4.执行事务代码BSP_WD_CMPWB,输入组件名,点击创建ZLYTREE
5.Component Controller 中新建参数节点:COND都是从上面的结构中选取的字段
需求是根据销售组织,品类,编码组 来显示对应的编码搜索帮助
使用最上面的结构做为值节点:
6.新建视图表类型视图,可配置,VALUE node还是上面的结构
给视图添加值节点:
给值节点添加字段:
视图类型选择表视图,可配置:
7.修改CODE节点下的属性类,改其超类为:CL_BSP_WD_CONTEXT_NODE_TREE
8.修改视图的HTML属性:
<chtmlb:configTree id = "ConfCellTable"
nodeTable = "<%= code->node_tab %>"
nodeTextColumn = "CODEGR"
onCollapseNode = "COLLAPSE"
onExpandNode = "EXPAND"
onRowSelection = "SELECT"
selectionMode = "SINGLESELECT"
onNodeClick = 'CLICK'
selectedRowIndexTable = "<%= CODE->SELECTION_TAB %>"
selectedRowIndex = "<%= CODE->SELECTED_INDEX %>"
type = "<%= CL_THTMLB_TREE=>GC_TYPE_COLUMN %>"
usage = "EDITLIST"
downloadToExcel = "FALSE"
noFrame = "X"
personalizable = "TRUE"
table = "//CODE/Table"
visibleRowCount = "10"
xml = "<%= controller->configuration_descr->get_config_data( ) %>" />
需要注意的是上面的nodeTable属性,是节点->属性code是节点名table也对应的是节点表CODE
点击保存。此时推出界面,然后重新进入,节点就已经变成tree了:
9.重定义刷新功能REFRESH:使用上面定义的类,
METHOD refresh.
super->refresh( ).
DATA:lr_entity TYPE REF TO cl_crm_bol_entity,
lr_coll_wr TYPE REF TO cl_bsp_wd_collection_wrapper,
lr_iterator TYPE REF TO if_bol_bo_col_iterator,
lr_root TYPE REF TO if_bsp_wd_tree_node.
DATA:lv_ent_pro TYPE REF TO if_bol_bo_property_access,
lv_ent TYPE REF TO cl_crm_bol_entity,
lr_col TYPE REF TO if_bol_bo_col..
TRY.
lv_ent_pro ?= me->collection_wrapper->get_first( )."get_current( ).
WHILE lv_ent_pro IS BOUND.
lr_root = me->node_factory->get_proxy(
iv_bo = lv_ent_pro
iv_proxy_type = 'ZCL_CATE_PROXY_MAIN' ).
lr_root->node_key = add_root_node( lr_root ).
lv_ent_pro ?= me->collection_wrapper->get_next( ).
ENDWHILE.
CATCH cx_sy_move_cast_error cx_sy_ref_is_initial.
ENDTRY.
ENDMETHOD.
10.冲定义DO_INIT_CONTEXT,初始化节点值
METHOD do_init_context.
*SUPER->DO_INIT_CONTEXT( ).
DATA:gt_qpgt TYPE TABLE OF zgrtext,
gw_qpgt LIKE LINE OF gt_qpgt,
lr_line TYPE REF TO zgrtext,
lr_valuenode TYPE REF TO cl_bsp_wd_value_node,
lr_col TYPE REF TO if_bol_bo_col,
* lr_comp TYPE REF TO zl_zcategor_bspwdcomponen_impl,
gr_cond TYPE REF TO if_bol_bo_property_access,
gw_cond TYPE zgrcond.
* lr_comp ?= me->comp_controller.
* IF lr_comp IS BOUND.
* gr_cond = lr_comp->typed_context->cond->collection_wrapper->get_current( ).
* IF gr_cond IS BOUND.
* gr_cond->get_properties(
* IMPORTING
* es_attributes = gw_cond ).
*
* ENDIF.
* ENDIF.
SELECT a~zfcode_id AS codegr
a~sales_org
a~zcode_catalog
a~zprod_category
b~kurztext AS kurztext
INTO CORRESPONDING FIELDS OF TABLE gt_qpgt
FROM ziriscode_config AS a
INNER JOIN qpct AS b
ON a~zcode_catalog = b~katalogart
AND a~zprod_category = b~codegruppe
AND a~zfcode_id = b~code
WHERE a~sales_org = 'O 50000005'"gw_cond-sales_org
AND a~zcode_catalog = 'Z1'"gw_cond-katalogart
AND a~zprod_category = 'TV1'"gw_cond-codegr
AND b~sprache = sy-langu.
SORT gt_qpgt.
DELETE ADJACENT DUPLICATES FROM gt_qpgt COMPARING ALL FIELDS.
CREATE OBJECT lr_col TYPE cl_crm_bol_bo_col.
LOOP AT gt_qpgt INTO gw_qpgt.
CREATE DATA lr_line.
CREATE OBJECT lr_valuenode
EXPORTING
iv_data_ref = lr_line.
lr_valuenode->set_properties( gw_qpgt ).
lr_col->add( lr_valuenode ).
ENDLOOP.
me->typed_context->code->collection_wrapper->set_collection( lr_col ).
ENDMETHOD.
11.冲定义DO_PREPARE_OUTPUT方法,显示节点
method DO_PREPARE_OUTPUT.
*SUPER->DO_PREPARE_OUTPUT(
** iv_first_time = ABAP_FALSE
* ).
IF me->typed_context->code->node_tab IS INITIAL.
me->typed_context->code->refresh( ).
ENDIF.
super->do_prepare_output(
iv_first_time = abap_false
).
endmethod.
12.将视图添加到窗口中,设为默认
13.双击视图,点击配置页面:
这时候点击运行,就可以看到结果啦:
默认显示的是10行,这个可以在上面的配置显示行中设定,100,200.。。
14.到这里只是显示出来了,还有展开和关闭按钮功能没做,新加事件处理(EXPAND对应前面html里的方法名)
method EH_ONEXPAND.
DATA:lr_event_ic TYPE REF TO cl_crm_ic_tree,
lr_event_thtmlb TYPE REF TO cl_thtmlb_tree.
FIELD-SYMBOLS:<fs_line> TYPE crmt_bsp_treetable_node.
TRY.
lr_event_ic ?= htmlb_event_ex.
typed_context->code->collapse_node( lr_event_ic->row_key ).
CATCH cx_sy_move_cast_error.
TRY.
lr_event_thtmlb ?= htmlb_event_ex.
typed_context->code->expand_node( lr_event_thtmlb->row_key ).
CATCH cx_sy_move_cast_error.
ENDTRY.
ENDTRY.
endmethod.
到这里就可以点击展开按钮了,但是不能关闭:
METHOD eh_oncollapse.
DATA:lr_event_ic TYPE REF TO cl_crm_ic_tree,
lr_event_thtmlb TYPE REF TO cl_thtmlb_tree.
FIELD-SYMBOLS:<fs_line> TYPE crmt_bsp_treetable_node.
TRY.
lr_event_ic ?= htmlb_event_ex.
typed_context->code->collapse_node( lr_event_ic->row_key ).
CATCH cx_sy_move_cast_error.
TRY.
lr_event_thtmlb ?= htmlb_event_ex.
typed_context->code->collapse_node( lr_event_thtmlb->row_key ).
CATCH cx_sy_move_cast_error.
ENDTRY.
ENDTRY.
ENDMETHOD.
到这就可以展开和关闭二级项目了。。。
15。下面额外加点东西。
如果这个东西做成搜索帮助,需要点击选中返回。这里是用清空节点,并绑定单值回节点。
METHOD eh_onselect.
"ZCATEGORY/CUCATE
DATA:
ls_zgrtext TYPE zgrtext.
DATA lr_context_node_tree TYPE REF TO cl_bsp_wd_context_node_tree.
DATA lr_node TYPE REF TO if_bsp_wd_tree_node.
DATA lr_tree_event TYPE REF TO cl_thtmlb_tree.
DATA lr_category TYPE REF TO if_bol_bo_property_access.
DATA lv_sel_index TYPE int4.
DATA :lv_row_index TYPE int4,
lr_comp TYPE REF TO zl_zcategor_bspwdcomponen_impl,
lr_window TYPE REF TO cl_bsp_wd_window.
TRY.
lr_tree_event ?= htmlb_event_ex.
IF lr_tree_event IS BOUND.
lv_row_index = lr_tree_event->row_index.
ENDIF.
CATCH cx_sy_move_cast_error. "#EC NO HANDLER.
EXIT.
ENDTRY.
lr_context_node_tree ?= me->typed_context->tree.
lv_sel_index = lr_context_node_tree->selected_index.
IF lv_row_index EQ lv_sel_index.
lr_node = lr_context_node_tree->get_node_by_index( iv_index = lv_row_index ).
lr_node->selected = abap_false.
ELSEIF lv_row_index IS NOT INITIAL AND lv_row_index > 0.
lr_context_node_tree->eh_on_row_selection( iv_htmlb_event_ex = lr_tree_event ).
* Get the corresponding category
lr_category ?= me->typed_context->tree->get_bo_by_index( lv_row_index ).
CHECK lr_category IS BOUND.
TRY .
lr_category->get_properties(
IMPORTING
es_attributes = ls_zgrtext ).
CATCH cx_root.
ENDTRY.
lr_comp ?= me->comp_controller.
lr_comp->typed_context->tree->collection_wrapper->clear_collection( ).
lr_comp->typed_context->tree->collection_wrapper->add( iv_entity = lr_category
iv_set_focus = abap_true ).
lr_window = me->view_manager->get_window_controller( ).
lr_window->call_outbound_plug( iv_outbound_plug = 'CATE_SELECT' ).
ENDIF.
* ENDIF.
ENDMETHOD.
双击窗口,添加传入导航链接:IP_CODE_SEARCH
METHOD ip_code_search.
DATA:lr_tabline TYPE REF TO zcrmstock,
lr_valuenode TYPE REF TO cl_bsp_wd_value_node,
lr_stock TYPE REF TO if_bol_bo_col,
lr_control TYPE REF TO ZL_ZLYTREE_BSPWDCOMPONENT_IMPL,
* lr_control TYPE REF TO zl_zcategor_bspwdcomponen_impl,
lr_category TYPE REF TO if_bol_bo_property_access.
DATA: lr_cuco TYPE REF TO zl_zcategor_cutree_impl .
lr_cuco ?= me->get_custom_controller( 'ZLYTREE/CUCODE' ).
* lr_category = iv_collection->get_current( ).
* lr_control->typed_context->cond->clear_collection( ).
* me->typed_context->cond->collection_wrapper->add( iv_entity = lr_category
* iv_set_focus = abap_true ).
"清空客户化控制器
lr_cuco->typed_context->code->clear_collection( ).
"对控制器进行赋值
* lr_control->typed_context->cond->set_collection( collection =
* iv_collection ). "LR_STOCK ).
ENDMETHOD.
效果如下:
*注1:对于需要默认展开的,可以在refresh中设置。
METHOD refresh.
super->refresh( ).
DATA:lr_entity TYPE REF TO cl_crm_bol_entity,
lr_coll_wr TYPE REF TO cl_bsp_wd_collection_wrapper,
lr_iterator TYPE REF TO if_bol_bo_col_iterator,
lr_root TYPE REF TO if_bsp_wd_tree_node.
DATA:lv_ent_pro TYPE REF TO if_bol_bo_property_access,
lv_ent TYPE REF TO cl_crm_bol_entity,
lr_col TYPE REF TO if_bol_bo_col..
TRY.
lv_ent_pro ?= me->collection_wrapper->get_first( )."get_current( ).
WHILE lv_ent_pro IS BOUND.
lr_root = me->node_factory->get_proxy(
iv_bo = lv_ent_pro
iv_proxy_type = 'ZCL_CATE_PROXY_MAIN' ).
lr_root->node_key = add_root_node( lr_root ).
lr_root->expand_node( )."默认扩展
lv_ent_pro ?= me->collection_wrapper->get_next( ).
ENDWHILE.
CATCH cx_sy_move_cast_error cx_sy_ref_is_initial.
ENDTRY.
ENDMETHOD.