Hola, yo justo tengo un programa que hice para la creación de materiales mediante un archivo excel... pero por acá no te puedo mandar el archivo
Si me pasas tu correo te lo mando ahi... de todas maneras te mando el código del programa
*&---------------------------------------------------------------------*
*& Programa: ZMM_CARGA_MATERIALES *
*& Analista Programador : Claudia Valdespino Alvarez - TSnet S.A. *
*& Descripcion : Programa de carga de maestro de materiales *
*& empleando la bapi BAPI_MATERIAL_SAVEDATA. *
*& Fecha : 25-05-2006 *
*&---------------------------------------------------------------------*
REPORT ZMM_CARGA_MATERIALES MESSAGE-ID SABAPDOCU.
*&---------------------------------------------------------------------*
*& DECLARACION DE TABLAS INTERNAS
*&---------------------------------------------------------------------*
DATA: BEGIN OF T1_EXCEL OCCURS 0.
INCLUDE STRUCTURE ALSMEX_TABLINE.
DATA: END OF T1_EXCEL.
DATA: WA_BAPI_MAKT LIKE BAPI_MAKT OCCURS 0 WITH HEADER LINE,
WA_BAPI_MATRETURN LIKE BAPI_MATRETURN2 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF BDCDATA OCCURS 0.
INCLUDE STRUCTURE BDCDATA.
DATA: END OF BDCDATA.
DATA: BEGIN OF MESSTAB OCCURS 10.
INCLUDE STRUCTURE BDCMSGCOLL.
DATA: END OF MESSTAB.
*&---------------------------------------------------------------------*
*& DECLARACION DE ESTRUCTURAS
*&---------------------------------------------------------------------*
DATA: BEGIN OF T_MATERIAL OCCURS 0,
MATERIAL LIKE BAPIMATHEAD-MATERIAL,
IND_SECTOR LIKE BAPIMATHEAD-IND_SECTOR,
MATL_TYPE LIKE BAPIMATHEAD-MATL_TYPE,
PLANT LIKE BAPI_MARC-PLANT,
LANGU_ISO LIKE BAPI_MAKT-LANGU_ISO,
MATL_DESC LIKE BAPI_MAKT-MATL_DESC,
BASE_UOM LIKE BAPI_MARA-BASE_UOM,
MATL_GROUP LIKE BAPI_MARA-MATL_GROUP,
EXTMATLGRP LIKE BAPI_MARA-EXTMATLGRP,
PUR_GROUP LIKE BAPI_MARC-PUR_GROUP,
MRP_GROUP LIKE BAPI_MARC-MRP_GROUP,
MRP_TYPE LIKE BAPI_MARC-MRP_TYPE,
FORE_MODEL LIKE BAPI_MPOP-FORE_MODEL,
SERNO_PROF LIKE BAPI_MARC-SERNO_PROF,
SERIALIZATION_LEVEL LIKE BAPI_MARA-SERIALIZATION_LEVEL,
VAL_CLASS LIKE BAPI_MBEW-VAL_CLASS,
TECNOLOGIA(30) TYPE C,
FABRICANTE(30) TYPE C,
MODELO(30) TYPE C,
CAPACIDAD(30) TYPE C,
TIPO_UMA(30) TYPE C,
DIMENSION(30) TYPE C,
NIVELES_NUMERO(30) TYPE C,
SAC(4) TYPE C,
END OF T_MATERIAL.
DATA: BEGIN OF WA_MAT,
MATERIAL LIKE BAPIMATHEAD-MATERIAL,
IND_SECTOR LIKE BAPIMATHEAD-IND_SECTOR,
MATL_TYPE LIKE BAPIMATHEAD-MATL_TYPE,
PLANT LIKE BAPI_MARC-PLANT,
LANGU_ISO LIKE BAPI_MAKT-LANGU_ISO,
MATL_DESC LIKE BAPI_MAKT-MATL_DESC,
BASE_UOM LIKE BAPI_MARA-BASE_UOM,
MATL_GROUP LIKE BAPI_MARA-MATL_GROUP,
EXTMATLGRP LIKE BAPI_MARA-EXTMATLGRP,
PUR_GROUP LIKE BAPI_MARC-PUR_GROUP,
MRP_GROUP LIKE BAPI_MARC-MRP_GROUP,
MRP_TYPE LIKE BAPI_MARC-MRP_TYPE,
FORE_MODEL LIKE BAPI_MPOP-FORE_MODEL,
SERNO_PROF LIKE BAPI_MARC-SERNO_PROF,
SERIALIZATION_LEVEL LIKE BAPI_MARA-SERIALIZATION_LEVEL,
VAL_CLASS LIKE BAPI_MBEW-VAL_CLASS,
TECNOLOGIA(30) TYPE C,
FABRICANTE(30) TYPE C,
MODELO(30) TYPE C,
CAPACIDAD(30) TYPE C,
TIPO_UMA(30) TYPE C,
DIMENSION(30) TYPE C,
NIVELES_NUMERO(30) TYPE C,
SAC(4) TYPE C,
END OF WA_MAT.
DATA: WA_BAPIMATHEAD LIKE BAPIMATHEAD,
WA_BAPI_MARA LIKE BAPI_MARA,
WA_BAPI_MARAX LIKE BAPI_MARAX,
WA_BAPI_MARC LIKE BAPI_MARC,
WA_BAPI_MARCX LIKE BAPI_MARCX,
WA_BAPI_MPOP LIKE BAPI_MPOP,
WA_BAPI_MPOPX LIKE BAPI_MPOPX,
WA_BAPI_MBEW LIKE BAPI_MBEW,
WA_BAPI_MBEWX LIKE BAPI_MBEWX.
*&---------------------------------------------------------------------*
*& DECLARACION DE VARIABLES
*&---------------------------------------------------------------------*
DATA: W_MODE(1) TYPE C VALUE 'N',
W_MATERIAL_TYPE LIKE BAPIMATDOA-MATL_TYPE,
W_INDSECTOR LIKE BAPIMATDOA-IND_SECTOR,
T_BAPIMATNR LIKE BAPIMATINR OCCURS 0 WITH HEADER LINE,
W_FLAG(1) TYPE C,
W_LINES TYPE I,
W_CONT TYPE I.
*&---------------------------------------------------------------------*
*& PANTALLA DE SELECCION
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
PARAMETER: P_ARCH LIKE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK B1.
*&---------------------------------------------------------------------*
*& AT SELECTION-SCREEN
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_ARCH.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
STATIC = 'X'
CHANGING
FILE_NAME = P_ARCH
EXCEPTIONS
MASK_TOO_LONG = 1
OTHERS = 2.
*&---------------------------------------------------------------------*
*& START-OF-SELECTION
*&---------------------------------------------------------------------*
START-OF-SELECTION.
IF P_ARCH IS INITIAL.
MESSAGE S888 WITH 'Debe seleccionar una ruta.'.
ELSE.
PERFORM CARGA_ARCHIVO.
PERFORM CARGA_ESTRUCTURA.
ENDIF.
*&---------------------------------------------------------------------*
*& Form carga_archivo
*&---------------------------------------------------------------------*
FORM CARGA_ARCHIVO .
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = P_ARCH
I_BEGIN_COL = '1'
I_BEGIN_ROW = '1'
I_END_COL = '23'
I_END_ROW = '65536'
TABLES
INTERN = T1_EXCEL
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.
IF SY-SUBRC <> 0 .
MESSAGE S000 WITH 'Error en la carga de datos'.
STOP.
ENDIF.
LOOP AT T1_EXCEL.
CASE T1_EXCEL-COL.
WHEN 1.
T_MATERIAL-IND_SECTOR = T1_EXCEL-VALUE. "Ramo
WHEN 2.
T_MATERIAL-MATL_TYPE = T1_EXCEL-VALUE. "Tipo de Material
WHEN 3.
T_MATERIAL-PLANT = T1_EXCEL-VALUE. "Centro
WHEN 4.
T_MATERIAL-LANGU_ISO = T1_EXCEL-VALUE. "Idioma
WHEN 5.
T_MATERIAL-MATL_DESC = T1_EXCEL-VALUE. "Texto breve de material
WHEN 6.
T_MATERIAL-BASE_UOM = T1_EXCEL-VALUE. "Unidad de Medida Base
WHEN 7.
T_MATERIAL-MATL_GROUP = T1_EXCEL-VALUE. "Grupo de Articulos
WHEN 8.
T_MATERIAL-EXTMATLGRP = T1_EXCEL-VALUE. "Grupo de Articulo Externo
WHEN 9.
T_MATERIAL-PUR_GROUP = T1_EXCEL-VALUE. "Grupo de Compras
WHEN 10.
T_MATERIAL-MRP_GROUP = T1_EXCEL-VALUE. "Grupo de planificación de necesidades
WHEN 11.
T_MATERIAL-MRP_TYPE = T1_EXCEL-VALUE. "Característica de planificación de necesidades
WHEN 12.
T_MATERIAL-FORE_MODEL = T1_EXCEL-VALUE. "Modelo de pronóstico
WHEN 13.
T_MATERIAL-SERNO_PROF = T1_EXCEL-VALUE. "Perfil de No Serie
WHEN 14.
T_MATERIAL-SERIALIZATION_LEVEL = T1_EXCEL-VALUE. "Nivel
WHEN 15.
T_MATERIAL-VAL_CLASS = T1_EXCEL-VALUE. "Categoría de valoración
WHEN 16.
T_MATERIAL-TECNOLOGIA = T1_EXCEL-VALUE. "Caracteristica Tecnología
WHEN 17.
T_MATERIAL-FABRICANTE = T1_EXCEL-VALUE. "Caracteristica Fabricante
WHEN 18.
T_MATERIAL-MODELO = T1_EXCEL-VALUE. "Caracteristica Modelo
WHEN 19.
T_MATERIAL-CAPACIDAD = T1_EXCEL-VALUE. "Caracteristica Capacidad
WHEN 20.
T_MATERIAL-TIPO_UMA = T1_EXCEL-VALUE. "Caracteristica Tipo-Uma
WHEN 21.
T_MATERIAL-DIMENSION = T1_EXCEL-VALUE. "Caracteristica Dimensión
WHEN 22.
T_MATERIAL-NIVELES_NUMERO = T1_EXCEL-VALUE. "Caracteristica Niveles_Número
WHEN 23.
T_MATERIAL-SAC = T1_EXCEL-VALUE. "Categoria de clase
ENDCASE.
AT END OF ROW.
APPEND T_MATERIAL.
CLEAR T_MATERIAL.
ENDAT.
ENDLOOP.
ENDFORM. " carga_arhivo
*&---------------------------------------------------------------------*
*& Form carga_estructura
*&---------------------------------------------------------------------*
FORM CARGA_ESTRUCTURA .
LOOP AT T_MATERIAL INTO WA_MAT.
REFRESH: T_BAPIMATNR[], WA_BAPI_MATRETURN[], WA_BAPI_MAKT[], MESSTAB[].
CLEAR: WA_BAPIMATHEAD, WA_BAPI_MARA, WA_BAPI_MARC, WA_BAPI_MPOP,
WA_BAPI_MBEW, T_BAPIMATNR, WA_BAPI_MATRETURN, WA_BAPI_MAKT,
W_MATERIAL_TYPE, W_INDSECTOR, MESSTAB, W_FLAG.
* Tipo de material que no tiene vistas de planificación de necesidades ni pronósticos
IF WA_MAT-MATL_TYPE = '0673'.
* Segmento de cabecera con info de control
WA_BAPIMATHEAD-IND_SECTOR = WA_MAT-IND_SECTOR.
WA_BAPIMATHEAD-MATL_TYPE = WA_MAT-MATL_TYPE.
WA_BAPIMATHEAD-BASIC_VIEW = 'X'. "Vista de datos básicos
WA_BAPIMATHEAD-PURCHASE_VIEW = 'X'. "Vista de compras
WA_BAPIMATHEAD-STORAGE_VIEW = 'X'. "Vista de almacén
WA_BAPIMATHEAD-QUALITY_VIEW = 'X'. "Vista de gestión de calidad
WA_BAPIMATHEAD-ACCOUNT_VIEW = 'X'. "Vista de contabilidad
ELSE.
W_FLAG = 'X'.
* Segmento de cabecera con info de control
WA_BAPIMATHEAD-IND_SECTOR = WA_MAT-IND_SECTOR.
WA_BAPIMATHEAD-MATL_TYPE = WA_MAT-MATL_TYPE.
WA_BAPIMATHEAD-BASIC_VIEW = 'X'. "Vista de datos básicos
WA_BAPIMATHEAD-PURCHASE_VIEW = 'X'. "Vista de compras
WA_BAPIMATHEAD-MRP_VIEW = 'X'. "Vista de planificación de necesidades
WA_BAPIMATHEAD-FORECAST_VIEW = 'X'. "Vista de pronósticos
WA_BAPIMATHEAD-STORAGE_VIEW = 'X'. "Vista de almacén
WA_BAPIMATHEAD-QUALITY_VIEW = 'X'. "Vista de gestión de calidad
WA_BAPIMATHEAD-ACCOUNT_VIEW = 'X'. "Vista de contabilidad
ENDIF.
* Datos material a nivel de mandante
WA_BAPI_MARA-BASE_UOM = WA_MAT-BASE_UOM.
WA_BAPI_MARA-MATL_GROUP = WA_MAT-MATL_GROUP.
WA_BAPI_MARA-EXTMATLGRP = WA_MAT-EXTMATLGRP.
WA_BAPI_MARA-SERIALIZATION_LEVEL = WA_MAT-SERIALIZATION_LEVEL.
WA_BAPI_MARAX-BASE_UOM = WA_MAT-BASE_UOM.
WA_BAPI_MARAX-MATL_GROUP = WA_MAT-MATL_GROUP.
WA_BAPI_MARAX-EXTMATLGRP = WA_MAT-EXTMATLGRP.
WA_BAPI_MARAX-SERIALIZATION_LEVEL = WA_MAT-SERIALIZATION_LEVEL.
* Datos material a nivel de centro
WA_BAPI_MARC-PLANT = WA_MAT-PLANT.
WA_BAPI_MARC-PUR_GROUP = WA_MAT-PUR_GROUP.
WA_BAPI_MARC-SERNO_PROF = WA_MAT-SERNO_PROF.
WA_BAPI_MARCX-PLANT = WA_MAT-PLANT.
WA_BAPI_MARCX-PUR_GROUP = WA_MAT-PUR_GROUP.
WA_BAPI_MARCX-SERNO_PROF = WA_MAT-SERNO_PROF.
IF W_FLAG = 'X'.
* Datos material a nivel de centro
WA_BAPI_MARC-MRP_GROUP = WA_MAT-MRP_GROUP.
WA_BAPI_MARC-MRP_TYPE = WA_MAT-MRP_TYPE.
WA_BAPI_MARCX-MRP_GROUP = WA_MAT-MRP_GROUP.
WA_BAPI_MARCX-MRP_TYPE = WA_MAT-MRP_TYPE.
* Parám.pronóstico
WA_BAPI_MPOP-PLANT = WA_MAT-PLANT.
WA_BAPI_MPOP-FORE_MODEL = WA_MAT-FORE_MODEL.
WA_BAPI_MPOPX-PLANT = WA_MAT-PLANT.
WA_BAPI_MPOPX-FORE_MODEL = WA_MAT-FORE_MODEL.
ENDIF.
* Datos valoración
WA_BAPI_MBEW-VAL_CLASS = WA_MAT-VAL_CLASS.
WA_BAPI_MBEW-VAL_AREA = 'TP00'.
WA_BAPI_MBEWX-VAL_CLASS = WA_MAT-VAL_CLASS.
WA_BAPI_MBEWX-VAL_AREA = 'TP00'.
* Datos material
WA_BAPI_MAKT-LANGU_ISO = WA_MAT-LANGU_ISO.
WA_BAPI_MAKT-MATL_DESC = WA_MAT-MATL_DESC.
* Pasa tipo de material y ramo a variables
W_MATERIAL_TYPE = WA_MAT-MATL_TYPE.
W_INDSECTOR = WA_MAT-IND_SECTOR.
* Genera el código de material
PERFORM GENERA_CODIGO_MATERIAL.
* Pasa código de material a la bapi para cargar los materiales
WA_BAPIMATHEAD-MATERIAL = T_BAPIMATNR-MATERIAL.
APPEND WA_BAPI_MAKT.
* Ejecuta bapi para la carga de maestro de materiales
PERFORM BAPI_SAVE_DATA.
* Carga las caracteristicas de cada material
PERFORM CARGA_CATEGORIA_CLASE.
ENDLOOP.
ENDFORM. " carga_estructura
*&---------------------------------------------------------------------*
*& Form GENERA_CODIGO_MATERIAL
*&---------------------------------------------------------------------*
FORM GENERA_CODIGO_MATERIAL .
CALL FUNCTION 'BAPI_MATERIAL_GETINTNUMBER'
EXPORTING
MATERIAL_TYPE = W_MATERIAL_TYPE
INDUSTRY_SECTOR = W_INDSECTOR
TABLES
MATERIAL_NUMBER = T_BAPIMATNR.
READ TABLE T_BAPIMATNR INDEX 1.
ENDFORM. " GENERA_CODIGO_MATERIAL
*&---------------------------------------------------------------------*
*& Form bapi_save_data
*&---------------------------------------------------------------------*
FORM BAPI_SAVE_DATA .
IF W_FLAG = 'X'.
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
EXPORTING
HEADDATA = WA_BAPIMATHEAD
CLIENTDATA = WA_BAPI_MARA
CLIENTDATAX = WA_BAPI_MARAX
PLANTDATA = WA_BAPI_MARC
PLANTDATAX = WA_BAPI_MARCX
FORECASTPARAMETERS = WA_BAPI_MPOP
FORECASTPARAMETERSX = WA_BAPI_MPOPX
VALUATIONDATA = WA_BAPI_MBEW
VALUATIONDATAX = WA_BAPI_MBEWX
TABLES
MATERIALDESCRIPTION = WA_BAPI_MAKT
RETURNMESSAGES = WA_BAPI_MATRETURN.
ELSE.
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
EXPORTING
HEADDATA = WA_BAPIMATHEAD
CLIENTDATA = WA_BAPI_MARA
CLIENTDATAX = WA_BAPI_MARAX
PLANTDATA = WA_BAPI_MARC
PLANTDATAX = WA_BAPI_MARCX
VALUATIONDATA = WA_BAPI_MBEW
VALUATIONDATAX = WA_BAPI_MBEWX
TABLES
MATERIALDESCRIPTION = WA_BAPI_MAKT
RETURNMESSAGES = WA_BAPI_MATRETURN.
ENDIF.
COMMIT WORK AND WAIT.
LOOP AT WA_BAPI_MATRETURN WHERE TYPE = 'E'.
W_CONT = W_CONT + 1.
WRITE:/ WA_BAPIMATHEAD-MATERIAL, 12 T_MATERIAL-IND_SECTOR, 17 T_MATERIAL-MATL_TYPE,
25 T_MATERIAL-MATL_DESC, 'Error en la carga de material: ',
WA_BAPI_MATRETURN-MESSAGE_V1, WA_BAPI_MATRETURN-MESSAGE_V2,
WA_BAPI_MATRETURN-MESSAGE_V3, WA_BAPI_MATRETURN-MESSAGE_V4.
ENDLOOP.
ENDFORM. " bapi_save_data
*&---------------------------------------------------------------------*
*& Form CARGA_CATEGORIA_CLASE
*&---------------------------------------------------------------------*
FORM CARGA_CATEGORIA_CLASE .
REFRESH: BDCDATA.
PERFORM LLENAR_BDCDATA USING 'SAPLMGMM' '0060' 'X' '' ''.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_CURSOR' 'RMMG1-MATNR'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_OKCODE' '=ENTR'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RMMG1-MATNR' WA_BAPIMATHEAD-MATERIAL+10(8).
PERFORM LLENAR_BDCDATA USING '' '' '' 'RMMG1-MBRSH' WA_MAT-IND_SECTOR.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RMMG1-MTART' WA_MAT-MATL_TYPE.
PERFORM LLENAR_BDCDATA USING 'SAPLMGMM' '0070' 'X' '' ''.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(02)'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_OKCODE' '=ENTR'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'MSICHTAUSW-KZSEL(02)' 'X'.
PERFORM LLENAR_BDCDATA USING 'SAPLCLCA' '0602' 'X' '' ''.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_CURSOR' 'RMCLF-KLART'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_OKCODE' '=ENTE'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RMCLF-KLART' 'UMA'.
PERFORM LLENAR_BDCDATA USING 'SAPLCLFM' '0500' 'X' '' ''.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_CURSOR' 'RMCLF-CLASS(01)'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_OKCODE' '/00'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RMCLF-CLASS(01)' 'UMAS'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_SUBSCR' 'SAPLCBCM 0199OBJEKT'.
PERFORM LLENAR_BDCDATA USING 'SAPLCTMS' '0109' 'X' '' ''.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_CURSOR' 'RCTMS-MWERT(01)'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_OKCODE' '=BACK'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MNAME(01)' 'TECNOLOGIA'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MNAME(02)' 'FABRICANTE'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MNAME(03)' 'MODELO'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MNAME(04)' 'CAPACIDAD'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MNAME(05)' 'TIPO-UMA'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MNAME(06)' 'DIMENSION'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MNAME(07)' 'NIVELES_NUMERO'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MWERT(01)' WA_MAT-TECNOLOGIA.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MWERT(02)' WA_MAT-FABRICANTE.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MWERT(03)' WA_MAT-MODELO.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MWERT(04)' WA_MAT-CAPACIDAD.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MWERT(05)' WA_MAT-TIPO_UMA.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MWERT(06)' WA_MAT-DIMENSION.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RCTMS-MWERT(07)' WA_MAT-NIVELES_NUMERO.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_SUBSCR' 'SAPLCBCM 0499HEADER'.
PERFORM LLENAR_BDCDATA USING 'SAPLCLFM' '0500' 'X' '' ''.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_CURSOR' 'RMCLF-CLASS(01)'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_OKCODE' '=WECH'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RMCLF-PAGPOS' '1'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_SUBSCR' 'SAPLCBCM 0199OBJEKT'.
PERFORM LLENAR_BDCDATA USING 'SAPLCLCA' '0602' 'X' '' ''.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_CURSOR' 'RMCLF-KLART'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_OKCODE' '=ENTE'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RMCLF-KLART' 'SA1'.
PERFORM LLENAR_BDCDATA USING 'SAPLCLFM' '0500' 'X' '' ''.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_CURSOR' 'RMCLF-CLASS(01)'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_OKCODE' '/00'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RMCLF-CLASS(01)' WA_MAT-SAC.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_SUBSCR' 'SAPLCBCM 0199OBJEKT'.
PERFORM LLENAR_BDCDATA USING 'SAPLCLFM' '0500' 'X' '' ''.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_CURSOR' 'RMCLF-CLASS(01)'.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_OKCODE' '=SAVE'.
IF WA_MAT-SAC IS NOT INITIAL.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RMCLF-PAGPOS' '1'.
ELSE.
PERFORM LLENAR_BDCDATA USING '' '' '' 'RMCLF-PAGPOS' '0'.
ENDIF.
PERFORM LLENAR_BDCDATA USING '' '' '' 'BDC_SUBSCR' 'SAPLCBCM 0199OBJEKT'.
CALL TRANSACTION 'MM01' USING BDCDATA MODE W_MODE UPDATE 'S' MESSAGES INTO MESSTAB.
IF SY-SUBRC = 0.
IF WA_MAT-SAC IS INITIAL.
WRITE:/ WA_BAPIMATHEAD-MATERIAL, 'Material creado con error en asignación de categoria de clase SA1.'.
ELSE.
WRITE:/ WA_BAPIMATHEAD-MATERIAL+10(8), 20 'Material procesado correctamente.'.
ENDIF.
ELSE.
LOOP AT MESSTAB.
WRITE:/ WA_BAPIMATHEAD-MATERIAL+10(8), MESSTAB-MSGTYP, MESSTAB-MSGV1,
MESSTAB-MSGV2, MESSTAB-MSGV3, MESSTAB-MSGV4.
ENDLOOP.
ENDIF.
COMMIT WORK AND WAIT.
ENDFORM. " CARGA_CATEGORIA_CLASE
*&---------------------------------------------------------------------*
*& Form LLENAR_BDCDATA
*&---------------------------------------------------------------------*
FORM LLENAR_BDCDATA USING PROGRAM DYNPRO DYNBEGIN FNAM FVAL.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = DYNBEGIN.
BDCDATA-FNAM = FNAM.
BDCDATA-FVAL = FVAL.
APPEND BDCDATA.
CLEAR BDCDATA.
ENDFORM. " LLENAR_BDCDATA
Suerte!!