Regarding tabstrip

hi frnds,
i have used a tabstip in my program? Only 2 tabs can be visible when we drap and drop the tabstrip..
How to create tabs in tabstrip??
And i want to use a select option in my screen..how can i create a select option in dialog programming?

Friend before posting any kind of query please try to utilise the search tab , u can findout solution in the forum itself.
YOu can have a look at the following programs for sample coding .
DEMO_DYNPRO_TABSTRIP_LOCAL Tabstrip Control - Scrolling at SAPgui
DEMO_DYNPRO_TABSTRIP_SERVER Tabstrip Control - Scrolling at Application Server
DEMO_SEL_SCREEN_IN_TABSTRIP Selection Screen as Subscreen in Tabstrip
DEMO_SEL_SCREEN_WITH_TABSTRIP Selection Screen with Tabstrips
Open these programs in se80 to see how the screen design is done.
1. define a subscreen area in your screen.
2. define required select-option in you program as follows
SELECTION-SCREEN BEGIN OF SCREEN 1100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-010.
SELECT-OPTIONS : S_MATNR FOR MARA-MATNR.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN END OF SCREEN 1100.
3. Load this defined subscreen in you subscreen area define in step 1
You can do this using Subscreen.
define this scubscreen in top include.
selection-screen : begin of screen 100 as subscreen.
select-option : kunnr for kna1-kunnr.
selection-screen : end of screen 100.
in screen 200 where this selection screen appears, create a subscreen area 'SSA'.
Process on output. "200 screen.
call subscreen SSA including sy-repid '100'.
other modules
Process on input. "200 screen.
call subscreen SSA.
other modules
now you can access kunnr like other screen 200 objects.

Similar Messages

Regarding tabstrips

Hi,
I have a tabstrip control with 3 tab.
Out of those three, I want to keep one tab hidden(not shown to the user). I want it to be shown only on passing a certain condition.
How do I hide(and unhide) a tab in a tabstrip control?

how about:
[code]
LOOP AT SCREEN.
   IF screen-name = '$TABNAME'.
     screen-invisible = '1'.
     modify screen.
   ENDIF.
ENDLOOP.
[/code]
in PBO.
And Back to '0' if you want to have it visible.
this code is NOT verified!
its just an example, to give you an Idea....

Regarding icon in tabstrip control

Hi Friends,
I've designed a tabstrip control with 3 tabs.In each tab, I'm populating different data in ALV format.I've used a custom container for the same.Now I've a requirement from business side that if any of the tabs is having the data, some icon should be displayed alongwith the name of the tab (may be ICON_OKAY). If there is no data in the tab, then no icon should be displayed.
Please advise me in detail as how to do this.Is there any standard functionality or method available for the same.
Thanks in advance!!!!!

Hi,
I dont think we can control icon on tabs dynamically. May be the below links will be useful to find the alternatives / solutions.
[Tabstrip controls|http://help.sap.com/saphelp_nw04/helpdata/en/17/5bf1b52ba211d2954f0000e8353423/frameset.htm]
[Tabstrips|http://help.sap.com/saphelp_sm32/helpdata/EN/d1/801bd2454211d189710000e8322d00/content.htm]
http://www.sapdesignguild.org /resources/icon_cookbook/icon_cookbook.pdf
Statically if you want to attach then you can use : Screen painter: attributes for the TAB2.
Regards,
~Satya
Edited by: Satya suresh Donepudi on Mar 28, 2009 8:31 PM

Error in tabstrip control progtram while in Background job scheduling

Hi ABAPer's,
I need some help...I developed one tabstriip control program with 3 tabs. while excute it in foregroung it is executing nice..but while i am job scheduling the same program in background it was getting error's like .........
Control Framework: Fatal error - GUI cannot be reached
SET SCREEN not allowed in subscreens (screen: <Report Name> 0100)
so..if any body know the solution ...plz help me...
Thanks & Regards
Srinivas-SAP,

Hi,
please go through the functionality of tabstrips.
basically they are placed on tabstrips.
so they dont have their own ok codes and call screen and set screen ( to best of my knowledge )
can not be used.
if you are using set screen remove them.
even without using set screen if you are gettig the error, please let us know.
regards
Ramchander rao.K

Hiding A TabStrip ViewSet in a Window

Hello everyone,
I created a TabStrip ViewSet in a Window. Depending on certain conditions, i'd like to hide or show certain tab strips.
Is this possible?
Any help will be much appreciated.
Mike

Hello Arun,
I downloaded and executed the Tutorial. Unfortunately the UI elements are within a view.
I need to be able to change the properties of a tabstrip that is a viewset that is inside a Window.
regards,
Mike

Execution of Report with Tabstrips in Background Mode

Hi everyone,
              I have used 2 tabstrips in my report. When I choose the second tabstrip, give the related I/P's and then execute in Background mode. The O/P generated is coming for the 1st tabstrip instead of what I'd selected.
How could I execute the report in Background Mode for my Second Tabstrip? Any changes to be done in my Coding?
Please throw some light into this !!!!
Regards,
Ramakrishnan.G

Hi
You may have attached user command to your tabs in definition -
<b>DATA : TAB1, TAB2.
SELECTION-SCREEN BEGIN OF TABBED BLOCK TB FOR 2 LINES.
SELECTION-SCREEN TAB (15) TABNAME1 USER-COMMAND TAB1 DEFAULT SCREEN 101.
SELECTION-SCREEN TAB (15) TABNAME2 USER-COMMAND TAB3 DEFAULT SCREEN
102.
...</b>
Now in
<b>
INITIALIZATION.
TABNAME1 = 'TAB1'.
TABNAME2 = 'TAB2'.
AT SLECTION-SCREEN.
IF TB-ACTIVETAB = 'TAB1'.
    TAB1 = 'X'.
    TAB2 = ' '.
ELSE.
    TAB1 = ' '.
    TAB2 = 'X'.
ENDIF.
START-OF-SELECTION.
IF TAB1 = 'X'.
PERFORM ROUTINE_FOR_TAB1.
ELSE.
   PERFORM ROUTINE_FOR_TAB2.
ENDIF.</b>
Cheers.
( Dont forget to reward if answers helped )

Dialog problem using tabstrip & cl_gui_alv_grid

Hi All,
     I have created a dialog program which has 2 tab strips. On first I am displaying data n a table control & on other tabstrip display same data using grid. Here to display data in grid I have used set_table_for_first_display of class cl_gui_alv_grid.
The data is displayed successfully. But when I select second tab and return to first tab it still shows the grid on first tab in front.
Kindly tell me what I am missing.
Regards,
Dilip
Following is my code:
REPORT ZTEMP02.
controls: tab type tabstrip,
          tab_c type tableview using screen 101 .
data :    cont1 type ref to cl_gui_custom_container,
          grid type ref to cl_gui_alv_grid.
data : imara like mara occurs 1 with header line.
data zmara type LVC_T_FCAT.
data wa_mara like line of zmara.
data flag .
       select * from mara into table imara up to 100 rows.
call screen 100.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
case sy-ucomm.
when 'T1'.
    tab-activetab = 'T1'.
      FLAG = SPACE.
when 'T2'.
    tab-activetab = 'T2'.
WHEN 'EXT'.
    LEAVE PROGRAM.
endcase.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&      Module STATUS_0102 OUTPUT
      text
MODULE STATUS_0102 OUTPUT.
if FLAG is initial.
create object :
cont1
    exporting
       container_name = 'CONT',
grid
    exporting
       I_PARENT = cont1.
FLAG = 'X'.
endif.
call method grid->SET_TABLE_FOR_FIRST_DISPLAY
     EXPORTING
       i_structure_name = 'MARA'
     changing
       it_outtab = imara[].
ENDMODULE.                 " STATUS_0102 OUTPUT

Have you attached a subscreen to tab T1 .
You will also have to use Call subscreen .

Query about TABSTRIP Control within Sub screen

Hi Expert,
I have requirement like follows:
In IW32->Enhancement Tab screen is as subscreen and No: 0900.
Now I want to have 2 different sub screen say 0910 and 0920 each of this for different purpose according to
Order Type as per clients requirement.
Actaully I have developed screen 0900 already for some order type and now clients requirement changed i.e.
there are 2 different groups of Order types (say Grp1 and Grp2)
So, I proposed a solution for this as follows:
In Enhancement Tab of IW32 according to group of Order Type (either Grp1 or Grp2) only you will be able to
see fields for that perticular Grp either of 2.
Technical Solution is like...
1) I thought that I will create 2 subscreens say 0910 and 0920.
2) In 0910 i will insert all those fields which are designed already in 0900 which is for Grp1
3) and for Grp2 i will design 0920
4) according to Order Type only 0910 or 0920 client will be able to see.
Now I got stuck in between the screen development for 0920 because there are so many fields and i said to
client that they will be able to see those fields in different Tab strips.
I never worked on Tab Strip concept, I search so many forums and sites for Lesson on Tab Strip but not
understood how to proceed as per my specific requiment.
Please can anyone suggest me how to proceed further.
Thanks in advance.
Regards,
Jay.

There's no reason why you couldn't do it.
A tabstrip control is simply made of a subscreen area and a "tabstrip" above, where each tab corresponds to a button/function code. You have 2 ways to define/program it, "local" or "server", the difference being a better performance with the "local" (interesting in slow WAN).
In ABAPDOCU demos, you have 2 programs DEMO_DYNPRO_TABSTRIP_LOCAL and DEMO_DYNPRO_TABSTRIP_SERVER.
Sandra

Dynamic creation of TabStrip

Hi,
I want to create a tabstrip dynamically.The tabstrip should have 3 tabs, and in each of the tabs i want to put some UI elements like a label, input field, dropdown, tables.........etc.
Im able to create the tabstrip and add tabs to it dynamically.
I've even created the UI elements which i wanted to put in the tabs.............But im not able to proceed as i dont know how to add the UI elements to the tabs.......
Can anyone tell me how to add UI elements to a tab in a tabstrip?
Regards,
Padmalatha.K
Points will be rewarded.

Hi,
Following code will help you to understand the dynamic creation and adding them
//Tabstrip
       IWDTabStrip tabStrip = view.createElement(IWDTabStrip.class);
       //Tab
       IWDTab tab = view.createElement(IWDTab.class);
       //Input Field
       IWDInputField inputField = view.createElement(IWDInputField.class);
       //Adding inputfield to tab
       tab.setContent(inputField);
       //Adding tab to tabstrip
       tabStrip.addTab(tab);
//Finally add this tabstip to either your root container or some other container.
Regards
Ayyapparaj

Tabstrip does not save when first clicked

After I set all the input field to be required for my 3 tabs in my tabstrip, I am only able to save the data in text field after I click the save button the second time and not the first time.
Clicking Save button first time:
http://img407.imageshack.us/img407/6461/screenjk0.png
Clicking Save button second time:
http://img407.imageshack.us/img407/3266/screen2ng4.png
Here are my codes:
REPORT ZTREE_STRUCTURE2.
DATA : IO_NAME(40) TYPE C,
      IO_AGE(40) TYPE C,
      IO_GENDER(40) TYPE C.
DATA: P_HERA TYPE DNTAB-TABNAME VALUE 'ZHERA',
       ITAB_HERA TYPE TABLE OF ZHERA,
       FIELD_COUNT TYPE I,
       WA_HERA LIKE LINE OF ITAB_HERA,
       P_HERA2 TYPE DNTAB-TABNAME VALUE 'ZHERA2',
       ITAB_HERA2 TYPE TABLE OF ZHERA2,
       WA_HERA2 LIKE LINE OF ITAB_HERA2.
SELECT * INTO TABLE ITAB_HERA FROM ZHERA.
SELECT * INTO TABLE ITAB_HERA2 FROM ZHERA2.
*&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TABNAME2'
CONSTANTS: BEGIN OF C_TABNAME2,
             TAB1 LIKE SY-UCOMM VALUE 'TABNAME2_FC1',
             TAB2 LIKE SY-UCOMM VALUE 'TABNAME2_FC2',
             TAB3 LIKE SY-UCOMM VALUE 'TABNAME2_FC3',
           END OF C_TABNAME2.
*&SPWIZARD: DATA FOR TABSTRIP 'TABNAME2'
CONTROLS: TABNAME2 TYPE TABSTRIP.
DATA:      BEGIN OF G_TABNAME2,
             SUBSCREEN   LIKE SY-DYNNR,
             PROG        LIKE SY-REPID VALUE 'ZTREE_STRUCTURE2',
             PRESSED_TAB LIKE SY-UCOMM VALUE C_TABNAME2-TAB1,
           END OF G_TABNAME2.
CONSTANTS: BEGIN OF C_TRANSFORM,
             TAB1 LIKE SY-UCOMM VALUE 'TRANSFORM_FC1',
             TAB2 LIKE SY-UCOMM VALUE 'TRANSFORM_FC2',
           END OF C_TRANSFORM.
*&SPWIZARD: DATA FOR TABSTRIP 'TRANSFORM'
CONTROLS: TRANSFORM TYPE TABSTRIP.
DATA:      BEGIN OF G_TRANSFORM,
             SUBSCREEN   LIKE SY-DYNNR,
             PROG LIKE SY-REPID VALUE 'ZSCSDM_MODIFY_TRANSFORM_HERA',
             PRESSED_TAB LIKE SY-UCOMM VALUE C_TRANSFORM-TAB1,
           END OF G_TRANSFORM.
DATA:      OK_CODE LIKE SY-UCOMM.
START-OF-SELECTION.
CALL SCREEN 9000.
MODULE STATUS_9000 OUTPUT.
   SET PF-STATUS 'SCREEN_9000'.
   SET TITLEBAR 'RWB_TRANSFORM'.
ENDMODULE.                    "STATUS_8000 OUTPUT
MODULE TABNAME2_ACTIVE_TAB_SET OUTPUT.
TABNAME2-ACTIVETAB = G_TABNAME2-PRESSED_TAB.
CASE G_TABNAME2-PRESSED_TAB.
    WHEN C_TABNAME2-TAB1.
      G_TABNAME2-SUBSCREEN = '9001'.
    WHEN C_TABNAME2-TAB2.
      G_TABNAME2-SUBSCREEN = '9002'.
    WHEN C_TABNAME2-TAB3.
      G_TABNAME2-SUBSCREEN = '9003'.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
ENDCASE.
ENDMODULE.                    "TABNAME2_ACTIVE_TAB_SET OUTPUT
*&SPWIZARD: INPUT MODULE FOR TS 'TABNAME2'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: GETS ACTIVE TAB
MODULE TABNAME2_ACTIVE_TAB_GET INPUT.
OK_CODE = SY-UCOMM.
CASE OK_CODE.
    WHEN C_TABNAME2-TAB1.
      G_TABNAME2-PRESSED_TAB = C_TABNAME2-TAB1.
    WHEN C_TABNAME2-TAB2.
      G_TABNAME2-PRESSED_TAB = C_TABNAME2-TAB2.
    WHEN C_TABNAME2-TAB3.
      G_TABNAME2-PRESSED_TAB = C_TABNAME2-TAB3.
    WHEN OTHERS.
*&SPWIZARD:      DO NOTHING
ENDCASE.
ENDMODULE.                    "TABNAME2_ACTIVE_TAB_GET INPUT
MODULE USER_COMMAND_9000 INPUT.
IF SY-UCOMM = 'BACK'.
LEAVE PROGRAM.
ELSEIF SY-UCOMM = 'EXIT'.
LEAVE PROGRAM.
ELSEIF SY-UCOMM = 'CANCEL'.
LEAVE PROGRAM.
ELSEIF SY-UCOMM = 'SAVE'.
ENDIF.
ENDMODULE. "USER_COMMAND_9000 INPUT
FORM INSERT_TABLE.
WA_HERA-NAME = IO_NAME.
WA_HERA-AGE = IO_AGE.
WA_HERA2-GENDER = IO_GENDER.
INSERT INTO ZHERA VALUES WA_HERA.
INSERT INTO ZHERA2 VALUES WA_HERA2.
MESSAGE S001(ZMSG02).
ENDFORM.                    "UPDATE_TABLE
Can anyone tell me what is wrong with my codes?

Hi,
In your module here
IF SY-UCOMM = 'BACK'.
LEAVE PROGRAM.
ELSEIF SY-UCOMM = 'EXIT'.
LEAVE PROGRAM.
ELSEIF SY-UCOMM = 'CANCEL'.
LEAVE PROGRAM.
ELSEIF SY-UCOMM = 'SAVE'.
ENDIF.
... replace all occurrences of SY-UCOMM with OK_CODE.
This will resolve the problem.
Regards,
Aditya
Edited by: Aditya Laud on Feb 5, 2008 12:16 AM

Dynamic objects in a tabstrip

Hi,
I am creating dynamically tabs in my tabstrip and that works fine so for. I found some examples in SDN and here for me to learn. Now I try to add a transparent container and some objects to it, but do not know how. This is so far my code in WDDOMODIFYVIEW:
some code here
* Create a new tab:
CONCATENATE 'TAB' wd_this->tot_tabs INTO aux_text.
lr_tab = cl_wd_tab=>new_tab( id = aux_text ).
lr_tabstrip->add_tab( the_tab = lr_tab ).
* Add a transparent container:
CONCATENATE 'TABCONT' wd_this->tot_tabs INTO aux_text.
lr_control = cl_wd_transparent_container=>new_transparent_container( id = aux_text
view = view ).
lr_tab->set_content( lr_control ).
TOT_TABS has the current number of the tab. System compiles the code correctly and activates it but when running the application I get this error message:
The following error text was processed in the system NSP : Access via 'NULL' object reference not possible.
The ABAP call stack was:
Method: CREATE_NW7_BY_VIEW_ELEMENT of program CL_NW7_VIEW_ELEMENT_ADAPTER===CP
Could it be maybe because I am not adding objects ?? I don´t know how anyway.

Hi Guillermo,
Welcome to SDN.
You can have dynamic tabs by placing the <htmlb:tabStripItem> in a loop in the layout:
<% loop at tabstrip_tab. %>
<htmlb:tabStripItem index="<%=tabstrip_tab-index%>" etc. />
<% endloop. %>
Where tabstrip_tab contains the details of the tabstrip items.
Regards,
Patrick.

How to change the text of a tabstrip?

Hallo Experts,
There are 3 tabstrips in Screen Painter with the name tabstrip1, tabstrip2 and tabstrip3. The default text ist: customer_fields1, customer fields2, customer fields3.
Now I want to change the text of tabstrips in real time. E.g. text of tabstrip1 should be "Financial Data".
How can I do it?
Thanks,
Rujing

Well, I've tried out some possible solutions, but none of the worked, I could not change the text dynamically during runtime.
You have some alternate solutions: create more tabs, and show hide them during runtime. For this you can use the dynpro's PBO event, and within the LOOP AT SCREEN... ENDLOOP. statements.
And an another one (that's absolutely not an elegant soluton
- create a DDIC structure (in SE11 transaction), with a field, like ZMYSTRUCTURE-ZMYFIELD. This field should refer to a data element, like ZMYDATAELEMENT. Here you can set a default text for this data element.
- assign this ZMYSTRUCTURE-ZMYFIELD field to the name of your tabstip's tab.
- when you wanted to change the text, you have to change the text, you update the text of your data element ZMYDATAELEMENT, in the table DD04T.
This might work... I'm not sure about it, but you might give it a shot.
Regards
Tamá

Tab in Tabstrip Control in display mode (Module Pool)

Hi friends,
I am trying to give authorization based on sy-uname, in runtime based on uname the particular tab should be opend in a display mode and some in change mode. please help me out in this
Edited by: shravan sonayila on Aug 12, 2008 8:06 AM

Hi,
when u creating tabstrip,while defining each tab in tabstrip , u have to
create one subscreen for each tab.i think u want one tab for display
mode and one tab for edit mode. if u want this way , in one tab try to
give fields all in invisible mode this for display mode and goto second tab if u want all visible only keep like that only other wise u have create geoups.when u press enter ,groups will be change.it means visible , invisible modes.
u have to give logic for screen in pbo.
*&      Module STATUS_0300 OUTPUT
      text
module status_0300 output.
set pf-status 'GUI_300'.
set titlebar 'TITLE_300' with v_title.
if i_aktyp = 'H'.
    if temp_flag = 1.
      loop at screen .
        if screen-group1 = 'GP2'.
          screen-input = 1.
          modify screen .
        else.
          screen-input = 0.
          modify screen.
        endif.
        temp_flag = 0.
      endloop.
    else.
      loop at screen.
        if screen-group1 = 'GP1'.
          screen-input = 1.
          modify screen.
        else.
          screen-input = 0.
          modify screen.
        endif.
        temp_flag = 1.
      endloop.
    endif.
elseif i_aktyp = 'V'.
    loop at screen.
      if screen-group1 = 'GP1'.
        screen-input = 1.
        modify screen.
      else.
        screen-input = 0.
        modify screen.
      endif.
    endloop.
endif.
endmodule.                 " STATUS_0300 OUTPUT
Try to give this logic.
Regards,
Ramya

How to display existing View as content in TABSTRIP tab?

Is it possible to display existing View as tab content in TabStrip tab? If so how can we do this?
Thanks in advance!

Hi,
Please have a look into this linl. It will really help you a lot and give you clear idea on UI development and also about using TabStrip.
<a href="https://www.sdn.sap.comhttp://www.sdn.sap.comhttp://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/0e617bc3-0401-0010-2c82-81f82e73300e">Developing Web Dynpro User Interfaces</a>
Thanks and Regards
Avijit

Alv grid Should Display In Three Tabstrips

Hi Experts,
       Could you please tell me how to display alv in three tabstrips using oops abap
Best answer rewarded
Regards
Fareedas

Follow the following code for the 3rd tabstrip (I have done it for 2).
*& Report ZTEST_READ_CLUSTER
REPORT ztest_read_cluster.
TABLES: vbak, likp.
TYPES: BEGIN OF types_vbak ,
       vbeln TYPE vbeln,
       vkorg TYPE vkorg,
       netwr TYPE netwr,
       END OF types_vbak,
       BEGIN OF types_likp ,
       vbeln TYPE vbeln_vl,
       vstel TYPE vstel,
       vkorg TYPE vkorg,
       netwr TYPE netwr,
       END OF types_likp.
DATA: w_cntx_menu TYPE REF TO cl_rsdme_ui_context_menu_gen,
      t_vbak      TYPE STANDARD TABLE OF types_vbak,
      t_likp      TYPE STANDARD TABLE OF types_likp,
      w_sale      TYPE char01.
CONSTANTS: c_check TYPE c VALUE 'X'.
** ALV relavent Data
DATA: w_grid TYPE REF TO cl_gui_alv_grid,
      wl_ref_container TYPE REF TO cl_gui_custom_container,
      w_container      TYPE scrfname   VALUE 'C_CONTAINER',
      t_fcat TYPE lvc_t_fcat,
      t_sort TYPE lvc_t_sort.
CONTROLS: c_tab TYPE TABSTRIP.
DATA: c_dynnr TYPE sy-dynnr.
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-011.
SELECT-OPTIONS: s_vbeln FOR vbak-vbeln,
                s_delvr FOR likp-vbeln.
SELECTION-SCREEN: END OF BLOCK b1.
START-OF-SELECTION.
SELECT vbeln
         vkorg
         netwr
         FROM vbak INTO TABLE t_vbak
         WHERE vbeln IN s_vbeln.
IF sy-subrc = 0.
    SORT t_vbak BY vbeln.
ENDIF.
SELECT vbeln
         vstel
         vkorg
         netwr
         FROM likp INTO TABLE t_likp
         WHERE vbeln IN s_delvr.
IF sy-subrc = 0.
    SORT t_likp BY vbeln.
ENDIF.
CALL SCREEN '9001'.
*&      Module STATUS_9001 OUTPUT
*       text
MODULE status_9001 OUTPUT.
SET PF-STATUS ' '.
SET TITLEBAR 'MAIN'.
IF c_tab-activetab IS INITIAL OR
     c_dynnr         IS INITIAL.
    c_tab-activetab = 'TAB1'.
    c_dynnr = '9002'.
ENDIF.
ENDMODULE.                 " STATUS_9001 OUTPUT
*&      Module USER_COMMAND_9001 INPUT
*       text
MODULE user_command_9001 INPUT.
CASE sy-ucomm.
    WHEN 'BACK' OR
         '%EX' OR
         'CANC'.
      SET SCREEN 0.
    WHEN 'TAB1'.
      c_dynnr = '9002'.
    WHEN 'TAB2'.
      c_tab-activetab = 'TAB2'.
      c_dynnr = '9003'.
    WHEN 'TAB3'.
      c_tab-activetab = 'TAB3'.
      c_dynnr = '9004'.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9001 INPUT
*&      Module STATUS_9002 OUTPUT
*       text
MODULE status_9002 OUTPUT.
** Create the Container
CREATE OBJECT wl_ref_container
    EXPORTING
      container_name = w_container.
** Create the Grid object
CREATE OBJECT w_grid
    EXPORTING
      i_parent          = wl_ref_container
    EXCEPTIONS
      error_cntl_create = 1
      error_cntl_init   = 2
      error_cntl_link   = 3
      error_dp_create   = 4
      OTHERS            = 5.
CHECK sy-subrc = 0.
PERFORM sub_fill_fcat_sale.
CALL METHOD w_grid->set_table_for_first_display
    CHANGING
      it_outtab                     = t_vbak
      it_fieldcatalog               = t_fcat
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
ENDMODULE.                 " STATUS_9002 OUTPUT
*&      Module STATUS_9004 OUTPUT
*       text
MODULE status_9003 OUTPUT.
** Create the Container
CREATE OBJECT wl_ref_container
    EXPORTING
      container_name = w_container.
** Create the Grid object
CREATE OBJECT w_grid
    EXPORTING
      i_parent          = wl_ref_container
    EXCEPTIONS
      error_cntl_create = 1
      error_cntl_init   = 2
      error_cntl_link   = 3
      error_dp_create   = 4
      OTHERS            = 5.
CHECK sy-subrc = 0.
PERFORM sub_fill_fcat_delv.
CALL METHOD w_grid->set_table_for_first_display
    CHANGING
      it_outtab                     = t_likp
      it_fieldcatalog               = t_fcat
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
ENDMODULE.                 " STATUS_9004 OUTPUT
*&      Form sub_fill_fcat
*       text
* --> p1        text
* <-- p2        text
FORM sub_fill_fcat_sale .
DATA: wa_fcat TYPE lvc_s_fcat.
REFRESH t_fcat.
CLEAR wa_fcat.
wa_fcat-row_pos   = 1.
wa_fcat-fieldname = wa_fcat-rollname = 'VBELN'.
APPEND wa_fcat TO t_fcat.
CLEAR wa_fcat.
wa_fcat-row_pos   = 2.
wa_fcat-fieldname = wa_fcat-rollname = 'VKORG'.
APPEND wa_fcat TO t_fcat.
CLEAR wa_fcat.
wa_fcat-row_pos   = 3.
wa_fcat-fieldname = wa_fcat-rollname = 'NETWR'.
APPEND wa_fcat TO t_fcat.
ENDFORM.                    " sub_fill_fcat
*&      Form sub_fill_fcat_delv
*       text
* --> p1        text
* <-- p2        text
FORM sub_fill_fcat_delv .
DATA: wa_fcat TYPE lvc_s_fcat.
REFRESH t_fcat.
CLEAR wa_fcat.
wa_fcat-row_pos   = 1.
wa_fcat-fieldname = 'VBELN'.
wa_fcat-rollname = 'VBELN_VL'.
APPEND wa_fcat TO t_fcat.
CLEAR wa_fcat.
wa_fcat-row_pos   = 2.
wa_fcat-fieldname = wa_fcat-rollname = 'VKORG'.
APPEND wa_fcat TO t_fcat.
CLEAR wa_fcat.
wa_fcat-row_pos   = 3.
wa_fcat-fieldname = wa_fcat-rollname = 'VSTEL'.
APPEND wa_fcat TO t_fcat.
CLEAR wa_fcat.
wa_fcat-row_pos   = 4.
wa_fcat-fieldname = wa_fcat-rollname = 'NETWR'.
APPEND wa_fcat TO t_fcat.
ENDFORM.                    " sub_fill_fcat_delv

Regarding tabstrip

Similar Messages

Maybe you are looking for