DATA:e_objek TYPE cuobn,
e_obtab TYPE tabelle,
e_klart TYPE klassenart,
e_class TYPE klasse_d,
lv_objectkey TYPE bapi3060_allocation-objectkey,
batchcontrolfields TYPE bapibatchctrl,
return TYPE TABLE OF bapiret2,
w_return TYPE bapiret2,
allocvaluesnum TYPE TABLE OF bapi1003_alloc_values_num,
allocvalueschar TYPE TABLE OF bapi1003_alloc_values_char,
allocvaluescurr TYPE TABLE OF bapi1003_alloc_values_curr.
DATA:ls_allocvaluesnum TYPE bapi1003_alloc_values_num,
ls_allocvalueschar TYPE bapi1003_alloc_values_char,
ls_allocvaluescurr TYPE bapi1003_alloc_values_curr.
IF <lfs_data>-charg IS NOT INITIAL.
CALL FUNCTION 'VB_BATCH_2_CLASS_OBJECT' "读取批次属性值
EXPORTING
i_matnr = <lfs_data>-matnr
i_charg = <lfs_data>-charg
i_werks = <lfs_data>-werks
IMPORTING
e_objek = e_objek
e_obtab = e_obtab
e_klart = e_klart
e_class = e_class.
CALL FUNCTION 'BAPI_OBJCL_GETDETAIL' "读取批次中各特征值
EXPORTING
objecttable = e_obtab
classnum = e_class
classtype = e_klart
objectkey_long = e_objek
TABLES
allocvaluesnum = allocvaluesnum
allocvalueschar = allocvalueschar
allocvaluescurr = allocvaluescurr
return = return.
READ TABLE allocvalueschar INTO ls_allocvalueschar
WITH KEY charact = 'ZMIGO_VENDORNAME'.
ENDIF.
ZMIGO_VENDORNAME批次特性的值：ls_allocvalueschar-value_char_long