Changing width of a custom container dynamically

Hi,
I have an ABAP report that has 2 custom containers on a screen: CC1 on the left, showing a tree and another one (CC2) consuming the rest of the screen. Depending on what node the user selects in the tree (left CC), I would like to dynamically adjust the width of CC1 and CC2.
Is there a way to do it? I found the method SET_WIDTH of CL_GUI_CUSTOM_CONTAINER (which CC1 and CC2 are instances of), but it does not seem to work.
Any help is appreciated.
Guenther

Here is a coding example that demonstrates dynamically changing the width of the container.
What you cannot see is the screen definition. Screen 100 has a single custom container that fills the entire screen and is set to be resizable. The container name is 'MY_CONTAINER'. Next screen is set to 0.
Flow logic of screen:
PROCESS BEFORE OUTPUT.
MODULE pbo.
PROCESS AFTER INPUT.
Cut and paste this program and define the screen. Run the program and keep hitting ENTER to see the size change from left to right. After 9 times, the program will end.
REPORT zcdf_docking_example.
DATA:
w_sash           TYPE sy-index,
r_cstm_ctnr      TYPE REF TO cl_gui_custom_container,
r_easy_splt_ctnr TYPE REF TO cl_gui_easy_splitter_container.
CLASS cl_gui_easy_splitter_container DEFINITION LOAD.
DO 9 TIMES.
w_sash = sy-index * 10.
CALL SCREEN 100.
ENDDO.
MODULE pbo OUTPUT.
IF r_cstm_ctnr IS INITIAL.
    CREATE OBJECT r_cstm_ctnr
         EXPORTING container_name = 'MY_CONTAINER'.
    CREATE OBJECT r_easy_splt_ctnr
           EXPORTING
             parent = r_cstm_ctnr
             orientation =
               cl_gui_easy_splitter_container=>orientation_horizontal.
*   Set starting sash position. Position is a percentage.
    CALL METHOD r_easy_splt_ctnr->set_sash_position
           EXPORTING
             sash_position = w_sash.
*   Put ALV in left container.
*    CREATE OBJECT r_alv_grid1
*           EXPORTING
*             i_parent = r_easy_splt_ctnr->top_left_container.
*   Put ALV in right container.
*    CREATE OBJECT r_alv_grid2
*           EXPORTING
*             i_parent = r_easy_splt_ctnr->bottom_right_container.
ELSE.
    CALL METHOD r_easy_splt_ctnr->set_sash_position
           EXPORTING
             sash_position = w_sash.
ENDIF.
ENDMODULE.                 " pbo OUTPUT
Let us know how it goes.

Similar Messages

Dynamically change in size of the custom container using ALV GRID (OOPS)

Hi Gurus!!!!
I have an issue with the output of the report which is developed using ALV GRID (OOPS). I have used the custom container occupying full screen (Screen painter). When I execute the report using my PC the output displays report as expected in full screen. The problem is when we execute this report in 19 INCH monitor then there is always gap below the report.
As per my understanding we should have a code to change the size of custom container dynamically.
Please suggest some help on this.
Thanks,
Hemal Shah

Hi,
If you set the attributes, Resizing - Vertical and Horizontal for the customer container, than system will resize the size of the custome continer as per the resolution.
Hope it helps,
Sumana

Dynamically changing width of controls

hi,
how to achieve dynamically changing width of controls on a webpage? For example, the width of a button should be according to the length of its caption... Thanks, Girish

thanx for help, Samir! what I want exactly is: vary the width of controls on the screen. for example, if I have two buttons named "assignment" and "help", I want the width of the buttons to be different (and be proportionate to) as per the length of the caption. what kind of JavaScript code shoud I write to achive this? Pls help out... thanks,Girish

Dynamically change width of field

I have matrix report. One field must dynamically change width...I think create trigger. He'll change width. But I don't found function (analog set_item_property in oracle forms). This function must get x-coordinate. And another function set width field.
Help me, please. I solve this problem for more than 2 weeks
I attached a picture. (example).
Reports Builder 10

select trunc(tran.DATE)
,t.NAME "t_name"
,svt.NAME "type_name"
,tran.route_num
,rts1.Description "point1"
,rts2.DESCRIPTION "point2"
,N||'.'||NN CAT
,COUNT(N||NN)
from table1 tran
,table2 svt
,table3 rts1
,table3 rts2
,table4 rt
where tran.t_id=trc.id and
      tran.st_id=svt.st_id and
    tran.zn_in=rts1.stop(+) and
      tran.zn_out=rts2.stop(+) and
     tran.create_date BETWEEN   :pbegin AND :pend and
      (trc.id = :p_id )
group by trunc(tran.DATE)
         ,t.NAME
         ,svt.NAME
         ,tran.route_num
         ,rts1.DESCRIPTION
         ,rts2.DESCRIPTION
,N||'.'||NN

Change width of splitter container and single container

Hi,
im using a splitter container (abap oo style without dnpro elements) with 2 single containers.
create object go_splitter
    exporting
      parent            = go_docking
      rows              = 1
      columns         = 2
Column 1 leftside = Tree (width = 100)
Column 2 rightside = ALV (width = 100)
Ratio = 50:50
Is it possible to change width to ratio 30:70
Example:
Column 1 leftside = Tree (width = 30)
Column 2 rightside = ALV (width = 170)
Ratio: 30:70
Thanks,
Gordon
Edited by: Gordon Breuer on Feb 19, 2009 10:56 AM
Edited by: Gordon Breuer on Feb 19, 2009 11:04 AM

Use Method SET_COLUMN_WIDTH & SET_ROW_HEIGHT of Class CL_GUI_SPLITTER_CONTAINER to adjust Width & Height
CALL METHOD W_L_SPLITTER->SET_ROW_MODE
      EXPORTING
        MODE = W_L_SPLITTER->MODE_ABSOLUTE.
    CALL METHOD W_L_SPLITTER->SET_ROW_HEIGHT
      EXPORTING
        ID     = 1
        HEIGHT = 80.

Display data in a custom container

Hi All,
My requirment is to just display data in a custom container.
I could able to display data in change mode but not display mode.Can you please let me now how can i do that.
Thanks in Advance
KV

Im using cl_gui_custom_container.
In PBO
here is my code whihc is fine for Change/Edit mode.
create control container
    CREATE OBJECT g_editor_container
        EXPORTING
            container_name = 'DISP_CONT'
        EXCEPTIONS
            cntl_error = 1
            cntl_system_error = 2
            create_error = 3
            lifetime_error = 4
            lifetime_dynpro_dynpro_link = 5.
    IF sy-subrc NE 0.
    do nothing
    ENDIF.
create calls constructor, which initializes, creats and links
   a TextEdit Control
    CREATE OBJECT g_editor
      EXPORTING
         parent = g_editor_container
         wordwrap_mode = cl_gui_textedit => wordwrap_at_fixed_position
         wordwrap_to_linebreak_mode = cl_gui_textedit=>TRUE
      EXCEPTIONS
          OTHERS = 1.
    IF sy-subrc NE 0.
    do nothing
    ENDIF.
In PAI
CALL METHOD g_editor->get_text_as_r3table
    IMPORTING
      table = Text_table
    EXCEPTIONS
      OTHERS = 1.
IF sy-subrc NE 0.
ENDIF.
Text_table contains messages which r supposed to be displayed.
Based on certain logical operations i will display the messages.

Refresh Editable ALV Grid inside a custom Container

Hello all,
I am having a screen with custom container in which i am populating datas and a entry screen which is going to have my
filtering condition for this custom container screen..
The problem i am facing is whenever i come out of the custom container screen after displaying and again give the
necessary filtering data in the previous screen...
the custom container screen displays wrong values...
But when i refresh the data with the refresh icon in the container right datas are coming...
I even used CALL METHOD C_ALVGD->REFRESH_TABLE_DISPLAY
EXPORTING
IS_STABLE = STABLE
EXCEPTIONS
FINISHED = 1
OTHERS = 2. after displaying the values using
CALL METHOD C_ALVGD->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
IT_TOOLBAR_EXCLUDING = T_FUNC
IS_LAYOUT = IT_LAYOUT
I_SAVE = 'A'
CHANGING
IT_OUTTAB = IT_ZCAWNT_V
IT_FIELDCATALOG = IT_FCAT
EXCEPTIONS
INVALID_PARAMETER_COMBINATION = 1
PROGRAM_ERROR = 2
TOO_MANY_LINES = 3
OTHERS = 4.
IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
I have refreshed my internal table once when i display and again fetched from the DB according to the filtering conditions given
in the first screen.
I have tried clearing the Object created once when i display and again recreated it.But could not get the output.
solution would be really helpful...

Hey all,
Thanks a lot for helping me...
The problem is solved....
i just used,
        CALL METHOD C_ALVGD->FREE. 'Grid inside the container
        CLEAR C_ALVGD.
        CALL METHOD C_CCONT->FREE. "Container
        CLEAR C_CCONT.
when i click BACK Button from screen 2 to screen1.

In R/3 display smartform as pdf in a custom container

Hello,
I want to display smartform as pdf in a custom contianer . I was able to find all the right code from sdn.
but my problem is that when executed my sap gui is closed without any error.
I am unable to understand what is going wrong.
CALL METHOD G_HTML_CONTROL->SHOW_URL( URL = LV_URL
    IN_PLACE = 'X' ). does not show the pdf.
Can any one help me to find out if we need to do some setting for MIME type application/pdf. Because I tried to display a bar chart in the custom container of MIME type text/html , and this is working fine.
Is any setting missing in our R/3 because of which the code is not getting executed.
below code is the exact copy from a post in sdn:
report ztest_pdf.
DATA: LT_PDF TYPE TABLE OF TLINE,
      LS_PDF LIKE LINE OF LT_PDF,
      LV_URL TYPE CHAR255,
      PDF_FSIZE TYPE I,
      LV_CONTENT TYPE XSTRING,
      LT_DATA TYPE STANDARD TABLE OF X255.
DATA : L_JOB_OUTPUT_INFO TYPE SSFCRESCL.
DATA : LS_CONTROL_PARAM TYPE SSFCTRLOP.
DATA : G_HTML_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
       G_HTML_CONTROL   TYPE REF TO CL_GUI_HTML_VIEWER.
*      pdf_control type ref to cl_gui_pdfviewer.
DATA : P_VBELN TYPE VBELN_VL.
DATA : i_html TYPE w3htmltabtype.
",       g_url TYPE w3url
FIELD-SYMBOLS <FS_X> TYPE X.
INITIALIZATION.
LS_CONTROL_PARAM-GETOTF = 'X'.
LS_CONTROL_PARAM-NO_DIALOG = 'X'.
START-OF-SELECTION.
CALL FUNCTION '/1BCDWB/SF00000298'
EXPORTING
*    ARCHIVE_INDEX              =
*   ARCHIVE_INDEX_TAB          =
*   ARCHIVE_PARAMETERS         =
     CONTROL_PARAMETERS         = LS_CONTROL_PARAM
*     P_VBELN                    = P_VBELN
*   MAIL_APPL_OBJ              =
*   MAIL_RECIPIENT             =
*   MAIL_SENDER                =
*   OUTPUT_OPTIONS             =
*   USER_SETTINGS              = 'X'
IMPORTING
*      DOCUMENT_OUTPUT_INFO = L_DOCUMENT_OUTPUT_INFO
       JOB_OUTPUT_INFO       = L_JOB_OUTPUT_INFO
*      JOB_OUTPUT_OPTIONS    = L_JOB_ OUTPUT_OPTIONS
EXCEPTIONS
    FORMATTING_ERROR           = 1
    INTERNAL_ERROR             = 2
    SEND_ERROR                 = 3
    USER_CANCELED              = 4
    OTHERS                     = 5
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
data pdfxstring type xstring.
CALL FUNCTION 'CONVERT_OTF'
    EXPORTING
      FORMAT                = 'PDF'
    IMPORTING
      BIN_FILESIZE          = PDF_FSIZE
      bin_file              = pdfxstring
    TABLES
      OTF                   = L_JOB_OUTPUT_INFO-OTFDATA
      LINES                 = LT_PDF
    EXCEPTIONS
      ERR_MAX_LINEWIDTH     = 1
      ERR_FORMAT            = 2
      ERR_CONV_NOT_POSSIBLE = 3
      OTHERS                = 4.
CALL SCREEN 100.
module STATUS_0100 output.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
CREATE OBJECT G_HTML_CONTAINER
    EXPORTING
      CONTAINER_NAME = 'PDF'.
CREATE OBJECT G_HTML_CONTROL
    EXPORTING
      PARENT = G_HTML_CONTAINER.
* Convert xstring to binary table to pass to the LOAD_DATA method
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
    EXPORTING
      BUFFER     = pdfxstring"LV_CONTENT
    TABLES
      BINARY_TAB = LT_DATA.
* PERFORM bar_chart .
* Load the HTML
CALL METHOD G_HTML_CONTROL->LOAD_DATA(
     EXPORTING
       TYPE         = 'application' "'text' " 'application'
       SUBTYPE      = 'pdf' "'html' "'pdf'
     IMPORTING
       ASSIGNED_URL         = lv_URL
     CHANGING
       DATA_TABLE           = LT_DATA "i_html "LT_DATA
     EXCEPTIONS
       DP_INVALID_PARAMETER = 1
       DP_ERROR_GENERAL     = 2
       CNTL_ERROR           = 3
       OTHERS               = 4 ).
* Show it
CALL METHOD G_HTML_CONTROL->SHOW_URL( URL = LV_URL
    IN_PLACE = 'X' ).
Thanks,
Jaya.
Edited by: kishan P on Jun 9, 2011 1:40 PM

Hello Sandra,
Thanks for your reply, but eventhen it fails to load the pdf. Is ADS required to be installed for this?
Can I just pass the pdf_fsize imported from CONVERT_OTF which is of type i.
CALL FUNCTION 'CONVERT_OTF'
    EXPORTING
      FORMAT                = 'PDF'
    IMPORTING
      BIN_FILESIZE          = PDF_FSIZE
bin_file              = pdfxstring
    TABLES
      OTF                   = L_JOB_OUTPUT_INFO-OTFDATA
      LINES                 = LT_PDF
    EXCEPTIONS
      ERR_MAX_LINEWIDTH     = 1
      ERR_FORMAT            = 2
      ERR_CONV_NOT_POSSIBLE = 3
      OTHERS                = 4.
CALL METHOD G_HTML_CONTROL->LOAD_DATA(
     EXPORTING
       TYPE         = 'application' "'text' " 'application'
       SUBTYPE      = 'pdf' "'html' "'pdf'
       size           = PDF_FSIZE
     IMPORTING
       ASSIGNED_URL         = lv_URL
     CHANGING
       DATA_TABLE           = LT_DATA "i_html "LT_DATA
     EXCEPTIONS
       DP_INVALID_PARAMETER = 1
       DP_ERROR_GENERAL     = 2
       CNTL_ERROR           = 3
       OTHERS               = 4 ).
Thanks,
Jaya.

Alv grid dispaly in custom container....?

Hay friends i have shown ALV grid display in custom container .....in that some fields are input fields...
how can i modify my internal table (which is shown in ALV )...by knowing that this field is changed...i need to update in my internal table...
need help...
reply soon...

Hello
All you need to know can be found in thread About events of class cl_gui_alv_grid and the links mentioned therein.
Regards
Uwe

How to clear the picture from custom container

Hi All
I am uploading the employee image into custom container . for that i have used the below fn modules
CALL FUNCTION 'HR_IMAGE_EXISTS'
EXPORTING
p_pernr = pernr
* P_TCLAS = 'A'
* P_BEGDA = '18000101'
* P_ENDDA = '99991231'
IMPORTING
* P_EXISTS =
p_connect_info = g_connect_info
EXCEPTIONS
error_connectiontable = 1
OTHERS = 2
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
else.
CALL FUNCTION 'SCMS_DOC_URL_READ'
EXPORTING
* MANDT = SY-MANDT
stor_cat = space
crep_id = g_connect_info-archiv_id
doc_id = g_connect_info-arc_doc_id
* PHIO_ID =
comp_id = 'DATA'
* SIGNATURE = 'X'
* SECURITY = ' '
* USE_LOCATION = 'A'
* LOCATION = ' '
* HTTP_URL_ONLY = ' '
dp_url_only = 'X'
* LIFETIME = ' '
* NO_CACHE = ' '
* EXPIRATION =
* PDF_MODE = ' '
* URL_EXTENTION = ' '
* FORCE_GET = ' '
IMPORTING
url = g_url
EXCEPTIONS
error_config = 1
error_parameter = 2
error_signature = 3
http_not_supported = 4
docget_not_supported = 5
not_accessable = 6
data_provider_error = 7
tree_not_supported = 8
not_supported = 9
OTHERS = 10
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
after getting the url for uploading the picture
I used load_picture_from_url
the image is uploaded, but when i try to clear the image from control using picture->clear_picture
it is not clearing the image
Please help me how to clear the image.
Thanks
Rama

Hi,
" 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 cl_gui_picture_1->load_picture_from_url
EXPORTING
    url = url.
CLEAR url.
url = 'file://C:\sap-logo.gif'.
CALL METHOD cl_gui_picture_2->load_picture_from_url
EXPORTING
    url = url.
CLEAR url.
url = 'http://www.sap-press.com/images/logo_books_online_162_50.gif'.
CALL METHOD cl_gui_picture_3->load_picture_from_url
EXPORTING
    url = url.
init = 'X'.
CALL METHOD cl_gui_cfw=>flush
EXCEPTIONS
    cntl_system_error = 1
    cntl_error = 2.
ENDIF.
Its helpful.
Regards,
Raj.

How to change the master page and theme dynamically in sharepoint2013 anonymous site

hi
I have to change the master page and theme dynamically in sharepoint2013 anonymous site. i have to show one master page to authenticated user another master page to anonymous user through code
Srinivas

Hi Srinivas,
According to your description, my understanding is that you want to change the master page and theme dynamically based on the anonymous users or authenticated users.
Per my knowledge, there is not an OOB way to change the master page and theme dynamically.
SharePoint is based on Asp.net, as we know Asp.Net request processing is based on pipeline model, so we can delevlop a custom HttpModule to dynamic change the master page based on current logon user profile(using SP Object Model to get).
Another solution could be to use the SecurityTrimmed control that injects the CSS depending on global user permissions, more information, please refer to
it.
Some similar posts for your reference:
http://social.msdn.microsoft.com/Forums/office/en-US/c2b2d0da-c752-4aea-9c2d-e31a5b1a2988/sharepoint-2010-dynamic-masterpage-based-on-userprofile-property
http://johanleino.wordpress.com/2011/10/20/using-a-different-master-page-for-authenticated-users-in-sharepoint/
http://sharepoint.stackexchange.com/questions/21679/how-can-we-use-a-different-masterpage-for-annoymous-and-authenticated-users
http://sivarajan.me/post/How-to-customize-the-SharePoint-2013-Master-Page-for-Anonymous-Users
Best Regards,
Wendy
Wendy Li
TechNet Community Support

Need F4 Help for custom container element based on partner type

Hi Friends
I am displaying customer details in custom container .In that custom container I have a field Partner number,Partner type etc etc..
I included F4 help for partner number field, In that I referenced the following field.Now its coming perfectly.
wa_cat1-f4availabl = 'X'.
wa_cat1-ref_table = 'KNA1'.
wa_cat1-ref_field = 'KUNNR'.
But as per my requirement, customer wants to get the different F4 help when the partner type eq "Contact Person".
Rest of the partner type(Ship to party, Sold to party,Reseller, End user) should show the above one.
So I dont know, where I have to change, because in the field catelod level there is no option to control particular type in the column.
Kindly help me on this.
Thanks
Gowrishankar

Hi Jose
Thanks for your Input.I created Event Receiver than Defined and implemented a method to get F4 help for customer number and email id field.Already F4 help is available for Email ID.Now I want to Include the F4 help for partner number field, it will call the search help based on partner type.I can able to get the partner number field search help, but F4 help is not working for email id.
I am not sure some whee its over writing some values or I am not sure.If I comment partner number F4 help class, I can able to get the F4 help for email address.
Plz guide to me to fix the same.
Thanks
Gowrishankar

Can we change width of the column at runtime

I have a report with columns assigned runtime, can we change width of the colimn runtime?
for example Query: select &lp_1, &lp_2 from emp &LP_Where
if i assign lp_1 empno size 10 and empname size 50. Vertical and horizantal elasticty is not going work for me. Any suggestions please..
Lalitha

Doubt there is the dynamic you are seeking.
But you may put a few overlapped columns (diff. length of course) and display/hide by passing parameters.

How to change width columns in web layout?

hello,
I have problem with change width columns in web. I can change width column in paper layout and is ok but If I run web layout I get one column very wide and second thin. I cant find where I may this change
I find that is no easy. If you want change property in web layout you must edit JSP file, and you must know Java/JSP/HTML, and library reposrts JSP custom tag and reports xhtml tags.
regards
Edited by: user515960 on 2010-07-11 04:23

Hi,
Please refer the below reference which may guide to configure the properties in search result webpart.
http://technet.microsoft.com/en-us/library/gg549987(v=office.15).aspx
If its not helping you please let us know.
Sekar - Our life is short, so help others to grow
Whenever you see a reply and if you think is helpful, click "Vote As Helpful"! And whenever
you see a reply being an answer to the question of the thread, click "Mark As Answer

Need for Custom Container

Hi all,
I have read that you use Custom container class for oops alv. But i have not found an answer as to why do we have to use the class.
Can't we just use ALV class only (Cl_gui_alv_grid) ?.
Regards
Varun

You can only create a grid display in a container...while creating the object for grid contol you have to pass the object reference of the custom container...check out the following for details...
*& Report ZTEST_DEMO_ALV
report ztest_demo_alv.
class cl_event_reciever definition deferred.
data:
wa_vbak type vbak.
data:
i_vbak type standard table of vbak,
i_vbap type standard table of vbap.
data:
v_container1 type scrfname value 'CONT1',
v_grid1      type ref to cl_gui_alv_grid,
v_custom_container1 type ref to cl_gui_custom_container,
v_container2 type scrfname value 'CONT2',
v_grid2      type ref to cl_gui_alv_grid,
v_custom_container2 type ref to cl_gui_custom_container,
ok_code type syucomm,
v_event_reciever type ref to cl_event_reciever.
*       CLASS cl_event_reciever DEFINITION
class cl_event_reciever definition.
public section.
    methods:
      handle_double_click for event double_click of cl_gui_alv_grid
        importing e_row e_column.
endclass.                    "cl_event_reciever DEFINITION
*       CLASS cl_event_reciever IMPLEMENTATION
class cl_event_reciever implementation.
method handle_double_click.
    read table i_vbak
    into wa_vbak
    index e_row.
    if sy-subrc = 0.
      select * from vbap
        into table i_vbap
        where vbeln = wa_vbak-vbeln.
      if sy-subrc = 0.
        set screen 00.
        leave to screen 100.
      endif.
    endif.
endmethod.                    "handle_double_click
endclass.                    "cl_event_reciever IMPLEMENTATION
select-options:
s_vbeln for wa_vbak-vbeln.
start-of-selection.
select * from vbak
    into table i_vbak
    up to 50 rows
    where vbeln in s_vbeln.
if sy-subrc <> 0.
    message i000(z_zzz_ca_messages) with 'No data found!'.
    leave list-processing.
endif.
end-of-selection.
call screen 100.
*&      Module STATUS_0100 OUTPUT
*       text
module status_0100 output.
set pf-status '100'.
* SET TITLEBAR 'xxx'.
if v_custom_container1 is not bound.
    create object v_custom_container1
    exporting container_name = v_container1.
    create object v_grid1
      exporting i_parent = v_custom_container1.
    call method v_grid1->set_table_for_first_display
       exporting
*       i_buffer_active               =
*       i_bypassing_buffer            =
*       i_consistency_check           =
         i_structure_name              = 'VBAK'
*       is_variant                    =
*       i_save                        =
*       i_default                     = 'X'
*       is_layout                     =
*       is_print                      =
*       it_special_groups             =
*       it_toolbar_excluding          =
*       it_hyperlink                  =
*       it_alv_graphics               =
*       it_except_qinfo               =
*       ir_salv_adapter               =
      changing
        it_outtab                     = i_vbak
*       it_fieldcatalog               =
*       it_sort                       =
*       it_filter                     =
      exceptions
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        others                        = 4
    if sy-subrc <> 0.
      message id sy-msgid type sy-msgty number sy-msgno
                 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    endif.
    create object v_event_reciever.
    set handler v_event_reciever->handle_double_click for v_grid1.
endif.
if v_custom_container2 is not bound
    and i_vbap is not initial.
    create object v_custom_container2
    exporting container_name = v_container2.
    create object v_grid2
      exporting i_parent = v_custom_container2.
    call method v_grid2->set_table_for_first_display
       exporting
*       i_buffer_active               =
*       i_bypassing_buffer            =
*       i_consistency_check           =
         i_structure_name              = 'VBAP'
*       is_variant                    =
*       i_save                        =
*       i_default                     = 'X'
*       is_layout                     =
*       is_print                      =
*       it_special_groups             =
*       it_toolbar_excluding          =
*       it_hyperlink                  =
*       it_alv_graphics               =
*       it_except_qinfo               =
*       ir_salv_adapter               =
      changing
        it_outtab                     = i_vbap
*       it_fieldcatalog               =
*       it_sort                       =
*       it_filter                     =
      exceptions
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        others                        = 4
endif.
if v_custom_container2 is bound.
    call method v_grid2->refresh_table_display.
endif.
endmodule.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
*       text
module user_command_0100 input.
case ok_code.
    when 'BACK'.
      if v_grid1 is bound.
        call method v_grid1->free.
      endif.
      if v_grid2 is bound.
        call method v_grid2->free.
      endif.
      set screen 00.
      leave screen.
endcase.
endmodule.                 " USER_COMMAND_0100 INPUT

Changing width of a custom container dynamically

Similar Messages

Maybe you are looking for