topic Re: toolbar in Application Development and Automation Discussions

toolbar

Former Member — Tue, 22 May 2007 05:36:55 GMT

hi all

i am using toolbar in my program, but i am confused how to use the function code of buttons on the toolbar. plz help me

with regards

Ashish

Re: toolbar

Former Member — Tue, 22 May 2007 05:44:52 GMT

hi,

U will get the click on the tool bar in this system variable.

in PAI chk this.


Case Sy-ucomm.
when ' '.                      "In capital letter
end case.

Regards

Reshma

Re: toolbar

Former Member — Tue, 22 May 2007 05:44:55 GMT

HI,

toolbar button fields named as sscrfields.

create button in toolbar

at selection-screen output.

sscrfields-functxt_01 = 'Display'(001).

sscrfields-functxt_02 = 'Change'(002).

you define the text of your buttons.

In event

at selection-screen.

case sy-ucomm.

when 'FC01'.

perform ur_routine

when 'FC02'.

perform ur_routine.

endcase.

Regards

SAB

Re: toolbar

Former Member — Tue, 22 May 2007 05:53:25 GMT

go through this program : demo_dynpro_push_button

Hope this will solve ur problem..

<b><u>Dont forget to reward all the useful replies</u></b>

Sudheer

Re: toolbar

Former Member — Tue, 22 May 2007 06:01:45 GMT

hi ashish,

give transaction se41 -> giv program nam -> select menu bar -> expand application tool bar, menu bar, stanadard tool bar -> select required buttons -> giv function codes -> activate -> and in prgm in at line-selection event

at line-selection.

case sy-ucomm.

when 'SAVE'

..............

when 'BACK'

LEAVE PROGRAM.

WHEN 'EXIT'

stop.

endcase.

if helpful reward some points,

with regards,

suresh babu aluri.

Re: toolbar

Former Member — Tue, 22 May 2007 06:02:16 GMT

hi ashish,

first give the code

SET PF-STATUS 'any name'.

in your program then double click on your name you will get the screen of menu painter.

then create your buttons.save and activate.

come back to program.

when u wanna to use that

pass this code

sace sy-ucomm.

when 'back'. '' back is your one of the button.

leave program.

when 'save'.

perform save.

when 'others'.

perform others.

endcase.

regards

vijay dwivedi

Re: toolbar

Former Member — Tue, 22 May 2007 06:07:46 GMT

hi ashish,

you can take the refrence of this program.

REPORT ZVIJ_INTREC1 LINE-COUNT 20(3) LINE-SIZE 130.

TABLES: MARA,MARC,MARD.

DATA: BEGIN OF ITAB_MARA OCCURS 0,

MATNR LIKE MARA-MATNR,

ERNAM LIKE MARA-ERNAM,

MTART LIKE MARA-MTART,

END OF ITAB_MARA.

DATA: BEGIN OF ITAB_MARC OCCURS 0,

MATNR LIKE MARC-MATNR,

WERKS LIKE MARC-WERKS,

LVORM LIKE MARC-LVORM,

END OF ITAB_MARC.

DATA: BEGIN OF ITAB_MARD OCCURS 0,

MATNR LIKE MARD-MATNR,

LGORT LIKE MARD-LGORT,

END OF ITAB_MARD.

DATA: BEGIN OF NTAB OCCURS 0,

MATNR LIKE MBEW-MATNR,

BWKEY LIKE MBEW-BWKEY,

BKLAS LIKE MBEW-BKLAS,

END OF NTAB.

DATA: BEGIN OF PTAB OCCURS 0,

MATNR LIKE MARM-MATNR,

MEINH LIKE MARM-MEINH,

GEWEI LIKE MARM-GEWEI,

END OF PTAB.

DATA: BEGIN OF RTAB OCCURS 0,

ESTKZ LIKE EBAN-ESTKZ,

MATNR LIKE EBAN-MATNR,

MATKL LIKE EBAN-MATKL,

END OF RTAB.

SELECT-OPTIONS: MTART FOR MARA-MTART.

INITIALIZATION.

MTART-LOW = 'HALB'.

MTART-HIGH = 'HAWA'.

MTART-OPTION = 'BT'.

APPEND MTART.

START-OF-SELECTION.

SELECT MATNR ERNAM MTART FROM MARA INTO TABLE ITAB_MARA WHERE MTART IN

MTART.

PERFORM DISPLAY.

TOP-OF-PAGE.

WRITE:/2(15) 'MATERIAL NO',20(20) 'CREATED BY',45(15) 'MATERIAL TYPE'.

*END-OF-PAGE.

*DO SY-LSIND TIMES.

*WRITE:/ 'LIST INDEX',SY-LSIND.

*ENDDO.

FORM DISPLAY.

LOOP AT ITAB_MARA.

WRITE:/ ITAB_MARA-MATNR UNDER 'MATERIAL NO' HOTSPOT ON,ITAB_MARA-ERNAM

UNDER

'CREATED BY',ITAB_MARA-MTART UNDER 'MATERIAL TYPE'.

HIDE: ITAB_MARA-MATNR.

ENDLOOP.

ENDFORM.

************************************************************************

AT LINE-SELECTION.

CASE SY-LSIND.

WHEN 1.

SELECT MATNR WERKS LVORM FROM MARC INTO TABLE ITAB_MARC WHERE MATNR =

ITAB_MARA-MATNR.

PERFORM DISPLAY1.

WHEN 2.

SELECT MATNR LGORT FROM MARD INTO TABLE ITAB_MARD WHERE MATNR =

ITAB_MARC-MATNR.

PERFORM DISPLAY2.

*sy-lsind = 0.

WHEN 3.

SELECT MATNR BWKEY BKLAS FROM MBEW INTO TABLE NTAB WHERE MATNR =

ITAB_MARD-MATNR.

PERFORM DISPLAY3.

WHEN 4.

SELECT MATNR MEINH GEWEI FROM MARM INTO TABLE PTAB WHERE MATNR =

NTAB-MATNR.

PERFORM DISPLAY4.

WHEN 5.

SELECT ESTKZ MATNR MATKL FROM EBAN INTO CORRESPONDING FIELDS OF TABLE

RTAB WHERE MATNR =

PTAB-MATNR.

PERFORM DISPLAY5.

when 6.

WRITE:/ SY-LSIND HOTSPOT ON.

when 7.

WRITE:/ SY-LSIND HOTSPOT ON.

when 8.

WRITE:/ SY-LSIND HOTSPOT ON.

when 9.

WRITE:/ SY-LSIND HOTSPOT ON.

when 10.

WRITE:/ SY-LSIND HOTSPOT ON.

when 11.

WRITE:/ SY-LSIND HOTSPOT ON.

when 12.

WRITE:/ SY-LSIND HOTSPOT ON.

when 13.

WRITE:/ SY-LSIND HOTSPOT ON.

when 14.

WRITE:/ SY-LSIND HOTSPOT ON.

*sy-lsind = 17.

when 15.

WRITE:/ SY-LSIND HOTSPOT ON.

when 16.

WRITE:/ SY-LSIND HOTSPOT ON.

when 17.

WRITE:/ SY-LSIND HOTSPOT ON.

when 18.

WRITE:/ SY-LSIND HOTSPOT ON.

when 19.

WRITE:/ SY-LSIND HOTSPOT ON.

*sy-lsind = 10.

when 20.

WRITE:/ SY-LSIND HOTSPOT ON.

if sy-lsind = 20.

submit ZVIJ_INTREC2.

endif.

*write:/ 'sytem index', sy-lsind.

ENDCASE.

FORM DISPLAY1.

LOOP AT ITAB_MARC.

WRITE:/ ITAB_MARC-MATNR HOTSPOT ON, ITAB_MARC-WERKS,ITAB_MARC-LVORM.

HIDE: ITAB_MARC-MATNR.

ENDLOOP.

WRITE:/ SY-LSIND.

ENDFORM.

FORM DISPLAY2.

LOOP AT ITAB_MARD.

WRITE:/ ITAB_MARD-MATNR HOTSPOT ON, ITAB_MARD-LGORT.

HIDE: ITAB_MARD-MATNR.

ENDLOOP.

WRITE:/ SY-LSIND.

ENDFORM.

FORM DISPLAY3.

LOOP AT NTAB.

WRITE:/ NTAB-MATNR HOTSPOT ON,NTAB-BWKEY,NTAB-BKLAS.

HIDE: NTAB-MATNR.

ENDLOOP.

WRITE:/ SY-LSIND.

ENDFORM.

FORM DISPLAY4.

LOOP AT PTAB.

WRITE:/ PTAB-MATNR HOTSPOT ON,PTAB-MEINH,PTAB-GEWEI.

HIDE: PTAB-MATNR.

ENDLOOP.

WRITE:/ SY-LSIND.

ENDFORM.

FORM DISPLAY5.

LOOP AT RTAB.

WRITE:/ RTAB-MATNR HOTSPOT ON,RTAB-ESTKZ,RTAB-MATKL.

HIDE: PTAB-MATNR.

ENDLOOP.

WRITE:/ SY-LSIND.

*SY-LSIND = 0.

ENDFORM.

thanks and regards

vijay dwivedi

rewards

Re: toolbar

Former Member — Tue, 22 May 2007 06:08:25 GMT

You can use the CASE keyword to recognize which Button on the toolbar was clicked...

e.g. If there are two buttons B1 and B2 with function codes FN1 and FN2 then your code would be:

AT LINE-SELECTION.

CASE sy-ucomm.

WHEN 'FN1'.

<do-something>

WHEN 'FN2'.

<do-something>

ENDCASE.