topic Re: Push Button in VA01 Screen in Application Development and Automation Discussions

Push Button in VA01 Screen

Former Member — Thu, 13 Sep 2007 11:05:29 GMT

My Req is I have to place push button in VA01 Screen(Sales Overview main screen in top, near to exisiting button, Orders).

Anyone can help is there any screen exit for this?..also this one is possible?

Thanks

Suresh

Re: Push Button in VA01 Screen

Former Member — Thu, 13 Sep 2007 11:17:25 GMT

Check this link it will solve ur problem

http://www.synactive.com/tutor_e/lesson02.html

Reward for all helpfull answers

Regards

Pavan

Re: Push Button in VA01 Screen

Former Member — Thu, 13 Sep 2007 22:53:53 GMT

Thanks for the link.So i can write the custom code anything inside that push button..but GuiXT is advisable to use?..i saw somewhere in forum there may be a problem..

Re: Push Button in VA01 Screen

Former Member — Tue, 18 Sep 2007 00:43:40 GMT

Let me know whether push button in application tool bar or menu exit available to give this option..Basically i have to give two buttion or two menu option to user.

and then i have to write custom code inside that..Thanks in advance

Suresh

Re: Push Button in VA01 Screen

Former Member — Tue, 18 Sep 2007 06:50:07 GMT

You can do that coding everything. 1st check for the User exit program for a specific TCode and then do coding in that report

Regards

Pavan

Re: Push Button in VA01 Screen

Former Member — Tue, 18 Sep 2007 11:42:42 GMT

Wethere Menu exit or Push Button(Screen exit) is available in VA01?. or is it possible or not..if yes pls let me know how to do that.Thanks

Re: Push Button in VA01 Screen

Former Member — Wed, 19 Sep 2007 04:53:50 GMT

Check this report for the user exit list

*&---------------------------------------------------------------------*
*& Report  ZUSEREXITS                                                  *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZUSEREXITS                              .
TABLES : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
TABLES : tstct.

DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
PARAMETERS : TCode LIKE tstc-tcode OBLIGATORY.

SELECT SINGLE * FROM tstc WHERE tcode EQ tcode.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR'
AND object = 'PROG'
AND obj_name = tstc-pgmna.
MOVE : tadir-devclass TO v_devclass.
IF sy-subrc NE 0.
SELECT SINGLE * FROM trdir WHERE name = tstc-pgmna.
IF trdir-subc EQ 'F'.
SELECT SINGLE * FROM tfdir WHERE pname = tstc-pgmna.
SELECT SINGLE * FROM enlfdir WHERE funcname =
tfdir-funcname.
SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR'
AND object = 'FUGR'
AND obj_name EQ enlfdir-area.

MOVE : tadir-devclass TO v_devclass.
ENDIF.
ENDIF.
SELECT * FROM tadir INTO TABLE jtab
WHERE pgmid = 'R3TR'
AND object = 'SMOD'
AND devclass = v_devclass.
SELECT SINGLE * FROM tstct WHERE sprsl EQ sy-langu AND
tcode EQ tcode.
FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
WRITE:/(19) 'Transaction Code - ',
20(20) tcode,
45(50) tstct-ttext.
SKIP.
IF NOT jtab[] IS INITIAL.
WRITE:/(95) sy-uline.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/1 sy-vline,
2 'Exit Name',
21 sy-vline ,
22 'Description',
95 sy-vline.
WRITE:/(95) sy-uline.
LOOP AT jtab.
SELECT SINGLE * FROM modsapt
WHERE sprsl = sy-langu AND
name = jtab-obj_name.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WRITE:/1 sy-vline,
2 jtab-obj_name HOTSPOT ON,
21 sy-vline ,
22 modsapt-modtext,
95 sy-vline.
ENDLOOP.
WRITE:/(95) sy-uline.
DESCRIBE TABLE jtab.
SKIP.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ 'No of Exits:' , sy-tfill.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) 'No User Exit exists'.
ENDIF.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) 'Transaction Code Does Not Exist'.
ENDIF.

AT LINE-SELECTION.
GET CURSOR FIELD field1.
CHECK field1(4) EQ 'JTAB'.
SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.

Reward for all helpfull answers

Regards

Pavan

Re: Push Button in VA01 Screen

Former Member — Wed, 19 Sep 2007 06:50:23 GMT

There are not screen exits available in va01, you can put the button on the additional data A or B screen, and then using transaction VFBS fill in the navigational data for the function codes.

VFBS relates to the maintenance views for T185, T185F and T185V tables which require screen groups and processing location of the function code along iwth the next function code to be executed.

<b>Reward if useful.</b>

Regards,

Pritha

Re: Push Button in VA01 Screen

Former Member — Wed, 19 Sep 2007 11:11:34 GMT

Thanks for your reply..Thats what i told functional owner, there is no screen exit or menu exit.But Still he says there is a possibility of adding push button in application tool bar in VA01or adding item in menu bar..

Yes we can add our customs in addl A and Addl B..But he want the button or menu option in main screen not in the tab.

Thanks

Suresh