Doubt about generic delta using function module.

Question

Hi,
I have the following scenario.
I have to create a generic data source having delta using funcation module.
The full load works fine, but the delta load not.
I don't know, if always the field that was specified as a delta, must be part of the cursor in this case AFRU~LAEDA
This is my cursor:
OPEN CURSOR WITH HOLD S_CURSOR FOR
           SELECT AFIHAUFNR AFIHADDAT AFIHIPHAS AFIHILART AFIH~AKKNZ
                         AFIHPLKNZ AFIHILOAN AFIHIWERK AS ZPLANPLANT AFIHEQUNR
                         ILOA~TPLNR
                         AFKOGSTRP AFKOGLTRP AFKOGSTRS AFKOGLTRS AFKOGSTRI AFKOGETRI AFKO~FTRMI
                         AUFKAEDAT AUFKERDAT AUFKWERKS AUFKKOSTL AUFKKOKRS AUFKSOWRK AUFK~OBJNR
                         AUFKAUART AUFKVAPLZ
                         CRHD~ARBPL
                        TKA01~WAERS AS ZCOSTP_ML_UM
              FROM AFIH
                   INNER JOIN AFKO ON AFIHAUFNR = AFKOAUFNR
                   LEFT OUTER JOIN ILOA ON ILOAILOAN = AFIHILOAN
                   INNER JOIN AUFK ON AFIHAUFNR = AUFKAUFNR
                   INNER JOIN TKA01 ON AUFKKOKRS = TKA01KOKRS
                   LEFT OUTER JOIN CRHD ON CRHDOBJID = AFIHGEWRK
              WHERE AFIH~AUFNR in L_R_AUFNR
                    AND AFIH~EQUNR in L_R_EQUNR
                    GROUP BY AFIHAUFNR AFIHADDAT AFIHIPHAS AFIHILART AFIHAKKNZ AFIHPLKNZ AFIH~ILOAN 
                                       AFIHIWERK AFIHEQUNR
                                      ILOA~TPLNR
                                      AFKOGSTRP AFKOGLTRP AFKOGSTRS AFKOGLTRS AFKOGSTRI AFKOGETRI AFKO~FTRMI
                                      AUFKAEDAT AUFKERDAT AUFKWERKS AUFKKOSTL AUFKKOKRS AUFKSOWRK 
                                     AUFKOBJNR AUFKAUART AUFK~VAPLZ
                                     CRHD~ARBPL
                                     TKA01~WAERS.
For each aufnr I must go to the afru table and totalize the real work (IWNW)  and real duration (IDAUR) when AFRUSTZHL > 0 and totalize too when AFRUSTZHL = 0 but with sign to negative.
This is my external query, i need that the field AFRU~LAEDA must be taken as delta field:
          SELECT AFRUERSDA AFRULAEDA AFRUSTZHL SUM( AFRUISMNW ) AS ZTRA_REAL AFRUISMNE AS ISMNE SUM( AFRUIDAUR ) AS ZDURAC_REAL AFRU~IDAUE AS IDAUE
                 INTO CORRESPONDING FIELDS OF TABLE WT_AFRU_OM
          FROM AFRU
               WHERE AUFNR = WT_ZCUROM-AUFNR
                     AND AFRU~STZHL = 0
               GROUP BY AFRUERSDA AFRULAEDA AFRUSTZHL AFRUAUFNR AFRUISMNE AFRUIDAUE AFRUISMNW AFRUIDAUR
               order by AFRUERSDA AFRULAEDA AFRUSTZHL AFRUIDAUE AFRU~ISMNE.
          IF sy-subrc = 0.
            CLEAR WT_AFRU_OM2.
            REFRESH WT_AFRU_OM2.
            SELECT AFRUERSDA AFRULAEDA AFRUSTZHL SUM( AFRUISMNW ) AS ZTRA_REAL AFRUISMNE AS ISMNE SUM( AFRUIDAUR ) AS ZDURAC_REAL AFRU~IDAUE AS IDAUE
                   INTO CORRESPONDING FIELDS OF TABLE WT_AFRU_OM2
            FROM AFRU
                 WHERE AUFNR = WT_ZCUROM-AUFNR
                       AND AFRU~STZHL > 0
                 GROUP BY AFRUERSDA AFRULAEDA AFRUSTZHL AFRUAUFNR AFRUISMNE AFRUIDAUE AFRUISMNW AFRUIDAUR
                 order by AFRUERSDA AFRULAEDA AFRUSTZHL AFRUIDAUE AFRU~ISMNE.
            IF sy-subrc = 0.
              LOOP AT WT_AFRU_OM2.
                WT_AFRU_OM2-ZTRA_REAL = WT_AFRU_OM2-ZTRA_REAL * -1.
                WT_AFRU_OM2-ZDURAC_REAL = WT_AFRU_OM2-ZDURAC_REAL * -1.
                APPEND WT_AFRU_OM2 TO WT_AFRU_OM.
              ENDLOOP.
            ENDIF.
            LOOP AT WT_AFRU_OM.
              "fjro incluir el clear y el move
              CLEAR WT_DATOS_OM.
              MOVE-CORRESPONDING W_DATOS_BASE to WT_DATOS_OM.
              MOVE-CORRESPONDING WT_AFRU_OM TO WT_DATOS_OM.
              APPEND WT_DATOS_OM.
              APPEND WT_DATOS_OM TO WT_ESTFIN_OM.
            ENDLOOP.
          ENDIF.
It's possible set the delta field in a external query of the cursor.
Best Regards
Ramon Sanchez
Edited by: RAMON SANCHEZ on Aug 20, 2010 2:46 PM

Answer 1

Hi Sri,
here some coding, I hope this helps!
first, get the delta-field
      LOOP AT s_s_if-t_select INTO l_s_select.
        CASE l_s_select-fieldnm.
          WHEN 'ZDATE'.
            MOVE-CORRESPONDING l_s_select TO r_date.
            IF r_date-high IS INITIAL OR r_date-high = space.
              r_date-high = '9991231'.
            ENDIF.
            APPEND r_date.
        ENDCASE.
      ENDLOOP.
Cursor öffnen
      OPEN CURSOR WITH HOLD s_cursor FOR
      SELECT * FROM
      WHERE  ....
      AND    erdat in r_date
      AND    aedat IN r_date.
      FETCH NEXT CURSOR s_cursor INTO CORRESPONDING FIELDS OF table e_t_data package size s_s_if-maxsize.
regards
Siggi
PS: Note that this coding only works for a very straight forward extraction.
Message was edited by: Siegfried Szameitat