Skip to Content
avatar image
Former Member

screen exit for VA01

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

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

4 Answers

  • Best Answer
    Mar 17, 2008 at 08:13 AM

    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

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Mar 17, 2008 at 06:54 AM

    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.

    Add comment
    10|10000 characters needed characters exceeded

  • Mar 17, 2008 at 07:00 AM

    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

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Mar 17, 2008 at 07:32 AM

    hi,

    try this..

    Program : SAPMV45A

    screen : 8459

    Include MV45AOZZ

    regards,

    raghu

    Add comment
    10|10000 characters needed characters exceeded