Как определиить класс материала?

Tony-m

решил вынести вопрос отедльной темой

Вот есть завод и материалы.
заказчики(менеджеры) хотят видеть при просмотре материала его класс и номер класса (они хотят видеть инфу из структуры RMCLF-CLASS и RMCLF-KLTXT )

Подскажите пожалста, как для материала найти эту информацию? в каких таблицах и полях это хранится?

заранее спасибо.

Kahaber

вот так когдато искал

* определяем класс для материала
SELECT SINGLE klah~class klah~clint FROM inob
INNER JOIN kssk ON kssk~objek = inob~cuobj
INNER JOIN klah ON klah~clint = kssk~clint
INTO (zclass, zclint)
WHERE inob~klart = '022'
AND inob~objek = zmatnr "материал на входе
AND inob~obtab = 'MARA'
AND kssk~klart = '022'
AND kssk~mafid = 'O'.

Lars

Посмотрите группу функций CLBPA

Удав

Kahaber написал(а):

вот так когдато искал

* определяем класс для материала
SELECT SINGLE klah~class klah~clint FROM inob
INNER JOIN kssk ON kssk~objek = inob~cuobj
INNER JOIN klah ON klah~clint = kssk~clint
INTO (zclass, zclint)
WHERE inob~klart = '022'
AND inob~objek = zmatnr "материал на входе
AND inob~obtab = 'MARA'
AND kssk~klart = '022'
AND kssk~mafid = 'O'.

Если интересует 001 вид класса, то в KLART должно быть 001.
И искать лучше не напрямую в INOB, KSSK, а с помощью ФМ CACL_OBJECT_READ_ALLOCATIONS:

Code:

      CALL FUNCTION 'CACL_OBJECT_READ_ALLOCATIONS'
        EXPORTING
          object_type           = 'MARA'
          class_type            = l_clatype
        TABLES
          object_identification = it_obident[]
          allocations           = it_alloc[]
        EXCEPTIONS
          OTHERS                = 3.
      IF sy-subrc = 0.
        READ TABLE it_alloc INDEX 1.
        IF sy-subrc = 0.
          lv_class = it_alloc-class.
          EXIT.
        ENDIF.
      ENDIF.
    ENDDO.

    SELECT SINGLE *
    INTO gs_class
    FROM biw_class
    WHERE klart = l_clatype
      AND class = lv_class
      AND spras = gs_spras.

OlegDm

.

Code:

..    
        move matnr to object.
        call function 'CLAF_CLASSIFICATION_OF_OBJECTS'
          EXPORTING
            classtype          = '001'
            language           = sy-langu
            object             = object
          TABLES
            t_class            = t_class
            t_objectdata       = t_objectdata
          EXCEPTIONS
            no_classification  = 1
            no_classtypes      = 2
            invalid_class_type = 3.
...

в таб. T_CLASS будут все присвоенные указанному материалу классы

Правила форума

Как определиить класс материала?

Кто сейчас на конференции