SAP 获取物料/批次/订单的特性值（学习一）

1、事务码

MSC1N、MSC2N、MSC3N

2、常用表

MCH1、MCHA、AUSP、MCH*开头的几个

3、批次

1、创建批次

BAPI：BAPI_BATCH_CREATE

2、修改批次

BAPI：BAPI_BATCH_CHANGE

3、删除批次

BAPI：BAPI_BATCH_DELETE

4、获取批次明细

BAPI：BAPI_BATCH_GET_DETAIL

5、查询物料的分类视图是否扩充

BAPI: BAPI_OBJCL_GETCLASSES

OBJECTKEY_IMP：物料号 带前导0

OBJECTTABLE_IMP??MARA

CLASSTYPE_IMP??022

4、特性值

1、获取类别

CALL FUNCTION 'VB_BATCH_2_CLASS_OBJECT'

?????EXPORTING

????????I_MATNR = LS_DATA-MATNR

????????I_CHARG = LS_DATA-CHARG

????????I_WERKS = LS_DATA-WERKS

?????IMPORTING

????????E_OBJEK = LV_OBJEK

????????E_OBTAB = LV_OBTAB

????????E_KLART = LV_KLART

????????E_CLASS = LV_CLASS.

DATA:LV_OBJEK?????????????TYPE??CUOBN,

?????LV_OBTAB?????????????TYPE??TABELLE,

?????LV_KLART?????????????TYPE??KLASSENART,

?????LV_CLASS?????????????TYPE??KLASSE_D.

2、通过物料+批次获取表和类别

SELECT SINGLE CUOBJ_BM FROM MCH1 INTO @DATA(LV_BM)

?????????WHERE MATNR EQ XXX

???????????AND CHARG EQ XXX.

DATA:LV_OBJECTNAME????????LIKE BAPI1003_KEY-OBJECT,

?????LV_OBJECTTABLE???????LIKE BAPI1003_KEY-OBJECTTABLE,

?????LV_CLASSTYPE?????????LIKE BAPI1003_KEY-CLASSTYPE,

?????RETURN???????????????LIKE TABLE OF BAPIRET2??????WITH HEADER LINE.

CALL FUNCTION 'BAPI_OBJCL_GET_OBJECT_OF_KEY'

?????EXPORTING

????????CLOBJECTKEYIN = LV_BM

?????IMPORTING

????????OBJECTNAME????= LV_OBJECTNAME

????????OBJECTTABLE???= LV_OBJECTTABLE

????????CLASSTYPE?????= LV_CLASSTYPE

?????TABLES

????????RETURN????????= RETURN.

3、获取特性值明细

DATA:I_OBJEK??????????????TYPE??BAPI1003_KEY-OBJECT,

?????I_OBTAB??????????????TYPE??BAPI1003_KEY-OBJECTTABLE,

?????I_KLART??????????????TYPE??BAPI1003_KEY-CLASSTYPE,

?????I_CLASS??????????????TYPE??BAPI1003_KEY-CLASSNUM.

CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'

?????EXPORTING

???????OBJECTKEY????????= I_OBJEK

???????OBJECTTABLE??????= I_OBTAB

???????CLASSNUM?????????= I_CLASS

???????CLASSTYPE????????= I_KLART

???????UNVALUATED_CHARS = 'X'

?????TABLES

???????ALLOCVALUESNUM???= CLASSVALUATIONSNUM

???????ALLOCVALUESCHAR??= CLASSVALUATIONSCHAR

???????ALLOCVALUESCURR??= CLASSVALUATIONSCURR

???????RETURN???????????= RETURN.

4、特性值修改

BAPI：BAPI_OBJCL_CHANGE

5、批量修改批次特性值

BAPI：BAPI_BATCH_SAVE_REPLICA

5、分类、特性值关系

根据分类别查KLAH表，KLAH-CLASS = 'XXX'，获取内部等级号 CLINT

根据KLAH-CLINT = KSML-CLINT取得分类下所有的内部特性号 IMERK

根据KSML-IMERK = CABN-ATINN取得特性详细信息，CABNT是特性描述

6、批次对应物料特性值读取

VC_I_GET_CONFIGURATION

批次分类特性值读取函数

BAPI_OBJCL_GETDETAIL

物料特性 /

?200 特性通过数据库取值

??SELECT

????objek "将分类的对象的键值

????atinn "内部特性

????atwrt "特性值

????atflv "内部浮点自

????klart "类别种类

????INTO TABLE gt_ausp

????FROM ausp

????INNER JOIN cabn

????ON cabn~atinn = ausp~atinn

????WHERE objek = '000000000101004001'

??????AND klart = '200'

??????AND atnam = 'WG0078'. " 内部特性

??SORT gt_ausp BY objek atinn.

????

????READ TABLE gt_ausp INTO gs_ausp

??????WITH KEY objek = '000000000101004001'

???????????????atinn = 'WG0078'

???????????????BINARY SEARCH.

??IF sy-subrc = 0.

????CALL FUNCTION 'MC_FLTP_CHAR'

??????EXPORTING

????????fc_a_fld = gs_ausp-atflv

??????IMPORTING

????????fc_r_fld = gs_alv-wg0078.

??ENDIF.

通过 BAPI 取值

DATA: lv_matnr???????????TYPE matnr,

??????lv_object??????????TYPE objnum,

??????ls_alloclist???????TYPE bapi1003_alloc_list,

??????lt_alloclist???????TYPE TABLE OF bapi1003_alloc_list,

??????ls_return??????????TYPE bapiret2,

??????lt_return??????????TYPE TABLE OF bapiret2,

??????ls_allocvaluesnum??TYPE bapi1003_alloc_values_num,

??????lt_allocvaluesnum??TYPE TABLE OF bapi1003_alloc_values_num,

??????ls_allocvalueschar TYPE bapi1003_alloc_values_char,

??????lt_allocvalueschar TYPE TABLE OF bapi1003_alloc_values_char,

??????ls_allocvaluescurr TYPE bapi1003_alloc_values_curr,

??????lt_allocvaluescurr TYPE TABLE OF bapi1003_alloc_values_curr,

??????ls_retur2??????????TYPE bapiret2,

??????lt_retur2??????????TYPE TABLE OF bapiret2.

lv_object = lv_matnr.??" 物料号带前置零

CALL FUNCTION 'BAPI_OBJCL_GETCLASSES' " 可以通过 cl03 查看

??EXPORTING

????objectkey_imp???= lv_object " 物料号

????objecttable_imp = 'MARA'

????classtype_imp???= '200'

??TABLES

????alloclist???????= lt_alloclist

????return??????????= lt_return.

READ TABLE lt_alloclist INTO ls_alloclist INDEX 1.

CALL FUNCTION 'BAPI_OBJCL_GETDETAIL' " 也可以用 claf_classification_of_objects 取值

??EXPORTING

????objectkey???????= lv_object

????objecttable?????= 'MARA'

????classnum????????= ls_alloclist-classnum

????classtype???????= '200'

??TABLES

????allocvaluesnum??= lt_allocvaluesnum

????allocvalueschar = lt_allocvalueschar

????allocvaluescurr = lt_allocvaluescurr

????return??????????= lt_retur2.

通过 BAPI 创建特性

l_objectkeynew = l_matnr.

l_objecttablenew = 'MARA'.

l_classnumnew = ls_tmp-class.

l_classtypenew = ls_tmp-klart.

CLEAR: lt_numout,lt_charout,lt_returnout.

CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'

??EXPORTING

????objectkey???????= l_objectkeynew

????objecttable?????= l_objecttablenew

????classnum????????= l_classnumnew

????classtype???????= l_classtypenew

??TABLES

????allocvaluesnum??= lt_numout

????allocvalueschar = lt_charout

????allocvaluescurr = lt_currout

????return??????????= lt_returnout.

CLEAR ls_return.

READ TABLE lt_returnout INTO ls_return WITH KEY type = 'E'.

IF sy-subrc <> 0.

??CLEAR lt_returnout.

??CALL FUNCTION 'BAPI_OBJCL_DELETE' "删除已有分类

????EXPORTING

??????objectkey???= l_objectkeynew

??????objecttable = l_objecttablenew

??????classnum????= l_classnumnew

??????classtype???= l_classtypenew

*?????CHANGENUMBER =

*?????KEYDATE?????= SY-DATUM

????TABLES

??????return??????= lt_returnout.

??CLEAR ls_return.

??READ TABLE lt_returnout INTO ls_return WITH KEY type = 'E'.

??IF sy-subrc = 0.

????CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

????MESSAGE e000 WITH '删除物料' l_objectkeynew '已有分类失败'.

??ELSE.

????CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

??????EXPORTING

????????wait = 'X'.

??ENDIF.

ENDIF.

LOOP AT gt_upload INTO gs_upload WHERE matnr = ls_tmp-matnr AND klart =

ls_tmp-klart AND class = ls_tmp-class.

??CLEAR: ls_num, ls_char,l_atinn,l_atfor.

??CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'

????EXPORTING

??????input??= gs_upload-atnam

????IMPORTING

??????output = l_atinn.

* SELECT SINGLE atfor FROM cabn INTO l_atfor WHERE atinn = l_atinn.

??READ TABLE lt_cabn INTO ls_cabn WITH KEY atinn = l_atinn.

??IF sy-subrc <> 0.

????MESSAGE e000 WITH '特性没有维护，请先维护特性！'.

??ENDIF.

??l_atfor = ls_cabn-atfor.

??IF gs_upload-atwrt IS NOT INITIAL.

????IF l_atfor = 'CHAR'.

??????ls_char-charact = gs_upload-atnam.

??????ls_char-charact_descr = gs_upload-atbez.

??????ls_char-value_char = gs_upload-atwrt.

??????APPEND ls_char TO lt_char.

????ELSEIF l_atfor = 'NUM'.

??????ls_num-charact = gs_upload-atnam.

??????ls_num-charact_descr = gs_upload-atbez.

??????ls_num-value_from = gs_upload-atwrt.

??????APPEND ls_num TO lt_num.

????ENDIF.

??ENDIF.

ENDLOOP.

CALL FUNCTION 'BAPI_OBJCL_CREATE'

??EXPORTING

????objectkeynew????= l_objectkeynew

????objecttablenew??= l_objecttablenew

????classnumnew?????= l_classnumnew

????classtypenew????= l_classtypenew

????status??????????= '1'

*????standardclass???=

*????changenumber????=

*???KEYDATE?????????= SY-DATUM

*???NO_DEFAULT_VALUES = ' '

* IMPORTING

*???CLASSIF_STATUS??=

??tables

????allocvaluesnum??= lt_num

????allocvalueschar = lt_char

*???ALLOCVALUESCURR =

????return??????????= lt_return.

CLEAR: l_type,l_info, ls_return.

READ TABLE lt_return INTO ls_return WITH KEY type = 'E'.

IF sy-subrc = 0.

??CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

??CLEAR l_info.

??CALL FUNCTION 'MESSAGE_TEXT_BUILD'

????EXPORTING

??????msgid???????????????= ls_return-id

??????msgnr???????????????= ls_return-number

??????msgv1???????????????= ls_return-message_v1

??????msgv2???????????????= ls_return-message_v2

??????msgv3???????????????= ls_return-message_v3

??????msgv4???????????????= ls_return-message_v4

????IMPORTING

??????message_text_output = l_info.

??l_type = 'E'.

ELSE.

??CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

????EXPORTING

??????wait = 'X'.

??l_type = 'S'.

??l_info = '物料主数据分类视图创建特性成功'.

ENDIF.

物料批次特性 / 023 特性

通过数据库取值

??

SELECT

????mch1~matnr,

????mch1~charg,

????cabn~atnam,

????ausp~atwrt,

????ausp~atflv

????FROM mch1

????INNER JOIN ausp

????ON ausp~objek = mch1~cuobj_bm

????INNER JOIN cabn

????ON cabn~atinn = ausp~atinn

????WHERE mch1~matnr = '000000000101004001'

????AND mch1~charg = '152200110'.

销售订单特性 / VC 特性 / 可配置物料特性 / 300 特性

通过数据库取值

??

SELECT

????vbap~vbeln,

????vbap~posnr,

????cabn~atinn,"内部特性

????cabn~atnam,"特性名称

????ibsymbol~atwrt,"特性值

????ibsymbol~atflv,

????ibsymbol~atflb

????INTO TABLE @DATA(gt_data)

????FROM vbap

????INNER JOIN ibin

???????ON ibin~instance = vbap~cuobj

??????AND ibin~valto = '99991231235959'

????INNER JOIN ibinvalues

???????ON ibinvalues~in_recno = ibin~in_recno

????INNER JOIN ibsymbol

???????ON ibsymbol~symbol_id = ibinvalues~symbol_id

????INNER JOIN cabn

???????ON cabn~atinn = ibsymbol~atinn

????WHERE vbap~vbeln = '2000046612'

??????AND vbap~posnr = '000010'.

通过 BAPI 取值

??

SELECT SINGLE

????cuobj

????matnr

????INTO (l_cuobj,l_matnr)

????FROM vbap

????WHERE vbeln = w_mseg-kdauf

????AND posnr = w_mseg-kdpos.

????

??DATA: t_configuration LIKE STANDARD TABLE OF conf_out WITH HEADER LINE.

????????

??IF l_cuobj IS NOT INITIAL.

????CALL FUNCTION 'VC_I_GET_CONFIGURATION'

??????EXPORTING

????????instance??????????????= l_cuobj

????????language??????????????= '1'

????????iv_max_massprocessing = 10

??????TABLES

????????configuration?????????= t_configuration.

??ENDIF.