BI - ABAP To pick the field from One table and link with 2nd table

Question

Hello, I am stuck to write the correct abap code. Requirement is that My Client BMW  California require the below:
<b>1.</b>  list of invoices (BELNR) that a has tcode = FB01 and FBVB" from Table BKPF.  Account Number field (BELNR) is there in 0fiap_4 Data source
<b>2.</b> Now Link the above invoice Number (BELNR)  that a has tcode = FB01 and FBVB" from Table BKPF to BMW Custom Table I_BMW_WI. - Field "PAT ID" which is the cocatenation of OBJNR (Object Number), Invoice Number and Purchase Year.  where PICK only thos PAT ID where "TYPEID"  Value = "BMW" in table I_BMW_WI.
To solve Number 1 Please fix my abap code and help me to write the Code to Solve Number 2 and Link #1 AND #2.
Please help me soon
Code # 1
case I_datasource.
WHEN '0FI_AP_4'.
loop at C_t_data into l_s_DTFIAP_3.
l_tabix = sy-tabix.
clear I_BMW_WI.
if sy-subrc = 0.
select single * from BKPF into I_BKPF where BELNR = l_s_DTFIAP_3-BELNR.
LOOP AT I_BKPF into I_FINAL WHERE
Code below is not working
(I_BKPF-TCODE = ‘FV50’) OR (I_BKPF-TCODE = ‘FB01’)
I_FINAL-BELNR = I_BKPF-BELNR
modify I_FINAL.
endloop
modify C_t_data from l_s_DTFIAP_3  index l_tabix.
endif.
endloop.
endcase
Code # 2 -
Please help with templates.
Thanks
Soniya Kapoor

Answer 1

Hi,
Ad Code #1
First of all the key for BKPF consists of:
BUKRS, BELNR and GJAHR so I think you should use all key fields in your SELECT statement:
select single * from BKPF into I_BKPF
where BUKRS = l_s_DTFIAP_3-BUKRS and
      BELNR = l_s_DTFIAP_3-BELNR and
      GJAHR = l_s_DTFIAP_3-GJAHR.
And why do you test SY-SUBRC after CLEAR ?
Your IF statement should be after SELECT...
And last but not least when you are using SELECT SINGLE you always get only one record so what is the purpose of LOOP statement ?
Try following code:
case I_datasource.
WHEN '0FI_AP_4'.
  loop at C_t_data into l_s_DTFIAP_3.
    l_tabix = sy-tabix.
    select single * from BKPF into I_BKPF
      where BUKRS = l_s_DTFIAP_3-BUKRS and
            BELNR = l_s_DTFIAP_3-BELNR and
            GJAHR = l_s_DTFIAP_3-GJAHR.
    if sy-subrc = 0.
      if (I_BKPF-TCODE = ‘FV50’) OR
         (I_BKPF-TCODE = ‘FB01’).
        I_FINAL-BELNR = I_BKPF-BELNR
        modify I_FINAL.
      endif.
      modify C_t_data from l_s_DTFIAP_3 index l_tabix.
    endif.
  endloop.
endcase.
regards
Krzys