Screen exit

Former Member — Wed, 01 Mar 2006 14:05:26 GMT

Hi ALl!

In prog SAPMV45A there is no custom screen exit.I had added 2 custom fields to the screen no 4459.

Now how to proceed.will the program automatically handle the transformation into database.

Please advise.

regards

Praneeth

Re: Screen exit

Former Member — Wed, 01 Mar 2006 14:18:44 GMT

Hi,

Use MV45AFZZ to append the values.

Then the system automatically updates the databse.

Thank you.

regards,

Karun.M

Re: Screen exit

Former Member — Wed, 01 Mar 2006 14:22:01 GMT

Here is a custom program which will take tcode as input and will list all the SAP enhancements available for that tcode.

Create a temporary program in SAP and paste this code. This will help you.

If it is related to VA01 / 02 / 03 try MV45AFZZ.

REPORT ZUSEREXIT.

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

Finding the user-exits of a SAP transaction code

Enter the transaction code in which you are looking for the user-exit
and it will list you the list of user-exits in the transaction code.
Also a drill down is possible which will help you to branch to SMOD.

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

*----

TABLES DECLARATION

*----

TABLES : TSTC, "SAP Transaction Codes.

TADIR, "Directory of Repository Objects.

MODSAPT, "SAP Enhancements - Short Texts.

MODACT, "Modifications.

TRDIR, "System table TRDIR.

TFDIR, "Function Module.

ENLFDIR, "Additional Attributes for Function Modules

TSTCT. "Transaction Code Texts

*----

INTERNAL TABLE DECLARATIONS

*----

DATA : ITAB LIKE TADIR OCCURS 0 WITH HEADER LINE.

*----

DATA DECLARATIONS

*----

DATA : V_FIELD1(30).

DATA : V_DEVCLASS LIKE TADIR-DEVCLASS.

*----

INPUT SCREEN DECLARATIONS

*----

PARAMETERS : P_TCODE LIKE TSTC-TCODE OBLIGATORY.

*----

START OF SELECTION EVENT

*----

START-OF-SELECTION.

*--Read SAP Transaction Code from the given input.

SELECT SINGLE *

FROM TSTC

WHERE TCODE EQ P_TCODE.

IF SY-SUBRC EQ 0.

*--Get the Directory of Repository Objects for the

*---selected program name.

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.

*--Read System table TRDIR for the selected program name.

SELECT SINGLE *

FROM TRDIR

WHERE NAME = TSTC-PGMNA.

*--Get the function module name for the selected program name.

IF TRDIR-SUBC EQ 'F'.

SELECT SINGLE *

FROM TFDIR

WHERE PNAME = TSTC-PGMNA.

*--Get the function group for the selected program name.

SELECT SINGLE *

FROM ENLFDIR

WHERE FUNCNAME = TFDIR-FUNCNAME.

*--Read the development class for the corresponding function group.

SELECT SINGLE *

FROM TADIR

WHERE PGMID = 'R3TR' AND

OBJECT = 'FUGR' AND

OBJ_NAME EQ ENLFDIR-AREA.

MOVE : TADIR-DEVCLASS TO V_DEVCLASS.

ENDIF.

*--Read all the entries into the internal table itab.

SELECT *

FROM TADIR

INTO TABLE ITAB

WHERE PGMID = 'R3TR' AND

OBJECT = 'SMOD' AND

DEVCLASS = V_DEVCLASS.

*--Read Transaction code information from the table tstct.

SELECT SINGLE *

FROM TSTCT

WHERE SPRSL EQ SY-LANGU AND

TCODE EQ P_TCODE.

*-- Column Headings

FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.

WRITE:/(19) 'Transaction Code - ',

20(20) P_TCODE,

45(50) TSTCT-TTEXT.

SKIP.

IF NOT ITAB[] 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 ITAB.

*--Read SAP Enhancements short texts information.

SELECT SINGLE *

FROM MODSAPT

WHERE SPRSL = SY-LANGU AND

NAME = ITAB-OBJ_NAME.

FORMAT COLOR COL_NORMAL INTENSIFIED OFF.

WRITE:/1 SY-VLINE,

2 ITAB-OBJ_NAME HOTSPOT ON,

21 SY-VLINE ,

22 MODSAPT-MODTEXT,

95 SY-VLINE.

ENDLOOP.

WRITE:/(95) SY-ULINE.

DESCRIBE TABLE ITAB.

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 EVENT

*----

AT LINE-SELECTION.

GET CURSOR FIELD V_FIELD1.

CHECK V_FIELD1(4) EQ 'ITAB'.

SET PARAMETER ID 'MON' FIELD SY-LISEL+1(10).

*-- call transation SMOD : Sap Enhancement.

CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.

*---End of Program

Message was edited by: Ashish Gundawar

Re: Screen exit

Former Member — Wed, 01 Mar 2006 14:23:50 GMT

Thanks karun,

Similarly for the program SAPLMGD1 screen no. 2156, can you suggest me the screen exit name.

regrads

praneeth

points rewarded

Re: Screen exit

Former Member — Wed, 01 Mar 2006 14:27:10 GMT

Hi,

once you made the changes , accrodingle extend the VBAK/VBAP structures and then place your coding in MV45AFZZ in appropriate forms, here you can see so many user exits.

Regards

vijay

Re: Screen exit

Former Member — Wed, 01 Mar 2006 14:33:41 GMT

Hi,

Check

user exits..

MGA00001 
MGA00002 
MGA00003

BADI's

BADI_EAN_SYSTEMATIC
BADI_GTIN_VARIANT  
BADI_MAT_F_SPEC_SEL
BADI_MATERIAL_CHECK
BADI_MATERIAL_OD   
<b>BADI_MATERIAL_REF</b>   "screen exit
BADI_MM_MATNR      
CDT_CHECK_MATERIAL 
MG_MASS_NEWSEG

Vijay

Message was edited by: Vijay Babu Dudla

topic Screen exit in Application Development and Automation Discussions

Screen exit

Re: Screen exit

Re: Screen exit

Re: Screen exit

Re: Screen exit

Re: Screen exit