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
