GL Line Items and PO Doc Number

Question

Hi, I'm caught in a world unknown to me, i.e. R/3 world.
We are using 0FI_GL_4 and have a report called GL Detail.
I have been asked to enhance the reports functionality to include a PO doc Number.
I guess thats coming from MM side?
We also have 2LIS_02_ITM in BW.
My question, could I extend 0FI_GL_4 to include PO Doc Number? Or could I just have an InfoSet in BW to combine the Purhcasing Data ODS and GL ODS? I mean would it make functional and logical sense?
Any guidance would be appreciated.
Thanks,
Frank

Answer 1

Frank,
I understand from your post that you want to have both Fi_Gl and PO combined information ? Am i right.
I have recently implemented the same recently which is working fine.
1. Enhance the Fi_Gl for Purchase doc , item and required.Since they originate from BSEG just add the fields to CI_BSIS structure.you will get the PO data.
2. Now pull the purchase order item level data using 2lis_02_itm extractor.
3.Pull FI_Gl_4 into one ODS say Fi_Gl_4
4. Pull Purchasing data into PUR_t01
5.Now enhance the communication structure of FI_Gl_4 with the purchasing order fields. i.e /BIC/CS8FI_GL_4 in the below code.
6.Create an ODS with combined fields from purchasing and FI_Gl into another ODS.
7.Create an Update rule from Fi_Gl_4 to the new ODS and in the update rule lookup the activate table of purchase order ODS and read the values into new ODS.
8.For your reference i am attaching the start routine that i have written
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line  -
TABLES: ...
TABLES : /BIC/APUR_T0200,
         /BIC/AFI_GL_400.
DATA:   ...
$$ end of global - insert your declaration only before this line   -
The follow definition is new in the BW3.x
TYPES:
  BEGIN OF DATA_PACKAGE_STRUCTURE.
     INCLUDE STRUCTURE /BIC/CS8FI_GL_4.
TYPES:
     RECNO   LIKE sy-tabix,
  END OF DATA_PACKAGE_STRUCTURE.
DATA:
  DATA_PACKAGE TYPE STANDARD TABLE OF DATA_PACKAGE_STRUCTURE
       WITH HEADER LINE
       WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 0.
FORM startup
  TABLES   MONITOR STRUCTURE RSMONITOR "user defined monitoring
           MONITOR_RECNO STRUCTURE RSMONITORS " monitoring with record n
           DATA_PACKAGE STRUCTURE DATA_PACKAGE
  USING    RECORD_ALL LIKE SY-TABIX
           SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
  CHANGING ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
$$ begin of routine - insert your code only below this line        -
fill the internal tables "MONITOR" and/or "MONITOR_RECNO",
to make monitor entries
  DATA: BEGIN OF DATA_PACK OCCURS 0.
          INCLUDE STRUCTURE /BIC/CS8FI_GL_4.
  DATA: END OF DATA_PACK.
  DATA:L_INDEX LIKE SY-TABIX,
       S_INDEX LIKE SY-TABIX,
       T_INDEX LIKE SY-TABIX,
       WA_VENDOR LIKE /BIC/APUR_T0200-VENDOR.
  DATA : BEGIN OF IT_PURCHASE OCCURS 0,
           /BIC/ZPUR_DOC    LIKE /BIC/APUR_T0200-DOC_NUM,
           /BIC/ZPUR_ITM    LIKE /BIC/APUR_T0200-/BIC/ZPUR_ITM,
           VENDOR           LIKE /BIC/APUR_T0200-VENDOR,
           MATERIAL         LIKE /BIC/APUR_T0200-MATERIAL,
           MATL_GROUP       LIKE /BIC/APUR_T0200-MATL_GROUP,
           PURCH_ORG        LIKE /BIC/APUR_T0200-PURCH_ORG,
           PUR_GROUP        LIKE /BIC/APUR_T0200-PUR_GROUP,
           DOCTYPE          LIKE /BIC/APUR_T0200-DOCTYPE,
           DOC_CAT          LIKE /BIC/APUR_T0200-DOC_CAT,
           /BIC/ZKNTTP       LIKE /BIC/APUR_T0200-/BIC/ZKNTTP,
         END OF IT_PURCHASE.
  RANGES: R_BLART   FOR /BIC/CS8FI_GL_4-AC_DOC_TYP.
Fill in the Accounting Document Type
  R_BLART-SIGN = 'I'.
  R_BLART-OPTION = 'EQ'.
  R_BLART-LOW = 'KG'.
  APPEND R_BLART.
  R_BLART-SIGN = 'I'.
  R_BLART-OPTION = 'EQ'.
  R_BLART-LOW = 'KR'.
  APPEND R_BLART.
  R_BLART-SIGN = 'I'.
  R_BLART-OPTION = 'EQ'.
  R_BLART-LOW = 'RE'.
  APPEND R_BLART.
  CLEAR L_INDEX.
  REFRESH DATA_PACK.
  DATA_PACK[] = DATA_PACKAGE[].
Consider only if acc doc type is RE KG and KR
  LOOP AT DATA_PACK.
    L_INDEX = SY-TABIX.
    IF DATA_PACK-AC_DOC_TYP IN R_BLART.
      CONTINUE.
    ELSE.
      DELETE DATA_PACK INDEX L_INDEX.
    ENDIF.
  ENDLOOP.
  CLEAR S_INDEX.
Consider only if account  type S
  LOOP AT DATA_PACK.
    S_INDEX = SY-TABIX.
    IF DATA_PACK-ACCT_TYPE  EQ 'S'.
      CONTINUE.
    ELSE.
      DELETE DATA_PACK INDEX S_INDEX.
    ENDIF.
  ENDLOOP.
  SELECT DOC_NUM /BIC/ZPUR_ITM VENDOR MATERIAL MATL_GROUP
           PURCH_ORG PUR_GROUP DOCTYPE DOC_CAT
           /BIC/ZKNTTP
           FROM /BIC/APUR_T0200
           INTO TABLE IT_PURCHASE
           FOR ALL ENTRIES IN DATA_PACK
           WHERE DOC_NUM       = DATA_PACK-/BIC/ZPUR_DOC
             AND /BIC/ZPUR_ITM = DATA_PACK-/BIC/ZPUR_ITM.
  SORT IT_PURCHASE BY /BIC/ZPUR_DOC /BIC/ZPUR_ITM.
  LOOP AT DATA_PACK.
    T_INDEX = SY-TABIX.
    IF DATA_PACK-VENDOR IS INITIAL.
      SELECT SINGLE VENDOR INTO WA_VENDOR
             FROM /BIC/AFI_GL_400
             WHERE COMP_CODE = DATA_PACK-COMP_CODE
             AND   AC_DOC_NO = DATA_PACK-AC_DOC_NO
             AND   FISCPER   = DATA_PACK-FISCPER
             AND   FISCVARNT = DATA_PACK-FISCVARNT
             AND   ACCT_TYPE  EQ 'K'.
      IF SY-SUBRC EQ 0.
        MOVE WA_VENDOR TO DATA_PACK-VENDOR.
        MODIFY DATA_PACK INDEX T_INDEX.
        CLEAR WA_VENDOR.
      ENDIF.
    ENDIF.
    IF DATA_PACK-/BIC/ZPUR_DOC IS INITIAL.
      CONTINUE.
    ELSE.
READ TABLE IT_PURCHASE WITH KEY /BIC/ZPUR_DOC = DATA_PACK-/BIC/ZPUR_DOC
                               /BIC/ZPUR_ITM = DATA_PACK-/BIC/ZPUR_ITM
                               BINARY SEARCH.
      IF SY-SUBRC EQ 0.
        MOVE:  IT_PURCHASE-MATERIAL    TO DATA_PACK-MATERIAL,
               IT_PURCHASE-MATL_GROUP  TO DATA_PACK-MATL_GROUP,
               IT_PURCHASE-PURCH_ORG   TO DATA_PACK-PURCH_ORG,
               IT_PURCHASE-PUR_GROUP   TO DATA_PACK-PUR_GROUP,
               IT_PURCHASE-DOCTYPE     TO DATA_PACK-DOCTYPE,
               IT_PURCHASE-DOC_CAT     TO DATA_PACK-DOC_CAT,
               IT_PURCHASE-/BIC/ZKNTTP TO DATA_PACK-/BIC/ZKNTTP.
        IF DATA_PACK-VENDOR IS INITIAL.
          MOVE IT_PURCHASE-VENDOR TO DATA_PACK-VENDOR.
        ENDIF.
        MODIFY DATA_PACK TRANSPORTING VENDOR MATERIAL MATL_GROUP
                                      PURCH_ORG PUR_GROUP DOCTYPE
                                      DOC_CAT /BIC/ZKNTTP.
      ENDIF.
    ENDIF.
  ENDLOOP.
  REFRESH DATA_PACKAGE.
  DATA_PACKAGE[] = DATA_PACK[].
  FREE : DATA_PACK , IT_PURCHASE.
if abort is not equal zero, the update process will be canceled
  ABORT = 0.
$$ end of routine - insert your code only before this line         -
ENDFORM.
if you have any other isues do let me know.
Regards
Sundaresan
Message was edited by: sundaresan chander
Message was edited by: sundaresan chander