Sap Material Maestro Historia De Precios En Movimiento Móvil

Registro El control de precios está asociado al material / planta (y tipo de valoración en caso de valoración dividida). Se puede comprobar en los datos maestros de material (MM03) en la vista Contabilidad 1. Precio estándar Precio estándar. Un precio constante al que siempre se valora un material. Los movimientos de mercancías y las facturas no cambian este precio. Incluso si está utilizando el precio S estándar de precio, el promedio móvil se calcula y se almacena en la vista MM03-Contabilidad 1. Funciona como un precio promedio estadístico que deben utilizar los informes de evolución de precios. Ejemplos: valoración GR mediante el uso de los datos de precio estándar antes de la contabilización: Stock antes de la contabilización: 10 PC. Valor antes de la publicación: 200 USD. Precio estándar: 20 USD / PC. Recepción de una orden de compra de 10 PC con un precio de 25 USD / PC (valor neto de orden de compra de 10 PC x 25 USD / PC 250 USD). Valor GR (WRX) GR qty x (PO Valor neto / cantidad de PO) Valor GR (WRX) 10 PC x (250 USD / 10 PC) 250 USD. Cuenta de inventario (BSX) GR qty x (Precio estándar / unidad de precio) Cuenta de valores (BSX) 10 PC x (20 USD / 1 PC) 200 USD. Diferencia de precio (PRD) WRX BSX PRD 250 USD - 200 USD 50 USD. Así que aquí tenemos los siguientes valores para ser contabilizados por la valoración GR: WRX 250 USD - gt Se actualiza en el historial de pedidos (tabla EKBE). BSX 200 USD - gt Se actualiza en el documento de material (tabla MSEG). Datos después de la publicación: Stock después de la publicación: 10 PC 10 PC 20 PC. Valor antes de la contabilización: 200 USD 200 USD 400 USD. Precio medio móvil Precio medio móvil. Un precio que cambia como consecuencia del movimiento de mercancías y de las contabilizaciones de facturas. El precio medio móvil se calcula dividiendo el valor del material por la cantidad de material en stock. Es automáticamente recalculado por el sistema después de cada movimiento de mercancías o entrada de factura. La nota SAP 139176 explica el nuevo cálculo del precio medio móvil. Ejemplos: valoración GR mediante el uso de los datos de precio promedio móvil antes de la contabilización: Stock antes de la publicación: 10 PC. Valor antes de la publicación: 200 USD. Precio medio móvil: 20 USD / PC. Recepción de una orden de compra de 10 PC con un precio de 25 USD / PC (valor neto de orden de compra de 10 PC x 25 USD / PC 250 USD). Valor GR (WRX) GR qty x (PO Valor neto / cantidad de PO) Valor GR (WRX) 10 PC x (250 USD / 10 PC) 250 USD. Cuenta de valores (BSX) Valor GR (WRX) Cuenta de valores (BSX) 250 USD. En este caso el documento contable sería: Datos después de la contabilización: Stock después de la publicación: 10 PC 10 PC 20 PC. Valor antes de la publicación: 200 USD 250 USD 450 USD. Precio medio móvil: 450 USD / 20 PC 22.50 USD / PC. Ledger material y Determinación de precio Si el ledger de materiales se activa para el material, este indicador, junto con el indicador de determinación de precio de materiales, determina a cuál de los siguientes precios se evalúa el material: Precio estándar Precio medio móvil (Precio unitario periódico) Indicador: Herramienta que recopila datos de transacción para materiales cuyos datos maestros se almacenan en el maestro de materiales. La funcionalidad del libro mayor de materiales (una herramienta del área CO) utiliza este indicador para calcular precios para valorar estos materiales en diferentes monedas. El ledger de materiales es la base del cálculo de costos real. Permite que los inventarios de materiales se valoren en múltiples monedas y permite el uso de diferentes enfoques de valoración. Mediante el libro de materiales se puede ver la evolución del precio en tres monedas diferentes. Indicador de determinación de precio: Especifica cómo debe determinarse el precio del material. Valores posibles para Determinación de precio: 2 Basado en transacciones Combinaciones posibles entre Control de precio y Determinación de precio: Unidad periódica Precio: Es un precio que cambia periódicamente como resultado de movimientos de mercancías y entradas de facturas. El precio unitario periódico se calcula dividiendo el valor del material por la cantidad de ese material en el inventario. Hace referencia a la unidad de medida base y unidad de precio en el registro maestro de materiales. El precio unitario periódico se utiliza en la determinación del precio del material de nivel único y multinivel para valorar los materiales para el período cerrado. Para el período actual, el material sigue siendo valorado usando el precio estándar. Puede llevar el precio unitario periódico en hasta tres monedas y tres vistas de valoración. Ejemplo: BRL, EUR, USD Ejemplo de valoración de entrada de mercancías al activar el ledger de materiales. A partir de la versión ECC6.0, Enhancement Package 3 (ECC6.03), se dispone de una nueva lógica de contabilización en el libro de materiales activos para materiales con precio medio móvil. Esta lógica de contabilización corresponde a la lógica de contabilización del libro de materiales inactivo. Para obtener más información, consulte la Nota 1253944. Datos antes de la publicación: Control de precios: V precio medio móvil Stock antes de la publicación: 10 PC. Valor antes de la publicación: 200 MXN. Precio medio móvil 20 MXN / PC. Recepción de una orden de compra de 10 PC con un precio de 30 MXN / PC (valor neto de pedido de 10 PC x 30 MXN / PC 300 MXN). Para un libro de materiales activos, se valora un material de precio medio controlado con una lógica similar al precio estándar: El importe publicado en el documento material corresponde al producto de la cantidad y el precio medio móvil y no al valor asignado externamente del orden de compra. Valor de GR (WRX) GR qty x (Valor neto de PO / cantidad de PO) WRX 10 PC x (300 MXN / 10 PC) 300 MXN Cuenta de inventario (BSX) ) Gt Si el libro de materiales estaba inactivo: Cuenta de stock (BSX) WRX (siempre que la situación actual de valores y valores lo permita) BSX WRX 300 MXN. Gt Con un ledger de material activo: Cuenta de stock (BSX) GR qty x (Precio medio móvil / unidad de precio) BSX 10 PC x (20 MXN / 1 PC) 200 MXN Diferencia de precios (PRD) WRX - BSX PRD 300 MXN 200 MXN 100 MXN Por lo tanto, tenemos las siguientes contabilizaciones en FI: Esto también se publicará en otro documento FI para hacer la liquidación de mayor material. Notas de SAP relacionadas / KBAs 532932 - FAQ: Lógica de valoración con ledger de material activoRegistration El Control de precio está asociado al material / planta (y tipo de valoración en caso de valoración dividida). Se puede comprobar en los datos maestros de material (MM03) en la vista Contabilidad 1. Precio estándar Precio estándar. Un precio constante al que siempre se valora un material. Los movimientos de mercancías y las facturas no cambian este precio. Incluso si está utilizando el precio S estándar de precio, el promedio móvil se calcula y se almacena en la vista MM03-Contabilidad 1. Funciona como un precio promedio estadístico que deben utilizar los informes de evolución de precios. Ejemplos: valoración GR mediante el uso de los datos de precio estándar antes de la contabilización: Stock antes de la contabilización: 10 PC. Valor antes de la publicación: 200 USD. Precio estándar: 20 USD / PC. Recepción de una orden de compra de 10 PC con un precio de 25 USD / PC (valor neto de orden de compra de 10 PC x 25 USD / PC 250 USD). Valor GR (WRX) GR qty x (PO Valor neto / cantidad de PO) Valor GR (WRX) 10 PC x (250 USD / 10 PC) 250 USD. Cuenta de inventario (BSX) GR qty x (Precio estándar / unidad de precio) Cuenta de valores (BSX) 10 PC x (20 USD / 1 PC) 200 USD. Diferencia de precio (PRD) WRX BSX PRD 250 USD - 200 USD 50 USD. Así que aquí tenemos los siguientes valores para ser contabilizados por la valoración GR: WRX 250 USD - gt Se actualiza en el historial de pedidos (tabla EKBE). BSX 200 USD - gt Se actualiza en el documento de material (tabla MSEG). Datos después de la publicación: Stock después de la publicación: 10 PC 10 PC 20 PC. Valor antes de la contabilización: 200 USD 200 USD 400 USD. Precio medio móvil Precio medio móvil. Un precio que cambia como consecuencia del movimiento de mercancías y de las contabilizaciones de facturas. El precio medio móvil se calcula dividiendo el valor del material por la cantidad de material en stock. Es automáticamente recalculado por el sistema después de cada movimiento de mercancías o entrada de factura. La nota SAP 139176 explica el nuevo cálculo del precio medio móvil. Ejemplos: valoración GR mediante el uso de los datos de precio promedio móvil antes de la contabilización: Stock antes de la publicación: 10 PC. Valor antes de la publicación: 200 USD. Precio medio móvil: 20 USD / PC. Recepción de una orden de compra de 10 PC con un precio de 25 USD / PC (valor neto de orden de compra de 10 PC x 25 USD / PC 250 USD). Valor GR (WRX) GR qty x (PO Valor neto / cantidad de PO) Valor GR (WRX) 10 PC x (250 USD / 10 PC) 250 USD. Cuenta de valores (BSX) Valor GR (WRX) Cuenta de valores (BSX) 250 USD. En este caso el documento contable sería: Datos después de la contabilización: Stock después de la publicación: 10 PC 10 PC 20 PC. Valor antes de la publicación: 200 USD 250 USD 450 USD. Precio medio móvil: 450 USD / 20 PC 22.50 USD / PC. Ledger material y Determinación de precio Si el ledger de materiales se activa para el material, este indicador, junto con el indicador de determinación de precio de materiales, determina a cuál de los siguientes precios se evalúa el material: Precio estándar Precio medio móvil (Precio unitario periódico) Indicador: Herramienta que recopila datos de transacción para materiales cuyos datos maestros se almacenan en el maestro de materiales. La funcionalidad del libro mayor de materiales (una herramienta del área CO) utiliza este indicador para calcular precios para valorar estos materiales en diferentes monedas. El ledger de materiales es la base del cálculo de costos real. Permite que los inventarios de materiales se valoren en múltiples monedas y permite el uso de diferentes enfoques de valoración. Mediante el libro de materiales se puede ver la evolución del precio en tres monedas diferentes. Indicador de determinación de precio: Especifica cómo debe determinarse el precio del material. Valores posibles para Determinación de precio: 2 Basado en transacciones Combinaciones posibles entre Control de precio y Determinación de precio: Unidad periódica Precio: Es un precio que cambia periódicamente como resultado de movimientos de mercancías y entradas de facturas. El precio unitario periódico se calcula dividiendo el valor del material por la cantidad de ese material en el inventario. Hace referencia a la unidad de medida base y unidad de precio en el registro maestro de materiales. El precio unitario periódico se utiliza en la determinación del precio del material de nivel único y multinivel para valorar los materiales para el período cerrado. Para el período actual, el material sigue siendo valorado usando el precio estándar. Puede llevar el precio unitario periódico en hasta tres monedas y tres vistas de valoración. Ejemplo: BRL, EUR, USD Ejemplo de valoración de entrada de mercancías al activar el ledger de materiales. A partir de la versión ECC6.0, Enhancement Package 3 (ECC6.03), se dispone de una nueva lógica de contabilización en el libro de materiales activos para materiales con precio medio móvil. Esta lógica de contabilización corresponde a la lógica de contabilización del libro de materiales inactivo. Para obtener más información, consulte la Nota 1253944. Datos antes de la publicación: Control de precios: V precio medio móvil Stock antes de la publicación: 10 PC. Valor antes de la publicación: 200 MXN. Precio medio móvil 20 MXN / PC. Recepción de una orden de compra de 10 PC con un precio de 30 MXN / PC (valor neto de pedido de 10 PC x 30 MXN / PC 300 MXN). Para un libro de materiales activos, se valora un material de precio medio controlado con una lógica similar al precio estándar: El importe publicado en el documento material corresponde al producto de la cantidad y el precio medio móvil y no al valor asignado externamente del orden de compra. Valor de GR (WRX) GR qty x (Valor neto de PO / cantidad de PO) WRX 10 PC x (300 MXN / 10 PC) 300 MXN Cuenta de inventario (BSX) ) Gt Si el libro de materiales estaba inactivo: Cuenta de stock (BSX) WRX (siempre que la situación actual de valores y valores lo permita) BSX WRX 300 MXN. Gt Con un ledger de material activo: Cuenta de stock (BSX) GR qty x (Precio medio móvil / unidad de precio) BSX 10 PC x (20 MXN / 1 PC) 200 MXN Diferencia de precios (PRD) WRX - BSX PRD 300 MXN 200 MXN 100 MXN Por lo tanto, tenemos las siguientes contabilizaciones en FI: Esto también se publicará en otro documento FI para hacer la liquidación de mayor material. Notas de SAP relacionadas / KBAs 532932 - FAQ: Lógica de valoración con ledger de material activoRegistración REPORT ZMATMASTERUPL NINGUNA PÁGINA DE PÁGINA ESTÁNDAR TAMAÑO DE LÍNEA 132 LINE-COUNT 65 MESSAGE-ID ZM. DATOS: BEGIN DE ITUPLOAD efectiva 0, MATNR COMO MARA-MATNR, el material no MBRSH COMO MARA-MBRSH, sector industrial MTART COMO MARA-MTART, tipo de material WERKS como Marc-WERKS, planta LGORT COMO MADR-LGORT, ubicación de almacenamiento MAKTX COMO MAKT - MAKTX, material desc. MEINS COMO MARA-MEINS, la base de la UOM MATKL COMO MARA-MATKL, material de GRP BISMT COMO MARA-BISMT, material antiguo no SPART COMO MARA-SPART, división BRGEW COMO MARA-BRGEW, peso bruto NTGEW COMO MARA-NTGEW, peso neto Gewei COMO MARA-Gewei, unidad de peso VOLUM COMO MARA-VOLUM, el volumen VOLEH COMO MARA-VOLEH, unidad de volumen EKGRP como Marc-EKGRP, el valor de la compra de grp XCHPF COMO MARA-XCHPF, lote MGMT EKWSL COMO MARA-EKWSL, la compra de clave WEBAZ COMO Marc - WEBAZ, GR tiempo de procesamiento DISGR COMO MARC-DISGR, MRP grupo DISMM COMO MARC-DISMM, tipo MRP DISPO COMO MARC-DISPO, MRP controlador MINBE COMO MARC-MINBE, punto de reorden DISLS COMO MARC-DISLS, tamaño de lote BSTRF COMO MARC-BSTRF , Valor de redondeo SOBSL COMO MARC-SOBSL, adquisiciones especiales LGPRO COMO MARC-LGPRO, stor de emisión. Loc LGFSB COMO MARC-LGFSB, stoc. loc para EP PLIFZ como Marc-PLIFZ, plazo de entrega previsto FHORI como Marc-FHORI, la programación de clave de horizonte EISBE como Marc-EISBE, stock de seguridad PERKZ como Marc-PERKZ, indicador de período MTVFP como Marc-MTVFP, consulta de disponibilidad LGPBE COMO MADR-LGPBE , compartimiento de almacenaje ABCIN como Marc-ABCIN, inventario físico CC ind BWTTY COMO MBEW-BWTTY, tipo de valoración BKLAS COMO MBEW-BKLAS, categoría de valoración BWTAR COMO MBEW-BWTAR, clase de valoración VPRSV COMO MBEW-VPRSV, el control de precios VERPR COMO MBEW-VERPR , Precio (MAP / Estándar) FIN DE ITUPLOAD. DATOS: COMIENZO DE ITERROR OCURRE 0, TABIX (10) TIPO N, MATNR COMO MARA-MATNR, ERMSG (255) TIPO C, FIN DE ITERROR. DATOS: VFIELDTEXT (60) TIPO C, VFILENAME COMO RLGRAP-FILENAME, VTABIX COMO SY-TABIX. DATOS: WBGR00 COMO BGR00, WBMM00 COMO BMM00, WBMMH1 COMO BMMH1. 42 ------------------------------------------------- --------------------- 42 42 Selección-Pantalla 42 ----------------------- ----------------------------------------------- 42 SELECCION - PANTALLA COMIENZA DEL BLOQUE B1 CON TÍTULO DE MARCO TEXT-S01. PARAMETERS: PPCFILE COMO RLGRAP-FILENAME OBLIGATORIO, PTYPE COMO RLGRAP-FILETYPE DEFAULT ASC, PTEST COMO CHECKBOX DEFAULT X. SELECCION-PANTALLA FINAL DEL BLOQUE B1. EN SELECCION-PANTALLA EN VALOR-SOLICITUD PARA PPCFILE. DATOS: TIPO DE LFILE TIPO, TFILES TIPO FILETABLE, LSUBRC TIPO I, LTITLE TIPO VALOR DE CADENA Sistema de archivos para Pres. Servidor. Llamar al método CLGUIFRONTENDSERVICESgtFILEOPENDIALOG EXPORTING WINDOWTITLE ltitle defaultFileName LFILE CAMBIO DE EXCEPCIONES FileTable TFILES RC LSUBRC FILEOPENDIALOGFAILED 1 CNTLERROR 2 ERRORNOGUI 3 OTROS 4. TABLA LEER TFILES ÍNDICE 1 EN PPCFILE. 4242 cargar archivo PERFORM UPLOADPCFILE. 4242 comprobación de los datos maestros PERFORM DATACHECKING. 4242 si se ejecuta realmente y si no hay errores de mapeo, cargue los datos CHECK (PTEST IS INITIAL E ITERROR INITIAL). EJECUTAR UPLOADDATA. DATA: ITTEMP (4096) TIPO C OCURRE 0. 42BEGIN SYDK978748 datos: lfile tipo cadena. DATA: LSEPA TIPO C. SI PTYPE DAT. LSEPA X. OTRO. LSEPA. TERMINARA SI. Llamada a la función GUIUPLOAD EXPORTANDO nombre de archivo lfile tipo de archivo ASC hasfieldseparator LSEPA 42 SYDK981609 TABLAS ficha Datos EXCEPCIONES ITTEMP fileopenerror 1 filereaderror 2 nobatch 3 guirefusefiletransfer 4 invalidtype 5 noauthority 6 UnknownError 7 baddataformat 8 headernotallowed 9 separatornotallowed 10 headertoolong 11 unknowndperror 12 AccessDenied 13 dpoutofmemory 14 diskfull 15 dptimeout 16 OTROS 17 . 42 llamada a la función WSUPLOAD 42 EXPORTADORES 42 FILENAME PPCFILE 42 FILETYPE PTYPE 42 TABLAS 42 ficha Datos ITTEMP 42 EXCEPCIONES 42 CONVERSIONERROR 1 42 2 42 INVALIDTABLEWIDTH INVALIDTYPE 3 42 4 42 NOBATCH UnknownError 5 42 6 42 FILEOPENERROR FILEREADERROR 7 42 8. OTROS 42END SYDK978748 SI SY SUBRC NE 0. MENSAJE S318 CON TEXTO-E01 PPCFILE. TERMINARA SI. FUNCION DE LLAMADA TEXTCONVERTTEXTOSAP EXPORTADOR IFIELDSEPERATOR, 42 ILINEHEADER ITABRAWDATA ITTEMP 42 IFILENAME ppcfile TABLAS ITABCONVERTEDDATA ITUPLOAD 42 EXCEPCIONES 42 CONVERSIONFAILED 1 42 OTROS 2. SI SY-SUBRC NE 0. MENSAJE S318 CON TEXTO-E04 PPCFILE. TERMINARA SI. BUCLE EN EL ITUPLOAD. VTABIX SY-TABIX. 42 realizar checkmara. EJECUTAR CHECKT137. EJECUTAR CHECKT134. REALICE CHECKT001W. REALICE CHECKT001L. EJECUTAR CHECKT006. REALICE CHECKT023. EJECUTAR CHECKTSPA. REALICE CHECKT024. REALICE CHECKT438M. REALICE CHECKT438A. REALICE CHECKT024D. REALICE CHECKT439A. REALICE CHECKT460A. REALICE CHECKT436A. REALICE EL CONTROLTMVF. REALICE CHECKT159C. EJECUTAR CHECKT149. EJECUTE CHECKT025. REALICE EL PREDICADOR DE CONTROL. ENDLOOP. FUNCIÓN DE LLAMADAS TBDATAELEMENTGETTEXTS NOMBRE EXPORTADOR PFIELDNAME IMPORTACIÓN DESCRIPCIÓN PTEXT EXCEPCIONES NOTFOUND 1 OTROS 2. SI SY-SUBRC ltgt 0. ID DE MENSAJE SY-MSGID TIPO SY-MSGTY NUMERO SY-MSGNO CON SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. TERMINARA SI. SELECCIONE SENCILLA DE T137 DONDE MBRSH ITUPLOAD-MBRSH. IF SY-SUBRC ltgt 0. REALICE KEEPDATAERROR USANDO MBRSH ITUPLOAD-MBRSH ESPACIO. TERMINARA SI. SELECCIONE SINGLE DE T134 DONDE MTART ITUPLOAD-MTART. IF SY-SUBRC ltgt 0. REALICE KEEPDATAERROR USANDO EL ESPACIO MTART ITUPLOAD-MTART. TERMINARA SI. MUEVA VTABIX A ITERROR-TABIX. MOVER ITUPLOAD-MATNR A ITERROR-MATNR. REALICE GETFIELDDESCRIPTION USANDO PFIELDNAME CAMBIANDO VFIELDTEXT. CONCATENADO TEXTO-T01 VFIELDTEXT: PWERKS PFIELDVALUE EN ITERROR-ERMSG SEPARADO POR ESPACIO. APÉNDICE ITERROR. SELECCIONE SINGLE DE T001W DONDE WERKS ITUPLOAD-WERKS. SI SY-SUBRC ltgt 0. REALICE KEEPDATAERROR USANDO WERKSD ITUPLOAD-WERKS SPACE. TERMINARA SI. 4242 Ubicación de almacenamiento PERFORM CHECKSTORLOC USING LGORTD ITUPLOAD-LGORT. 4242 Problema Stor. Ubicación SI NO ITUPLOAD-LGPRO ES INICIAL. REALICE CHECKSTORLOC USANDO LGPRO ITUPLOAD-LGPRO. TERMINARA SI. 4242 Stor. Loc para EP SI NO ITUPLOAD-LGFSB ES INICIAL. REALICE CHECKSTORLOC USANDO LGFSB ITUPLOAD-LGFSB. TERMINARA SI. 4242 Base UOM REALIZAR CHECKUOM USANDO MEINS ITUPLOAD-MEINS. 4242 Unidad de peso SI NO ITUPLOAD-GEWEI ES INICIAL. EJECUTAR EL CHECKUOM USANDO GEWEI ITUPLOAD-GEWEI. TERMINARA SI. 4242 Unidad de volumen SI NO ES INCLUYE INICIAL. Efectuar la comprobación utilizando VOLEH ITUPLOAD-VOLEH. TERMINARA SI. SELECCIONE SINGLE DE T006 DONDE MSEHI PFIELDVALUE. IF SY-SUBRC ltgt 0. REALICE KEEPDATAERROR USANDO PFIELDNAME PFIELDVALUE SPACE. TERMINARA SI. SELECCIONE SINGLE DE T023 DONDE MATKL ITUPLOAD-MATKL. SI SY-SUBRC ltgt 0. REALICE KEEPDATAERROR USANDO MATKL ITUPLOAD-MATKL SPACE. TERMINARA SI. CHECK NOT ITUPLOAD-SPART ES INICIAL. SELECCIONE SINGLE FROM TSPA DONDE SPART ITUPLOAD-SPART. SI SY-SUBRC ltgt 0. REALICE KEEPDATAERROR USANDO SPART ITUPLOAD-SPART SPACE. TERMINARA SI. SELECCIONE SINGLE DE T024 DONDE EKGRP ITUPLOAD-EKGRP. IF SY-SUBRC ltgt 0. REALICE KEEPDATAERROR USANDO EKGRP ITUPLOAD-EKGRP SPACE. TERMINARA SI. CHECK NOT ITUPLOAD-DISGR ES INICIAL. SELECCIONE SINGLE DE T438M DONDE WERKS ITUPLOAD-WERKS Y MTART ITUPLOAD-DISGR. SI SY-SUBRC ltgt 0. REALICE KEEPDATAERROR USANDO DISGR ITUPLOAD-DISGR ITUPLOAD-WERKS. TERMINARA SI. SELECCIONE SINGLE DE T438A DONDE DISMM ITUPLOAD-DISMM. Si SY-SUBRC ltgt 0. REALICE KEEPDATAERROR USANDO DISMM ITUPLOAD-DISMM SPACE. TERMINARA SI. SELECCIONE SENCILLA DE T024D DONDE TRABAJA CON LOS SISTEMAS DE TRABAJO Y DISPOSICIÓN. SI SY-SUBRC ltgt 0. REALICE EL KEEPDATAERROR USANDO DISPO ITUPLOAD-DISPO ITUPLOAD-WERKS. TERMINARA SI. CHECK NOT ITUPLOAD-SOBSL ES INICIAL. SELECCIONE SINGLE DE T460A DONDE WERKS ITUPLOAD-WERKS Y SOBSL ITUPLOAD-SOBSL. IF SY-SUBRC ltgt 0. REALIZAR KEEPDATAERROR USANDO SOBSL ITUPLOAD-SOBSL ITUPLOAD-WERKS. TERMINARA SI. SELECCIONE SINGLE DE T001L DONDE WERKS ITUPLOAD-WERKS Y LGORT PFIELDVALUE. IF SY-SUBRC ltgt 0. REALIZAR KEEPDATAERROR USANDO PFIELDNAME PFIELDVALUE ITUPLOAD-WERKS. TERMINARA SI. SELECCIONE SINGLE DE T436A DONDE WERKS ITUPLOAD-WERKS Y FHORI ITUPLOAD-FHORI. IF SY-SUBRC ltgt 0. REALICE KEEPDATAERROR USANDO FHORI ITUPLOAD-FHORI ITUPLOAD-WERKS. TERMINARA SI. SELECCIONE SINGLE DE TMVF DONDE MTVFP ITUPLOAD-MTVFP. IF SY-SUBRC ltgt 0. REALICE KEEPDATAERROR USANDO MTVFP ITUPLOAD-MTVFP SPACE. TERMINARA SI. CHECK NOT ITUPLOAD-ABCIN ES INICIAL. SELECCIONE SINGLE DE T159C DONDE WERKS ITUPLOAD-WERKS Y ABCIN ITUPLOAD-ABCIN. SI SY-SUBRC ltgt 0. REALICE EL KEEPDATAERROR USANDO ABCIN ITUPLOAD-ABCIN ITUPLOAD-WERKS. TERMINARA SI. CHECK NOT ITUPLOAD-BWTTY ES INICIAL. SELECCIONE SINGLE DE T149 DONDE BWKEY ITUPLOAD-WERKS Y BWTTY ITUPLOAD-BWTTY. IF SY-SUBRC ltgt 0. REALIZAR KEEPDATAERROR USANDO BWTTYD ITUPLOAD-BWTTY ITUPLOAD-WERKS. TERMINARA SI. SELECCIONE SINGLE DE T025 DONDE BKLAS ITUPLOAD-BKLAS. SI SY-SUBRC ltgt 0. REALICE KEEPDATAERROR USANDO BKLAS ITUPLOAD-BKLAS SPACE. TERMINARA SI. IF (ITUPLOAD-VPRSV ltgt CMAP e ITUPLOAD-VPRSV ltgt CSTNP). REALICE EL KEEPDATAERROR USANDO VPRSV ITUPLOAD-VPRSV SPACE. TERMINARA SI. 4242 archivo abierto en UNIX para la salida PERFORM OPENUNIXFILE. Registro de cabecera 4242 WBGR00-STYPE 0. WBGR00-GROUP MATERIALMASTERUPLOAD. WBGR00-MANDT SY-MANDT. WBGR00-USNAM SY-UNAME. TRANSFERENCIA WBGR00 A VFILENAME. 4242 carga datos en las estructuras de entrada directa 4242 en el archivo UNIX LOOP AT ITUPLOAD. WBMM00-STYPE 1. WBMM00-TCODE MM01. WBMM00-XEIK1 X. WBMM00-XEIE1 X. WBMM00-XEID1 X. WBMM00-XEID2 X. WBMM00-XEID3 X. WBMM00-XEIL1 X. WBMM00-XEIB1 X. SELECT single del MARA DONDE MATNR EQ-ITUPLOAD MATNR. SI SY-SUBRC EQ 0. CLEAR WBMM00-XEIK1. TERMINARA SI. 4242 Fin de la adición MOVE-CORRESPONDING ITUPLOAD TO WBMM00. TRANSFERENCIA WBMM00 A VFILENAME. WBMMH1-STYPE 2. MOVER CORRECCIÓN DE ITUPLOAD A WBMMH1. SI ITUPLOAD-VPRSV S. CLARO WBMMH1-VERPR. MUEVA ITUPLOAD-VERPR A WBMMH1-STPRS. TERMINARA SI. TRANSFERENCIA WBMMH1 A VFILENAME. CLARO. WBMM00, WBMMH1. ENDLOOP. 4242 llamado programa de entrada directa para crear los materiales de 4242 a partir del archivo de UNIX pueden enviar RMDATIND y volver con LDSNAME CLOGICALFILE CON Sperr E. llamada a la función FILEGETNAME EXPORTING LOGICALFILENAME CLOGICALFILE IMPORTACIÓN EXCEPCIONES FILENAME VFILENAME FileNotFound 1 OTROS 2. Si SY-SUBRC ltgt 0. MENSAJE CON E318 TEXTO-E02 FICHA CLOGICAL. MÁS. 42BEGIN SYDK978748 42 OPEN DATASET VFILENAME PARA SALIR EN MODO DE TEXTO. OPEN DATASET VFILENAME PARA SALIR EN EL MODO DE TEXTO LEGADO. 42END SYDK978748 SI SY-SUBRC EQ 0. 42 elimine el archivo existente y cree uno nuevo DELETE DATASET VFILENAME. 42BEGIN SYDK978748 42 OPEN DATASET VFILENAME PARA SALIR EN MODO DE TEXTO. OPEN DATASET VFILENAME PARA SALIR EN EL MODO DE TEXTO LEGADO. 42END ASYDK978748 ENDIF. TERMINARA SI. DATOS: VTABIX COMO ITERROR-TABIX. SI ITERROR ES INICIAL Y PTEST X. MENSAJE S105 CON TEXTO-S01. TERMINARA SI. CHECK NO ITERROR ES INICIAL. WRITE: / TEXT-H01. ULINE. BUCLE EN ITERROR. IF VTABIX ltgt ITERROR-TABIX. VTABIX ITERROR-TABIX. ESCRITURA: / TEXT-R01 INTENSIFICÓ OFF, ITERROR-TABIX se intensificó el, TEXT-R02 INTENSIFICÓ OFF, ITERROR-MATNR se intensificó el. MÁS. CONTINUAR. TERMINARA SI. FORMATO COLOR COLNEGATIVO INTENSIFICADO DESACTIVADO. LOOP EN ITERROR DONDE TABIX VTABIX. ESCRIBIR: / 12 ITERROR-ERMSG. ENDLOOP. FORMATO COLOR DESACTIVADO. ENDLOOP. SELECCIONE SINGLE DE T439A DONDE DISLS ITUPLOAD-DISLS. SI SY-SUBRC ltgt 0. REALICE KEEPDATAERROR USANDO DISLS ITUPLOAD-DISLS SPACE. TERMINARA SI. SELECCIONE SINGLE DE MARA DONDE MATNR ITUPLOAD-MATNR. SI SY-SUBRC 0. MUEVA VTABIX A ITERROR-TABIX. MOVER ITUPLOAD-MATNR A ITERROR-MATNR. Concatenar TEXT-T02-ITUPLOAD MATNR TEXTO EN-T03-ITERROR ERMSG separados por un espacio. APÉNDICE ITERROR. TERMINARA SI.