REPORT  ZMM_P_LOTBAPI.

CONSTANTS :
    X1 TYPE I VALUE 1,
    Y1 TYPE I VALUE 1,
    X2 TYPE I VALUE 2,
    Y2 TYPE I VALUE 65536.
TABLES: MARC, ZMMDEL_MAT.

*include bdcrecx1.
*INCLUDE ZBDCRECX1.
DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA: LT_PARAMS TYPE CTU_PARAMS. "параметры запуска транзакции

DATA: BEGIN OF BDCDATA OCCURS 0.
        INCLUDE STRUCTURE BDCDATA.
DATA: END OF BDCDATA.

DATA: TY_T_ITAB TYPE ZALSMEX_TABLINE OCCURS 0 WITH HEADER LINE,
      IT_MARA_UEB LIKE MARA_UEB OCCURS 0 WITH HEADER LINE,
      IT_MARC_UEB LIKE MARC_UEB OCCURS 0 WITH HEADER LINE,
      IT_AMERRDAT  LIKE MERRDAT  OCCURS 0 WITH HEADER LINE,
      TLINETAB TYPE TLINE OCCURS 30 WITH HEADER LINE,
      IT_WERKS LIKE T001W OCCURS 0 WITH HEADER LINE,

      BEGIN OF FEHLER_TAB OCCURS 0,  " Tabelle fur Fehlermeldungen
        LINE LIKE SY-LISEL,                                 " 255 Char
      END OF FEHLER_TAB.

DATA: BEGIN OF CLASS_MATNR OCCURS 0,
        CLASS LIKE KLAH-CLASS,
        MATNR(50),
      END OF CLASS_MATNR.


DATA : ZAEHLER LIKE IT_MARA_UEB-TRANC,
       RETURNCODE(2),
       MATNR_LAST LIKE MARA-MATNR,
       MATNR_LAST_SAVE LIKE MARA-MATNR,
       NUMBER_ERR LIKE TBIST-NUMERROR,
       FLAG.

DATA: DEL_EKPO LIKE EKPO OCCURS 0 WITH HEADER LINE.

DATA: POS(5) TYPE C. "Позиция материала


DATA:         hlp_return TYPE TABLE OF bapiret2.

SELECTION-SCREEN BEGIN OF BLOCK MAIN WITH FRAME.
PARAMETERS: PO_PATH LIKE CFDOWN-FILE OBLIGATORY.
***            PO_TEST LIKE AM07M-XACCDEL AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK MAIN.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR PO_PATH.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      DEF_PATH         = ''
      MASK             = ',*.xls.'
      MODE             = '0'
      TITLE            = 'Выбор файла'
    IMPORTING
      FILENAME         = PO_PATH
    EXCEPTIONS
      INV_WINSYS       = 1
      NO_BATCH         = 2
      SELECTION_CANCEL = 3
      SELECTION_ERROR  = 4.

START-OF-SELECTION.
  CALL FUNCTION 'Z_ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      FILENAME                = PO_PATH
      I_BEGIN_COL             = X1
      I_BEGIN_ROW             = Y1
      I_END_COL               = X2
      I_END_ROW               = Y2
    TABLES
      INTERN                  = TY_T_ITAB
    EXCEPTIONS
      INCONSISTENT_PARAMETERS = 1
      UPLOAD_OLE              = 2
      OTHERS                  = 3.

  CLEAR CLASS_MATNR.

  LOOP AT TY_T_ITAB.
    IF TY_T_ITAB-COL = 1.
      CLASS_MATNR-CLASS = TY_T_ITAB-VALUE.
    ELSE.
      CONCATENATE '000000000' TY_T_ITAB-VALUE INTO CLASS_MATNR-MATNR.
*      CLASS_MATNR-MATNR = TY_T_ITAB-VALUE.
      APPEND CLASS_MATNR.
    ENDIF.

  ENDLOOP.

  LOOP AT CLASS_MATNR.

    call function 'BAPI_OBJCL_CREATE'
      exporting
        objectkeynew      = CLASS_MATNR-MATNR
        objecttablenew    = 'MARA'
        classnumnew       = CLASS_MATNR-CLASS
        classtypenew      = '001'
      tables
***        allocvaluesnum    = allocvaluesnum
***        allocvalueschar   = allocvalueschar
***        allocvaluescurr   = allocvaluescurr
        return            = hlp_return.

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        WAIT = 'X'.

  ENDLOOP.
  WRITE: 'Выполнено'.

CONCATENATE '000000000' TY_T_ITAB-VALUE INTO CLASS_MATNR-MATNR.