SAP web 开发 (第二篇 bsp 开发 mvc模式 Part2 )

单击第一个图标，第一个图标突出显示，单击第二个图标，第一个变灰，第二个突出显示，反之一样。单击history读取历史记录。

Controller ZCL_SUS_C_ORDER_CHANGE

1. 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 <usr_tab> like line of ZORDERCHANGEMODEL->ORDERCHANGE.

    loop at ZORDERCHANGEMODEL->ORDERCHANGE assigning <usr_tab>.

      <usr_tab>-icons = '/sap/bc/bsp/sap/srmsus/images/order/ok-grau.gif'.

      <usr_tab>-cancel = '/sap/bc/bsp/sap/srmsus/images/order/cancel-grau.gif'.

    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 <usr_tab>.

      <usr_tab>-icons = '/sap/bc/bsp/sap/srmsus/images/order/ok-grau.gif'.

      <usr_tab>-cancel = '/sap/bc/bsp/sap/srmsus/images/order/cancel-grau.gif'.

      <usr_tab>-bname = 'history'.

    endloop.

    create object ZORDERCHANGEMODEL->io_iterator.

    ZORDERCHANGEMODEL->io_iterator->request = request.

  endif.

endmethod.

1. 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.

1. 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: <usr_tab> type zusr02,

                     <usr_cancel> type zusr02.

      data usr_tab type zusr02.

      IF ZORDERCHANGEMODEL->HISTORY_SHOW = ''.

      read table ZORDERCHANGEMODEL->ORDERCHANGE  index LR_TABLEVIEW->DATA->ROW_INDEX assigning <usr_tab>.

      ELSE.

            read table ZORDERCHANGEMODEL->ORDERCHANGE_history  index LR_TABLEVIEW->DATA->ROW_INDEX assigning <usr_tab>.

      endif.

      if <usr_tab>-icons = '/sap/bc/bsp/sap/srmsus/images/order/ok.gif'.

        <usr_tab>-icons = '/sap/bc/bsp/sap/srmsus/images/order/ok-grau.gif'.

      else.

        <usr_tab>-icons = '/sap/bc/bsp/sap/srmsus/images/order/ok.gif'.

        <usr_tab>-cancel = '/sap/bc/bsp/sap/srmsus/images/order/cancel-grau.gif'.

      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 <usr_tab>.

      ELSE.

            read table ZORDERCHANGEMODEL->ORDERCHANGE_history  index LR_TABLEVIEW->DATA->ROW_INDEX assigning <usr_tab>.

      endif.

      if <usr_tab>-cancel = '/sap/bc/bsp/sap/srmsus/images/order/cancel.gif'.

        <usr_tab>-cancel = '/sap/bc/bsp/sap/srmsus/images/order/cancel-grau.gif'.

      else.

        <usr_tab>-cancel = '/sap/bc/bsp/sap/srmsus/images/order/cancel.gif'.

        <usr_tab>-icons = '/sap/bc/bsp/sap/srmsus/images/order/ok-grau.gif'.

      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.

1. 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.

%>

<!-- messages controller -->

<%@include file="framework/carrier_view_message.inc" %>

 

 

<htmlb:tray id = "orderchange"

             title = "Order Change Response"

             width = "100%">

             <htmlb:gridLayout id = "GR_RPT_Query"

          rowSize = "3"

          columnSize = "1"

          cellSpacing = "10"

          width = "100%">

           <htmlb:gridLayoutCell rowIndex = "1"

                     columnIndex = "1"

                     width = "100%" >

 <% if zmodel->history_show <> 'X'. %>

             <td align = "right">

             <htmlb:link id="history"

                       text="history"

                       onClick="onhistoryclick"

                       ></htmlb:link>

             </td>

 <% else. %>

             <td align = "right">

             <htmlb:link id="inprocess"

                       text="inprocess"

                       onClick="onprocessclick"

                       ></htmlb:link>

             </td>

 <% endif.%>.

             </htmlb:gridLayoutCell>

          <htmlb:gridLayoutCell rowIndex = "2"

                     columnIndex = "1"

                     width = "100%" >

<% if zmodel->history_show <> 'X'. %>

<htmlb:tableView id="t2"

                       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">

           <htmlb:tableViewColumn columnName="ICONS"

                               onCellClick="onCellClick"

 

                                width="5"

       ></htmlb:tableViewColumn>

       <htmlb:tableViewColumn columnName="CANCEL"

                               onCellClick="onCellClick"

 

                               width="5"

 

       ></htmlb:tableViewColumn>

       <htmlb:tableViewColumn columnName="BNAME"

                               onCellClick="onCellClick"

                                title="BNAME"

 

       ></htmlb:tableViewColumn>

</htmlb:tableView>

 <% else. %>

 <htmlb:tableView id="t2"

                       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">

             <htmlb:tableViewColumn columnName="ICONS"

                               onCellClick="onCellClick"

 

                                width="5"

       ></htmlb:tableViewColumn>

       <htmlb:tableViewColumn columnName="CANCEL"

                               onCellClick="onCellClick"

 

                               width="5"

 

       ></htmlb:tableViewColumn>

       <htmlb:tableViewColumn columnName="BNAME"

                               onCellClick="onCellClick"

                                title="BNAME"

 

       ></htmlb:tableViewColumn>

</htmlb:tableView>

     <% endif.%>.

 

 

 </htmlb:gridLayoutCell>

 

  <htmlb:gridLayoutCell rowIndex = "3"

                     columnIndex = "1"

                     width = "100%" >

        <htmlb:button id="update"

                      text = "Update"

                      onClick = "onupdateclick"

        />

  </htmlb:gridLayoutCell>

 </htmlb:gridLayout>

</htmlb:tray>

1. 5.    Page attributes

zmodel TYPE REF TO    ZCL_SUS_C_ORDER_CHANGE_MODEL

1. 6.    Controller attributes

ZORDERCHANGEMODEL     Instance Attribute  Public   Type Ref ToZCL_SUS_C_ORDER_CHANGE_MODEL

HISTORY_SHOW     Instance Attribute  Public   Type     CHAR1

1. 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

1. 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 <icons_name> type char50.

  field-symbols:

                 <ls_data> type any,

                 <ls_icons> type any,

                 <ls_kyfs> type any.

  DATA: icon_plane TYPE STRING.

  CASE p_column_key.

    WHEN 'CANCEL'.

 

      ASSIGN P_ROW_DATA_REF->* to <ls_data>.

      assign component 'CANCEL' of  structure <ls_data> TO <ls_icons>.

      icon_plane = <ls_icons>.

      p_replacement_bee = CL_HTMLB_IMAGE=>FACTORY( id = p_cell_id src = icon_plane ).

    WHEN 'ICONS'.

 

      ASSIGN P_ROW_DATA_REF->* to <ls_data>.

      assign component 'ICONS' of  structure <ls_data> TO <ls_icons>.

      icon_plane = <ls_icons>.

      p_replacement_bee = CL_HTMLB_IMAGE=>FACTORY( id = p_cell_id src = icon_plane ).

    WHEN 'BNAME'.

      ASSIGN P_ROW_DATA_REF->* to <ls_data>.

      assign component 'BNAME' of  structure <ls_data> TO <ls_icons>.

      icon_plane = <ls_icons>.

      p_replacement_bee = CL_HTMLB_TEXTVIEW=>FACTORY( id = p_cell_id text = icon_plane ).

 

  ENDCASE.

endmethod.

转：http://blog.chinaunix.net/uid-465882-id-2115966.html