DATA: l_objectkey LIKE bapi1003_key-object.
DATA: lt_char LIKE bapi1003_alloc_values_char OCCURS 0 WITH HEADER LINE,
lt_num LIKE bapi1003_alloc_values_num OCCURS 0 WITH HEADER LINE,
lt_curr LIKE bapi1003_alloc_values_curr OCCURS 0 WITH HEADER LINE,
lt_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
*-------------------------------------------------
l_objectkey = wa_bill-matnr.
"银行账号暂且空白
CALL FUNCTION 'BAPI_OBJCL_GETDETAIL'
EXPORTING
objectkey = l_objectkey "
objecttable = 'MARA'
classnum = 'CL_PC20'
classtype = '001' " class type
* KEYDATE = SY-DATUM
* UNVALUATED_CHARS = ' '
language = 'E'
* IMPORTING
* STATUS =
* STANDARDCLASS =
TABLES
allocvaluesnum = lt_num
allocvalueschar = lt_char "charactor info
allocvaluescurr = lt_curr
return = lt_return.
.
CLEAR lt_char.
READ TABLE lt_char WITH KEY charact = 'SEQUENCE_NR'.
IF sy-subrc = 0.
wa_output-chara = lt_char-value_char. "商品特征
ENDIF.
CLEAR lt_char.
READ TABLE lt_char WITH KEY charact = 'CUSTOM_MATERIAL_DESCR'.
IF sy-subrc = 0.
wa_output-goods = lt_char-value_char. "商品名称
ENDIF.
*---------------------------------------------------------------------------
阅读(1309) | 评论(0) | 转发(0) |