Logic to fetch multiple records from BKPF, SRGBTBREL and SOOD

Question

Hi All
Need help in developing a login for a report.
We are trying to display records of a/c documents which have an associated note with them. This involves 4 categories.
1)     My Document, I attached the note.
2)     My Document, someone else attached the note.
3)     No note attached.
4)     All.
The logic desired is as below:
1)     BKPF-BUKRS + BKPF-BELNR + BKPF-GJAHR = SRGBTBREL-INSTID_A. (SRGBTBREL can have multiple records for this combination if multiple notes attached)
2)     a) SOOD-OBJTY = SRGBTBREL-INSTID_B+17(3).
b) SOOD-OBJYR = SRGBTBREL-INSTID_B+20(2).
c) SOOD-OBJNO = SRGBTBREL-INSTID_B+22(12).
Unique combination.
I have fetched the details from the three database tables but finding it challenging to put it across in one output internal table. It doesnu2019t cover the scenario where multiple notes are attached to the document (One can be from the same person who created the document and another ones can be from different person or both from the different people).
Thanks in advance,
Harsh

Answer 1

Code Snippet Part 2.
* Approved Document.
    IF rb_app = 'X'.
      CLEAR wa_sood.
*      READ TABLE gt_sood INTO wa_sood WITH KEY objtp = lv_objtp
*                                               objyr = lv_objyr
*                                               objno = lv_objno.
      LOOP AT gt_sood INTO wa_sood WHERE objtp = lv_objtp
                                     and objyr = lv_objyr
                                     and objno = lv_objno.
*      IF sy-subrc = 0.
        IF wa_bkpf-usnam <> wa_sood-cronam.
* Company Code.
          wa_output-bukrs = wa_bkpf-bukrs.
* A/c Document No.
          wa_output-belnr = wa_bkpf-belnr.
* Fiscal Year.
          wa_output-gjahr = wa_bkpf-gjahr.
* Document Type.
          wa_output-blart = wa_bkpf-blart.
* Document Date.
          wa_output-budat = wa_bkpf-budat.
* Day On Which Accounting Document Was Entered.
          wa_output-cpudt = wa_bkpf-cpudt.
* User name.
          wa_output-usnam = wa_bkpf-usnam.
* Reverse Document Number.
          wa_output-stblg = wa_bkpf-stblg.
* Transaction Code.
          wa_output-tcode = wa_bkpf-tcode.
* Short description of contents.
          wa_output-objdes = wa_sood-objdes.
* Creator Name.
          wa_output-cronam = wa_sood-cronam.
* Date created.
          wa_output-crdat = wa_sood-crdat.
* Time created.
          wa_output-crtim = wa_sood-crtim.
* Status.
          WRITE icon_green_light TO wa_output-light.
          APPEND wa_output TO gt_output.
*          CLEAR: wa_output,
*                 wa_sood.
*        ENDIF.
      ENDIF.
               ENDLOOP.
    ENDIF.
* All Documents.
    IF rb_all = 'X'.
* Company Code.
      wa_output-bukrs = wa_bkpf-bukrs.
* A/c Document No.
      wa_output-belnr = wa_bkpf-belnr.
* Fiscal Year.
      wa_output-gjahr = wa_bkpf-gjahr.
* Document Type.
      wa_output-blart = wa_bkpf-blart.
* Document Date.
      wa_output-budat = wa_bkpf-budat.
* Day On Which Accounting Document Was Entered.
      wa_output-cpudt = wa_bkpf-cpudt.
* User name.
      wa_output-usnam = wa_bkpf-usnam.
* Reverse Document Number.
      wa_output-stblg = wa_bkpf-stblg.
* Transaction Code.
      wa_output-tcode = wa_bkpf-tcode.
      CLEAR wa_sood.
*      READ TABLE gt_sood INTO wa_sood WITH KEY objtp = lv_objtp
*                                               objyr = lv_objyr
*                                               objno = lv_objno.
      LOOP AT gt_sood INTO wa_sood WHERE objtp = lv_objtp
                                     and objyr = lv_objyr
                                     and objno = lv_objno.
*      ELSE.
        IF wa_bkpf-usnam <> wa_sood-cronam.
* Status.
          WRITE icon_green_light TO wa_output-light.
* Short description of contents.
          wa_output-objdes = wa_sood-objdes.
* Creator Name.
          wa_output-cronam = wa_sood-cronam.
* Date created.
          wa_output-crdat = wa_sood-crdat.
* Time created.
          wa_output-crtim = wa_sood-crtim.
        ELSE.
* Status.
          WRITE icon_yellow_light TO wa_output-light.
* Short description of contents.
          wa_output-objdes = wa_sood-objdes.
* Creator Name.
          wa_output-cronam = wa_sood-cronam.
* Date created.
          wa_output-crdat = wa_sood-crdat.
* Time created.
          wa_output-crtim = wa_sood-crtim.
        ENDIF.
*      ENDIF.
      ENDLOOP.
      IF sy-subrc <> 0.
        WRITE icon_red_light TO wa_output-light.
      ENDIF.
      APPEND wa_output TO gt_output.
*      CLEAR: wa_output,
*             wa_sood.
    ENDIF.
  ENDLOOP.