BSP Page validation through ABAP in EventHandler

Question

Hello Experts,
I am new in BSP Application.Kindly help me.
I have created a page through HTML code, now I have to validate input fields through ABAP code instead of JAVASCRIPT.
Can I do it in EventHandler.
If yes then please let me know with some examples.
Regards,
Ankur.

Answer 1

Hi anukur,
Ok, Let me show you one example which i have done ok,may be that may help you out.
layout  page is
on input processing
event handler for checking and processing user input and
for defining navigation
DATA:
w_event TYPE REF TO cl_htmlb_event,
  w_obj TYPE REF TO object,
  w_carrid TYPE REF TO cl_htmlb_inputfield,
  r_carrid TYPE RANGE OF sflight-carrid,
  r_id LIKE LINE OF  r_carrid.
CALL METHOD cl_htmlb_manager=>get_event
  EXPORTING
    request = runtime->server->request
  RECEIVING
    event   = w_event.
CASE w_event->id.
  WHEN 'get'.
    CALL METHOD cl_htmlb_manager=>get_data
      EXPORTING
        request = runtime->server->request
        name    = 'inputfield'
        id      = 'carrid'
      RECEIVING
        data    = w_obj.
    w_carrid ?= w_obj.
    w_scarrid = w_carrid->value.
    w_input = w_scarrid.
    CLEAR: w_obj.
    IF w_scarrid IS INITIAL.
      page->messages->add_message(
  condition = 'w_id1'
  message = 'Enter carrid value'
  severity = page->messages->co_severity_error ).
    ENDIF.
    IF w_scarrid CA '0123456789~!@#$%^&*()_-+='.
      page->messages->add_message(
        condition = 'w_id2'
        message = 'Enter a valid carrid'
        severity = page->messages->co_severity_error ).
      exit.
    ENDIF.
    IF w_scarrid IS NOT INITIAL.
      TRANSLATE w_scarrid TO UPPER CASE.
      IF w_scarrid IS NOT INITIAL.
        r_id-low = w_scarrid.
        r_id-sign = 'I'.
        r_id-option = 'CP'.
        APPEND r_id TO r_carrid.
      ENDIF.
      SELECT carrid connid fldate price seatsmax seatsocc FROM sflight
INTO TABLE t_flight WHERE
  carrid IN r_carrid.
      IF sy-subrc = 0.
        fl_flag = 1.
        EXIT.
      ELSE.
        page->messages->add_message(
        condition = 'w_id'
        message = 'No record exist '
        severity = page->messages->co_severity_error ).
      ENDIF.
    ENDIF.
ENDCASE.
Edited by: Bhavana Amar on Mar 19, 2010 8:35 AM