Register Login

Steps to Create User Exit for Vendor Master

What are the steps to Create a User Exit for Vendor Master?

To Create User Exit for vendor master follow these steps:-

Step1. Go to transaction CMOD.

CMOD

Step2. Put Project as ZPROJ. Click on Create.

ZPROJ

Step3. Put Short Text “Check PAN for Vendor and Customer”.

Description

Step4. Click the Save button to save the project.

Click Save button

Step5. Click on Enhancement Assignment.

Enhancement Assignment

Step6. Put Enhancement as SAPMF02K and press Enter

SAPMF02K

Step7. Save the Enhancement

Save Enhancement

Step8. Next click on Components.

Component

Step9. Click on EXIT_SAPMF02K_001.

Exit SAPMF02K

Step10. Click on Include ZXF05U01.

Include

Step11. Copy the below-written code to this include:

*&---------------------------------------------------------------------*
*& Include ZXF05U01
*&---------------------------------------------------------------------*

FIELD-SYMBOLS :<fs_pgname1> TYPE j_1ipanno.
ASSIGN ('(SAPLJ1I_MASTER)J_1IMOVEND-J_1IPANNO') TO <fs_pgname1> .
if <fs_pgname1> IS not ASSIGNED.
MESSAGE w000(8i) WITH 'PAN Number is not available.Please update PAN '.
endif.
DATA: it_lfai TYPE TABLE OF lfa1,
lifnr TYPE lfa1-lifnr.
DATA: pan TYPE j_1imovend-j_1ipanno,
l_ilen TYPE i.
DATA: wt_t059z TYPE t059z OCCURS 1 WITH HEADER LINE.
DATA : BEGIN OF wt_lfbw OCCURS 0.
INCLUDE STRUCTURE t_lfbw.
DATA : END OF wt_lfbw.
READ TABLE t_lfbw INDEX 1.
lifnr = t_lfbw-lifnr .
CALL FUNCTION 'J_1BSA_COMPONENT_ACTIVE'
EXPORTING
bukrs = t_lfbw-bukrs
component = 'IN'
EXCEPTIONS
component_not_active = 1
OTHERS = 2.
CHECK sy-subrc = 0.
pan = <fs_pgname1>.
l_ilen = strlen( pan ).
*if pan is initial.
*SELECT SINGLE j_1ipanno FROM j_1imovend INTO pan WHERE lifnr = lifnr.
* endif.
IF pan = ' '.
MESSAGE w000(8i) WITH 'PAN Number is not available.Please update PAN '.
ELSEIF l_ilen NE 10 .
MESSAGE 'Please enter 10 DIGIT PANCARD NO.' TYPE 'E'.
ELSEIF pan+0(5) CA '0123456789'
OR "q
pan+5(4) CA 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
OR
pan+9(1) CA '0123456789'.
MESSAGE 'PANCARD no should be in the format 1-5 char 6-9 numeric last char' TYPE 'E'.
ENDIF.

Step12. Activate the Include and Project.