Business Content or Information for GR/IR Account Report

Question

Hi All,
I have an R3 report called GR/IR Account Report by PO Mismatch.
Is there any business content available for this in BI.
The below tables are using in the report.
         bsis,                         " Accounting docs by account
         bsas,                         " Cleared accounting docs by acc
         bseg,                         " Accounting doc line item
         ekko,                         " Purchase Order Header,
         ekpo,
         mkpf,                         " Material Document
         lfa1,                         " Vendor details
         ekbe,                         " PO History
         ekkn,                         " PO Acct.Assgnment
         usr21,
         addr3_val,
         ad3_flags,
         stxh.
Could you please provide me your inputs on this
Regards
Srini

Answer 1

The new additional fields need to be populated are
          ZZAUFNR         Order Number                                  *
          ZZBEDAT         Purchase Order Date                           *
          ZZCRE_FI         FI Doc Created By                             *
          ZZCRE_PO         PO Doc Created By                             *
          ZZEBELN         Purchasing Document Number                    *
          ZZEBELP         Item Number of Purchasing Document            *
          ZZKOSTL         Cost Center                                   *
          ZZMWSKZ         Tax on sales/purchases code                   *
          ZZPROJK      WBS element                                   *
          ZZTXZ01         Short text                                    *
          ZZUSNAM         User name                                     *
          ZZXBLNR         Reference document number                     *
          ZZHWSTE      Tax Amount in Local Currency                 *
          ZZSGTXT      Item Text                                    *
          ZZHKONT      Finance G/L Account                          *
  when '0FI_AP_4'.
Declare the local data fields to store data temporarily
    data : l_dtfiap_3 like DTFIAP_3,
           mwskz like bsik-mwskz,
           l_ernam like   bapibname-bapibname,
           l_address like bapiaddr3,
           l_bseg  like bseg,
           l_bedat like ekko-bedat,
           l_ps_psp_pnr like prps-pspnr.
    data : gt_return type bapiret2 occurs 0 with header line.
    loop at c_t_data into l_dtfiap_3.
      l_tabix = sy-tabix.
*Select the tax Code for the particular record from BSAK TABLE
      select single mwskz sgtxt into (l_dtfiap_3-zzmwskz,
                                      l_dtfiap_3-zzsgtxt)
            from bsak
            where bukrs = l_dtfiap_3-bukrs
              and buzei = l_dtfiap_3-buzei
              and belnr = l_dtfiap_3-belnr
              and lifnr = l_dtfiap_3-lifnr
              and gjahr = l_dtfiap_3-gjahr
              and zuonr = l_dtfiap_3-zuonr
              and augbl = l_dtfiap_3-augbl
            and augdt = l_dtfiap_3-augdt
            and bldat = l_dtfiap_3-bldat
            and blart = l_dtfiap_3-blart
            and bschl = l_dtfiap_3-bschl
            and budat = l_dtfiap_3-budat.
      if sy-subrc = 0.
        modify c_t_data from l_dtfiap_3 index l_tabix.
      else.
*If corresponding Document Number is not present in BSAK check BSIK
*TABLE
        select single mwskz sgtxt into (l_dtfiap_3-zzmwskz,
                                        l_dtfiap_3-zzsgtxt)
                from bsik
                where bukrs = l_dtfiap_3-bukrs
                  and buzei = l_dtfiap_3-buzei
                  and belnr = l_dtfiap_3-belnr
                  and lifnr = l_dtfiap_3-lifnr
                  and gjahr = l_dtfiap_3-gjahr
                  and zuonr = l_dtfiap_3-zuonr
                  and augbl = l_dtfiap_3-augbl
                and augdt = l_dtfiap_3-augdt
                and bldat = l_dtfiap_3-bldat
                and blart = l_dtfiap_3-blart
                and bschl = l_dtfiap_3-bschl
                and budat = l_dtfiap_3-budat.
        if sy-subrc = 0.
          modify c_t_data from l_dtfiap_3 index l_tabix.
        endif.
      endif.
      select single hwste into l_dtfiap_3-zzhwste
          from bset
          where bukrs eq l_dtfiap_3-bukrs
            and belnr eq l_dtfiap_3-belnr
            and gjahr eq l_dtfiap_3-gjahr
            and buzei eq l_dtfiap_3-buzei.
Select Created By and invoice Reference Number from BKPF table
      select single usnam xblnr from bkpf
          into (l_dtfiap_3-zzusnam,l_dtfiap_3-zzxblnr)
            where bukrs = l_dtfiap_3-bukrs
              and belnr = l_dtfiap_3-belnr
              and gjahr = l_dtfiap_3-gjahr.
      if sy-subrc = 0.
        modify c_t_data from l_dtfiap_3 index l_tabix.
      endif.
      move l_dtfiap_3-zzusnam to l_ernam.
      refresh : gt_return.
Get the Fi doc Created By doing the function Module call
      call function 'BAPI_USER_GET_DETAIL'
        EXPORTING
          username = l_ernam
        IMPORTING
          address  = l_address
        TABLES
          return   = gt_return.
      move l_address-fullname to l_dtfiap_3-zzcre_fi.
      if l_dtfiap_3-zzcre_fi is initial.
        move l_ernam to l_dtfiap_3-zzcre_fi.
      endif.
      if not l_dtfiap_3-zzcre_fi is initial.
        modify c_t_data from l_dtfiap_3 index l_tabix.
      endif.
      if l_dtfiap_3-blart eq 'RE'.
.....Get New Fields from PO linked to FI Document.....................
Select PO Number from PO Line item from BSEG TABLE
        select buzei buzid ebeln ebelp
          into corresponding fields of l_bseg
          from bseg
         where bukrs eq l_dtfiap_3-bukrs
           and belnr eq l_dtfiap_3-belnr
           and gjahr eq l_dtfiap_3-gjahr.
          if l_bseg-buzei eq l_dtfiap_3-buzei.
.....Already read this line, therefore ignore it......................
            continue.
          endif.
          if l_bseg-buzid eq 'T'.
.....Don't read automatically created lines - Tax Line................
            continue.
          endif.
          if not ( l_bseg-ebeln is initial ).
            move l_bseg-ebeln to l_dtfiap_3-zzebeln.   " PO Number
          endif.
          if not ( l_bseg-ebelp is initial ).
            move l_bseg-ebelp to l_dtfiap_3-zzebelp.   " PO Line Item No
          endif.
          if not l_dtfiap_3-zzebelp is initial.
            modify c_t_data from l_dtfiap_3 index l_tabix.
          endif.
        endselect.
.....Got PO Number from FI Document, Now get PO Details...............
.....Get Short Text...................................................
GET PO Line Item text
        select single txz01 into l_dtfiap_3-zztxz01
          from ekpo
           where ebeln eq l_dtfiap_3-zzebeln
             and ebelp eq l_dtfiap_3-zzebelp.
        if sy-subrc = 0.
          modify c_t_data from l_dtfiap_3 index l_tabix.
        endif.
.....Get Account Assignment...........................................
        select ps_psp_pnr aufnr kostl sakto
          into (l_ps_psp_pnr,l_dtfiap_3-zzaufnr,
                  l_dtfiap_3-zzkostl,l_dtfiap_3-zzhkont)
              from ekkn
               where ebeln eq l_dtfiap_3-zzebeln
                 and ebelp eq l_dtfiap_3-zzebelp.
          if sy-subrc = 0.
            modify c_t_data from l_dtfiap_3 index l_tabix.
          endif.
          select single posid into l_dtfiap_3-zzprojk
               from prps
                 where pspnr = l_ps_psp_pnr.
          if sy-subrc = 0.
            modify c_t_data from l_dtfiap_3 index l_tabix.
          endif.
        endselect.
.....Get Name of Person who created PO................................
        clear : l_ernam,l_bedat.
        select ernam bedat into (l_ernam, l_bedat)
            up to 1 rows
            from ekko
             where ebeln eq l_dtfiap_3-zzebeln.
        endselect.
        move l_bedat to l_dtfiap_3-zzbedat.
        if not l_dtfiap_3-zzbedat is initial.
          modify c_t_data from l_dtfiap_3 index l_tabix.
        endif.
        refresh : gt_return.
        call function 'BAPI_USER_GET_DETAIL'
          EXPORTING
            username = l_ernam
          IMPORTING
            address  = l_address
          TABLES
            return   = gt_return.
        move l_address-fullname to l_dtfiap_3-zzcre_po.
        if l_dtfiap_3-zzcre_po is initial.
          move l_ernam to l_dtfiap_3-zzcre_po.
        endif.
        if not l_dtfiap_3-zzcre_po is initial.
          modify c_t_data from l_dtfiap_3 index l_tabix.
        endif.
      else.
.....Get new Fields from FI Document..................................
        select buzei buzid ebeln ebelp projk aufnr kostl hkont
          into corresponding fields of l_bseg
          from bseg
         where bukrs eq l_dtfiap_3-bukrs
           and belnr eq l_dtfiap_3-belnr
           and gjahr eq l_dtfiap_3-gjahr.
          if l_bseg-buzei eq l_dtfiap_3-buzei.
.....Already read this line, therefore ignore it......................
            continue.
          endif.
          if l_bseg-buzid eq 'T'.
.....Don't read automatically created lines - Tax Line................
            continue.
          endif.
          if not ( l_bseg-ebeln is initial ).
            move l_bseg-ebeln to l_dtfiap_3-zzebeln. " PO Number
          endif.
          if not ( l_bseg-ebelp is initial ).
            move l_bseg-ebelp to l_dtfiap_3-zzebelp. " PO Line Item
          endif.
          move l_bseg-aufnr to l_dtfiap_3-zzaufnr.   " Order Number
          move l_bseg-kostl to l_dtfiap_3-zzkostl.   " Cost Centre
          move l_bseg-hkont to l_dtfiap_3-zzhkont.   " GL Account
          select single posid into l_dtfiap_3-zzprojk
              from prps
                where pspnr = l_bseg-projk.
          if not l_dtfiap_3-zzprojk is initial
            or not l_dtfiap_3-zzaufnr is initial
            or not l_dtfiap_3-zzkostl is initial
            or not l_dtfiap_3-zzhkont is initial.
            modify c_t_data from l_dtfiap_3 index l_tabix.
          endif.
        endselect.
.....Get PO Short Text................................................
        select single txz01 into l_dtfiap_3-zztxz01
          from ekpo
           where ebeln eq l_dtfiap_3-zzebeln
           and ebelp eq l_dtfiap_3-zzebelp.
        if sy-subrc = 0.
          modify c_t_data from l_dtfiap_3 index l_tabix.
        endif.
.....Get Name of Person who created PO................................
        clear : l_ernam,l_bedat.
        select ernam bedat into (l_ernam, l_bedat)
               up to 1 rows
               from ekko
               where ebeln eq l_dtfiap_3-zzebeln.
        endselect.
        move l_bedat to l_dtfiap_3-zzbedat.
        if not l_dtfiap_3-zzbedat is initial.
          modify c_t_data from l_dtfiap_3 index l_tabix.
        endif.
        refresh : gt_return.
Get PO Doc Created By
        call function 'BAPI_USER_GET_DETAIL'
          EXPORTING
            username = l_ernam
          IMPORTING
            address  = l_address
          TABLES
            return   = gt_return.
        move l_address-fullname to l_dtfiap_3-zzcre_po.
        if l_dtfiap_3-zzcre_po is initial.
          move l_ernam to l_dtfiap_3-zzcre_po.
        endif.
        if not l_dtfiap_3-zzcre_po is initial.
          modify c_t_data from l_dtfiap_3 index l_tabix.
        endif.
      endif.
    endloop.
Edited by: Srinivas Gogineni on Apr 19, 2009 11:10 AM