Cómo utilizar BAPI_GOODSMVT_CREATE para crear un 101 haciendo referencia a una entrega

Hola,

Verifica si esto es útil.

*-Paso 1: Crear entrega entrante desde entrega saliente

Ingresar el número de entrega, fecha y nombre del creador
a la estructura impkf

*-- Realizar MIGO utilizando entrega saliente

wa_imkpf-bldat = goodsrecdate.

wa_imkpf-budat = goodsrecdate.

wa_imkpf-xblnr = deliverynumber.

wa_imkpf-usnam = sy-uname.

BORRAR ws_i_cnt.

*-- Pasar todos los detalles necesarios a I_MSEG - detalles de artículo

BORRAR wa_wueb. REFRESCAR i_mseg.

LOOP AT i_wueb INTO wa_wueb.

BORRAR wa_lips. BORRAR wa_mseg.

LEER TABLA i_lips INTO wa_lips CON CLAVE vbeln = wa_wueb-vbeln

posnr = wa_wueb-vbelp BINARY SEARCH.

SI sy-subrc = 0 Y wa_lips-lgnum NE espacio. " solo para gestión de almacén

ws_i_cnt = ws_i_cnt + 1.

wa_mseg-line_id = ws_i_cnt. " Número de línea

wa_mseg-global_counter = ws_i_cnt. " Número de línea

wa_mseg-bwart = '101'. " Tipo de movimiento

wa_mseg-matnr = wa_wueb-matnr. " Número de material

wa_mseg-werks = wa_wueb-werks. " Planta

wa_mseg-lgort = wa_wueb-lgort. " Ubicación de almacenamiento

wa_mseg-charg = wa_wueb-charg. " Lote

wa_mseg-kzbew = c_b. " Indicador de movimiento (B indica

Movimiento de mercancías para orden de compra)

wa_mseg-erfmg = wa_wueb-erfmg. " Cantidad

wa_mseg-erfme = wa_wueb-erfme. " UDM

wa_mseg-bprme = wa_wueb-erfme. " UDM

wa_mseg-menge = wa_wueb-erfmg. " Cant.

wa_mseg-meins = wa_wueb-erfme. " UDM

wa_mseg-ebeln = wa_wueb-ebeln. " Núm. de pedido de traslado

wa_mseg-ebelp = wa_wueb-ebelp. " Núm. de ítem de pedido de traslado

wa_mseg-migo_elikz = 1. " Indicador de finalización de entrega (1 - configurado automáticamente)

wa_mseg-bstmg = wa_wueb-erfmg. " Cantidad

wa_mseg-lgnum = wa_lips-lgnum. " Núm. de almacén

wa_mseg-vbeln = wa_wueb-vbeln. " Núm. de entrega

wa_mseg-posnr = wa_wueb-vbelp. " Núm. de ítem de entrega

wa_mseg-lsmng = wa_wueb-erfmg. " Cant.

wa_mseg-lsmeh = wa_wueb-erfme. " UDM

wa_mseg-bukrs = wa_wueb-ekorg. " Org. de compra

*-- Obtener Número de Proveedor de STO

BORRAR wa_ekko.

LEER TABLA i_ekko INTO wa_ekko CON CLAVE ebeln = wa_wueb-ebeln BINARY SEARCH.

SI sy-subrc = 0.

wa_mseg-lifnr = wa_ekko-lifnr. " Número de proveedor

FIN.

wa_mseg-ean11_bme = wa_wueb-ean11. " EAN11

wa_mseg-insmk = espacio. " Tipo de stock (espacio - Uso no restringido)

wa_mseg-weanz = 1. " Número de documentos de entrada/salida a imprimir

Respondido el 15/04/2024

LUCIANO RIOJA GHIOTTO

Se unió el 13/07/2019

Agregar

Lo siento, pero no funciona...

Mensaje de error:

M7 036 No es posible el recibo de mercancías para la orden de compra 81011404 00010

donde 81011404 es mi número de entrega.

¡Si intento usar MIGO (manualmente) funciona!

Respondido el 15/04/2024

LUCIANO RIOJA GHIOTTO

Se unió el 13/07/2019

Agregar



 wa_header-pstng_date = sy-datum.
  wa_header-doc_date = sy-datum.
  wa_header-ref_doc_no = v_no. "Número de entrega

 wa_item-material = v_matnr. "Material
  wa_item-plant = v_plant."Planta
  wa_item-stge_loc = v_sloc."Ubicación de almacenamiento
  wa_item-batch = v_charg. "Lote
  wa_item-entry_qnt = v_qty. "Cantidad
  wa_item-entry_uom_iso = v_uom. "Unidad de medida
  wa_item-deliv_numb = v_no."Número de entrega No
  wa_item-deliv_item = wa_lips-posnr."Ítem de entrega No
  wa_item-mvt_ind = 'B'.
  wa_item-move_type ='101'.
  wa_item-po_number = wa_lips-vgbel. "Número de pedido
  wa_item-po_item = wa_lips-vgpos. "Ítem de pedido
  APPEND wa_item TO i_item.
  CLEAR wa_item.

  wa_serial-matdoc_itm = '1'. 
  wa_serial-serialno = v_sernr.
  APPEND wa_serial TO i_serial.
  CLEAR wa_serial.

  CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
    EXPORTING
      goodsmvt_header       = wa_header
      goodsmvt_code         = c_bapi_gm_code01
    IMPORTING
      materialdocument      = v_matdoc
    TABLES
      goodsmvt_item         = i_item
      goodsmvt_serialnumber = i_serial
      return                = i_ret.

Respondido el 15/04/2024

LUCIANO RIOJA GHIOTTO

Se unió el 13/07/2019

Agregar

Consulta la documentación de BAPI_GOODSMVT_CREATE para encontrar la respuesta.

Respondido el 15/04/2024

LUCIANO RIOJA GHIOTTO

Se unió el 13/07/2019

Agregar

4 Respuestas

Etiquetas más populares

Preguntas más populares

Partners: