Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

screen exit for VA01

former_member190312
Active Participant
0 Kudos

Hi folks,

i want to add one field cusomer no in 'Additional Data B' tab of VA01.

can anyone tell me the screen number for 'Additional Data B' of VA01 & the complete process of creating the field & validating the VBAP table?

Points will be awarded.

Regards

pabi

1 ACCEPTED SOLUTION

former_member188685
Active Contributor
0 Kudos

For header

program is SAPMV45A , Screen 8309, and 8310

For Item

Program is SAPMV45A, screens 8459, and 8460

INCLUDE MV45AOZZ. " User-modules PBO

INCLUDE MV45AIZZ. " User-modules PAI

6 REPLIES 6

Former Member
0 Kudos

Hi,

Follow the following process and reward points!!!!!!!

Additional header data is on screen SAPMV45A 0309, additional item data on screen SAPMV45A 0459. These screens contain the Include screens SAPMV45A 8309 or SAPMV45A 8459 as user exits.

Fields which are also to be included in the sales document for a specific installation should be included on the Include screens for maintaining. If an application-specific check module is needed for the fields, this can be included in the Include MV45AIZZ. The module is called up in the processing logic of the Include screens.

For field transports, you do not have to make changes or adjustments.

Example

A new field, VBAK-ZZKUN, should be included in table VBAK.

If the check is defined via the Dictionary (fixed values or check table) the field must be included with the fullscreen editor in the Include screen SAPMV45A 8309. In this case, no change has to be made to the processing logic.

dhruv_shah3
Active Contributor
0 Kudos

Hi,

Run this program in R/3

Enter according to the Selection Screen.

and you will find the Screens and other stuffs for any Tcode.


*&---------------------------------------------------------------------*
*& Report  Z_EXIT_SEARCH                                               *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT zuserexits NO STANDARD PAGE HEADING.


TABLES: trdir, modsap, modsapt, modact,tfdir.
DATA: jtab like modsap occurs 0 with header line.
DATA: field1(30).

DATA prog(40) TYPE c.
DATA itab like trdir occurs 0 with header line.
DATA tmp_name(40) TYPE C.

SELECT * FROM modsap INTO TABLE jtab[] WHERE member <> ''.
SELECT * FROM trdir INTO  TABLE itab[] WHERE name LIKE 'ZX%'.
LOOP AT jtab.
*  CONDENSE jtab-member.
*  IF jtab-member IS INITIAL.
*    DELETE jtab.
*    CONTINUE.
*  ENDIF.
  PERFORM determine_incl USING jtab-member
                         CHANGING prog.
  IF prog IS INITIAL.
    DELETE jtab.
    CONTINUE.
  ENDIF.

  IF prog(2) = 'ZX'.
    READ TABLE itab WITH KEY name = prog.
    IF sy-subrc <> 0.
      DELETE jtab.
      CONTINUE.
    ENDIF.
  ELSE.
    SELECT SINGLE name INTO tmp_name FROM trdir
                                         WHERE name = prog.
    IF sy-subrc <> 0.
      DELETE jtab.
      CONTINUE.
    ENDIF.
  ENDIF.

ENDLOOP.

IF NOT jtab[] IS INITIAL.
  WRITE:/(130) sy-uline.
  FORMAT COLOR col_heading INTENSIFIED ON.
  WRITE:/1 sy-vline,
         2 'Exit Name',
         21 sy-vline ,
         22 'Description',
         95 sy-vline,
         96 'FM',
         130 sy-vline.
  WRITE:/(130) sy-uline.

  LOOP AT jtab.
    SELECT SINGLE * FROM modsapt WHERE sprsl = sy-langu
                                   AND name = jtab-name.
    FORMAT COLOR col_normal INTENSIFIED OFF.
    WRITE:/1 sy-vline,
           2 jtab-name hotspot on,
           21 sy-vline ,
           22 modsapt-modtext,
           95 sy-vline,
           96 jtab-member,
           130 sy-vline.
  ENDLOOP.
  WRITE:/(130) 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:/(130) 'No User Exit exists'.
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.


FORM determine_incl USING fun_name
                    CHANGING incl_name.
  DATA: p_tfdir  TYPE tfdir.

  SELECT SINGLE * FROM tfdir INTO p_tfdir
                     WHERE funcname = fun_name.
  IF sy-subrc = 0.
    CALL FUNCTION 'FUNCTION_INCLUDE_CONCATENATE'
      EXPORTING
        include_number = p_tfdir-include
      IMPORTING
        include            = incl_name
      CHANGING
        program        = p_tfdir-pname
      EXCEPTIONS
        other = 4.
    IF sy-subrc <> 0.
      CLEAR incl_name.
    ELSE.
      incl_name(1) = 'Z'.
    ENDIF.

  ELSE.
    CLEAR incl_name.
  ENDIF.

ENDFORM.


HTH

Regards,

Dhruv Shah

Former Member
0 Kudos

hi,

try this..

Program : SAPMV45A

screen : 8459

Include MV45AOZZ

regards,

raghu

former_member188685
Active Contributor
0 Kudos

For header

program is SAPMV45A , Screen 8309, and 8310

For Item

Program is SAPMV45A, screens 8459, and 8460

INCLUDE MV45AOZZ. " User-modules PBO

INCLUDE MV45AIZZ. " User-modules PAI

0 Kudos

Hi vijay ,

Do i need to get access key to modify screen 8459 and exit MV45AOZZ ??

please help.

Can i add new field in Va01 - additional tab b without taking access key ?

0 Kudos

Thanks . I got the solution , Access key is mandatory to modify Screen 8459 .

Append fields in VBAP and got the desired result .