#1
|
|||
|
|||
BAPI_GOODSMVT_CREATE por favor ayuda
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'. * |
Herramientas | Buscar en Tema |
Desplegado | |
|
|