Application Development and Automation 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: 
Read only

CIN Details

Former Member
0 Likes
1,483

Hi Friends,

Is there any way to make CIN details Mandatory while entering new vendor or while modifying existing vendor.

Please suggest..

Pankaj

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
1,139

Yes it is possible. You have to use function exit.

SMOD Project: SAPMF02K.

Exit: EXIT_SAPMF02K_001.

You can raise an error message if CIN details are empty.

I have implemented this exit for a company where vendors were within india, so if you have the same situation you can make use of the code given below-

DATA : L_LIFNR TYPE J_1IMOVEND-LIFNR.

FIELD-SYMBOLS : <FS> TYPE J_1IMOVEND.

FIELD-SYMBOLS : <FS1> TYPE T020.

TABLES : J_1IMOVEND.

DATA : L_FIELD TYPE STRING VALUE '(SAPLJ1I_MASTER)J_1IMOVEND'.

DATA : L_FIELD1 TYPE STRING VALUE '(SAPMF02K)T020'.

IF I_LFA1-KTOKK EQ 'ZM02' OR I_LFA1-KTOKK EQ 'ZM03'.

ASSIGN (L_FIELD1) TO <FS1>.

IF SY-SUBRC EQ 0.

IF SY-TCODE EQ 'XK01' OR SY-TCODE EQ 'FK01' OR SY-TCODE EQ 'FK03'

OR SY-TCODE EQ 'XK02' OR SY-TCODE EQ 'FK02' OR SY-TCODE EQ 'XK03'.

IF <FS1>-AKTYP EQ 'H' OR <FS1>-AKTYP EQ 'V'.

ASSIGN (L_FIELD) TO <FS>.

IF SY-SUBRC EQ 0.

  • SELECT SINGLE LIFNR INTO L_LIFNR

  • FROM J_1IMOVEND WHERE LIFNR EQ I_LFA1-LIFNR.

*

  • IF SY-SUBRC NE 0.

IF <FS>-J_1ICSTNO IS INITIAL OR <FS>-J_1ILSTNO IS INITIAL

OR <FS>-J_1IEXCD IS INITIAL OR <FS>-J_1IEXRN IS INITIAL

OR <FS>-J_1IPANNO IS INITIAL.

MESSAGE E398(00) WITH 'Please Enter' 'CIN Details'.

ENDIF.

  • ENDIF.

ENDIF.

ENDIF.

ENDIF.

ENDIF.

ENDIF.

Hi Friends,

Is there any way to make CIN details Mandatory while entering new vendor or while modifying existing vendor.

Please suggest..

Pankaj

5 REPLIES 5
Read only

Former Member
0 Likes
1,140

Yes it is possible. You have to use function exit.

SMOD Project: SAPMF02K.

Exit: EXIT_SAPMF02K_001.

You can raise an error message if CIN details are empty.

I have implemented this exit for a company where vendors were within india, so if you have the same situation you can make use of the code given below-

DATA : L_LIFNR TYPE J_1IMOVEND-LIFNR.

FIELD-SYMBOLS : <FS> TYPE J_1IMOVEND.

FIELD-SYMBOLS : <FS1> TYPE T020.

TABLES : J_1IMOVEND.

DATA : L_FIELD TYPE STRING VALUE '(SAPLJ1I_MASTER)J_1IMOVEND'.

DATA : L_FIELD1 TYPE STRING VALUE '(SAPMF02K)T020'.

IF I_LFA1-KTOKK EQ 'ZM02' OR I_LFA1-KTOKK EQ 'ZM03'.

ASSIGN (L_FIELD1) TO <FS1>.

IF SY-SUBRC EQ 0.

IF SY-TCODE EQ 'XK01' OR SY-TCODE EQ 'FK01' OR SY-TCODE EQ 'FK03'

OR SY-TCODE EQ 'XK02' OR SY-TCODE EQ 'FK02' OR SY-TCODE EQ 'XK03'.

IF <FS1>-AKTYP EQ 'H' OR <FS1>-AKTYP EQ 'V'.

ASSIGN (L_FIELD) TO <FS>.

IF SY-SUBRC EQ 0.

  • SELECT SINGLE LIFNR INTO L_LIFNR

  • FROM J_1IMOVEND WHERE LIFNR EQ I_LFA1-LIFNR.

*

  • IF SY-SUBRC NE 0.

IF <FS>-J_1ICSTNO IS INITIAL OR <FS>-J_1ILSTNO IS INITIAL

OR <FS>-J_1IEXCD IS INITIAL OR <FS>-J_1IEXRN IS INITIAL

OR <FS>-J_1IPANNO IS INITIAL.

MESSAGE E398(00) WITH 'Please Enter' 'CIN Details'.

ENDIF.

  • ENDIF.

ENDIF.

ENDIF.

ENDIF.

ENDIF.

ENDIF.

Read only

0 Likes
1,139

Hi Sharath,

Greate solution.

Thanks a lot , My problem is solved with solution given by you

Pankaj

Read only

0 Likes
1,139

Hello Sharath, Have you ever comeacross sending the CIN details via IDOC. I dont see any segments for J_1IMOVEND. I guess we have to do custom coding to send this segment via CREMAS.

Incase if you have done any ALE/IDOC work related to CIN details please let me know.

Read only

0 Likes
1,139
Hi Sharath,

Can you please tell me how to locate J_1IPANNO on XK01 screen? or for that matter how would I go about locating any table field (which comes as a user input) on SAP screens? I'm a beginner and need your inputs. Thanks in advance.

Best Regards.

Yours,
Sunny
Read only

0 Likes
1,139

Hello,

Kindly tell me how to make field mandatory CIN details in Customer Master Data  transaction code is FD01.. To know more detail please see screenshot.  

Thank u, Yograj