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
<