BSP / HowTo: Exploring BSP Development with MVC 2b_1

[craigcmehil]

• Create pointer to model<br>

  model ?= get_model( 'mf' ).



clear lt_data.



lt_data = model->GET_FAQ_CAT( ).



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/cat.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 = 'lv_desc'

value = lt_desc ).

default_view->set_attribute( name = 'lv_id'

value = lt_id ).

default_view->set_attribute( name = 'lv_name'

value = lt_name ).

default_view->set_attribute( name = 'lv_src'

value = lt_src ).

default_view->set_attribute( name = 'lv_edit'

value = lt_edit ).

• Call view<br>

  call_view( default_view ).



endmethod.

DO_HANDLE_EVENT

> method DO_HANDLE_EVENT .

• Table Types<br>

  data: wa TYPE ZFAQ_CAT.

• Object definitions<br>

  data: lt_event TYPE REF TO if_htmlb_data.

method DO_REQUEST .

• Create pointer to model

  model ?= get_model( 'mf' ).

  clear lt_data.

  lt_data = model->GET_FAQ_CAT( ).

  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/cat.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 = 'lv_desc'

                               value = lt_desc ).

  default_view->set_attribute( name = 'lv_id'

                               value = lt_id ).

  default_view->set_attribute( name = 'lv_name'

                               value = lt_name ).

  default_view->set_attribute( name = 'lv_src'

                               value = lt_src ).

  default_view->set_attribute( name = 'lv_edit'

                               value = lt_edit ).

• Call view

  call_view( default_view ).

endmethod.

method DO_HANDLE_EVENT .

• Table Types

  data: wa TYPE ZFAQ_CAT.

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

  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      = 'cat_cattable' ).

    if table IS NOT INITIAL.

      table_event = table->data.

      selectedRowIndex = table_event->SELECTEDROWINDEX.

      READ TABLE lt_data INTO wa index selectedRowIndex.

      lt_id = wa-id.

      lt_desc = wa-cat_desc.

      lt_name = wa-name.

      lt_src = wa-src.

    endif.

    CASE event.

      WHEN 'del'.

        IF selectedRowIndex NE 0.

          DELETE FROM ZFAQ_CAT WHERE ID = lt_id.

          selectedRowIndex = 0.

          lt_data = model->GET_FAQ_CAT( ).

          lt_edit = ''.

          SELECTEDROWINDEX = -1.

        ENDIF.

      WHEN 'edit'.

        IF selectedRowIndex NE 0.

          lt_edit = 'X'.

        ENDIF.

      WHEN 'add'.

        CLEAR wa.

        IF request->GET_FORM_FIELD( name = 'cat_id' ) IS NOT INITIAL.

          wa-ID = request->GET_FORM_FIELD( name = 'cat_id' ).

          wa-NAME = request->GET_FORM_FIELD( name = 'cat_name' ).

          wa-SRC = request->GET_FORM_FIELD( name = 'cat_src' ).

          wa-CAT_DESC = request->GET_FORM_FIELD( name = 'cat_desc' ).

          UPDATE ZFAQ_CAT FROM wa.

          lt_data = model->GET_FAQ_CAT( ).

        ELSE.

          "* Assign automatic ID for the next DATA entry

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

          wa-NAME = request->GET_FORM_FIELD( name = 'cat_name' ).

          wa-SRC = request->GET_FORM_FIELD( name = 'cat_src' ).

          wa-CAT_DESC = request->GET_FORM_FIELD( name = 'cat_desc' ).

          INSERT INTO ZFAQ_CAT VALUES wa.

          lt_data = model->GET_FAQ_CAT( ).

        ENDIF.

        lt_edit = ''.

    ENDCASE.

  endif.

endmethod.

Fingers cramping yet? So moving on...

ZFAQ_C_CL_SUBJECT

ZFAQ_C_CL_SDNLINKS

The nice thing about these classes are that they are not much differnt than the one we just made. So let's save ourselves some time and just copy it to the new names, then we'll go through and clean it up a bit.



Have your two copies made now? OK, then let's look and see what is different and make some changes.

ZFAQ_C_CL_SUBJECT

LT_SRC

You can remove it from the

Attributes

as we don't need that one, then in the

DO_REQUEST

you can remove the line where we assign the value of

LT_SRC

to the

default_view

and modify the line where we assign data to

LT_DATA

you will need to use the method

lt_data = model->GET_FAQ_SUBJECT( )

. Also

highly

important is to change the line in

DO_REQUEST

to default_view = create_view( view_name = 'obj/subject.htm' ).



Then under

Method

the IF_HTMLB_TABLEVIEW_ITERATOR_{RENDER_CELL_START</b>, remove all the code from there, however, do not "undefine it" just remove the code. This of course leaves us with the <b>DO_HANDLE_EVENT</b> and <b>IF_HTMLB_TABLEVIEW_ITERATOR}GET_COLUMN_DEFINITIONS

• Table Types<br>

  data: wa TYPE ZFAQ_SUBJECT.

• Object definitions<br>

  data: lt_event TYPE REF TO if_htmlb_data.

method DO_HANDLE_EVENT .

• Table Types

  data: wa TYPE ZFAQ_SUBJECT.

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

  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      = 'subject_subjecttable' ).

    if table IS NOT INITIAL.

      table_event = table->data.

      selectedRowIndex = table_event->SELECTEDROWINDEX.

      READ TABLE lt_data INTO wa index selectedRowIndex.

      lt_id = wa-id.

      lt_desc = wa-subject_desc.

      lt_name = wa-name.

    endif.

    CASE event.

      WHEN 'del'.

        IF selectedRowIndex NE 0.

          DELETE FROM ZFAQ_SUBJECT WHERE ID = lt_id.

          selectedRowIndex = 0.

          lt_data = model->GET_FAQ_SUBJECT( ).

          lt_edit = ''.

          SELECTEDROWINDEX = -1.

        ENDIF.

      WHEN 'edit'.

        IF selectedRowIndex NE 0.

          lt_edit = 'X'.

        ENDIF.

      WHEN 'add'.

        CLEAR wa.

        IF request->GET_FORM_FIELD( name = 'subject_id' ) IS NOT

INITIAL.

          wa-ID = request->GET_FORM_FIELD( name = 'subject_id' ).

          wa-NAME = request->GET_FORM_FIELD( name = 'subject_name' ).

          wa-SUBJECT_DESC = request->GET_FORM_FIELD( name =

'subject_desc' ).

          UPDATE ZFAQ_SUBJECT FROM wa.

          lt_data = model->GET_FAQ_SUBJECT( ).

        ELSE.

          "* Assign automatic ID for the next DATA entry

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

          wa-NAME = request->GET_FORM_FIELD( name = 'subject_name' ).

          wa-SUBJECT_DESC = request->GET_FORM_FIELD( name =

'subject_desc' ).

          INSERT INTO ZFAQ_SUBJECT VALUES wa.

          lt_data = model->GET_FAQ_SUBJECT( ).

        ENDIF.

        lt_edit = ''.

    ENDCASE.

  endif.

endmethod.

ZFAQ_C_CL_SDNLINKS

LT_SRC

You can remove it from the

Attributes

as we don't need that one, then in the

DO_REQUEST

you can remove the line where we assign the value of

LT_SRC

to the

default_view

and modify the line where we assign data to

LT_DATA

you will need to use the method

lt_data = model->GET_FAQ_RSSLINKS( )

. Now a bit differnt to the last as well we are going to change

LT_DESC

to

LT_LINK

. So change it under

Attributes

and then in

DO_REQUEST

as well. Also

highly

important is to change the line in

DO_REQUEST

to default_view = create_view( view_name = 'obj/sdnlinks.htm' ).



Then under

Method

the IF_HTMLB_TABLEVIEW_ITERATOR_{RENDER_CELL_START</b>, remove all the code from there, however, do not "undefine it" just remove the code. This of course leaves us with the <b>DO_HANDLE_EVENT</b> and <b>IF_HTMLB_TABLEVIEW_ITERATOR}GET_COLUMN_DEFINITIONS

• Table Types<br>

  data: wa TYPE ZFAQ_SDNRSSLINK.

• Object definitions<br>

  data: lt_event TYPE REF TO if_htmlb_data.

method DO_HANDLE_EVENT .

• Table Types

  data: wa TYPE ZFAQ_SDNRSSLINK.

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

  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      = 'sdnlinks_sdnlinkstable' ).

    if table IS NOT INITIAL.

      table_event = table->data.

      selectedRowIndex = table_event->SELECTEDROWINDEX.

      READ TABLE lt_data INTO wa index selectedRowIndex.

      lt_id = wa-id.

      lt_link = wa-link.

      lt_name = wa-name.

    endif.

    CASE event.

      WHEN 'del'.

        IF selectedRowIndex NE 0.

          DELETE FROM ZFAQ_SDNRSSLINK WHERE ID = lt_id.

          selectedRowIndex = 0.

          lt_data = model->GET_FAQ_RSSLINKS( ).

          lt_edit = ''.

          SELECTEDROWINDEX = -1.

        ENDIF.

      WHEN 'edit'.

        IF selectedRowIndex NE 0.

          lt_edit = 'X'.

        ENDIF.

      WHEN 'add'.

        CLEAR wa.

        IF request->GET_FORM_FIELD( name = 'sdnlinks_id' ) IS NOT

INITIAL.

          wa-ID = request->GET_FORM_FIELD( name = 'sdnlinks_id' ).

          wa-NAME = request->GET_FORM_FIELD( name = 'sdnlinks_name' ).

          wa-LINK = request->GET_FORM_FIELD( name =

'sdnlinks_link' ).

          UPDATE ZFAQ_SDNRSSLINK FROM wa.

          lt_data = model->GET_FAQ_RSSLINKS( ).

        ELSE.

          "* Assign automatic ID for the next DATA entry

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

          wa-NAME = request->GET_FORM_FIELD( name = 'sdnlinks_name' ).

          wa-LINK = request->GET_FORM_FIELD( name =

'sdnlinks_link' ).

          INSERT INTO ZFAQ_SDNRSSLINK VALUES wa.

          lt_data = model->GET_FAQ_RSSLINKS( ).

        ENDIF.

        lt_edit = ''.

    ENDCASE.

  endif.

endmethod.

Each of these controllers will handle all of our setup and configuration tasks that we will associate with this application.