REPORT bc_controls_tutorial.

*--------------------------------------------------------------

* This report is the result of all exercises described in the

* "Controls Tutorial".

*--------------------------------------------------------------

*

*( Code added in: Lesson 1, Exercise 2

DATA: custom_container TYPE REF TO cl_gui_custom_container,

      editor TYPE REF TO cl_gui_textedit,

      repid LIKE sy-repid.

CONSTANTS: line_length TYPE i VALUE 256.

*)

*( Code added in: Lesson 3, Exercise 4

DATA: scratch TYPE REF TO cl_gui_textedit,

     custom_container2 TYPE REF TO cl_gui_custom_container.

*)

*( Code added in: Lesson 1, Exercise 3

TYPES: BEGIN OF mytable_line,

          line(line_length) TYPE c,

          END OF mytable_line.

DATA: mytable TYPE TABLE OF mytable_line,

      textstruct TYPE mytable_line,

      g_loaded TYPE c.

*)

*( Code added in: Lesson 2, Exercise 2

DATA events TYPE cntl_simple_events.

DATA wa_events TYPE cntl_simple_event.

*)

*( Code added in: Lesson 2, Exercise 1

DATA: event_type(20) TYPE c.

*---------------------------------------------------------------------*

*       CLASS lcl_event_handler DEFINITION

*---------------------------------------------------------------------*

*       ........                                                      *

*---------------------------------------------------------------------*

CLASS lcl_event_handler DEFINITION.

  PUBLIC SECTION.

    CLASS-METHODS: catch_dblclick

                       FOR EVENT dblclick OF cl_gui_textedit

                       IMPORTING sender.

ENDCLASS.

DATA: event_handler TYPE REF TO lcl_event_handler.

*---------------------------------------------------------------------*

*       CLASS lcl_event_handler IMPLEMENTATION

*---------------------------------------------------------------------*

*       ........                                                      *

*---------------------------------------------------------------------*

CLASS lcl_event_handler IMPLEMENTATION.

  METHOD catch_dblclick.

*( Code added in: Lesson 2, Exercise 4

    DATA: from_line TYPE i,

           from_pos TYPE i,

           to_line TYPE i,

           to_pos TYPE i.

    CALL METHOD sender->get_selection_pos

        IMPORTING

                from_line = from_line

                from_pos = from_pos

                to_line = to_line

                to_pos = to_pos.

    IF not g_loaded is initial.

      CALL METHOD sender->get_text_as_r3table

        IMPORTING

               table = mytable.

    ENDIF.

    READ TABLE mytable INDEX from_line INTO textstruct.

    IF sy-subrc = 0.

      IF textstruct+0(1) cs '*'.

        SHIFT textstruct.

      ELSEIF textstruct+0(1) ns '*'.

        SHIFT textstruct RIGHT.

        textstruct+0(1) = '*'.

      ENDIF.

      MODIFY mytable FROM textstruct INDEX from_line.

      CALL METHOD sender->set_text_as_r3table

         EXPORTING table = mytable

      EXCEPTIONS

         OTHERS = 1.

    ENDIF.

    CALL METHOD cl_gui_cfw=>flush.

    IF sy-subrc ne 0.

      CALL FUNCTION 'POPUP_TO_INFORM'

           EXPORTING

                titel = repid

                txt2  = sy-subrc

                txt1  = 'Method CATCH_DBLCLICK: Error in Flush!'(602).

    ENDIF.

*)

*( Code changed in Lesson 2, Exercise 3

* (event_type is set at PAI time now!)

*    event_type = text-002.

* (added)

    CALL METHOD cl_gui_cfw=>set_new_ok_code

         EXPORTING new_code = 'SHOW'.

*)

  ENDMETHOD.

ENDCLASS.

*)

*( Code added in: Lesson 1, Exercise 1

DATA  ok_code LIKE sy-ucomm.

START-OF-SELECTION.

  SET SCREEN '100'.

*)

*&---------------------------------------------------------------------*

*&      Module  USER_COMMAND_0100  INPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*( Code added in: Lesson 1, Exercise 1

MODULE user_command_0100 INPUT.

  CASE ok_code.

    WHEN 'EXIT'.

      LEAVE TO SCREEN 0.

*( Code added in: Lesson 1, Exercise 3

    WHEN 'IMP'.

      PERFORM load_tab.

*)

*( Code added in: Lesson 2, Exercise 3

    WHEN 'SHOW'.

      event_type = 'Doubleclick'(555).

*)

*( Code added in: Lesson 3, Exercise 1

    WHEN 'PROTECT'.

      DATA: from_idx TYPE i,

            to_idx TYPE i,

            index TYPE i.

*( Code added in: Lesson 3, Exercise 3

* remark: In this exercise, the calls GET_SELECTION_POS and

*         GET_FIRST_VISIBLE LINE are copied to Form GET_LINES.

      PERFORM get_lines CHANGING from_idx to_idx index.

*### Note: There is no Flush call in form GET_LINES!

*)

*(

* Code added in: Lesson 3, Exercise 2

      CALL METHOD cl_gui_cfw=>flush.

      IF sy-subrc ne 0.

        CALL FUNCTION 'POPUP_TO_INFORM'

             EXPORTING

                  titel = repid

                  txt2  = sy-subrc

                  txt1 =

                     'PAI USER_COMMAND_100(1): Error in Flush!'(603).

      ENDIF.

      IF from_idx = index.

        MESSAGE i208(00) WITH text-003.

        EXIT.

      ENDIF.

*)

      LOOP AT mytable INTO textstruct.

        IF ( sy-tabix >= from_idx and sy-tabix <= to_idx ).

          index = sy-tabix.

          CALL METHOD editor->protect_lines

                  EXPORTING from_line = index

                            to_line   = index.

        ENDIF.

      ENDLOOP.

      CALL METHOD cl_gui_cfw=>flush.

      IF sy-subrc ne 0.

        CALL FUNCTION 'POPUP_TO_INFORM'

             EXPORTING

                  titel = repid

                  txt2  = sy-subrc

                  txt1 =

                     'PAI USER_COMMAND_100(2): Error in Flush!'(604).

      ENDIF.

*)

*( Code added in: Lesson 2, Exercise 2

    WHEN OTHERS.

*(

* The following line was commented out in Lesson 2, Exercise 3

* (DISPATCH is not needed when using system events only)

*      CALL METHOD cl_gui_cfw=>dispatch.

*)

  ENDCASE.

*)

ENDMODULE.                             " USER_COMMAND_0100  INPUT

*&---------------------------------------------------------------------*

*&      Module  STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE status_0100 OUTPUT.

*  SET PF-STATUS 'xxxxxxxx'.

*  SET TITLEBAR 'xxx'.

*( Code added in: Lesson 1, Exercise 2

  IF editor is initial.

    repid = sy-repid.

    CREATE OBJECT custom_container

       EXPORTING

          container_name = 'MYCONTAINER1'

       EXCEPTIONS

          cntl_error = 1

          cntl_system_error = 2

          create_error = 3

          lifetime_error = 4

          lifetime_dynpro_dynpro_link = 5.

    CREATE OBJECT editor

       EXPORTING

          parent = custom_container

          wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position

          wordwrap_position = line_length

          wordwrap_to_linebreak_mode = cl_gui_textedit=>true.

* ( Code added in: Lesson 2, Exercise 2

    wa_events-eventid = cl_gui_textedit=>event_double_click.

*( Code changed in: Lesson 2, Exercise 3

*   wa_events-appl_event = 'X'.

    wa_events-appl_event = space.

*)

    APPEND wa_events TO events.

    CALL METHOD editor->set_registered_events

          EXPORTING events = events.

* )

*( Code added in: Lesson 1, Exercise 1

    SET HANDLER event_handler->catch_dblclick FOR editor.

*)

*( Code added in: Lesson 3, Exercise 4

    CREATE OBJECT custom_container2

          EXPORTING

             container_name = 'MYCONTAINER2'

          EXCEPTIONS

             cntl_error = 1

             cntl_system_error = 2

             create_error = 3

             lifetime_error = 4

             lifetime_dynpro_dynpro_link = 5.

    CREATE OBJECT scratch

       EXPORTING

          parent = custom_container2

          wordwrap_mode = cl_gui_textedit=>wordwrap_at_windowborder

          wordwrap_to_linebreak_mode = cl_gui_textedit=>true.

    CALL METHOD scratch->set_statusbar_mode

       EXPORTING

          statusbar_mode = cl_gui_textedit=>false.

*)

*( Code added in: Lesson 1, Exercise 3

    DO 20 TIMES.

      WRITE text-001 TO textstruct-line.

      APPEND textstruct TO mytable.

    ENDDO.

*)

  ENDIF.                               "editor is initial

*)

ENDMODULE.                             " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*

*&      Form  load_tab

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

FORM load_tab.

*( Code added in: Lesson 1, Exercise 3

  CALL METHOD editor->set_text_as_r3table

            EXPORTING table = mytable

     EXCEPTIONS

         OTHERS = 1.

  IF sy-subrc ne 0.

    CALL FUNCTION 'POPUP_TO_INFORM'

         EXPORTING

              titel = repid

              txt2  = ' '

              txt1  = 'Error in set_text_as_r3table'(600).

  ELSE.

    g_loaded = 'X'.

  ENDIF.

  CALL METHOD cl_gui_cfw=>flush.

  IF sy-subrc ne 0.

    CALL FUNCTION 'POPUP_TO_INFORM'

         EXPORTING

              titel = repid

              txt2  = sy-subrc

              txt1  = 'Form LOAD_TAB: Error in FLUSH'(601).

  ENDIF.

*)

ENDFORM.                               " load_tab

*&---------------------------------------------------------------------*

*&      Form  GET_LINES

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      <--P_FROM_IDX  text

*      <--P_TO_IDX  text

*      <--P_INDEX  text

*----------------------------------------------------------------------*

FORM get_lines CHANGING from_idx TYPE i

                        to_idx   TYPE i

                        index    TYPE i.

*###(

*### The following code block has been moved from PAI to form GET_LINES

*### in Lesson 3, Exercise 3

  CALL METHOD editor->get_selection_pos

         IMPORTING

            from_line = from_idx

            to_line = to_idx

  EXCEPTIONS

            error_cntl_call_method = 1.

*( Code added in: Lesson 3, Exercise 2

  CALL METHOD editor->get_first_visible_line

           IMPORTING

               line = index

           EXCEPTIONS

               error_cntl_call_method = 1.

*)

* Note: The flush is made after returning from this form!

ENDFORM.                               " GET_LINES

*&---------------------------------------------------------------------*

*& Report  RSDEMO_CUSTOM_CONTROL                                       *

*&                                                                     *

*&---------------------------------------------------------------------*

*&                                                                     *

*&                                                                     *

*&---------------------------------------------------------------------*

REPORT  rsdemo_custom_control         .

DATA  url(132).

TYPE-POOLS cndp.

* custom container

DATA container TYPE REF TO cl_gui_custom_container.

* picture Control.

DATA picture TYPE REF TO cl_gui_picture.

* Definition of Control Framework

CLASS cl_gui_cfw DEFINITION LOAD.

DATA  init.

DATA ok_code TYPE sy-ucomm.

CALL SCREEN 100.

*&---------------------------------------------------------------------*

*&      Module  STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE status_0100 OUTPUT.

  SET PF-STATUS 'STATUS'.

*  SET TITLEBAR 'xxx'.

  IF init is initial.

* create the custom container

    CREATE OBJECT container

                  EXPORTING container_name = 'CUSTOM'.

* create the picture control

    CREATE OBJECT picture

                  EXPORTING parent = container.

* Request an URL from the data provider by exporting the pic_data.

    CLEAR URL.

    PERFORM LOAD_PIC_FROM_DB CHANGING URL.

* load picture

    CALL METHOD picture->load_picture_from_url

        EXPORTING url = url.

    init = 'X'.

    CALL METHOD cl_gui_cfw=>flush

         EXCEPTIONS cntl_system_error = 1

                    cntl_error = 2.

    IF sy-subrc <> 0.

* error handling

    ENDIF.

  ENDIF.

ENDMODULE.                             " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*

*&      Module  EXIT  INPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE exit INPUT.

  CALL METHOD picture->free.

  CALL METHOD container->free.

  FREE picture.

  FREE container.

  LEAVE PROGRAM.

ENDMODULE.                             " EXIT  INPUT

*&---------------------------------------------------------------------*

*&      Form  LOAD_PIC_FROM_DB

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

FORM LOAD_PIC_FROM_DB CHANGING URL.

  DATA QUERY_TABLE LIKE W3QUERY OCCURS 1 WITH HEADER LINE.

  DATA HTML_TABLE LIKE W3HTML OCCURS 1.

  DATA RETURN_CODE LIKE  W3PARAM-RET_CODE.

  DATA CONTENT_TYPE LIKE  W3PARAM-CONT_TYPE.

  DATA CONTENT_LENGTH LIKE  W3PARAM-CONT_LEN.

  DATA PIC_DATA LIKE W3MIME OCCURS 0.

  DATA PIC_SIZE TYPE I.

  REFRESH QUERY_TABLE.

  QUERY_TABLE-NAME = '_OBJECT_ID'.

  QUERY_TABLE-VALUE = 'ENJOYSAP_LOGO'.

  APPEND QUERY_TABLE.

  CALL FUNCTION 'WWW_GET_MIME_OBJECT'

       TABLES

            QUERY_STRING        = QUERY_TABLE

            HTML                = HTML_TABLE

            MIME                = PIC_DATA

       CHANGING

            RETURN_CODE         = RETURN_CODE

            CONTENT_TYPE        = CONTENT_TYPE

            CONTENT_LENGTH      = CONTENT_LENGTH

       EXCEPTIONS

            OBJECT_NOT_FOUND    = 1

            PARAMETER_NOT_FOUND = 2

            OTHERS              = 3.

  if sy-subrc = 0.

    PIC_SIZE = CONTENT_LENGTH.

  endif.

CALL FUNCTION 'DP_CREATE_URL'

         EXPORTING

              TYPE     = 'image'

              SUBTYPE  = cndp_sap_tab_unknown

              SIZE     = PIC_SIZE

              lifetime = cndp_lifetime_transaction

         TABLES

              DATA     = PIC_DATA

         CHANGING

              URL      = URL

         EXCEPTIONS

              others   = 1.

ENDFORM.                    " LOAD_PIC_FROM_DB

*&---------------------------------------------------------------------*

*& Report  RSDEMO_DOCKING_CONTROL                                      *

*&                                                                     *

*&---------------------------------------------------------------------*

*&                                                                     *

*&                                                                     *

*&---------------------------------------------------------------------*

REPORT  rsdemo_docking_control         .

* Docking Container

DATA docking TYPE REF TO cl_gui_docking_container.

* Picture Control

DATA picture TYPE REF TO cl_gui_picture.

* Definition of Control Framework

TYPE-POOLS cndp.

DATA  init.

DATA ok_code TYPE sy-ucomm.

DATA repid TYPE sy-repid.

DATA dynnr TYPE sy-dynnr.

CALL SCREEN 100.

*&---------------------------------------------------------------------*

*&      Module  STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE status_0100 OUTPUT.

  SET PF-STATUS 'STATUS'.

*  SET TITLEBAR 'xxx'.

  IF init is initial.

    repid = sy-repid.

    dynnr = sy-dynnr.

* create the docking container

    CREATE OBJECT docking

                  EXPORTING repid     = repid

                            dynnr     = dynnr

                            side      = docking->dock_at_left

                            extension = 180.

* create the picture container

    CREATE OBJECT picture

                  EXPORTING parent = docking.

* Request an URL from the data provider by exporting the pic_data.

    DATA url(255).

    CLEAR url.

    PERFORM load_pic_from_db CHANGING url.

* load picture

    CALL METHOD picture->load_picture_from_url

        EXPORTING url = url.

    init = 'X'.

  ENDIF.

ENDMODULE.                             " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*

*&      Module  EXIT  INPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE exit INPUT.

  CALL METHOD docking->free.

  LEAVE PROGRAM.

ENDMODULE.                             " EXIT  INPUT

*&---------------------------------------------------------------------*

*&      Form  LOAD_PIC_FROM_DB

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

FORM load_pic_from_db CHANGING url.

  DATA query_table LIKE w3query OCCURS 1 WITH HEADER LINE.

  DATA html_table LIKE w3html OCCURS 1.

  DATA return_code LIKE  w3param-ret_code.

  DATA content_type LIKE  w3param-cont_type.

  DATA content_length LIKE  w3param-cont_len.

  DATA pic_data LIKE w3mime OCCURS 0.

  DATA pic_size TYPE i.

  REFRESH query_table.

  query_table-name = '_OBJECT_ID'.

  query_table-value = 'ENJOYSAP_LOGO'.

  APPEND query_table.

  CALL FUNCTION 'WWW_GET_MIME_OBJECT'

       TABLES

            query_string        = query_table

            html                = html_table

            mime                = pic_data

       CHANGING

            return_code         = return_code

            content_type        = content_type

            content_length      = content_length

       EXCEPTIONS

            OBJECT_NOT_FOUND    = 1

            parameter_not_found = 2

            OTHERS              = 3.

  IF sy-subrc = 0.

    pic_size = content_length.

  ENDIF.

  CALL FUNCTION 'DP_CREATE_URL'

       EXPORTING

            type     = 'image'

            subtype  = cndp_sap_tab_unknown

            size     = pic_size

            lifetime = cndp_lifetime_transaction

       TABLES

            data     = pic_data

       CHANGING

            url      = url

       EXCEPTIONS

            OTHERS   = 1.

ENDFORM.                               " LOAD_PIC_FROM_DB

*&---------------------------------------------------------------------*

*& Report  RSDEMO_SPLITTER_CONTROL                                     *

*&                                                                     *

*&---------------------------------------------------------------------*

*&                                                                     *

*&                                                                     *

*&---------------------------------------------------------------------*

REPORT  rsdemo_splitter_control         .

DATA  url(132).

DATA splitter TYPE REF TO cl_gui_splitter_container.

DATA container TYPE REF TO cl_gui_custom_container.

DATA container_1 TYPE REF TO cl_gui_container.

DATA container_2 TYPE REF TO cl_gui_container.

DATA picture_1 TYPE REF TO cl_gui_picture.

DATA picture_2 TYPE REF TO cl_gui_picture.

DATA  init.

DATA ok_code TYPE sy-ucomm.

TYPE-POOLS cndp.

CALL SCREEN 100.

*&---------------------------------------------------------------------*

*&      Module  STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE status_0100 OUTPUT.

  SET PF-STATUS 'STATUS'.

  IF init is initial.

    CREATE OBJECT container

                  EXPORTING container_name = 'CUSTOM'.

    CREATE OBJECT splitter

                  EXPORTING parent = container

                            rows    = 1

                            columns = 2.

    CALL METHOD splitter->get_container

                      EXPORTING row      = 1

                                column   = 1

                      RECEIVING container = container_1.

    CALL METHOD splitter->get_container

                  EXPORTING row      = 1

                            column   = 2

                  RECEIVING container = container_2.

    CREATE OBJECT picture_1

                  EXPORTING parent  = container_1.

    CREATE OBJECT picture_2

                  EXPORTING parent  = container_2.

* Request an URL from the data provider by exporting the pic_data.

    CLEAR url.

    PERFORM load_pic_from_db CHANGING url.

* load picture

    CALL METHOD picture_1->load_picture_from_url

        EXPORTING url = url.

    CALL METHOD picture_2->load_picture_from_url

        EXPORTING url = url.

    init = 'X'.

    CALL METHOD cl_gui_cfw=>flush

         EXCEPTIONS cntl_system_error = 1

                    cntl_error = 2.

    IF sy-subrc <> 0.

* error handling

    ENDIF.

  ENDIF.

ENDMODULE.                             " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*

*&      Module  EXIT  INPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE exit INPUT.

  CALL METHOD container->free.

  LEAVE PROGRAM.

ENDMODULE.                             " EXIT  INPUT

*&---------------------------------------------------------------------*

*&      Form  LOAD_PIC_FROM_DB

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

FORM load_pic_from_db CHANGING url.

  DATA query_table LIKE w3query OCCURS 1 WITH HEADER LINE.

  DATA html_table LIKE w3html OCCURS 1.

  DATA return_code LIKE  w3param-ret_code.

  DATA content_type LIKE  w3param-cont_type.

  DATA content_length LIKE  w3param-cont_len.

  DATA pic_data LIKE w3mime OCCURS 0.

  DATA pic_size TYPE i.

  REFRESH query_table.

  query_table-name = '_OBJECT_ID'.

  query_table-value = 'ENJOYSAP_LOGO'.

  APPEND query_table.

  CALL FUNCTION 'WWW_GET_MIME_OBJECT'

       TABLES

            query_string        = query_table

            html                = html_table

            mime                = pic_data

       CHANGING

            return_code         = return_code

            content_type        = content_type

            content_length      = content_length

       EXCEPTIONS

            OBJECT_NOT_FOUND    = 1

            parameter_not_found = 2

            OTHERS              = 3.

  IF sy-subrc = 0.

    pic_size = content_length.

  ENDIF.

  CALL FUNCTION 'DP_CREATE_URL'

       EXPORTING

            type     = 'image'

            subtype  = cndp_sap_tab_unknown

            size     = pic_size

            lifetime = cndp_lifetime_transaction

       TABLES

            data     = pic_data

       CHANGING

            url      = url

       EXCEPTIONS

            OTHERS   = 1.

endform.

*&---------------------------------------------------------------------*

*& Report  RSDEMO_EASY_SPLITTER_CONTROL                                *

*&                                                                     *

*&---------------------------------------------------------------------*

*&                                                                     *

*&                                                                     *

*&---------------------------------------------------------------------*

REPORT  rsdemo_easy_splitter_control         .

* splitter control

DATA splitter TYPE REF TO cl_gui_easy_splitter_container.

* container for the splitter control

DATA container TYPE REF TO cl_gui_custom_container.

* containers created by the splitter control

DATA container_1 TYPE REF TO cl_gui_container.

DATA container_2 TYPE REF TO cl_gui_container.

* picture controls

DATA picture_1 TYPE REF TO cl_gui_picture.

DATA picture_2 TYPE REF TO cl_gui_picture.

* load control framework definition

TYPE-POOLS cndp.

DATA  init.

DATA ok_code TYPE sy-ucomm.

CALL SCREEN 100.

*&---------------------------------------------------------------------*

*&      Module  STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE status_0100 OUTPUT.

  SET PF-STATUS 'STATUS'.

  IF init is initial.

* create a container for the splitter control

    CREATE OBJECT container

                  EXPORTING container_name = 'CUSTOM'.

* create the splitter control

    CREATE OBJECT splitter

                  EXPORTING parent = container

                            orientation    = 1.

* get the containers of the splitter control

    container_1 = splitter->top_left_container.

    container_2 = splitter->bottom_right_container.

* create the picture controls inside the containers of the splitter

    CREATE OBJECT picture_1

                  EXPORTING parent  = container_1.

    CREATE OBJECT picture_2

                  EXPORTING parent  = container_2.

* Request an URL from the data provider by exporting the pic_data.

    DATA url(255).

    CLEAR url.

    PERFORM load_pic_from_db CHANGING url.

* load picture

    CALL METHOD picture_1->load_picture_from_url

        EXPORTING url = url.

    CALL METHOD picture_2->load_picture_from_url

        EXPORTING url = url.

    init = 'X'.

    CALL METHOD cl_gui_cfw=>flush

         EXCEPTIONS cntl_system_error = 1

                    cntl_error = 2.

    IF sy-subrc <> 0.

* error handling

    ENDIF.

  ENDIF.

ENDMODULE.                             " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*

*&      Module  EXIT  INPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE exit INPUT.

  CALL METHOD container->free.

  LEAVE PROGRAM.

ENDMODULE.                             " EXIT  INPUT

*&---------------------------------------------------------------------*

*&      Form  LOAD_PIC_FROM_DB

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

FORM load_pic_from_db CHANGING url.

  DATA query_table LIKE w3query OCCURS 1 WITH HEADER LINE.

  DATA html_table LIKE w3html OCCURS 1.

  DATA return_code LIKE  w3param-ret_code.

  DATA content_type LIKE  w3param-cont_type.

  DATA content_length LIKE  w3param-cont_len.

  DATA pic_data LIKE w3mime OCCURS 0.

  DATA pic_size TYPE i.

  REFRESH query_table.

  query_table-name = '_OBJECT_ID'.

  query_table-value = 'ENJOYSAP_LOGO'.

  APPEND query_table.

  CALL FUNCTION 'WWW_GET_MIME_OBJECT'

       TABLES

            query_string        = query_table

            html                = html_table

            mime                = pic_data

       CHANGING

            return_code         = return_code

            content_type        = content_type

            content_length      = content_length

       EXCEPTIONS

            OBJECT_NOT_FOUND    = 1

            parameter_not_found = 2

            OTHERS              = 3.

  IF sy-subrc = 0.

    pic_size = content_length.

  ENDIF.

  CALL FUNCTION 'DP_CREATE_URL'

       EXPORTING

            type     = 'image'

            subtype  = cndp_sap_tab_unknown

            size     = pic_size

            lifetime = cndp_lifetime_transaction

       TABLES

            data     = pic_data

       CHANGING

            url      = url

       EXCEPTIONS

            OTHERS   = 1.

ENDFORM.                               " LOAD_PIC_FROM_DB

*&---------------------------------------------------------------------*

*& Report  RSDEMO_DIALOGBOX_CONTROL                                    *

*&                                                                     *

*&---------------------------------------------------------------------*

*&                                                                     *

*&                                                                     *

*&---------------------------------------------------------------------*

REPORT  rsdemo_dialogbox_control         .

DATA repid TYPE sy-repid.

DATA dynnr TYPE sy-dynnr.

DATA  init.

DATA ok_code TYPE sy-ucomm.

TYPE-POOLS cndp.

* dialogbox Container

DATA dialogbox TYPE REF TO cl_gui_dialogbox_container.

* picture Control

DATA picture TYPE REF TO cl_gui_picture.

* Definition of Control Framework

CLASS cl_gui_cfw DEFINITION LOAD.

CALL SCREEN 100.

*&---------------------------------------------------------------------*

*&      Module  STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE status_0100 OUTPUT.

  SET PF-STATUS 'STATUS'.

*  SET TITLEBAR 'xxx'.

  IF init IS INITIAL.

    repid = sy-repid.

    dynnr = sy-dynnr.

    CREATE OBJECT dialogbox

                  EXPORTING

                           width    = 540

                           height   = 100

                           top      = 150

                           left     = 150

                           repid    = repid

                           dynnr    = dynnr.

    CREATE OBJECT picture

                  EXPORTING parent = dialogbox.

* Request an URL from the data provider by exporting the pic_data.

    DATA url(255).

    CLEAR url.

    PERFORM load_pic_from_db CHANGING url.

* load picture

    CALL METHOD picture->load_picture_from_url

        EXPORTING url = url.

    init = 'X'.

    CALL METHOD cl_gui_cfw=>flush

         EXCEPTIONS cntl_system_error = 1

                    cntl_error = 2.

    IF sy-subrc <> 0.

* error handling

    ENDIF.

  ENDIF.

ENDMODULE.                             " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*

*&      Module  EXIT  INPUT

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

MODULE exit INPUT.

  CALL METHOD dialogbox->free.

  LEAVE PROGRAM.

ENDMODULE.                             " EXIT  INPUT

*&---------------------------------------------------------------------*

*&      Form  LOAD_PIC_FROM_DB

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*

*----------------------------------------------------------------------*

FORM load_pic_from_db CHANGING url.

  DATA query_table LIKE w3query OCCURS 1 WITH HEADER LINE.

  DATA html_table LIKE w3html OCCURS 1.

  DATA return_code LIKE  w3param-ret_code.

  DATA content_type LIKE  w3param-cont_type.

  DATA content_length LIKE  w3param-cont_len.

  DATA pic_data LIKE w3mime OCCURS 0.

  DATA pic_size TYPE i.

  REFRESH query_table.

  query_table-name = '_OBJECT_ID'.

  query_table-value = 'ENJOYSAP_LOGO'.

  APPEND query_table.

  CALL FUNCTION 'WWW_GET_MIME_OBJECT'

       TABLES

            query_string        = query_table

            html                = html_table

            mime                = pic_data

       CHANGING

            return_code         = return_code

            content_type        = content_type

            content_length      = content_length

       EXCEPTIONS

            OBJECT_NOT_FOUND    = 1

            parameter_not_found = 2

            OTHERS              = 3.

  IF sy-subrc = 0.

    pic_size = content_length.

  ENDIF.

  CALL FUNCTION 'DP_CREATE_URL'

       EXPORTING

            type     = 'image'

            subtype  = cndp_sap_tab_unknown

            size     = pic_size

            lifetime = cndp_lifetime_transaction

       TABLES

            data     = pic_data

       CHANGING

            url      = url

       EXCEPTIONS

            OTHERS   = 1.

ENDFORM.                               " LOAD_PIC_FROM_DB