Field value is getting double while updating the database table

Question

Hi Experts,
A simple doubt :
there is a standard program through which a zfunction module is getting triggered, through this zfunction module i am updating the database table.
Now what happening is one of the field(KCQTY) value in database is getting double at a time when i am executing the Program with same variant only.
I have also done the CLEAR & REFRESH internal tables starting of the Function module.
Can you please help me out.
Max points wil be awarded.
thanks
rico.

Answer 1

Hi Nicole,
this is the part of the coding where you can see how the field KCQTY is getting moved in the loop statement.
  DELETE IT_CE20002B_815 WHERE
      KONDA = SPACE  OR
      WERKS = SPACE  OR
      VVB01001 < 0.
    LOOP AT IT_CE20002B_815.
      INDX = SY-TABIX.
      CONCATENATE IT_CE20002B_815-PERBL0(4) IT_CE20002B_815-PERBL5(2)
                                                INTO MONAT.
   MOVE itab_ce20001b-perbl TO monat.
      CLEAR S815.
      READ TABLE IT_ZPL_MCS5 WITH KEY KONDA = IT_CE20002B_815-KONDA
                                       BINARY SEARCH.
        SELECT SINGLE * FROM S815 WHERE VRSIO = '000'
                                     AND SPMON = MONAT
                                     AND KONOB = 'APO'
                                     AND MVGR2 = IT_CE20002B_815-KONDA
                                     AND PRODH = IT_CE20002B_815-PRDHA
                                     AND WERKS = IT_CE20002B_815-WERKS.
                                    AND VTWEG EQ CO_VTWEG_99.
BREAK SAMEE.
      IF SY-SUBRC EQ 0.
Eintrag in S810 existiert
        IF S815-AEMENGE <= IT_CE20002B_815-VVB01001.
wenn die Auftragseingangsmenge kleiner gleich der Kontingentsmenge
wird die Kontingentmenge in das Steploop übernommen
          MOVE IT_CE20002B_815-VVB01001 TO  W_T_DATA_815-KCQTY.
*Liste ausgeben
         PERFORM AUSGABE4.
          PERFORM AUSGABE4_815.
        ELSE.
Ausgabe Fehlermeldung, wenn die Auftragsmenge größer als die
                       Kontingentmenge ist.
*Liste mit fehlermeldungen ausgeben, Kontingent trotzdem übernehmen
          MOVE IT_CE20002B_815-VVB01001 TO  W_T_DATA_815-KCQTY.
         PERFORM AUSGABE_FEHLER4.
          PERFORM AUSGABE_FEHLER4_815.
        delete it_ce20002b index indx.
        continue.
        ENDIF.
      ELSE.
Es existiert kein Eintrag in S810, dann direkt eingeben
        MOVE IT_CE20002B_815-VVB01001 TO W_T_DATA_815-KCQTY.
        MODIFY IT_CE20002B_815 INDEX INDX.
*Liste ausgeben (Kein Eintrag in S810)
       PERFORM EINTRAG2.
        PERFORM EINTRAG2_815.
      ENDIF.
*Übergabestructur für die Weiterverarbeitung durch das Copymanagement
*im Functionsbaustein wird gefüllt.
      W_T_DATA_815-SPMON = MONAT.   "itab_ce20001a-perbl.
      W_T_DATA_815-KONOB = CO_KONOB_APO.
      READ TABLE IT_ZPL_MCS5 WITH KEY KONDA = IT_CE20002B_815-KONDA
                                      BINARY SEARCH.
      IF SY-SUBRC EQ 0.
        W_T_DATA_815-MVGR2 = CO_MVGR2_999.
      ELSE.
        W_T_DATA_815-MVGR2 = IT_CE20002B_815-KONDA.
      ENDIF.
      W_T_DATA_815-WERKS = IT_CE20002B_815-WERKS.
      W_T_DATA_815-PRODH = IT_CE20002B_815-PRDHA.
     W_T_DATA_815-VTWEG = '99'.
     W_T_DATA_815-KUNNR = '9999999999'.
      W_T_DATA_815-KCQTY = IT_CE20002B_815-VVB01001.
      W_T_DATA_815-BASME = IT_CE20002B_815-VVB01_ME.
JR181005 - begin of ins.
     w_t_data_810-matkl = it_ce20002b-matkl.
JR181005 - end of ins.
      APPEND W_T_DATA_815 TO TAB_DATA.
      CLEAR IT_CE20002B_815.
    ENDLOOP.
thanks for reply
rico