Customer exits for currency field in generic extractor

Question

Hi,
I had a requirement to create a generic extractor. I've created a generic extractor by name 'ZXXZ_XXX_TAX_ATTR'. This extractor was created based on a table T007V in turn view. It has a currency and a quantity type field. Those two fields were not refering to a table fields but were refering a structure. So as per the note 335342, if we have fields of curr/quan type and are having reference fields as a structure field, we need to populate those fields throught a customer exit.
As I have read that the same problem has been solved by you with customer exit. So can you mail me the exit code as I am not a good in  ABAP.
Regards,
Amol Gaurkar

Answer 1

Hi Amol,
Here is the code below,
TYPES: BEGIN OF TY_T007V,
                 TRKORR TYPE TRKORR,
                 ALAND  TYPE ALAND,
                 MWSKZ TYPE MWSKZ,
                 TXJCD  TYPE TXJCD,
                 DATAM  TYPE DATAM,
                 KSCHL  TYPE KSCHL,
                 KBETR  TYPE KBETR,
              END OF TY_T007V.
DATA:  T_T007V TYPE STANDARD TABLE OF TY_T007V,
            T_EXTRSTRU TYPE STANDARD TABLE OF <b><Extract Structure></b>,
**--    Work Area
           W_T007V TYPE TY_T007V,
           L_TABIX   TYPE SY-TABIX.
CASE I_DATASOURCE.
   WHEN 'ZXXZ_XXX_TAX_ATTR'.
     REFRESH: T_T007V.
     CLEAR:     W_T007V,
                      L_TABIX.
     T_EXTRSTRU[] = C_T_DATA[].
     IF NOT T_EXTRSTRU IS INITIAL.
Fetching all the records into internal table T_T007V from the transparent table T007V
       SELECT TRKORR
                     ALAND
                     MWSKZ
                     TXJCD
                     DATAM
                     KSCHL
                     KBETR
           INTO TABLE T_T007V
           FROM T007V
            FOR ALL ENTRIES IN T_EXTRSTRU
          WHERE TRKORR = T_EXTRSTRU-KOKRS
            AND ALAND = T_EXTRSTRU-ALAND
            AND MWSKZ = T_EXTRSTRU-MWSKZ
            AND TXJCD  = T_EXTRSTRU-TXJCD
            AND DATAM = T_EXTRSTRU-DATAM
            AND KSCHL = T_EXTRSTRU-KSCHL.
       IF NOT T_T007V IS INITIAL.
         SORT T_T007V BY TRKORR ALAND MWSKZ TXJCD DATAM KSCHL.
         LOOP AT T_EXTRSTRU INTO W_EXTRSTRU.
           L_TABIX = SY-TABIX.
           READ TABLE T_T007V INTO W_T007V
                             WITH KEY TRKORR = T_EXTRSTRU-KOKRS
                                              ALAND   = T_EXTRSTRU-ALAND
                                              MWSKZ  = T_EXTRSTRU-MWSKZ
                                              TXJCD    = T_EXTRSTRU-TXJCD
                                              DATAM   = T_EXTRSTRU-DATAM
                                              KSCHL   = T_EXTRSTRU-KSCHL
                             BINARY SEARCH.
           IF SY-SUBRC = 0.
             W_EXTRSTRU-KBETR = W_T007V-KBETR.
             MODIFY T_EXTRSTRU FROM W_EXTRSTRU INDEX L_TABIX.
             CLEAR W_EXTRSTRU.
           ENDIF.
           CLEAR: W_T007V,
                  L_TABIX,
                  W_EXTRSTRU.
         ENDLOOP.
       ENDIF.
       REFRESH C_T_DATA.
       C_T_DATA[] = T_EXTRSTRU[].
       REFRESH: T_T007V,
                T_EXTRSTRU.
     ENDIF.
ENDCASE.                           "ENDCASE FOR RETREVING THE EXTRACTOR
<b>Reward points if this helps,</b>
Kiran