BAPI_GOODSMVT_CREATE por favor ayuda

[robnetti]

Buenas tardes soy nuevo en ABAP, estoy realizando un movimiento 411 con la bapi BAPI_GOODSMVT_CREATE y me viene en 0 el movimiento, les comparto mi codigo y el error. SAludos


* SELECT SINGLE auart
* INTO lv_auart1
* FROM caufv
* WHERE aufnr EQ gv_aufnr.
*
* SELECT SINGLE magrv
* INTO lv_magrv
* FROM mara
* WHERE matnr EQ gv_plnbez.
* IF sy-subrc EQ 0.
* SELECT zalmd ztmat zpal zmc zsp zcaja
* INTO TABLE it_embalaje
* FROM zpp_embalaje
* WHERE werks EQ gv_werks
* AND magrv EQ lv_magrv
* AND aurt EQ lv_auart1.
*
* READ TABLE it_embalaje ASSIGNING <fs_emba> INDEX 1.
* IF <fs_emba>-ztmat EQ 'E'.
*
* SELECT paletas marcos cantseparadores caja
* INTO TABLE it_cantidad
* FROM zmm_layouts
* WHERE werks EQ gv_werks
* AND material EQ gv_plnbez.
*
* ELSEIF <fs_emba>-ztmat EQ 'T'.
*
* SELECT paletas marcos cajas
* INTO TABLE it_cantidad1
* FROM zmm_layouts_tapa
* WHERE werks EQ gv_werks
* AND material EQ gv_plnbez.
*
* ENDIF.
*
* LOOP AT it_embalaje ASSIGNING <fs_embalaje>.
* IF <fs_emba>-ztmat EQ 'E'.
* READ TABLE it_cantidad INTO wa_cantidad INDEX 1.
*
* IF <fs_embalaje>-zpal IS NOT INITIAL.
*
* wa_item-move_type = '411'.
* wa_item-ENTRY_QNT = wa_cantidad-cpal."struct-lambc.
*" gt_goodsmvt_item-BATCH = struct-lote.
* wa_item-PLANT = gv_werks.
* wa_item-STGE_LOC = 'PL'."Almacen origen
* wa_item-MOVE_STLOC = <fs_embalaje>-zalmd."Almacén hacia donde se hará el traslado
* wa_item-MATERIAL = <fs_embalaje>-zpal.
* APPEND wa_item TO gt_goodsmvt_item.
* ENDIF.
*
* IF <fs_embalaje>-zmc IS NOT INITIAL.
*
* wa_item-move_type = '411'.
* wa_item-ENTRY_QNT = wa_cantidad-cmc."struct-lambc.
*" gt_goodsmvt_item-BATCH = struct-lote.
* wa_item-PLANT = gv_werks.
* wa_item-STGE_LOC = 'PL'."Almacen origen
* wa_item-MOVE_STLOC = <fs_embalaje>-zalmd."Almacén hacia donde se hará el traslado
* wa_item-MATERIAL = <fs_embalaje>-zmc.
* APPEND wa_item TO gt_goodsmvt_item.
* ENDIF.
*
* IF <fs_embalaje>-zsp IS NOT INITIAL.
*
* wa_item-move_type = '411'.
* wa_item-ENTRY_QNT = wa_cantidad-csp."struct-lambc.
*" gt_goodsmvt_item-BATCH = struct-lote.
* wa_item-PLANT = gv_werks.
* wa_item-STGE_LOC = 'PL'."Almacen origen
* wa_item-MOVE_STLOC = <fs_embalaje>-zalmd."Almacén hacia donde se hará el traslado
* wa_item-MATERIAL = <fs_embalaje>-zsp.
* APPEND wa_item TO gt_goodsmvt_item.
* ENDIF.
*
* IF <fs_embalaje>-zcaja IS NOT INITIAL.
*
* wa_item-move_type = '411'.
* wa_item-ENTRY_QNT = wa_cantidad-ccj."struct-lambc.
*" gt_goodsmvt_item-BATCH = struct-lote.
* wa_item-PLANT = gv_werks.
* wa_item-STGE_LOC = 'PL'."Almacen origen
* wa_item-MOVE_STLOC = <fs_embalaje>-zalmd."Almacén hacia donde se hará el traslado
* wa_item-MATERIAL = <fs_embalaje>-zcaja.
* APPEND wa_item TO gt_goodsmvt_item.
* ENDIF.
* ENDIF."ENVASE
*
* IF <fs_emba>-ztmat EQ 'T'.
* READ TABLE it_cantidad1 INTO wa_cantidad1 INDEX 1.
*
* IF <fs_embalaje>-zpal IS NOT INITIAL.
*
* wa_item-move_type = '411'.
* wa_item-ENTRY_QNT = wa_cantidad1-cpal."struct-lambc.
*" gt_goodsmvt_item-BATCH = struct-lote.
* wa_item-PLANT = gv_werks.
* wa_item-STGE_LOC = 'PL'."Almacen origen
* wa_item-MOVE_STLOC = <fs_embalaje>-zalmd."Almacén hacia donde se hará el traslado
* wa_item-MATERIAL = <fs_embalaje>-zpal.
* APPEND wa_item TO gt_goodsmvt_item.
* ENDIF.
*
* IF <fs_embalaje>-zmc IS NOT INITIAL.
*
* wa_item-move_type = '411'.
* wa_item-ENTRY_QNT = wa_cantidad1-cmc."struct-lambc.
*" gt_goodsmvt_item-BATCH = struct-lote.
* wa_item-PLANT = gv_werks.
* wa_item-STGE_LOC = 'PL'."Almacen origen
* wa_item-MOVE_STLOC = <fs_embalaje>-zalmd."Almacén hacia donde se hará el traslado
* wa_item-MATERIAL = <fs_embalaje>-zmc.
* APPEND wa_item TO gt_goodsmvt_item.
* ENDIF.
*
* IF <fs_embalaje>-zcaja IS NOT INITIAL.
*
* wa_item-move_type = '411'.
* wa_item-ENTRY_QNT = wa_cantidad-ccj."struct-lambc.
*" gt_goodsmvt_item-BATCH = struct-lote.
* wa_item-PLANT = gv_werks.
* wa_item-STGE_LOC = 'PL'."Almacen origen
* wa_item-MOVE_STLOC = <fs_embalaje>-zalmd."Almacén hacia donde se hará el traslado
* wa_item-MATERIAL = <fs_embalaje>-zcaja.
* APPEND wa_item TO gt_goodsmvt_item.
* ENDIF.
* ENDIF."TAPA
*
* ENDLOOP.
*
* " Cabecera
* gt_goodsmvt_header-PSTNG_DATE = sy-datum.
* gt_goodsmvt_header-DOC_DATE = sy-datum.
*
* "Código
* goodsmvt_code_tmp-GM_CODE = '04'.
*
** ******************************************
* "break abap01.
* clear: w_mblnr,w_gjahr.
* CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
* EXPORTING
* goodsmvt_header = gt_goodsmvt_header
* goodsmvt_code = goodsmvt_code_tmp
* testrun = 'X'
* IMPORTING
* goodsmvt_headret = gt_goodsmvt_code
* materialdocument = w_mblnr
* matdocumentyear = w_gjahr
* TABLES
* goodsmvt_item = gt_goodsmvt_item "pasarle el material
* return = gt_return.
*
* read table gt_return INTO wa_return with key type = 'E'.
*
* if sy-subrc = 0.
* "Imprimo mensaje de Error
* MESSAGE wa_return-message TYPE 'I'.
*
* "stop.
* endif.
*
* if sy-subrc <> 0.
*
* CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
* EXPORTING
* goodsmvt_header = gt_goodsmvt_header
* goodsmvt_code = goodsmvt_code_tmp
* testrun = ''
* IMPORTING
* goodsmvt_headret = gt_goodsmvt_code
* materialdocument = w_mblnr
* matdocumentyear = w_gjahr
* TABLES
* goodsmvt_item = gt_goodsmvt_item
* return = gt_return.
*
*
* CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT = 'X'.
*