CIN Details

Question

Hi Friends,
Is there any way to make CIN details Mandatory while entering new vendor or while modifying existing vendor.
Please suggest..
Pankaj

Answer 1

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.