Expand/collapse button functionality on module pool screen

Question

Hi ,
I want to design a module pool screen with a expand/collapse button on it.
The desired functionality associated with this button would be something similiar to that available in ME21N screen. When the expand button is clicked it should open up a section of screen that allows the user to enter some parameter. Based on this parameter some selections from DB can be perfomed and then displayed below it.
Any pointers on how to achieve this? Any kind of help would be appreciated.
Regards-
Harmeet Singh.

Answer 1

example for three pushbutton with expand collapse .
First of all define your push button as output field with icon tick in the pushbutton characteristick,
then define this pushbutton in top_include
include <icon>.
data : push_a1 like icons-l4,
         push_a2 like icons-l4,
         push_a3 like icons-l4.
data : a1 ,
         a2,
         a3.
in pai of the screen
suppose i had assign function code a1 ,a2 , a3 for repective pushbutton
module user_command_9002 input.
  okcd = ok_code.
  clear ok_code.
  case okcd.
    when 'A1'.
      if a1 is initial.
        a1 = 'X'.
      else.
        clear a1.
      endif.
    when 'A2'.
      if a2 is initial.
        a2 = 'X'.
      else.
        clear a2.
      endif.
    when 'A3'.
      if a3 is initial.
        a3 = 'X'.
      else.
        clear a3.
      endif.
  endcase.
endmodule.                 " USER_COMMAND_9002  INPUT
define three seprate screen -group for three pushbutton say a1 a2 a3
during pbo you can directly assign name of icon .
if a1 is initial.
    push_a1 = icon_collapse.
  else.
    push_a1 = icon_expand.
  endif.
  if a2 is initial.
    push_a2 = icon_collapse.
  else.
    push_a2 = icon_expand.
  endif.
  if a3 is initial.
    push_a3 = icon_collapse.
  else.
    push_a3 = icon_expand.
  endif.
loop at screen.
    if screen-group1 = 'A1'.
      if a1 = 'X'.
        screen-invisible = 1.
        screen-input = 0.
        modify screen.
      else.
        screen-active = 1.
        screen-invisible = 0.
        screen-input = 1.
      endif.
    elseif screen-group1 = 'A2'.
      if a2 = 'X'.
        screen-invisible = 1.
        screen-input = 0.
        modify screen.
      else.
        screen-active = 1.
        screen-invisible = 0.
        screen-input = 1.
      endif.
    elseif screen-group1 = 'A3'.
      if a3 = 'X'.
        screen-invisible = 1.
        screen-input = 0.
        modify screen.
      else.
        screen-active = 1.
        screen-invisible = 0.
        screen-input = 1.
      endif.
    endif.
  endloop.
regards,
Alpesh
Edited by: Alpesh on May 28, 2009 10:28 AM