2LIS_13_VDITM Enhancement problem

Question

Dear Experts,
Below is the Code which i wrote in the EXIT_SAPLRSAP_001 Function exit. There are two field which i wanted to fill (TSR and Profit Center) but only Profit center is getting filled. Please let me know what is wrong in this code.
WHEN '2LIS_13_VDITM'.
    REFRESH : it_VDITM.
    CLEAR : it_VDITM.
    it_VDITM[] = c_t_data[].
    SORT it_VDITM BY VBELN.
Getting TSR -
    SELECT KUNNR VBELN
    FROM VBPA
    INTO CORRESPONDING FIELDS OF TABLE IT_VBPA
    FOR ALL ENTRIES IN it_VDITM
    WHERE VBELN = it_VDITM-vbeln.
Getting Profit Center -
    SELECT PRCTR POSNR VBELN
      FROM VBRP
      INTO CORRESPONDING FIELDS OF TABLE IT_VBRP
      FOR ALL ENTRIES IN it_VDITM
  WHERE VBELN = it_VDITM-vbeln and
  POSNR = it_VDITM-POSNR.
    LOOP AT c_t_data INTO l_s_vditm.
      l_tabix = sy-tabix.
-----------------------------------------------TSR --------------------------------------------------------------------------------
      READ TABLE IT_VBPA INTO WA_VBPA WITH KEY VBELN = l_s_vditm-vbeln PARVW = 'ZM'.
      IF SY-SUBRC = 0.
        l_s_vditm-zztsr1 = WA_VBPA-KUNNR.
      ENDIF.
Profit Center -
      READ TABLE IT_VBRP INTO WA_VBRP WITH KEY VBELN = l_s_vditm-vbeln  posnr = l_s_vditm-posnr.
      IF SY-SUBRC = 0.
        l_s_vditm-zzprof1 = WA_VBRP-PRCTR.
      ENDIF.
      MODIFY c_t_data FROM l_s_vditm INDEX l_tabix.
    ENDLOOP.
ENDCASE.
Thanks in Advance.
Regards
B.Virupasan

Answer 1

Thanks rookie
i have changed the code , but still i am not getting the Values for TSR. But when i remove the Profit Center code then TSR is getting filled.
New Code :
TABLES: vbpa,vbrp.
DATA : l_s_vditm LIKE mc13vd0itm,
      l_tabix LIKE sy-tabix,
      tsr TYPE kunnr,
      prof TYPE prctr,
      it_VDITM TYPE TABLE OF mc13vd0itm.
*****pramod**
TYPES:BEGIN OF TY_VBPA.
        INCLUDE STRUCTURE VBPA.
TYPES:END OF TY_VBPA.
TYPES:BEGIN OF TY_VBRP.
        INCLUDE STRUCTURE VBRP.
TYPES:END OF TY_VBRP.
DATA: IT_VBPA TYPE TABLE OF TY_VBPA,
      WA_VBPA TYPE TY_VBPA,
      IT_VBRP TYPE TABLE OF TY_VBRP,
      WA_VBRP TYPE TY_VBRP.
WHEN '2LIS_13_VDITM'.
    REFRESH : it_VDITM.
    CLEAR : it_VDITM.
    it_VDITM[] = c_t_data[].
    SORT it_VDITM BY VBELN.
    SELECT KUNNR VBELN PARVW
    FROM VBPA
    INTO CORRESPONDING FIELDS OF TABLE IT_VBPA
    FOR ALL ENTRIES IN it_VDITM
    WHERE VBELN = it_VDITM-vbeln.
    SELECT PRCTR POSNR VBELN
      FROM VBRP
      INTO CORRESPONDING FIELDS OF TABLE IT_VBRP
      FOR ALL ENTRIES IN it_VDITM
  WHERE VBELN = it_VDITM-vbeln and
  POSNR = it_VDITM-POSNR.
    LOOP AT c_t_data INTO l_s_vditm.
      l_tabix = sy-tabix.
      CLEAR SY-SUBRC.
      READ TABLE IT_VBPA INTO WA_VBPA WITH KEY VBELN = l_s_vditm-vbeln PARVW = 'ZM'.
      IF SY-SUBRC = 0.
        l_s_vditm-zztsr1 = WA_VBPA-KUNNR.
      ENDIF.
      CLEAR SY-SUBRC.
      READ TABLE IT_VBRP INTO WA_VBRP WITH KEY VBELN = l_s_vditm-vbeln  posnr = l_s_vditm-posnr.
      IF SY-SUBRC = 0.
        l_s_vditm-zzprof1 = WA_VBRP-PRCTR.
      ENDIF.
      MODIFY c_t_data FROM l_s_vditm INDEX l_tabix.
    ENDLOOP.
ENDCASE.