Need to include Table Control in Tabstrip (which is present in selection sc

Question

Hi Friends,
I have a tab strip in my selection screen. I need to include a Table control in one of the tab of the tab strip. Is it possible? If yes How to do that?
Note: I cant use a module pool program.
Regards,
Sudheer

Answer 1

Hi ,
    We can do that.
You have created the Tab strips in Module Pool program.Select that tab Place the table control in your tabstrips.Assign the Table control name to the table control.
In this program We have a field in selection screen When we submit the screen the tabstrip will come and using with in that we table controls.we filled that table controls.
include zsalesordertop                          .    " global Data
tables: zstr_vbak,zstr_vbap,zstr_vbep.
data:ok_code type sy-ucomm,
     ok_cod type sy-ucomm,
     l_vbeln type vbak-vbeln,
     no_rows1 type i,
     no_rows2 type i,
     no_rows3 type i.
data: itab1 type table of zstr_vbak,
      wa1 type  zstr_vbak,
      itab2 type table of zstr_vbap,
      wa2 type  zstr_vbap,
      itab3 type table of zstr_vbep,
      wa3 type  zstr_vbep.
*&      Module  STATUS_0100  OUTPUT
      text
module status_0100 output.
  set pf-status 'BACK'.
SET TITLEBAR 'xxx'.
  case ok_code.
    when 'BACK'.
      leave program.
  endcase.
endmodule.                 " STATUS_0100  OUTPUT
*&      Module  STATUS_0101  OUTPUT
      text
module status_0101 output.
  set pf-status 'EXIT'.
SET TITLEBAR 'xxx'.
  case ok_cod.
    when 'EXIT'.
      leave program.
    when 'TAB1'.
      tabstrip-activetab = 'TAB1'.
    when 'TAB2'.
      tabstrip-activetab = 'TAB2'.
    when 'TAB3'.
      tabstrip-activetab = 'TAB3'.
  endcase.
endmodule.                 " STATUS_0101  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
module user_command_0100 input.
  case ok_code.
    when 'SUBMIT'.
      if l_vbeln is not initial .
        select vbeln erdat erzet ernam angdt bnddt audat vbtyp trvog auart from vbak into table itab1 where vbeln = l_vbeln.
        if itab1 is not initial.
          select vbeln posnr matnr matwa pmatn charg matkl arktx pstyv posar from vbap into table itab2 for all entries in itab1 where vbeln = itab1-vbeln.
          select vbeln posnr etenr ettyp lfrel edatu ezeit vrkme from vbep into table  itab3 for  all entries in itab1 where vbeln = itab1-vbeln.
        else.
          message i000(000) with 'no data in item and schedule information table'.
        endif.
      else.
        message i000(000) with 'not allowed'.
      endif.
  endcase.
endmodule.                 " USER_COMMAND_0100  INPUT
*&      Module  STATUS_1101  OUTPUT
      text
module status_1101 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
  describe  table itab1 lines no_rows1.
  tablecontrol1-lines = no_rows1.
endmodule.                 " STATUS_1101  OUTPUT
*&      Module  STATUS_2101  OUTPUT
      text
module status_2101 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
  describe  table itab2 lines no_rows2.
  tablecontrol2-lines = no_rows2.
endmodule.                 " STATUS_2101  OUTPUT
*&      Module  STATUS_3101  OUTPUT
      text
module status_3101 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
  describe  table itab3 lines no_rows3.
  tablecontrol3-lines = no_rows3.
endmodule.                 " STATUS_3101  OUTPUT
*&      Module  FILL_TABLECONTROL1  OUTPUT
      text
module fill_tablecontrol1 output.
  read table itab1 into zstr_vbak index tablecontrol1-current_line.
endmodule.                 " FILL_TABLECONTROL1  OUTPUT
*&      Module  FILL_TABLECONTROL2  OUTPUT
      text
module fill_tablecontrol2 output.
  read table itab2 into zstr_vbap index tablecontrol2-current_line.
endmodule.                 " FILL_TABLECONTROL2  OUTPUT
*&      Module  FILL_TABLECONTROL3  OUTPUT
      text
module fill_tablecontrol3 output.
  read table itab3 into zstr_vbep index tablecontrol3-current_line.
endmodule.                 " FILL_TABLECONTROL3  OUTPUT
Include zsalesordertop
program  zmodule_pool_salesorder.
controls tabstrip type tabstrip.
controls tablecontrol1 type tableview  using screen '1101'.
controls tablecontrol2 type tableview using screen '2101'.
controls tablecontrol3 type tableview using screen '3101'.
Sure this will help you.
Please reward points if it helps to you.
Thanks,
Swapna.