ABAP 取物料主数据分类试图特征值

kodyyu

于 2023-12-26 09:53:45 发布

阅读量130

点赞数

分类专栏： SAP-ABAP 文章标签： ABAP

本文链接：https://blog.csdn.net/weixin_43176021/article/details/135214425

版权

SAP-ABAP 专栏收录该内容

90 篇文章 3 订阅

订阅专栏

ABAP 取物料主数据分类试图特征值

DATA:lv_classtype TYPE klah-klart VALUE ‘001’.
DATA:lv_object TYPE ausp-objek.
DATA:lt_class TYPE TABLE OF sclass.
DATA:lt_obdata TYPE TABLE OF clobjdat.

REFRESH:lt_obdata,lt_class.
lv_object = gs_alv-matnr.
CALL FUNCTION 'CLAF_CLASSIFICATION_OF_OBJECTS'
  EXPORTING
    classtype          = lv_classtype
    language           = sy-langu
    classtext          = 'X'
    object             = lv_object

```
  OBJECTTABLE        = ' '
  features           = 'X'
  key_date           = sy-datum
  initial_charact    = 'X'
  change_service_clf = 'X'
TABLES
  t_class            = lt_class
  t_objectdata       = lt_obdata
EXCEPTIONS
  no_classification  = 1
  no_classtypes      = 2
  invalid_class_type = 3
  OTHERS             = 4.
```
READ TABLE lt_obdata INTO DATA(lw_obdata) WITH KEY atnam = ‘PARTDRAWINGNUMBER’. "型号/图号
IF sy-subrc = 0.
-xh = lw_obdata-ausp1.
ENDIF.
READ TABLE lt_obdata INTO DATA(lw_obdata2) WITH KEY atnam = ‘T192’. "品牌
IF sy-subrc = 0.
-pp = lw_obdata2-ausp1.
ENDIF.
READ TABLE lt_obdata INTO DATA(lw_obdata3) WITH KEY atnam = ‘PARTNAME’.
IF sy-subrc = 0.
-mc = lw_obdata3-ausp1.
ENDIF.