BAPI for goods moment is not working in loop

Question

Dear ABAPers,
If i am using BAPI ( for MB1n transabtion for goods movement type 309 )with in loop first one is working fine and remaining is not working.
If i run individually all r working fine.
I am sending cdoe as below.
Pl hava look on that.
  LOOP AT ITAB.
    CLEAR: GM_RETURN, GM_RETMTD,GM_HEADER,GM_CODE,GM_HEADRET.
    REFRESH: GM_RETURN,GM_ITEM.
    GM_HEADER-PSTNG_DATE = SY-DATUM.
    GM_HEADER-DOC_DATE   = SY-DATUM.
    GM_CODE-GM_CODE      = '04'.                            " MB1B
    CLEAR GM_ITEM.
    MOVE '309'                 TO GM_ITEM-MOVE_TYPE     .
    MOVE ITAB-MATNR  TO GM_ITEM-MATERIAL.
    MOVE ITAB-MENGE_REC TO GM_ITEM-ENTRY_QNT.
    MOVE ITAB-MATNR_REC TO GM_ITEM-MOVE_MAT.
    MOVE ITAB-MEINS_REC TO GM_ITEM-BASE_UOM.
    MOVE ITAB-WERKS_REC  TO GM_ITEM-PLANT.
    MOVE ITAB-LGORT_REC  TO GM_ITEM-STGE_LOC.
    MOVE ITAB-CHARG TO GM_ITEM-BATCH.
    MOVE ITAB-CHARG_REC TO GM_ITEM-MOVE_BATCH.
    APPEND GM_ITEM.
    CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
      EXPORTING
        GOODSMVT_HEADER  = GM_HEADER
        GOODSMVT_CODE    = GM_CODE
      IMPORTING
        GOODSMVT_HEADRET = GM_HEADRET
        MATERIALDOCUMENT = GM_RETMTD
      TABLES
        GOODSMVT_ITEM    = GM_ITEM
        RETURN           = GM_RETURN.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
  WAIT          =
IMPORTING
  RETURN        =
    IF GM_RETURN[] IS NOT INITIAL.
      LOOP AT GM_RETURN.
        IF GM_RETURN-TYPE = 'E'.
          ERR_CNT = ERR_CNT + 1.
          V_MESSAGE = GM_RETURN-MESSAGE.
          UPDATE Y_MB1B SET STS_CODE = 'PE'
                           UPDATE_BY = SY-UNAME
                           UPDATE_DATE = SY-DATUM
                           MESS = V_MESSAGE
               WHERE SRL = ITAB-SRL.
        ENDIF.
      ENDLOOP.
    ELSE.
      IF GM_RETMTD IS NOT INITIAL.
        REC_CNT = REC_CNT + 1.
        CONCATENATE 'Document' GM_RETMTD 'posted' INTO V_MESSAGE SEPARATED BY SPACE.
        UPDATE Y_MB1B SET STS_CODE = 'PS'
                   UPDATE_BY = SY-UNAME
                   UPDATE_DATE = SY-DATUM
                   MESS = V_MESSAGE
       WHERE SRL = ITAB-SRL.
      ENDIF.
    ENDIF.
  ENDLOOP.
Pl gimme solution.
Cheers,
Simha.

Answer 1

Hi,
               here is the code check this for ur ref
method IF_EX_LE_SHP_GOODSMOVEMENT~CHANGE_INPUT_HEADER_AND_ITEMS .
******** Data Declaration *************
  data: ls_lips type lips.
  data: ls_goods_header type BAPI2017_GM_HEAD_01.
  data: ls_gm_code type BAPI2017_GM_CODE.
  data: ls_goods_mvt type BAPI2017_GM_ITEM_CREATE.
  data: lt_goods_mvt type table of BAPI2017_GM_ITEM_CREATE.
  data: lt_return type table of BAPIRET2.
  data:ls_MATERIALDOCUMENT type BAPI2017_GM_HEAD_02-MAT_DOC.
  data: ls_MATDOCUMENTYEAR type BAPI2017_GM_HEAD_02-DOC_YEAR.
  constants: c_bwart type lips-bwart value '309'.
  ls_goods_header-PSTNG_DATE = sy-datum.
  ls_goods_header-DOC_DATE   = IS_LIKP-bldat.
  ls_goods_header-pr_uname = sy-uname.
  ls_gm_code-GM_CODE         = '06'.
  loop at it_xlips into ls_lips
       where OIC_MOT = 'PK'.
    if ( ls_lips-uepos is initial and ls_lips-pstyv = 'TAQ').
      ls_goods_mvt-MATERIAL = ls_lips-MATNR.
      ls_goods_mvt-PLANT = ls_lips-WERKS.
      ls_goods_mvt-STGE_LOC = ls_lips-LGORT.
      ls_goods_mvt-MOVE_TYPE = c_bwart.
      ls_goods_mvt-ENTRY_QNT = ls_lips-LFIMG.
      ls_goods_mvt-MOVE_MAT = ls_lips-UMMAT.
      ls_goods_mvt-MOVE_PLANT = ls_lips-UMWRK.
      ls_goods_mvt-MOVE_STLOC = ls_lips-UMLGO.
      append ls_goods_mvt to lt_goods_mvt.
    endif.
  endloop.
by this call function BAPI Material document is created ****
  data : LS_GOODSMVT_HEADRET     TYPE BAPI2017_GM_HEAD_RET.
  CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      GOODSMVT_HEADER  = ls_goods_header
      GOODSMVT_CODE    = ls_gm_code
    IMPORTING
      GOODSMVT_HEADRET = LS_GOODSMVT_HEADRET
    TABLES
      GOODSMVT_ITEM    = lt_goods_mvt
      RETURN           = lt_return.
  IF lt_return[] is NOT initial.
<b>Reward points</b>
Regards