DATA: BEGIN OF table_material_t.
        DATA: WERKS like caufvd-werks,
              MAKTX LIKE MAKT-MAKTX, " название материала
              MATNR LIKE MARA-MATNR, " код материала
              ARTXT LIKE TCLAT-ARTXT,
              CLASS LIKE RMCLF-CLASS.
              "CLINT LIKE KSSK-CLINT.
DATA: END OF table_material_t.

DATA table_material LIKE table_material_t OCCURS 0 WITH HEADER LINE.
data: it_MARC LIKE MARC OCCURS 1 WITH HEADER LINE.

types:
  BEGIN OF it_material_class_t,
    ARTXT like TCLAT-ARTXT,
    CLASS LIKE RMCLF-CLASS,
    OBJEK LIKE KSSK-OBJEK,
  end of it_material_class_t.

  types: it_cache_material_class_t type hashed table of
  it_material_class_t with unique key OBJEK.
  data:  it_cache_material_class type it_cache_material_class_t with
  header line.


DATA BEGIN OF it_tcla_t.
  DATA: ARTXT LIKE TCLAT-ARTXT,
        KLART LIKE TCLA-KLART.
DATA END   OF it_tcla_t.
DATA it_tcla like it_tcla_t OCCURS 0 WITH HEADER LINE.

select TCLAT~ARTXT TCLAT~KLART
  from TCLAT
  JOIN TCLA ON TCLAT~KLART = TCLA~KLART
  INTO CORRESPONDING FIELDS OF TABLE it_tcla
  Where TCLA~OBTAB = 'MARA'
    and TCLAT~SPRAS = sy-LANGU.



select TCLAT~ARTXT KLAH~CLASS KSSK~OBJEK
  from TCLAT
  JOIN TCLA ON TCLAT~KLART  = TCLA~KLART
  JOIN KLAH  ON TCLA~KLART = KLAH~KLART
  JOIN KSSK  ON KLAH~CLINT = KSSK~CLINT
  INTO CORRESPONDING FIELDS OF TABLE it_cache_material_class
  where TCLA~OBTAB = 'MARA'
    and TCLAT~SPRAS = sy-LANGU.

data zavod_name like t001w-name1.

  select *  from t001w up to 1 rows where WERKS in so_iwerm.
      "PERFORM fill_parameter TABLES pt_params USING 'ZAVOD' t001w-name1.
      move t001w-name1 to zavod_name.
      WRITE / zavod_name.

  ENDSELECT.




select MARC~WERKS MARC~MATNR MAKT~MAKTX INTO CORRESPONDING FIELDS OF TABLE table_material
   from MARC
    JOIN MAKT on MARC~MATNR = MAKT~MATNR
   where MARC~WERKS in so_iwerm.



data idx type i.
loop at table_material." FROM 1 to 20.
idx = sy-tabix.
read table it_cache_material_class with table key OBJEK = table_material-MATNR.
    if sy-subrc eq 0.
      MOVE  it_cache_material_class-ARTXT  to table_material-ARTXT.
      MOVE  it_cache_material_class-CLASS to table_material-CLASS.
    else.
      MOVE  'Класс не назначен' to table_material-ARTXT.
      MOVE  '' to table_material-CLASS.
    endif.


modify table_material index idx.
  "write: / table_material-WERKS, table_material-MATNR, table_material-MAKTX, table_material-ARTXT, table_material-CLASS.
endloop.

JOIN MAKT on MARC~MATNR = MAKT~MATNR

DATA: BEGIN OF table_material_t.
        DATA: WERKS like caufvd-werks,
              MAKTX LIKE MAKT-MAKTX, " название материала
              MATNR LIKE MARA-MATNR, " код материала
              KSCHL LIKE SWOR-KSCHL,
              CLASS LIKE RMCLF-CLASS.
              "CLINT LIKE KSSK-CLINT.
DATA: END OF table_material_t.

DATA table_material LIKE table_material_t OCCURS 0 WITH HEADER LINE.

types:
  BEGIN OF it_material_class_tt,
    KSCHL like SWOR-KSCHL,
    CLASS LIKE RMCLF-CLASS,
    OBJEK LIKE KSSK-OBJEK,
    clint like SWOR-CLINT,
  end of it_material_class_tt.

  types: it_cache_material_class_tt type hashed table of
  it_material_class_tt with unique key OBJEK.
  data:  it_cache_material_class_c type it_cache_material_class_tt with
  header line.

SELECT klah~class klah~clint Inob~OBJEK swor~KSCHL FROM inob
INNER JOIN kssk ON kssk~objek = inob~cuobj
INNER JOIN klah ON klah~clint = kssk~clint
INNER JOIN swor on swor~clint = klah~clint
  INTO CORRESPONDING FIELDS OF table it_cache_material_class_c
WHERE inob~klart = 'Z02'
AND inob~obtab = 'MARA'
AND kssk~klart = 'Z02'
AND kssk~mafid = 'O'.

select MARC~WERKS MARC~MATNR MAKT~MAKTX  INTO CORRESPONDING FIELDS OF TABLE table_material
   from MARC
    JOIN MAKT on MARC~MATNR = MAKT~MATNR
   where MARC~WERKS in so_iwerm
        and MAKT~SPRAS = sy-LANGU
     order by MARC~WERKS ASCENDING.



* определяем класс для материала
SELECT klah~class klah~clint Inob~OBJEK swor~KSCHL FROM inob
INNER JOIN kssk ON kssk~objek = inob~cuobj
INNER JOIN klah ON klah~clint = kssk~clint
INNER JOIN swor on swor~clint = klah~clint
  INTO CORRESPONDING FIELDS OF table it_cache_material_class_c
WHERE inob~klart = 'Z02'
"AND inob~objek = '1000020' "материал на входе
AND inob~obtab = 'MARA'
AND kssk~klart = 'Z02'
AND kssk~mafid = 'O'.







  CLEAR l_lines.
  DESCRIBE TABLE table_material LINES l_lines.
"WRITE: / 'lines', l_lines.
"exit.
IF l_lines = 0.
    MESSAGE s398(00) WITH 'Таблица ''Данные завода по материалу'' пуста.'.
    EXIT.
    ENDIF.


data: zclass like Klah-class,
      zclint like KLAH-CLINT.

data idx type i.
data  tmp_class like it_cache_material_class_c-CLASS.
loop at table_material ."FROM 1 to 50.
idx = sy-tabix.

read table it_cache_material_class_c with table key OBJEK = table_material-MATNR.
    if sy-subrc eq 0.
      CLEAR tmp_class.
      CONCATENATE '№' it_cache_material_class_c-CLASS INTO tmp_class.
      MOVE  it_cache_material_class_c-KSCHL  to table_material-KSCHL.
      MOVE  tmp_class to table_material-CLASS.
    else.
      MOVE  'Класс не назначен' to table_material-KSCHL.
      MOVE  '0' to table_material-CLASS.
    endif.
    CLEAR tmp_class.
modify table_material index idx.
  "write: / table_material-WERKS, table_material-MATNR, table_material-MAKTX, table_material-KSCHL, table_material-CLASS.
endloop.

IF table_material[] IS NOT INITIAL.

SELECT klah~class klah~clint Inob~OBJEK swor~KSCHL FROM inob
INNER JOIN kssk ON kssk~objek = inob~cuobj
INNER JOIN klah ON klah~clint = kssk~clint
INNER JOIN swor on swor~clint = klah~clint
  INTO CORRESPONDING FIELDS OF table it_cache_material_class_c
[b]  FOR ALL ENTRIES IN table_material[/b]
WHERE inob~klart = 'Z02'
[b]AND inob~objek = table_material-matnr [/b]AND inob~obtab = 'MARA'
AND kssk~klart = 'Z02'
AND kssk~mafid = 'O'.

ENDIF.