Generic extraction :DTFIAP_3, Extractor: BWFID_GET_FIAP_ITEM

Question

Hi all,
have a nice day for all.
generic extraction ,Source structure: BSIK, BSAK
Extractor: BWFID_GET_FIAP_ITEM
Extract structure OLTP: DTFIAP_3
some fields are append the structure but in funtion module ,
where i am going to declare the data: fieldname, table name ,any one before write the code for finance account payable please send me the coding part.
Regards
Priya
FUNCTION BWFID_GET_FIAP_ITEM.
""Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(I_ISOURCE) TYPE  SBIWA_S_INTERFACE-ISOURCE OPTIONAL
*"     VALUE(I_RLOGSYS) TYPE  RSAOT_LOGSYS OPTIONAL
*"     VALUE(I_REQUNR) TYPE  SBIWA_S_INTERFACE-REQUNR
*"     VALUE(I_MAXSIZE) TYPE  SBIWA_S_INTERFACE-MAXSIZE DEFAULT 1000
*"     VALUE(I_INITFLAG) TYPE  SBIWA_S_INTERFACE-INITFLAG OPTIONAL
*"     VALUE(I_UPDMODE) TYPE  SBIWA_S_INTERFACE-UPDMODE OPTIONAL
*"     VALUE(I_READ_ONLY) TYPE  SBIWA_FLAG DEFAULT 'X'
*"  TABLES
*"      I_T_SELECT TYPE  SBIWA_T_SELECT OPTIONAL
*"      I_T_FIELDS TYPE  SBIWA_T_FIELDS OPTIONAL
*"      E_T_DTFIAP_3 STRUCTURE  DTFIAP_3 OPTIONAL
*"  EXCEPTIONS
*"      NO_MORE_DATA
*"      ERROR_PASSED_TO_MESS_HANDLER
...general data declaration...........................................
  DECLARE_GENERAL.
...local data.........................................................
  DATA: T_DELTA_DATA  TYPE BWFI_T_DATA_BSIK WITH HEADER LINE.
...begin of main program coding.......................................
...function module called in intialization mode? .....................
  IF NOT I_INITFLAG IS INITIAL.
...set data base tables to be read....................................
    REFRESH R_TABLE.
    APPEND_R_TABLE: TABLE_BSIK,
                    TABLE_BSAK.
...general initialization of infosource...............................
    GENERAL_DELTA_INITIALIZATION.
...Generate database index (if necessary).............................
   if s_updmode = sbiwa_c_updmode_deltainit
   or s_updmode = sbiwa_c_updmode_delta.
     call function 'BWFIU_GENERATE_DB_INDEX'
       exporting
         i_tabname                          = 'BSID'
         i_isource                          = i_isource
       exceptions
         no_index_required                  = 1
         error_passed_to_mess_handler       = 2
        OTHERS                             = 3
     if sy-subrc = '2'.
       raise error_passed_to_mess_handler.
     endif.
     call function 'BWFIU_GENERATE_DB_INDEX'
       exporting
         i_tabname                          = 'BSAD'
         i_isource                          = i_isource
       exceptions
         no_index_required                  = 1
         error_passed_to_mess_handler       = 2
        OTHERS                             = 3
     if sy-subrc = '2'.
       raise error_passed_to_mess_handler.
     endif.
     call function 'BWFIU_GENERATE_DB_INDEX'
       exporting
         i_tabname                          = 'BWFI_AEDAT'
         i_isource                          = i_isource
       exceptions
         no_index_required                  = 1
         error_passed_to_mess_handler       = 2
        OTHERS                             = 3
     if sy-subrc = '2'.
       raise error_passed_to_mess_handler.
     endif.
   endif.
...check initialization options for old data source 0FI_AP_3..........
    IF S_UPDMODE = SBIWA_C_UPDMODE_DELTAINIT.
      CLEAR: S_OLD_SOURCE_ACTIVE,
             LD_LINES.
      CALL FUNCTION 'RSA1_SINGLE_OLTPSOURCE_GET'
           EXPORTING
                I_OLTPSOURCE  = '0FI_AP_3'
                I_OBJVERS     = 'A'
                I_RLOGSYS     = S_RLOGSYS
           IMPORTING
                E_T_ROOSPRMSF = L_T_ROOSPRMSF
           EXCEPTIONS
                NO_AUTHORITY  = 1
                NOT_EXIST     = 2
                INCONSISTENT  = 3
                OTHERS        = 4.
      IF SY-SUBRC IS INITIAL.
        DESCRIBE TABLE L_T_ROOSPRMSF LINES LD_LINES.
        IF LD_LINES <> 0.
          MOVE 'X' TO S_OLD_SOURCE_ACTIVE.
        ENDIF.
      ENDIF.
    ENDIF.
...convert selection criteria into internal format....................
    REFRESH T_INTERNAL_FISEL.
    CALL FUNCTION 'BWFIU_CONVERT_ICSEL_TO_FISEL'
         TABLES
              I_SELECTION_TABLE = T_EXTERNAL_FISEL
              I_FISEL           = T_INTERNAL_FISEL
         EXCEPTIONS
              OTHERS            = 1.
...set fields to select from database.................................
    CALL FUNCTION 'BWFIU_TRANSFORM_FIELDLIST'
         EXPORTING
              I_TABLE       = 'BSIK'
         TABLES
              I_OLAP_FIELDS = I_T_FIELDS
              E_OLTP_FIELDS = T_FIELDLIST
         EXCEPTIONS
              OTHERS        = 1.
    CLEAR   T_FIELDLIST_BSEG.
    REFRESH T_FIELDLIST_BSEG.
...append logical system to selection criteria........................
    CALL FUNCTION 'BWFIU_GET_AWSYS_SELECTION'
         TABLES
              I_FISEL = T_INTERNAL_FISEL
         EXCEPTIONS
              OTHERS  = 1.
...get timestamps for selection (dependent on update mode)............
    CALL FUNCTION 'BWFIT_GET_TIMESTAMPS'
         EXPORTING
              I_OLTPSOURCE                = S_ISOURCE
              I_LEADING_SOURCE            = LEADING_SOURCE
              I_UPDMODE                   = S_UPDMODE
         IMPORTING
              E_DATE_LOW                  = SD_DATE_LOW
              E_DATE_HIGH                 = SD_DATE_HIGH
              E_TZONE                     = SD_TZONE
              E_DAYST                     = SD_DAYST
         EXCEPTIONS
              TIME_INTERVAL_NEGATIVE      = 1
              TIMESTAMPS_WRONG            = 2
              LEADING_TIMESTAMP_NOT_FOUND = 3
              OTHERS                      = 4.
    CASE SY-SUBRC.
      WHEN 1.
        RAISE NO_MORE_DATA.
      WHEN 2.
        RAISE ERROR_PASSED_TO_MESS_HANDLER.
      WHEN 3.
        RAISE NO_MORE_DATA.
    ENDCASE.
...move timestamp into selection criteria.............................
    IF S_UPDMODE NE SBIWA_C_UPDMODE_FULL.
      MOVE: SPACE        TO T_INTERNAL_FISEL,
            'CPUDT'      TO T_INTERNAL_FISEL-FIELDNM,
            'I'          TO T_INTERNAL_FISEL-SIGN,
            'BT'         TO T_INTERNAL_FISEL-OPTION,
            SD_DATE_LOW  TO T_INTERNAL_FISEL-LOW,
            SD_DATE_HIGH TO T_INTERNAL_FISEL-HIGH.
      APPEND T_INTERNAL_FISEL.
      MOVE: SPACE        TO T_INTERNAL_FISEL,
            'AEDAT'      TO T_INTERNAL_FISEL-FIELDNM,
            'I'          TO T_INTERNAL_FISEL-SIGN,
            'BT'         TO T_INTERNAL_FISEL-OPTION,
            SD_DATE_LOW  TO T_INTERNAL_FISEL-LOW,
            SD_DATE_HIGH TO T_INTERNAL_FISEL-HIGH.
      APPEND T_INTERNAL_FISEL.
    ENDIF.
...function module called in data extraction mode (I_INITFLAG = ' ')..
  ELSE.
...get data...........................................................
    IF S_UPDMODE NE 'S'.
      GET_DELTA_DATA.
    ELSE.                               "Simulation of Delta-Init
      CLEAR S_CURSOR_FLAG.
    ENDIF.
...process selected data..............................................
    REFRESH E_T_DTFIAP_3.
    LOOP AT T_DELTA_DATA.
      CALL FUNCTION 'BWFIU_CONVERT_FIAP_ITEM'
           EXPORTING
                I_S_DELTA_DATA = T_DELTA_DATA
                R_FISCPER      = R_FISCPER
           TABLES
                E_T_DTFIAP_3   = E_T_DTFIAP_3.
    ENDLOOP.
...migration from old extractor 0FI_AP_3 to the new 0FI_AP_4..........
    IF S_UPDMODE = SBIWA_C_UPDMODE_DELTAINIT AND
       S_OLD_SOURCE_ACTIVE = 'X'.
      LOOP AT E_T_DTFIAP_3.
        CALL FUNCTION 'FBW4_INIT_SELECT_CHECK'
             EXPORTING
                  I_OLTPSOURCE = '0FI_AP_3'
                  I_STRUCTURE  = E_T_DTFIAP_3
             EXCEPTIONS
                  INVALID_ITEM = 1
                  OTHERS       = 2.
...reject record, if it is a valid record of the old extractor........
        IF SY-SUBRC NE 1.
          DELETE E_T_DTFIAP_3.
        ENDIF.
      ENDLOOP.
    ENDIF.
...if there is no more data to read: set corresponding flag...........
    IF S_CURSOR_FLAG IS INITIAL.
      NO_MORE_DATA_FLAG = 'X'.
...and write timestamp interval into table BWOM2_TIMEST...............
      CALL FUNCTION 'BWFIT_UPDATE_TIMESTAMPS'
           EXPORTING
                I_OLTPSOURCE = S_ISOURCE
                I_UPDMODE    = S_UPDMODE
                I_DATE_LOW   = SD_DATE_LOW
                I_DATE_HIGH  = SD_DATE_HIGH
                I_TZONE      = SD_TZONE
                I_DAYST      = SD_DAYST
                I_READ_ONLY  = S_READ_ONLY.
    ENDIF.
...delta-init simulation: raise no_more_data..........................
    IF S_UPDMODE = 'S'.
      RAISE NO_MORE_DATA.
    ENDIF.
  ENDIF.
ENDFUNCTION.

Answer 1

Gentlemen,
Please be aware, enhancing GL, AP and AR datasource are completely different then enhanceing LIS datasource or most other datasources. You cannot (the last time I knew) populated fields in the User Exit for GL, AP and AR, to enhance these, you need to follow this OSS message to the "t".
/Steve
OSS message: 410799.
See below OSS message:
Symptom
The extraction structures for datasources 0FI_GL_4 (General ledger: line item), 0FI_AP_4 (vendors: line item) and 0FI_AR_4 (customers: line item) should be enhanced by additional fields.
By doing so, additional information can be transferred for each line item from the R/3 system to the BW system.
Other terms
(for example, customer or vendor master data).
Customer enhancement, extraction structure, extraction, FI_GL, general ledger, FI-AP creditors, FIAP vendors, line items, datasources/infosources:
0FI_GL_4, 0FI_AP_4, 0FI_AR_4
Reason and Prerequisites
There is missing documentation on the customer enhancement of datasources/infosources 0FI_GL_4, 0FI_AP_4, 0FI_AR_4
Solution
In the R/3 source system, the following structures participate in the extraction of line items from the applications FI-GL, FI-AP, FI-AR:
Applic.  datasource read structure extractionsstr.  customer-INCLUDE
FI-GL 0FI_GL_4 BSIS DTFIGL_4 CI_BSIS
FI-AP 0FI_AP_4 BSIK DTFIAP_3 CI_BSIK
FI-AR 0FI_AR_4 BSID DTFIAR_3 CI_BSID
The data sources provide the fields of the assigned extraction structure from the R/3 source system to the BW system.
These extraction structures can be enhanced by creating the respective customer include in the data dictionary of the R/3 source system. After creating this, generate the customer include in the data dictionary.
The fields for the customer enhancement in the customer include has to be filled during the data extraction in the R/3 source system. In doing so, two cases arise:
1. All the fields of the customer enhancement in the customer include are contained in the read structure (see the table above).
           Then no additional action is required. The fields of the customer enhancement are filled automatically by the datasource from the assigned read structure via "move-corresponding".
           Example:
           The extraction structure DTFIGL_4 for datasource 0FI_GL_4 (General ledger: line item) should be enhanced by the VALUT (value date) field.
           To do this, create structure CI_BSIS in the data dictionary of the R/3 source system and include the VALUT field in it. The data dictionary in the R/3 source system shows that the VALUT field is contained in the read structure of the datasource (table BSIS). For that reason the VALUT field is automatically filled by datasource 0FI_GL_4.
           ATTENTION:
           By using Note 430303 you can enhance DataSource 0FI_GL_4 by all fields from table BSEG (instead of BSIS); then the fields are filled automatically in the extractor.
2. Fields of the customer enhancement in the customer include are not contained in the read structure (see the table above).
            In this case you have to program a function module to fill the field of the customer enhancement. To do this, there is a Business Transaction Event available (open FI interface for process 00005021). Create any function module you like and use function module SAMPLE_PROCESS_00005021 as a template for the interface (input parameter, changing parameter).
           Interface of function module SAMPLE_PROCESS_00005021:
            Input-parameter I_OLTPSOURCE: datasource that is currently extracting data from the R/3 source system.
            Changing-Parameter C_STRUCTURE: Extraction structure of the data source currently extracting including fields from the assigned customer include. When you call this customer defined function module, all the fields of the extract structure are transferred filled.
           Check whether the type pool SBIWA is declared in the TOP include of the function group.
If not, add it with the statement TYPE-POOLS: SBIWA.
           Then maintain table TPS31 with Transaction SM30. Create the following entry:
           PROCS LAND APPLK FUNCT
           00005021 <fname>
           <fname> stands for the customer defined function module.
            By doing so, the function module you defined is called for each extracted record. Note that in this case the performance of the extraction may be reduced significantly regardless of the table read and the complexity of the programmed logic.
           Example:
           You want to enhance the extraction structure DTFIAR_3 for datasource 0FI_AR_4 (customers: line item) by the ORT01 (city) field from the customer master record.
            To do this, create structure CI_BSID in data dictionary of the R/3 source system and include the ORT01 field in that. The data dictionary in the R/3 source system displays that the ORT01 field is NOT contained in the read structure of datasource 0FI_AR_4 (Table BSID).
            Therefore you have to program a function module that reads the customer master in the R/3 system (table KANN1) and fills the ORT01 field of the customer enhancement. In the changing parameter C_STRUCTURE the filled fields of the extraction structure DTFIAR_3 are available to you. With the KUNNR field of extraction structure DTFIAR_3, you can select the respective master data record from table KNA1 and determine field ORT01 of the customer enhancement.
After you create the customer include in the R/3 source system you have to postprocess the accompanying datasource with Transaction RSA6. Select the application component according to the above table and change the datasource that fits the customer include. The "Hide fields" flag should be removed in the field list for the fields of the customer include. Then save the field list.
If the fields of the customer include is not displayed in Transaction RSA6, refer to note 415530.
Then you have to replicate the enhanced datasource again in your BW system. Select the infosource that belongs to the datasource in the Administration Workbench of your BW system (Transaction RSA1 --> Modeling --> InfoSources) and replicate the datasource from the R/3 source system (right mouse button on the appropriate R/3 source system for the infosource).
You have to create the appropriate infoobjects for the fields of the customer enhancement in the BW system if they do not already exist.
Then in your BW system make sure that the accompanying infosources (communication structures and transfer rules) and data targets (ODS objects and InfoCubes) have been extended by the new field or infoobject. All the objects which have been changed in the BW system must also be activated there.