Query for tabstrip & Table control

Question

Hi,
I have never used tabstrip & Table controls.I have worked extensively on ALV  & Smartforms.I am finding it difficult to understand the steps now,after a long gap of returning to tabstrips & table control.I have all the standard programs for the same,Please send me any z development you have worked on to help me understand it better.
Thanks

Answer 1

Hi sneha,
            This is kiran kumar.G.(working on SAP).I will develop some of dialog progs on tab strips and table controls.
i will send the se38 program logic and se51 flow logic.check it once.
Note : some of the steps before u start on creating TABSTRIPS.
1. FIRSR CREATE SE38 PROGRAM + SAVE +ACTIVATE.
2.GOTO SE51 T.CODE and enter the SE38 PROGRAM NAME AND SCREEN NUMBER.(EX: 0100).
3.THE FIRST SCREEN OF THE SE51 IS POPULATED AND SELECT NORMAL RADIO BUTTON AND GOAHEAD.
4.GOTO LAYOUT AND SELECT THE TABSTRIP BUTTON FROM THE TOOLBAR AND PLACE THEM ON THE SCREEN
5.IN THE BELOW EXAMPLE I WILL CREATE TWO TABSTRIPS..
6.SELECT THE SUBSCREEN BUTTON FROM THE TOOLBAR AND PLACE THEM IN THE TAB1 SCREEN.AND SAME PROCEDURE IS REPEATED FOR TAB2 ALSO
6.CLICK ON THE TAB1 BUTTON AND GIVE NAME AS "HEAD" AND SOME TEXT AND REFFILED AS "SUBS"
7.FOLLOW THE SAME PROCEDURE FOR SECOND TABSTRIP AND GIVE NAME AS "ITEM" AND REFFILED AS "SUBS".
AND SAVE AND ACTIVE..
8.GOTO SE51 TRANSACTION AND GIVE REPORT NAME AND SCREEN NUMBER AS 0110. AND SELECT SUBSCREN RADIO BUTTON AND SELECT LAYOUT AND PLACE SOME FIELDS THERE AND AND SAME PROCUDRE IS REPEAT FOR 0120 SUB SCREEN ALSO
Code:
*& Module pool       YMODULEPOOL_TABSTRIPS                             *
*& DEVELOPER    : KIRAN KUMAR.G                                        *
*& PURPOSE      : DEMO ON TABSTRIP CONTROLS                            *
*& CREATION DT  : 18/12/2007                                           *
*& T.CODE       : YMODTABSTRIP                                         *
*& REQUEST      : ERPK900035                                           *
PROGRAM  ymodulepool_tabstrips.
Tables
TABLES: vbak,
        vbap.
Controls
CONTROLS: my_tabstrip TYPE TABSTRIP..
Global Variables
DATA: gv_number LIKE sy-dynnr.
*&      Module  active_tab  OUTPUT
      text
MODULE active_tab OUTPUT.
*Default Selection of the TABSTRIP
  IF my_tabstrip-activetab IS INITIAL.
    my_tabstrip-activetab = 'HEAD'.
    gv_number = '110'.
  ENDIF.
ENDMODULE.                 " active_tab  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
*Header Information
    WHEN 'HEAD'.
      SELECT SINGLE erdat
                    vkorg
                    vtweg
               FROM vbak
               INTO (vbak-erdat,vbak-vkorg,
                     vbak-vtweg)
              WHERE  vbeln = vbak-vbeln.
      my_tabstrip-activetab = 'HEAD'.
      gv_number = '110'.
*Item Information
    WHEN 'ITEM'.
      SELECT SINGLE matnr
                    matkl
                    ntgew
              FROM vbap
              INTO (vbap-matnr,vbap-matkl,vbap-ntgew)
             WHERE vbeln = vbak-vbeln.
      my_tabstrip-activetab = 'ITEM'.
      gv_number              = '120'.
*EXIT from the Program
    WHEN 'EXIT' OR 'CANCEL'.
      CALL TRANSACTION 'SESSION_MANAGER'.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Module  STATUS_0100  OUTPUT
      text
module STATUS_0100 output.
  SET PF-STATUS 'YTABSTRIP'.
SET TITLEBAR 'xxx'.
end module.
SE51 (SCREEN 100 :CODE)
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
module active_tab.
call subscreen subs including sy-cprog gv_number.
*call subscreen sub1 including sy-cprog gv_number.
PROCESS AFTER INPUT.
call subscreen subs.
*call subscreen subs.
MODULE USER_COMMAND_0100
SCREEN 110:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0110.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0110.
SCREEN 120:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0120.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0120.
Award points if helpful.
kiran kumar.G
            HAVE A NICE DAY....