分类：
2009-10-16 14:23:25
单击第一个图标，第一个图标突出显示，单击第二个图标，第一个变灰，第二个突出显示，反之一样。单击history读取历史记录。
Controller ZCL_SUS_C_ORDER_CHANGE
1. DO_INIT
method DO_INIT.
*CALL METHOD SUPER->DO_INIT
* .
if ZORDERCHANGEMODEL is initial.
create object ZORDERCHANGEMODEL.
select * from usr02 into corresponding fields of table ZORDERCHANGEMODEL->ORDERCHANGE up to 5 rows.
field-symbols
loop at ZORDERCHANGEMODEL->ORDERCHANGE assigning
endloop.
append initial line to ZORDERCHANGEMODEL->ORDERCHANGE_history.
append initial line to ZORDERCHANGEMODEL->ORDERCHANGE_history.
append initial line to ZORDERCHANGEMODEL->ORDERCHANGE_history.
append initial line to ZORDERCHANGEMODEL->ORDERCHANGE_history.
append initial line to ZORDERCHANGEMODEL->ORDERCHANGE_history.
loop at ZORDERCHANGEMODEL->ORDERCHANGE_history assigning
endloop.
create object ZORDERCHANGEMODEL->io_iterator.
ZORDERCHANGEMODEL->io_iterator->request = request.
endif.
endmethod.
2. DO_REQUEST
method DO_REQUEST.
*CALL METHOD SUPER->DO_REQUEST
* .
me->DISPATCH_INPUT( ).
data: lo_view type ref to if_bsp_page.
lo_view = create_view( view_name = '../order/order_change_response.inc' ).
lo_view->set_attribute( name = 'zmodel' value = ZORDERCHANGEMODEL ).
call_view( lo_view ).
endmethod.
3. DO_HANDLE_EVENT
method DO_HANDLE_EVENT.
*CALL METHOD SUPER->DO_HANDLE_EVENT
* EXPORTING
* EVENT =
* HTMLB_EVENT =
** HTMLB_EVENT_EX =
* GLOBAL_MESSAGES =
* RECEIVING
* GLOBAL_EVENT =
* .
data lr_tableview type ref to CL_HTMLB_TABLEVIEW.
lr_tableview ?= cl_htmlb_manager=>get_data(
request = me->request
id = 'zorder.cuschanged_t2'
name = 'tableView' ).
IF NOT LR_TABLEVIEW IS INITIAL.
IF LR_TABLEVIEW->DATA->SERVER_EVENT = 'onCellClick'
AND LR_TABLEVIEW->DATA->ID = 'zorder.cuschanged_t2'
AND LR_TABLEVIEW->DATA->NAME = 'tableView'
AND LR_TABLEVIEW->DATA->COLUMN_KEY = 'ICONS'
AND LR_TABLEVIEW->DATA->COLUMN_INDEX > 0
AND LR_TABLEVIEW->DATA->ROW_INDEX > 0.
field-symbols:
data usr_tab type zusr02.
IF ZORDERCHANGEMODEL->HISTORY_SHOW = ''.
read table ZORDERCHANGEMODEL->ORDERCHANGE index LR_TABLEVIEW->DATA->ROW_INDEX assigning
ELSE.
read table ZORDERCHANGEMODEL->ORDERCHANGE_history index LR_TABLEVIEW->DATA->ROW_INDEX assigning
endif.
if
else.
endif.
ENDIF.
IF LR_TABLEVIEW->DATA->SERVER_EVENT = 'onCellClick'
AND LR_TABLEVIEW->DATA->ID = 'zorder.cuschanged_t2'
AND LR_TABLEVIEW->DATA->NAME = 'tableView'
AND LR_TABLEVIEW->DATA->COLUMN_KEY = 'CANCEL'
AND LR_TABLEVIEW->DATA->COLUMN_INDEX > 0
AND LR_TABLEVIEW->DATA->ROW_INDEX > 0.
IF ZORDERCHANGEMODEL->HISTORY_SHOW = ''.
read table ZORDERCHANGEMODEL->ORDERCHANGE index LR_TABLEVIEW->DATA->ROW_INDEX assigning
ELSE.
read table ZORDERCHANGEMODEL->ORDERCHANGE_history index LR_TABLEVIEW->DATA->ROW_INDEX assigning
endif.
if
else.
endif.
endif.
ENDIF.
if not htmlb_event is initial.
if HTMLB_EVENT->SERVER_EVENT = 'onhistoryclick'.
ZORDERCHANGEMODEL->HISTORY_SHOW = 'X'.
elseif HTMLB_EVENT->SERVER_EVENT = 'onprocessclick'.
ZORDERCHANGEMODEL->HISTORY_SHOW = ''.
endif.
endif.
endmethod.
4. View
<%@page language="abap" otrTrim="true" %>
<%@extension name="htmlb" prefix="htmlb" %>
<%@extension name="SRMSUS" prefix="sus" %>
<%@extension name="xhtmlb" prefix="xhtmlb" %>
<%
INCLUDE bbp_sus_ui_const.
%>
<%@include file="framework/carrier_view_message.inc" %>
title = "Order Change Response"
width = "100%">
rowSize = "3"
columnSize = "1"
cellSpacing = "10"
width = "100%">
columnIndex = "1"
width = "100%" >
<% if zmodel->history_show <> 'X'. %>
text="history"
onClick="onhistoryclick"
>
<% else. %>
text="inprocess"
onClick="onprocessclick"
>
<% endif.%>.
columnIndex = "1"
width = "100%" >
<% if zmodel->history_show <> 'X'. %>
emptyTableText = "<%= otr(BBP_SUS_UI/LIST_ORDER_NO_ENTRIES_FOUND) %>"
sort = "SERVER"
onHeaderClick = "onmyHeaderClick"
onNavigate = "onMyNavigate"
onRowSelection = "onMyRowSelection"
visibleRowCount = "10"
visibleFirstRow = "1"
iterator = "<%=zmodel->io_iterator%>"
table="//zmodel/ORDERCHANGE">
onCellClick="onCellClick"
width="5"
>
onCellClick="onCellClick"
width="5"
>
onCellClick="onCellClick"
title="BNAME"
>
<% else. %>
emptyTableText = "<%= otr(BBP_SUS_UI/LIST_ORDER_NO_ENTRIES_FOUND) %>"
sort = "SERVER"
onHeaderClick = "onmyHeaderClick"
onNavigate = "onMyNavigate"
onRowSelection = "onMyRowSelection"
visibleRowCount = "10"
visibleFirstRow = "1"
iterator = "<%=zmodel->io_iterator%>"
table="//zmodel/ORDERCHANGE_HISTORY">
onCellClick="onCellClick"
width="5"
>
onCellClick="onCellClick"
width="5"
>
onCellClick="onCellClick"
title="BNAME"
>
<% endif.%>.
columnIndex = "1"
width = "100%" >
text = "Update"
onClick = "onupdateclick"
/>
5. Page attributes
zmodel TYPE REF TO ZCL_SUS_C_ORDER_CHANGE_MODEL
6. Controller attributes
ZORDERCHANGEMODEL Instance Attribute Public Type Ref To ZCL_SUS_C_ORDER_CHANGE_MODEL
HISTORY_SHOW Instance Attribute Public Type CHAR1
7. Model ZCL_SUS_C_ORDER_CHANGE_MODEL
Attributes:
ORDERCHANGE Instance Attribute Public Type ZTESTUSR01
IO_ITERATOR Instance Attribute Public Type Ref To ZCL_SUS_C_ORD_C_ITERATOR
ORDERCHANGE_HISTORY Instance Attribute Public Type ZTESTUSR01
HISTORY_SHOW Instance Attribute Public Type CHAR1
8. ITERATOR ZCL_SUS_C_ORD_C_ITERATOR
Interface IF_HTMLB_TABLEVIEW_ITERATOR
Attributes:
M_ROW_REF Instance Attribute Public Type Ref To ZUSR02
REQUEST Instance Attribute Public Type Ref To IF_HTTP_REQUEST
method IF_HTMLB_TABLEVIEW_ITERATOR~RENDER_ROW_START.
m_row_ref ?= p_row_data_ref.
endmethod.
method IF_HTMLB_TABLEVIEW_ITERATOR~RENDER_CELL_START.
data lr_tableview type ref to CL_HTMLB_TABLEVIEW.
* lr_tableview ?= cl_htmlb_manager=>get_data(
* request = request
* id = 't2'
* name = 'tableView' ).
field-symbols
field-symbols:
DATA: icon_plane TYPE STRING.
CASE p_column_key.
WHEN 'CANCEL'.
ASSIGN P_ROW_DATA_REF->* to
assign component 'CANCEL' of structure
icon_plane =
p_replacement_bee = CL_HTMLB_IMAGE=>FACTORY( id = p_cell_id src = icon_plane ).
WHEN 'ICONS'.
ASSIGN P_ROW_DATA_REF->* to
assign component 'ICONS' of structure
icon_plane =
p_replacement_bee = CL_HTMLB_IMAGE=>FACTORY( id = p_cell_id src = icon_plane ).
WHEN 'BNAME'.
ASSIGN P_ROW_DATA_REF->* to
assign component 'BNAME' of structure
icon_plane =
p_replacement_bee = CL_HTMLB_TEXTVIEW=>FACTORY( id = p_cell_id text = icon_plane ).
ENDCASE.
endmethod.
