Enterprise Resource Planning Blogs by Members
Gain new perspectives and knowledge about enterprise resource planning in blog posts from community members. Share your own comments and ERP insights today!
cancel
Showing results for 
Search instead for 
Did you mean: 
Former Member
4,502

User exit for Vendor Name Validation in XK01 Transaction.

By Sagar dev


PURPOSE:

In case we vendor creation enter the vendor name in the same vendor name all ready exits should get error/warning message. In XK01 (vendor name already exist with another vendor code).

Step by step Solution: 

Go to transaction “CMOD”.


Click On Create Button.

Define Short Text and Package.

Enter Name of an SAP enhancement – SAPMF02K.


Click on Components -

Double Click On - EXIT_SAPMF02K_001

Double Click On  include zxf05u01.

We have to implement the code and it will looks like this. 

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

***************************************Data Declaration

data : v_name1 type lfa1-name1.
tables : lfa1, lfb1.

types : begin of ty_lfa1,
name1
type lfa1-name1,
end of ty_lfa1,

begin of ty_lfb1,
lifnr
type lfb1-lifnr,
end of ty_lfb1.

data : it_lfa1 type standard table of ty_lfa1,
wa_lfa1
type ty_lfa1.

data : it_lfb1 type standard table of ty_lfb1,
wa_lfb1
type ty_lfb1.
**********************************************************

if sy-tcode = 'XK01'. “ tcode
if i_lfb1-bukrs = ''.” company code
select lifnr
into table it_lfb1
from lfb1
where bukrs = ''. ” company code

if it_lfb1[] is not initial.
select name1
into table it_lfa1
from lfa1
for all entries in it_lfb1
where lifnr = it_lfb1-lifnr.
endif.

sort it_lfa1[].

if i_lfa1-name1 is not initial.
loop at it_lfa1 into wa_lfa1.
if wa_lfa1-name1 = i_lfa1-name1.
message e899(f2) with wa_lfa1-name1 'Vendor Name Already Exist With Another Vendor Code'.
endif.
clear wa_lfa1.
endloop.
endif.
endif.
endif.

Activate the code and exit.

1 Comment
Labels in this area