topic Re: Menu items in the screen in Application Development and Automation Discussions

Menu items in the screen

Former Member — Wed, 24 Aug 2005 17:38:22 GMT

Hi Everyone,

I have created screens and for this i have the application toolbar, standard toolbar, menu bar.

like the program help etc.

I want to create menu items in the menu bar apart from program & help which is created by default, like eg say screen object etc. and within each item i want a drop down menu with item like in the screen i have 3 pushbuttons, i want in the screen drop down menu these menu items but1, but2 etc.

How do i acheive this,

Any help on this will be of great use to me.

Thanks in advance,

Prabs.

Re: Menu items in the screen

Former Member — Wed, 24 Aug 2005 17:49:50 GMT

You need to create a menu in SE41 and call it in your PBO of the screen using the syntax SET PF-STATUS 'ABC'.

Re: Menu items in the screen

RichHeilman — Wed, 24 Aug 2005 18:04:12 GMT

The menu is just another part of the gui status. If you double click on the SET PF-STATUS 'XXX' in your program, it will take you to the gui status. Here in the first section is the Menu setup. Here is where you will build your menu.

Regards,

Rich Heilman

Re: Menu items in the screen

Former Member — Thu, 25 Aug 2005 04:04:37 GMT

Hi,

Double click on the ZSTATUS and in the applictaion toolbar create the buttons pass the function code BUT1 and perform some opertaion.


MODULE status_9001 OUTPUT.

  IF o_dockingcontainer IS INITIAL.

    SET PF-STATUS 'ZSTATUS'.
    SET TITLEBAR 'ZTITLE'.
.................
  ENDIF.

ENDMODULE.                 " STATUS_9001  OUTPUT

MODULE user_command_9001 INPUT.

  CASE sy-ucomm.

    WHEN 'EXIT' OR  'CANC'.
      PERFORM f9600_free_objects:
               USING o_alvgrid 'ALV' text-e02,
               USING o_dockingcontainer 'DOCKING'
                       text-e01.
      LEAVE PROGRAM.

    WHEN 'BACK'.
      PERFORM f9600_free_objects:
               USING o_alvgrid 'ALV' text-e02,
               USING o_dockingcontainer 'DOCKING'
                       text-e01.
      SET SCREEN '0'.
      LEAVE SCREEN.
<b>    WHEN 'BUT1'.
     perform...............</b>

    WHEN OTHERS.

  ENDCASE.

ENDMODULE.                 " USER_COMMAND_9001  INPUT

Hope this too helps.