USER_EXIT-MV45AFZB FORM USEREXIT_CHECK_VBAP

Question

HI ALL...I HAVE ONE OBJECT THAT IS
IWANTO ADD 3 FIELDS FROM ADRC(POST_CODE1,REGION,COUNTRY) TO VBAP(ZZSHIPTOPC,ZZSHIPTOREG,ZZSHIPTOCO).
FOLLOWING THIS LOGIC....
     1.ON USER EXIT CHECK INTERNAL TABLE XVBPA FOR THE PARTNER FUNCTIONS AT THE HEADER OR ITEM LEVEL.
2.THIS UE IS VALID FOR TC VA01 &VA02 ONLY
3.BEFORE DOING THE SEARCH IN ADRC CHECK THAT THE MATERIAL IS CONFIGURABLE(MARA-KZKFG = 'X').
4.MOVE FIELDS TO NEW ZZ ....FIELDS IN VBAP.
PLZ WRITE THIS OBJECT ANY BODY KNOW'S

Answer 1

*&  Include           ZPLM_ENG_VC_REFCHAR
TITLE: POPULATE ZFIELDS IN TABLE VBAP BASED ON DOCUMENT LINE ITEM SHIP-TO PARTNER VALUES.
        ZFIELDS REQIRED ARE POSTAL CODE,REGION,AND COUNTRY.
TRANSACTION: VA01,VA02.
PROGRAMMER: JANARDHAN REDDY.
DATE:07/24/2008.
*DATA DECLARETION.
TYPES:BEGIN OF STR_ADRC,
      POST_CODE1 TYPE ADRC-POST_CODE1,
      REGION TYPE ADRC-REGION,
      COUNTRY TYPE ADRC-COUNTRY,
      END OF STR_ADRC.
DATA:WA_ADRC TYPE  STR_ADRC,
     WA_KZKFG TYPE MARA-KZKFG,
     TAB_ADRC TYPE TABLE OF STR_ADRC.
TYPES:BEGIN OF STR_VBAP,
      ZZSHIPTOPC TYPE VBAP-ZZSHIPTOPC,
      ZZSHIPTOREG TYPE VBAP-ZZSHIPTOREG,
      ZZSHIPTOCO TYPE VBAP-ZZSHIPTOCO,
      END OF STR_VBAP.
DATA:WA_VBAP TYPE  STR_VBAP,
     TAB_VBAP TYPE TABLE OF STR_VBAP.
IF SY-UNAME = 'OFF1'.
IF SY-TCODE EQ 'VAO1' OR SY-TCODE EQ 'VAO2'.
*CHECK INTERNAL TABLE XVPA.
LOOP AT XVBAP.
SELECT SINGLE KZKFG FROM MARA
            INTO WA_KZKFG WHERE MATNR = XVBAP-MATNR.
IF WA_KZKFG = 'X'.
READ TABLE XVBPA WITH KEY VBELN = XVBAP-VBELN    "Step 2
         POSNR = XVBAP-POSNR  PARVW = 'SH'.
   ENDIF.
IF SY-SUBRC <> 0.
  READ TABLE XVBPA WITH KEY VBELN = XVBAP-VBELN   "Step 3
         POSNR = XVBAP-POSNR  PARVW = 'SH'.
ENDIF.
IF SY-SUBRC = 0.
*GATHER FIELDS FROM ADRC
SELECT POST_CODE1 REGION COUNTRY FROM ADRC INTO WA_ADRC  "Step 4
      WHERE ADDRNUMBER = XVBPA-ADRNR.
      ENDSELECT.
      ENDIF.
IF SY-SUBRC = 0.
*MOVE THE FIELDS TO Z..FIELDS
    MOVE :WA_ADRC-POST_CODE1 TO XVBAP-ZZSHIPTOPC,
          WA_ADRC-REGION     TO XVBAP-ZZSHIPTOREG,
          WA_ADRC-COUNTRY    TO XVBAP-ZZSHIPTOCO.
   MODIFY XVBAP TRANSPORTING ZZSHIPTOPC ZZSHIPTOREG ZZSHIPTOCO.
ENDIF.
CLEAR:TAB_ADRC,WA_KZKFG.
ENDLOOP.
ENDIF.
ENDIF.