BSP / HowTo: Exploring BSP Development and the MiniWAS 6.20 Part 3a

[Part 1 | BSP / HowTo: Exploring BSP Development and the MiniWAS 6.20] – Introduction and beginning elements, sample data.
[Part 2 | BSP / HowTo: Exploring BSP Development and the MiniWAS 6.20 Part 2] – Building the CLASSES and ITERATORS.
Part 3 – Putting your pages in place.

BSP / HowTo: Exploring BSP Development and the MiniWAS 6.20 Part 3b

Part 4 – Extended Features

BSP / HowTo: Exploring BSP Development and the MiniWAS 6.20 Part 4a

BSP / HowTo: Exploring BSP Development and the MiniWAS 6.20 Part 4b

[Part 5 | BSP / HowTo: Exploring BSP Development and the MiniWAS 6.20 Part 5] – Conclusions

As you’ve seen BSP / HowTo: Exploring BSP Development and the MiniWAS 6.20 gave us the foundation for holding all of our data and then in BSP / HowTo: Exploring BSP Development and the MiniWAS 6.20 Part 2 we put our background data handling and rendering classes into place. Now as we move into Part 3 we will begin to build our pages and start to see this take shape.

OK, we’ve got some changes and additions to make so let’s get those out of the way first OK.

We need to create 2 more Tables and Table Types.

ZFAQ_SUBJECT and ZFAQSUBJECTAB with corresponding Table Types ZFAQ_SDNRSSLINK and ZFAQSDNRSSLINKTAB

ZFAQ_SUBJECT

ID INT4

NAME CHAR32 Name of the Subject

SUBJECT_DESC CHAR255 Description for the subject

ZFAQ_SDNRSSLINK

ID INT4

NAME CHAR32 Name of the RSS Link

LINK CHAR255 Link

Now we also need to add our new methods for retrieving the data.

GET_FAQ_CAT, GET_FAQ_SUBJECT, and GET_FAQ_RSSLINK each of these are the same with simply the table name changed.

select * from
into table DATA.
Page Fragments, the idea here is not to show perfect form but rather to show the various possiblities and
    real life applications of the BSP programming language that we have so often talked about
    on SDN

As you may be tempted to change content of the pages I ask that you please leave the content in tact until we are finished with this little exercise (around Part 5 I think).

event handler for checking and processing user input and
for defining navigation

DATA: event TYPE REF TO IF_HTMLB_DATA.

Get HTML Manager

event = CL_HTMLB_MANAGER=>get_event_ex( request ).

Check if one of the image buttons was clicked.

IF event IS NOT INITIAL
AND event->event_name = htmlb_events=>button.
navigation->goto_page( ‘faq.htm’ ).
ENDIF.

For more information on the Event Handlers please take a look BSP Trouble Shooting: Frequently Asked (Short) Questions.

this handler is called once the page is first created (stateful mode)
it performs a once-off data initialization or object creation

CREATE OBJECT obj.

faqtab = obj->GET_FAQ_DATA( ).

OnInputProcessing:

BSP Elements and Events

DATA: tabStrip TYPE REF TO CL_XHTMLB_TABSTRIP.
DATA: table TYPE REF TO CL_HTMLB_TABLEVIEW.
DATA: table_event TYPE REF TO cl_htmlb_event_tableview.
DATA: event TYPE REF TO IF_HTMLB_DATA.
DATA: ddlb TYPE REF TO CL_HTMLB_DROPDOWNLISTBOX.
DATA: listbox TYPE REF TO CL_HTMLB_LISTBOX.
DATA: rbg TYPE REF TO CL_HTMLB_RADIOBUTTONGROUP.

Data definitions

DATA: selectedRowIndex TYPE i.
DATA: myCategory TYPE STRING.
DATA: myRating TYPE STRING.
DATA: tmpSubject TYPE i,
mySubject TYPE STRING,
mySubjects TYPE STRING.

Table Types

DATA: wa TYPE ZFAQ_DATA.
DATA: fitab TYPE ZFAQ_DATA.

Get HTML Manager

event = CL_HTMLB_MANAGER=>get_event_ex( request ).

Get Tab Strip and check for tab selected.

tabStrip ?= CL_HTMLB_MANAGER=>GET_DATA( request = request
name = ‘xhtmlb:tabstrip’
id = ‘myTabs’ ).

Retrieve selected tab name and check if it is already selected

IF tabStrip->selection NE me->myTab.
me->myTab = tabStrip->selection.
CASE me->myTab.
WHEN ‘FAQ’.

Here we can do specific processing if the tab is selected.

ENDCASE.
ENDIF.

Retrieve selected row FAQ table if the tab is
FAQ tab

CASE me->myTab.
WHEN ‘FAQ’.
    table ?= CL_HTMLB_MANAGER=>GET_DATA( request = request
                                      name    = ‘tableView’
                                      id      = ‘faqData’ ).
ENDCASE.

IF table IS NOT INITIAL.
table_event = table->data.
selectedRowIndex = table_event->SELECTEDROWINDEX.
ENDIF.

Check if one of the image buttons was clicked.

IF event IS NOT INITIAL
AND event->event_name = htmlb_events=>image.

CASE event->event_id.
    WHEN ‘SDNIMP’.
      navigation->goto_page( ‘sdn.htm’ ).
    WHEN ‘ADDSUBJECTFORM’.
      navigation->goto_page( ‘cat.htm’ ).
    WHEN ‘ADDCATFORM’.
      navigation->goto_page( ‘subject.htm’ ).
    WHEN ‘ADDFAQFORM’.
      visibleForm = ‘addfaq’.
    WHEN ‘VIEWFAQ’.
      visibleForm = ‘viewfaq’.
      READ TABLE faqtab INTO curfaq INDEX selectedRowIndex.
    WHEN ‘CANADDFAQ’.
      visibleForm = ”.
    WHEN ‘ADDFAQ’.
      CLEAR wa.

In this case we will gather the values from the different
HTMLB form elements. Notice the various ways to do this.

      ddlb ?= CL_HTMLB_MANAGER=>GET_DATA(
                        request = request
                        id = ‘faq_category’
                        name = ‘dropdownListBox’ ).
      myCategory = ddlb->selection.

      rbg ?= CL_HTMLB_MANAGER=>GET_DATA(
                        request = request
                        id = ‘faq_rating’
                        name = ‘radioButtonGroup’ ).
      myRating = rbg->selection->value.

      listbox ?= CL_HTMLB_MANAGER=>GET_DATA(
                        request = request
                        id = ‘faq_subject’
                        name = ‘listBox’ ).
      CLEAR mySubjects.
      LOOP AT listbox->selections INTO mySubject.
        tmpSubject = mySubject.
        mySubject = obj->GET_SUBJECT_NAME( id = tmpSubject ).
        CONCATENATE
          mySubject
          mySubjects
        INTO mySubjects SEPARATED BY ‘,’.
      ENDLOOP.

wa-ID = obj->GET_NEXT_DATA_ID( table = ‘ZFAQ_DATA’ ).
wa-CDATE = SY-DATUM.

Get from select list

wa-CAT_ID = myCategory.
wa-SUBJECT = mySubjects.

Get from radio group

wa-RATING = myRating.

Get from form data

      wa-AUTHOR = request->GET_FORM_FIELD( name = ‘faq_author’ ).
      wa-TITLE = request->GET_FORM_FIELD( name = ‘faq_title’ ).
      wa-URL = request->GET_FORM_FIELD( name = ‘faq_url’ ).
      wa-SHORT_DESC = request->GET_FORM_FIELD(
                                name = ‘faq_short_desc’ ).
      wa-LONG_DESC = request->GET_FORM_FIELD( name = ‘faq_long_desc’ ).

      INSERT INTO ZFAQ_DATA VALUES wa.
      faqtab = obj->GET_FAQ_DATA( ).
    WHEN ‘DELFAQ’.
      IF selectedRowIndex NE 0.
        READ TABLE faqtab INTO fitab index selectedRowIndex.
        DELETE FROM ZFAQ_DATA WHERE ID = fitab-id.
        selectedRowIndex = 0.
        faqtab = obj->GET_FAQ_DATA( ).
      ENDIF.
ENDCASE.

ENDIF.

Watch for comments in the code itself for various tips and hints on how to do things and what could possibly be changed.

Due to the size of this weblog in the moment I’ve decided to break Part 3 into two sub parts. This first part will let you add a new entry, display the entry, delete the entry and should give you very good examples for working with BSP’s in various different ways. Remember this is an example of the various ways of working with the different elements, this is in no means an “efficient” production application.

Please go ahead and get these elements built and in place and in the next weblog we will finish of the “EDITING” and the additions of categories and subject types and we’ll also cover how to create your text for the various menus using the OTR.

Oh and for those of you interested I’ll be redoing this application into a “Model View” application type after we have completed these exercises. Look for that sometime in October.

<b>Error found:</b> Sorry about that please adjust these lines.

style=”border:thin none;width:300px;background-color:lightgrey;background:lightgrey”>
WHEN ‘ADDSUBJECTFORM’.

navigation->goto_page( ‘cat.htm’ ).

WHEN ‘ADDCATFORM’.

navigation->goto_page( ‘subject.htm’ ).

Please change the cat.htm and subject.htm around.

10 Comments

You must be Logged on to comment or reply to a post.

Faaiez Sallie October 20, 2004 at 11:19 pm

Craig

First, I would like to thank you for this good weblog series. I cannot wait for the MVC version.
I am however stuck with a syntax error on various pages which use the OnInputProcessing event. The error I get is:

Class HTMLB_EVENT is unknown.

Any assistance to correct this problem will be appreciated.

Thank You.

Faaiez

like (0)
1. Craig Cmehil October 21, 2004 at 12:08 am
  
  Glad you like and sorry you are having an error. Where exactly is the error? What page, event??
  
  perhaps the class is CL_HTMLB_EVENT
  
  like (0)
  1. Faaiez Sallie October 21, 2004 at 1:32 am
    
    The error is in all the pages that have code in the OnInputProcessing event. The pages are:
    
    1) CAT.HTM on line 30 -> ” AND event->event_name = htmlb_events=>image.”
    
    2) FAQ.HTM on line 56 -> ”   AND event->event_name = htmlb_events=>image.”
    
    3) INDEX.HTM on line 11 -> ”   AND event->event_name = htmlb_events=>button.
    
    4) SUBJECTS.HTM on line 29 -> ”    AND event->event_name = html_events=>image.
    
    I’ve tried CL_HTMLB_EVENT but this does not work.
    
    Regards
    
    Faaiez
    
    like (0)
    1. Craig Cmehil October 21, 2004 at 2:00 am
      
      Why you are getting an error with that I don’t know, what SP level do you have for ABA and BASIS?
      
      htmlb_events is correct.
      
      like (0)
      1. Faaiez Sallie October 21, 2004 at 2:17 am
        
        We’re on:
        SAP_BASIS 620 0042
        SAP_ABA 620 0038
        
        I’ve changed htmlb_events=>image to ‘image’ and
        htmlb_events=>button to ‘button’.
        This works fine. Now I must figure out how this app works.
        
        Faaiez
        
        like (0)
        
        Craig Cmehil October 21, 2004 at 3:46 am
        
        I can’t even reproduce the error, although the system I did this in is ABA and BASIS 43.
        
        like (0)
Tiest van Gool December 19, 2004 at 12:10 pm

Craig, I am trying to activate the FAQ page but keep on running into a unknown data element error: table CURFAQ cannot be found. I have looked through the coding and can see this table being filled in the OnInputProcessing but I cannot find any definition for this table. Any suggestions on what I am missing? Thanks, Tiest

like (0)
1. Tiest van Gool December 19, 2004 at 2:48 pm
  
  I added the table definition in the page attributes and issue seems to have been resolved. If this is a correct solution perhaps you would like to modify this page. Tiest
  
  like (0)
  1. Craig Cmehil December 19, 2004 at 9:37 pm
    
    To be honest I’m not sure, I’ll have to check my code on my MiniWAS when I get home. Thanks for the catch though.
    
    like (0)
    1. Tiest van Gool December 22, 2004 at 11:14 am
      
      Just as a reminder, I had an issue with a data definition for the table ‘curfaq.’ To bypass this problem I have added a page attributed ‘curfaq’ type ZFAQ_DATA. When you have the time you cna check whether this definition is missing in your weblog. Tiest.
      
      like (0)