Problem with Interaction between SAP GUI and BSP Applications

Question

Hi Folks,
I am new to BSP and am trying to create a program to created a BSP within the SAP GUI. This is my program, I have tried to find as to what error have I made but I am not able to find out.
I can only find a button post document in the output, but I am not able to trigger any event. Please let me know as to what is the error.

Answer 1

REPORT  zbsp_iact_gui.
SET SCREEN 100.
*       CLASS cl_my_html_yiewer  DEFINITION
CLASS cl_my_html_viewer DEFINITION INHERITING FROM cl_gui_html_viewer.
  PUBLIC SECTION.
    METHODS: constructor IMPORTING parent TYPE REF TO cl_gui_container.
    METHODS: on_sapevent FOR EVENT sapevent OF cl_gui_html_viewer IMPORTING action postdata.
ENDCLASS.                    "cl_my_html_viewer  DEFINITION
*       CLASS cl_my_html_viewer IMPLEMENTATION
CLASS cl_my_html_viewer IMPLEMENTATION.
  METHOD constructor.
    super->constructor( parent = parent ).
    DATA: event_tab TYPE cntl_simple_events,
          event TYPE cntl_simple_event.
    event-eventid = me->m_id_sapevent.
    event-appl_event = 'X'.
    APPEND event TO event_tab.
    call method html_control->set_registered_events
        exporting
           events = event_tab.
    SET HANDLER me->on_sapevent FOR me.
  ENDMETHOD.                    "constructor
  METHOD on_sapevent.
    BREAK-POINT.
    IF action CS 'COUNTER'.
      DATA: counter TYPE string.
      READ TABLE postdata INDEX 1 INTO counter.
      SPLIT counter AT '=' INTO counter counter.
      MESSAGE counter TYPE 'I'.
    ENDIF .
  ENDMETHOD.                    "on_sapevent
ENDCLASS.                    "cl_my_html_viewer IMPLEMENTATION
DATA: html_viewer TYPE REF TO cl_my_html_viewer,
      html_container TYPE REF TO cl_gui_custom_container,
      fcode LIKE sy-ucomm.
*&      Module  STATUS_0100  OUTPUT
*       text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'TESTHTM1'.
  IF html_viewer IS INITIAL.
    CREATE OBJECT html_container
      EXPORTING
        container_name = 'HTML'.
    CREATE OBJECT html_viewer
      EXPORTING
        parent = html_container.
    DATA: url TYPE string, urlc(2048) TYPE c.
    cl_bsp_runtime=>construct_bsp_url(
    EXPORTING in_application = 'ZBSP_IACT_GUI'
    in_page = 'Start.htm'
    IMPORTING out_abs_url = url ).
    urlc = url. " type conversion STRING to C
    CONCATENATE urlc '?SAP-CLIENT=650' INTO urlc.
    html_viewer->show_url( url = urlc ).
  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
*       text
MODULE user_command_0100 INPUT.
  CASE fcode.
    WHEN OTHERS.
      CALL METHOD cl_gui_cfw=>dispatch.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
Edited by: Nonconformist Pagal on May 12, 2009 1:42 PM
Edited for formatting by: Durairaj Athavan Raja on May 14, 2009 9:50 AM