Hi Prateeksha,
Try this logic in BADI(SE19) or CMOD as suggested.
types: beging of ty_fpla,
perio type fpla-perio,
vbeln type fpla-vbeln,
end of ty_fpla.
data: it_fpla type standard table of ty_fpla,
wa_fpla type ty_fpla,
it_MC13VD0ITM type standard table of MC13VD0ITM.
fields_symblos:<fs_MC13VD0ITM> type MC13VD0ITM.
case 'i_datasource'.
when '2lis_13_vditm'.
if c_t_data is not intial.
it_MC13VD0ITM[] = c_t_data[].
select vbeln perio from fpla into table it_fpla for all entries in it_MC13VD0ITM
where vbeln = it_MC13VD0ITM-vbeln.
sort it_fpla by vbeln.
loop at it_MC13VD0ITM assigning <fs_MC13VD0ITM>.
read table it_fpla into wa_fpla with key vblen = <fs_MC13VD0ITM>-vblen.
if sy-subrc = 0.
<fs_MC13VD0ITM>-yperio = wa_fpla-perio.
endif.
endloop.
endif.
c_t_data[] = it_MC13VD0ITM[].
endcase.
Thanks,
Somesh.