BSP / HowTo: Exploring BSP Development with MVC 2b_2

[craigcmehil]

• Create pointer to model<br>

  model ?= get_model( 'mf' ).

• Data definitions<br>

  data: sdnlinks type ZFAQSDNRSSLINKTAB.



clear sdnlinks.

clear lt_data.



sdnlinks = model->GET_FAQ_RSSLINKS( ).

if selected IS INITIAL.

lt_data = model->GET_SDN_WEBLOG_BY_URL( ).

else.

lt_data = model->GET_SDN_WEBLOG_BY_URL( url = selected ).

endif.



if selectedRowIndex IS INITIAL.

selectedRowIndex = -1.

endif.

• Data definitions<br>

  data: default_view type ref to if_bsp_page.

• Create view<br>

  default_view = create_view( view_name = 'obj/sdn.htm' ).



default_view->set_attribute( name = 'lv_data'

value = lt_data ).

default_view->set_attribute( name = 'iterator'

value = me ).

default_view->set_attribute( name = 'sri'

value = selectedRowIndex ).

default_view->set_attribute( name = 'selected'

value = selected ).

default_view->set_attribute( name = 'sdnlinks'

value = sdnlinks ).

• Call view<br>

  call_view( default_view ).



endmethod.

DO_HANDLE_EVENT

> method DO_HANDLE_EVENT .

• Table Types<br>

  data: wa TYPE ZFAQ_DATA.

data: witab TYPE ZFAQ_SDNRSS.

• Object definitions<br>

  data: lt_event TYPE REF TO if_htmlb_data.

data: table TYPE REF TO CL_HTMLB_TABLEVIEW.

data: table_event TYPE REF TO cl_htmlb_event_tableview.

data: ddlb TYPE REF TO CL_HTMLB_DROPDOWNLISTBOX.



lt_event = cl_htmlb_manager=>get_event_ex( request ).



if lt_event IS NOT INITIAL.



table ?= CL_HTMLB_MANAGER=>GET_DATA( request = request

name = 'tableView'

id = 'sdn_sdnblogs' ).

if table IS NOT INITIAL.

table_event = table->data.

selectedRowIndex = table_event->SELECTEDROWINDEX.

endif.

• Check if the user selected a different link.<br>

    ddlb ?= CL_HTMLB_MANAGER=>GET_DATA(

method DO_REQUEST .

• Create pointer to model

  model ?= get_model( 'mf' ).

• Data definitions

  data: sdnlinks type ZFAQSDNRSSLINKTAB.

  clear sdnlinks.

  clear lt_data.

  sdnlinks = model->GET_FAQ_RSSLINKS( ).

  if selected IS INITIAL.

    lt_data = model->GET_SDN_WEBLOG_BY_URL( ).

  else.

    lt_data = model->GET_SDN_WEBLOG_BY_URL( url = selected ).

  endif.

  if selectedRowIndex IS INITIAL.

    selectedRowIndex = -1.

  endif.

• Data definitions

  data: default_view type ref to if_bsp_page.

• Create view

  default_view = create_view( view_name = 'obj/sdn.htm' ).

  default_view->set_attribute( name = 'lv_data'

                               value = lt_data ).

  default_view->set_attribute( name = 'iterator'

                               value = me ).

  default_view->set_attribute( name = 'sri'

                               value = selectedRowIndex ).

  default_view->set_attribute( name = 'selected'

                               value = selected ).

  default_view->set_attribute( name = 'sdnlinks'

                               value = sdnlinks ).

• Call view

  call_view( default_view ).

endmethod.

method DO_HANDLE_EVENT .

• Table Types

  data: wa TYPE ZFAQ_DATA.

  data: witab TYPE ZFAQ_SDNRSS.

• Object definitions

  data: lt_event TYPE REF TO if_htmlb_data.

  data: table TYPE REF TO CL_HTMLB_TABLEVIEW.

  data: table_event TYPE REF TO cl_htmlb_event_tableview.

  data: ddlb TYPE REF TO CL_HTMLB_DROPDOWNLISTBOX.

  lt_event = cl_htmlb_manager=>get_event_ex( request ).

  if lt_event IS NOT INITIAL.

    table ?= CL_HTMLB_MANAGER=>GET_DATA( request = request

                                  name    = 'tableView'

                                  id      = 'sdn_sdnblogs' ).

    if table IS NOT INITIAL.

      table_event = table->data.

      selectedRowIndex = table_event->SELECTEDROWINDEX.

    endif.

• Check if the user selected a different link.

    ddlb ?= CL_HTMLB_MANAGER=>GET_DATA(

                      request = request

                      id = 'sdn_sdnlinks'

                      name = 'dropdownListBox' ).

    IF ddlb->selection IS NOT INITIAL.

      selected = ddlb->selection.

      lt_data = model->GET_SDN_WEBLOG_BY_URL( url = selected ).

    ENDIF.

    CASE event.

      WHEN 'edit'.

        model->SET_TAB( tab = 'sdnlinks' ).

        navigation->goto_page( 'faq.do?faq_tabs=sdnlinks' ).

      WHEN 'add'.

        IF selectedRowIndex NE 0.

          READ TABLE lt_data INTO witab index selectedRowIndex.

          CLEAR wa.

          "* Assign automatic Category ID 1 -

          "* SDN Weblog Category

          wa-CAT_ID = 1.

          "* Assign automatic ID for the next DATA entry

          wa-ID = model->GET_NEXT_DATA_ID( table = 'ZFAQ_DATA' ).

          wa-AUTHOR = witab-creator.

          wa-CDATE = witab-pdate.

          wa-SUBJECT = witab-subject.

          wa-TITLE = witab-title.

          wa-SHORT_DESC = witab-description.

          wa-URL = witab-link.

          INSERT INTO ZFAQ_DATA VALUES wa.

          selectedRowIndex = 0.

        ENDIF.

    ENDCASE.

  endif.

endmethod.

Earilier I stated that we should define our global tab variable, and if you noticed we've now used the idea of that variable to forward our navigation to another tab from this controller. Check the 'edit' case statement.