Split screen in module pool programming

[Former Member]

Hi Sap GURUS,

Please can you provide me some help on how to create the spilt screen ( similar to IDOC screen WE05 transaction ) screen. left side the idoc nubmer are available, on click of particular IDOC, detials would be displayed in right side sceen. I need to develope the screen like this.

You inputs are highly appricated.

Thanks in advance.

Regards

Harikrishna

[Former Member]

It has used ALV Tree Control.

Look into the below sample program

http://www.saptechies.com/demo-program-on-alv-tree-control/

[Former Member]

Hi,

for split screen in module pool, you can use CUSTOM CONTROL.....

For this you need to define a custom control in screen which you an use to display various kinds of objects.....

If you are using OOPS ALV , you can define an object split container of type cl_gui_container by specifying the nmber of rows and columns, you can split the container into reqd number.

And you can use the same objects to process your req,.....

I hope this helps to some extent on how to create a split screen and further usage...

[Former Member]

Check out this code:

1) First create a docking container.

2) Docking will hold your tree

3) double clicking on the tree will open a screen on the right side.

This program only demonstrates how to create a docking container and split it...

REPORT  z_sourav_splitter.
TYPE-POOLS:cndp.

DATA: docking TYPE REF TO cl_gui_docking_container,
      splitter TYPE REF TO cl_gui_splitter_container,
      picture_control_1 TYPE REF TO cl_gui_picture,
      picture_control_2 TYPE REF TO cl_gui_picture,
      dock_sub_cont1 TYPE REF TO cl_gui_container,
      dock_sub_cont2 TYPE REF TO cl_gui_container,
      url1 TYPE cndp_url,                " URL-field in screen 200
      url2 TYPE cndp_url.               " URL-field in screen 200

PARAMETERS: p TYPE char1.

AT SELECTION-SCREEN OUTPUT.

  IF docking IS NOT BOUND.
* create the docking container
    CREATE OBJECT docking
       EXPORTING
*      parent                      =
       repid                       = sy-repid
       dynnr                       = sy-dynnr
       side                        = docking->dock_at_left
       extension                   = 200
*      style                       =
*      lifetime                    = lifetime_default
*      caption                     =
*      metric                      = 0
*      ratio                       =
*      no_autodef_progid_dynnr     = 'X'
*      name                        =
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        OTHERS                      = 6
        .
    IF sy-subrc = 0.
      CHECK splitter IS NOT BOUND.
      CREATE OBJECT  splitter
           EXPORTING
             link_dynnr        = sy-dynnr
             link_repid        = sy-repid
*          shellstyle        =
*          left              =
*          top               =
*          width             =
             height            = 50
*          metric            = cntl_metric_dynpro
             align             = 15
             parent            = docking
             rows              = 2
             columns           = 1
*          no_autodef_progid_dynnr =
*          name              =
           EXCEPTIONS
             cntl_error        = 1
             cntl_system_error = 2
             OTHERS            = 3
             .
      IF sy-subrc = 0.
        CALL METHOD splitter->get_container
          EXPORTING
            row       = 1
            column    = 1
          RECEIVING
            container = dock_sub_cont1.

        CREATE OBJECT picture_control_1
          EXPORTING
            parent = dock_sub_cont1.

        CALL FUNCTION 'DP_PUBLISH_WWW_URL'
          EXPORTING
            objid                 = 'DEMOWORD97SAPLOGO'
            lifetime              = cndp_lifetime_transaction
          IMPORTING
            url                   = url1
          EXCEPTIONS
            dp_invalid_parameters = 1
            no_object             = 2
            dp_error_publish      = 3
            OTHERS                = 4.
* load image
        IF sy-subrc = 0.
          CALL METHOD picture_control_1->load_picture_from_url_async
            EXPORTING
              url = url1.
        ENDIF.

        CALL METHOD splitter->get_container
          EXPORTING
            row       = 2
            column    = 1
          RECEIVING
            container = dock_sub_cont2.

        CREATE OBJECT picture_control_2
          EXPORTING
            parent = dock_sub_cont2.

        CALL FUNCTION 'DP_PUBLISH_WWW_URL'
          EXPORTING
            objid                 = 'ENJOYSAP_LOGO'
            lifetime              = cndp_lifetime_transaction
          IMPORTING
            url                   = url2
          EXCEPTIONS
            dp_invalid_parameters = 1
            no_object             = 2
            dp_error_publish      = 3
            OTHERS                = 4.
* load image
        IF sy-subrc = 0.
          CALL METHOD picture_control_2->load_picture_from_url_async
            EXPORTING
              url = url2.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDIF.