Como usar BAPI_GOODSMVT_CREATE para criar um 101 fazendo referência a uma entrega

Olá,

Verifique se isso é útil.

*-Passo 1: Criar entrega de entrada a partir de entrega de saída

Inserir o número da entrega, data e nome do criador
na estrutura impkf

*-- Realizar MIGO usando entrega de saída

wa_imkpf-bldat = goodsrecdate.

wa_imkpf-budat = goodsrecdate.

wa_imkpf-xblnr = deliverynumber.

wa_imkpf-usnam = sy-uname.

DELETAR ws_i_cnt.

*-- Passar todos os detalhes necessários para I_MSEG - detalhes do artigo

DELETAR wa_wueb. ATUALIZAR i_mseg.

LOOP AT i_wueb INTO wa_wueb.

DELETAR wa_lips. DELETAR wa_mseg.

LER TABELA i_lips INTO wa_lips COM CHAVE vbeln = wa_wueb-vbeln

posnr = wa_wueb-vbelp BINARY SEARCH.

SE sy-subrc = 0 E wa_lips-lgnum NE espaço. " apenas para gestão de armazém

ws_i_cnt = ws_i_cnt + 1.

wa_mseg-line_id = ws_i_cnt. " Número da linha

wa_mseg-global_counter = ws_i_cnt. " Número da linha

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

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

wa_mseg-werks = wa_wueb-werks. " Planta

wa_mseg-lgort = wa_wueb-lgort. " Local de armazenamento

wa_mseg-charg = wa_wueb-charg. " Lote

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

Movimento de mercadorias para ordem de compra

wa_mseg-erfmg = wa_wueb-erfmg. " Quantidade

wa_mseg-erfme = wa_wueb-erfme. " UDM

wa_mseg-bprme = wa_wueb-erfme. " UDM

wa_mseg-menge = wa_wueb-erfmg. " Qty.

wa_mseg-meins = wa_wueb-erfme. " UDM

wa_mseg-ebeln = wa_wueb-ebeln. " Núm. do pedido de transferência

wa_mseg-ebelp = wa_wueb-ebelp. " Núm. do item do pedido de transferência

wa_mseg-migo_elikz = 1. " Indicador de finalização da entrega (1 - configurado automaticamente)

wa_mseg-bstmg = wa_wueb-erfmg. " Quantidade

wa_mseg-lgnum = wa_lips-lgnum. " Núm. do armazém

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

wa_mseg-posnr = wa_wueb-vbelp. " Núm. do item de entrega

wa_mseg-lsmng = wa_wueb-erfmg. " Qty.

wa_mseg-lsmeh = wa_wueb-erfme. " UDM

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

*-- Obter Número do Fornecedor de STO

DELETAR wa_ekko.

LER TABELA i_ekko INTO wa_ekko COM CHAVE ebeln = wa_wueb-ebeln BINARY SEARCH.

SE sy-subrc = 0.

wa_mseg-lifnr = wa_ekko-lifnr. " Número do fornecedor

FIM.

wa_mseg-ean11_bme = wa_wueb-ean11. " EAN11

wa_mseg-insmk = espaço. " Tipo de estoque (espaço - Uso não restrito)

wa_mseg-weanz = 1. " Núm. de documentos de entrada/saída a imprimir

Respondido el 15/04/2024

LUCIANO RIOJA GHIOTTO

Se unió el 13/07/2019

Agregar

Desculpe, mas não está funcionando...

Mensagem de erro:

M7 036 Não é possível receber mercadorias para a ordem de compra 81011404 00010

onde 81011404 é o meu número de entrega.

Se eu tentar usar o 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."Item 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. "Item 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

Consulte a documentação do BAPI_GOODSMVT_CREATE para encontrar a resposta.

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: