查看物料批次特性值
难点要找到特性值的OBJECT:通过调用FUNCTION'VB_BATCH_2_CLASS_OBJECT 得到
查看具体的特性值 FUNCTION 'BAPI_OBJCL_GETDETAIL
例子：
data p_charg type
charg_d.
data p_charact type char30.
data e_objek type objnum.
data e_obtab type tabelle.
data e_klart type klassenart.
data e_class type klasse_d.
data begin of it_num occurs 0.
include structure
bapi1003_alloc_values_num.
data end of it_num.
data begin of it_char occurs 0.
include structure
bapi1003_alloc_values_char.
data end of it_char.
data begin of it_curr occurs 0.
include structure
bapi1003_alloc_values_curr.
data end of it_curr.
data begin of bapi_return occurs 0.
include structure
bapiret2.
data end of bapi_return.
data value_char type char30.
data:lv_chand(50) type c.
data:lv_dengj(50) type c.
************ 批次end
*********************
取批次特性值
CALL FUNCTION
'VB_BATCH_2_CLASS_OBJECT'
EXPORTING
i_matnr = lw_billdata-matnr
i_charg = lw_billdata-charg
i_werks = lw_billdata-werks
IMPORTING
e_objek = e_objek
e_obtab = e_obtab
e_klart = e_klart
e_class = e_class.
IF sy-subrc = 0.
CALL
FUNCTION 'BAPI_OBJCL_GETDETAIL'
EXPORTING
objectkey
= e_objek
objecttable
= e_obtab
classnum
=
e_class
classtype
= e_klart
TABLES
allocvaluesnum
= it_num
allocvalueschar = it_char
“字符类
allocvaluescurr =
it_curr
return
= bapi_return.
IF
sy-subrc = 0.
READ TABLE bapi_return WITH KEY type =
'S'.
IF sy-subrc = 0.
LOOP AT it_char.
CASE
it_char-charact.
WHEN 'HF000501'. "产地
lv_chand =
it_char-value_neutral .
WHEN 'PJDJ0000'. "品检等级
lv_dengj =
it_char-value_neutral .
ENDCASE.
CLEAR:lv_chand,lv_dengj.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
********************* 取批次特性值END
