WDA学习（10）：ALV Config Model
作者：互联网
2.2 ALV Configuration Model
本实例展示使用ALV Configuration Mode，设置ALV显示样式。可以复制Use an ALV TABLE in WDA这个实例，在其基础上修改。
1.复制Use an ALV TABLE in WDA实例。
选择Z_TEST_WDA5组件->右键->Copy；
2.修改MAIN视图组件
Properties页签：引入ALV相关Used Component
Methods页签：WDDOINIT方法，增加使用ALV Configuration Model逻辑。
点击魔术棒，实例化Used Component。
自动生成代码：
"实例化Used Component
DATA:lo_cmp_usage type ref to if_wd_component_usage.
lo_cmp_usage = wd_this->wd_cpuse_alv( ).
if lo_cmp_usage->has_active_component( ) is initial.
lo_cmp_usage->create_component( ).
endif.
选择实例化Used Component,点击输入框后f4小方块，可以查询到本组件下可实例化的组件，需要Properties页签引入。
点击魔术棒，获取Config Model。
点击Component Name输入框后f4帮助方块，选择Component，自动带出Component Use和Controller Name信息。
点击Method Name输入框后帮助，获取可调用的方法
自动生成代码：
"获取Config Mode "Component接口 DATA:lo_INTERFACECONTROLLER TYPE REF TO IWCI_SALV_WD_TABLE . lo_INTERFACECONTROLLER = wd_this->wd_cpifc_alv( ). "Config model DATA:lv_value TYPE ref to cl_salv_wd_config_table. lv_value = lo_interfacecontroller->get_model( ).
2.2.1设置ALV Table显示行数
方法：IF_SALV_WD_TABLE_SETTINGS~SET_VISIBLE_ROW_COUNT
实例代码：
"设置可见行数 lv_value->IF_SALV_WD_TABLE_SETTINGS~SET_VISIBLE_ROW_COUNT( 20 ).
2.2.2设置ALV Table某栏位排序
实例代码：
"设置字段排序 DATA:lo_field TYPE REF TO cl_salv_wd_field. lo_field = lv_value->IF_SALV_WD_FIELD_SETTINGS~GET_FIELD( FIELDNAME = 'PRICE' ). lo_field->IF_SALV_WD_SORT~CREATE_SORT_RULE( SORT_ORDER = IF_SALV_WD_C_SORT=>SORT_ORDER_DESCENDING ).
2.2.3.添加STATUS字段，显示交通灯
设置交通灯显示，需要添加Context上下文Status，用来显示Icon。
当选择Context时，右键->Create，发现不能创建Attribute,我们需要将NODE_FLIGHT节点对应的Dictionary Structure取消掉
创建Status，类型：String
创建完成后，因为MAIN视图组件Context是映射的COMPONENTCONTROLLER组件控制器的上下文，所以需要在MAIN视图组件Context更新映像。
选择MAIN视图组件->Context页签->选择NODE_FLIGHT节点->右键->Update Mapping。
实例代码：
method WDDOINIT .
"系统自动生成节点对应类型定义代码
* types:
* begin of Element_node_sflight,
* CARRID type SFLIGHT-CARRID,
* CONNID type SFLIGHT-CONNID,
* FLDATE type SFLIGHT-FLDATE,
* PRICE type SFLIGHT-PRICE,
* CURRENCY type SFLIGHT-CURRENCY,
* PLANETYPE type SFLIGHT-PLANETYPE,
* SEATSMAX type SFLIGHT-SEATSMAX,
* SEATSOCC type SFLIGHT-SEATSOCC,
* PAYMENTSUM type SFLIGHT-PAYMENTSUM,
* STATUS type STRING,
* end of Element_node_sflight, "#EC NEEDED
* Elements_node_sflight type
* standard table of Element_node_sflight
* with default key. "#EC NEEDED
"定义对应节点类型
DATA:lt_sflight TYPE wd_this->Elements_node_sflight.
DATA:wa_sflight LIKE LINE OF lt_sflight.
DATA:lo_node TYPE REF TO IF_WD_CONTEXT_NODE.
"剩余座位
DATA:lv_seatfree TYPE I.
"查询数据
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_sflight FROM SFLIGHT.
"实例化Used Component
DATA:lo_cmp_usage type ref to if_wd_component_usage.
lo_cmp_usage = wd_this->wd_cpuse_alv( ).
if lo_cmp_usage->has_active_component( ) is initial.
lo_cmp_usage->create_component( ).
endif.
"获取Config Mode
"Component接口
DATA:lo_INTERFACECONTROLLER TYPE REF TO IWCI_SALV_WD_TABLE .
lo_INTERFACECONTROLLER = wd_this->wd_cpifc_alv( ).
"Config model
DATA:lv_value TYPE ref to cl_salv_wd_config_table.
lv_value = lo_interfacecontroller->get_model( ).
"设置可见行数
lv_value->IF_SALV_WD_TABLE_SETTINGS~SET_VISIBLE_ROW_COUNT( 20 ).
"设置字段排序
DATA:lo_field TYPE REF TO cl_salv_wd_field.
lo_field = lv_value->IF_SALV_WD_FIELD_SETTINGS~GET_FIELD( FIELDNAME = 'PRICE' ).
lo_field->IF_SALV_WD_SORT~CREATE_SORT_RULE( SORT_ORDER = IF_SALV_WD_C_SORT=>SORT_ORDER_DESCENDING ).
"设置status字段显示信号灯
"context:node_flight节点下创建attribute,status
"根据剩余座位数，设置不同信号灯
LOOP AT lt_sflight INTO wa_sflight.
"剩余座位数
lv_seatfree = wa_sflight-seatsmax - wa_sflight-seatsocc.
IF lv_seatfree = 0.
wa_sflight-status = 'ICON_RED_LIGHT'.
ELSEIF lv_seatfree < 50.
wa_sflight-status = 'ICON_YELLOW_LIGHT'.
ELSE.
wa_sflight-status = 'ICON_GREEN_LIGHT'.
ENDIF.
MODIFY lt_sflight FROM wa_sflight.
ENDLOOP.
DATA:lo_column TYPE REF TO cl_salv_wd_column.
DATA:lr_image TYPE REF TO cl_salv_wd_uie_image.
DATA:lv_icon TYPE String.
"获取列对象
lo_column = lv_value->IF_SALV_WD_COLUMN_SETTINGS~GET_COLUMN( id = 'STATUS' ).
CREATE OBJECT lr_image.
lr_image->SET_SOURCE_FIELDNAME( 'STATUS' ).
lo_column->SET_CELL_EDITOR( lr_image ).
"获取NODE_SFLIGHT子节点
lo_node = wd_context->get_child_node( name = 'NODE_SFLIGHT' ).
lo_node->bind_table( lt_sflight ).
endmethod.
View Code
2.2.4设置PRICE字段可编辑
修改WDDOINIT方法
实例代码：
"设置列可编辑 DATA:lo_input_field TYPE REF TO cl_salv_wd_uie_input_field. lo_column = lv_value->IF_SALV_WD_COLUMN_SETTINGS~GET_COLUMN( id = 'PRICE' ). "创建input field对象 CREATE OBJECT lo_input_field EXPORTING VALUE_FIELDNAME = 'PRICE'. lo_column->set_cell_editor( lo_input_field ). "关闭只读模式 lv_value->IF_SALV_WD_TABLE_SETTINGS~SET_READ_ONLY( abap_false ).
修改MAIN视图组件的Layout页面
创建一个SAVE按钮保存修改的记录。
重写ONSAVE方法，
实例代码：
method ONACTIONSAVE . "Component接口 DATA:lo_INTERFACECONTROLLER TYPE REF TO IWCI_SALV_WD_TABLE . lo_INTERFACECONTROLLER = wd_this->wd_cpifc_alv( ). "调用data_check方法 lo_INTERFACECONTROLLER->data_check( ). endmethod.
实现ALV提供ON_DATA_CHECK事件的Event Handler方法
代码实例：
method ONDATACHECK . DATA:lo_node TYPE REF TO if_wd_context_node. DATA:lo_element TYPE REF TO if_wd_context_element. DATA:lt_sflight TYPE wd_this->Elements_node_sflight. "修改没有错误 CHECK r_param->t_error_cells IS INITIAL. lo_node = wd_context->get_child_node( name = 'NODE_SFLIGHT' ). "获取修改后的数据，这里获得的是整个内表，能否获取更改的记录 lo_node->get_static_attributes_table( IMPORTING table = lt_sflight ). "查看一下r_param信息 "删除行数据 DATA:lo_deleted TYPE SALV_WD_T_TABLE_ROW. lo_deleted = r_param->t_deleted_rows. "插入行数据 DATA:lo_inserted TYPE SALV_WD_T_TABLE_ROW. lo_inserted = r_param->t_inserted_rows. "修改过的数据 DATA:lo_modified TYPE SALV_WD_T_TABLE_MOD_CELL. lo_modified = r_param->t_modified_cells. "更新数据库表 * UPDATE sflgiht FROM TABLE lt_sflight.
"创建信息 DATA:lo_current_controller TYPE REF TO if_wd_controller. DATA:lo_message_manager TYPE REF TO if_wd_message_manager. lo_current_controller ?= wd_this->wd_get_api( ). "获取message manager对象 CALL METHOD lo_current_controller->get_message_manager RECEIVING message_manager = lo_message_manager. "显示成功信息 CALL METHOD lo_message_manager->report_success EXPORTING message_text = 'Data was successfully saved.'. endmethod.
3.创建Web Component Application，运行
2.2.5设置CARRID,CONNID单元格点击事件
将CARRID,CONNID列变成按钮和链接类型，可以触发点击事件。
实例代码：
"设置CARRID列为按钮 DATA:lo_button TYPE REF TO cl_salv_wd_uie_button. lo_column = lv_value->IF_SALV_WD_COLUMN_SETTINGS~GET_COLUMN( id = 'CARRID' ). CREATE OBJECT lo_button. lo_button->set_text_fieldname( 'CARRID' ). lo_column->set_cell_editor( lo_button ). "设置CONNID列为link链接 DATA:lo_link TYPE REF TO cl_salv_wd_uie_link_to_action. lo_column = lv_value->IF_SALV_WD_COLUMN_SETTINGS~GET_COLUMN( id = 'CONNID' ). CREATE OBJECT lo_link. lo_link->set_text_fieldname( 'CONNID' ). lo_column->set_cell_editor( lo_link ).
创建Context上下文节点：EVENT_PROPERTIES
节点下Attributes:
COLUMN_ID:点击列ID；
INDEX:点击单元格所在行；
ATTRIBUTE: 点击列ID；
VALUE：点击单元格对应值；
实现ALV提供ON_CLICK事件的Event Handler方法
实例代码：
method ONALVCLICK . DATA:lo_node TYPE REF TO if_wd_context_node. DATA:lo_element TYPE REF TO if_wd_context_element. DATA:lt_event_properties TYPE wd_this->Elements_event_properties. DATA:ls_event_properties TYPE wd_this->Element_event_properties. FIELD-SYMBOLS:<fs_value> TYPE ANY. "获取点击信息 CLEAR ls_event_properties. ls_event_properties-column_id = r_param->column. ls_event_properties-index = r_param->index. ls_event_properties-attribute = r_param->attribute. ASSIGN r_param->value->* TO <fs_value>. ls_event_properties-value = <fs_value>. APPEND ls_event_properties TO lt_event_properties. "获取上下文节点 lo_node = wd_context->get_child_node( name = 'EVENT_PROPERTIES' ). lo_node->bind_table( lt_event_properties ). endmethod.
修改MAIN视图组件，Layout页签
创建TABLE视图控件，显示EVENT_PROPERTIES上下文节点内容。
选择右边控件树->TABLE视图控件，右键->Create Binding,点击Context,选择EVENT_PROPERTIES上下文节点
3.创建Web Component Application，运行
标签：WDA,wd,10,lo,sflight,WD,ALV,TYPE,DATA 来源： https://www.cnblogs.com/tangToms/p/12898720.html