User Exit for line item query

Question

HI There,
I'm not good at ABAP coding and need some help from experts.
Working on Line Items Query and enhanced the 0FI_AP_4 to include fields from BSEG table, the fields are:
GEBER - Funds
FISTAL - Funds Center
KOSTL - Cost Center
GSBER - Business Area.
I used the below code to enhance the datasource 0FI_AP_4, and its taking toooo long to load the data, but its pulling the line item data into BW.
Please find another code after this....its very quick, either in extract checker or loading into BW, however its not loading all fields into BW. Specially line items like Cost Center, Fund center and Fund fields.
Please go through the below codes and suggest me what changes i have to make to work as it should be.
DATA: L_TABIX LIKE SY-TABIX.
DATA: ZADTFIAP_3 LIKE DTFIAP_3.
CASE I_DATASOURCE.
WHEN '0FI_AP_4'.
LOOP AT C_T_DATA INTO ZADTFIAP_3.
L_TABIX = SY-TABIX.
SELECT SINGLE GEBER FROM BSEG INTO ZADTFIAP_3-GEBER
WHERE BUKRS = ZADTFIAP_3-BUKRS AND GJAHR = ZADTFIAP_3-FISCPER+0(4).
SELECT SINGLE FISTL FROM BSEG INTO ZADTFIAP_3-FISTL
WHERE BUKRS = ZADTFIAP_3-BUKRS AND GJAHR = ZADTFIAP_3-FISCPER+0(4).
SELECT SINGLE KOSTL FROM BSEG INTO ZADTFIAP_3-KOSTL
WHERE BUKRS = ZADTFIAP_3-BUKRS AND GJAHR = ZADTFIAP_3-FISCPER+0(4).
MODIFY C_T_DATA FROM ZADTFIAP_3 INDEX L_TABIX.
ENDLOOP.
ENDCASE.
Below code is extracting data very quickly but not bringing data for all fields specially line items like Fund Center, Cost center and Fund fields.
DATA: L_TABIX LIKE SY-TABIX.
DATA: ZADTFIAP_3 LIKE DTFIAP_3,
wa_bseg Like bseg.
CASE I_DATASOURCE.
WHEN '0FI_AP_4'.
LOOP AT C_T_DATA INTO ZADTFIAP_3.
L_TABIX = SY-TABIX.
Select single * from
bseg into wa_bseg
where BUKRS = ZADTFIAP_3-BUKRS
and GJAHR = ZADTFIAP_3-FISCPER+0(4)
and BELNR = ZADTFIAP_3-BELNR
and BUZEI = ZADTFIAP_3-BUZEI.
IF SY-SUBRC = 0.
Move: wa_BSEG-GEBER to ZADTFIAP_3-GEBER,
wa_BSEG-FISTL to ZADTFIAP_3-FISTL,
wa_BSEG-KOSTL to ZADTFIAP_3-KOSTL,
wa_bseg-GSBER to ZADTFIAP_3-GSBER.
ENDIF.
MODIFY C_T_DATA FROM ZADTFIAP_3 INDEX L_TABIX.
ENDLOOP.
ENDCASE
Thanks
Vandana

Answer 1

Hi,
You can try this.
USEREXIT_MOVE_FIELD_TO_VBEP                                      
Use this user exit to assign values to new fields at the level of
the sales document schedule lines.                               
The user exit is called up at the end of the FORM routine        
VBEP_FUELLEN.                                                    
Thanks
Krishna.