创建资产BAPI示例

DATA: lw_key LIKE bapi1022_key,

lw_gen LIKE bapi1022_feglg001,

lw_genx LIKE bapi1022_feglg001x,

lw_tim LIKE bapi1022_feglg003,

lw_timx LIKE bapi1022_feglg003x.

DATA: lw_allocations LIKE bapi1022_feglg004.

DATA: lw_allocationsx LIKE bapi1022_feglg004x.

DATA: lw_inventory LIKE bapi1022_feglg011.

DATA: lw_inventoryx LIKE bapi1022_feglg011x.

DATA: l_asset LIKE bapi1022_1-assetmaino.

DATA: lw_return LIKE bapiret2.

LOOP AT gt_ztfi006 ASSIGNING .

CLEAR:lw_key,lw_gen,lw_genx.

CLEAR:lw_tim,lw_timx.

CLEAR: lw_allocations,lw_allocationsx.

CLEAR: lw_inventory,lw_inventoryx.

CLEAR: l_asset,lw_return.

"获得公司代码(潜在的业务规则;只有一个成本控制范围)

SELECT SINGLE

bukrs

INTO -bukrs

FROM csks

WHERE kostl = -kostl

AND datbi >= sy-datum

AND datab <= sy-datum.

lw_key-companycode = -bukrs. "公司代码

lw_gen-assetclass = -anlkl."资产分类

lw_gen-descript = -txt50."文本

lw_gen-invent_no = -invnr."存货号

lw_gen-main_descript = -anlhtxt.

lw_genx-assetclass = 'X'.

lw_genx-descript = 'X'.

lw_genx-invent_no = 'X'.

lw_genx-main_descript = 'X'.

lw_inventory-note = -invzu."补货库存说明

lw_inventoryx-note = 'X'."补货库存说明

lw_tim-costcenter = -kostl."成本中心

lw_timx-costcenter = 'X'.

lw_allocations-evalgroup1 = -ord41."使用状态（评估组1）

lw_allocations-evalgroup5 = -gdlgrp. "资产中类（评估小组5）

lw_allocationsx-evalgroup1 = 'X'."使用状态（评估组1）

lw_allocationsx-evalgroup5 = 'X'. "资产中类（评估小组5）

*---bapi to create asset

CALL FUNCTION 'BAPI_FIXEDASSET_CREATE1'

EXPORTING

key = lw_key

generaldata = lw_gen

generaldatax = lw_genx

inventory = lw_inventory

inventoryx = lw_inventoryx

timedependentdata = lw_tim

timedependentdatax = lw_timx

allocations = lw_allocations

allocationsx = lw_allocationsx

IMPORTING

asset = l_asset

return = lw_return.

IF l_asset IS NOT INITIAL.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

IF lw_return IS NOT INITIAL.

MESSAGE ID lw_return-id TYPE lw_return-type NUMBER lw_ret urn-number

WITH lw_return-message_v1

lw_return-message_v2

lw_return-message_v3

lw_return-message_v4 INTO -mess.

ENDIF.

ELSE.

CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

IF lw_return IS NOT INITIAL.

MESSAGE ID lw_return-id TYPE lw_return-type NUMBER lw_ret urn-number

WITH lw_return-message_v1

lw_return-message_v2

lw_return-message_v3

lw_return-message_v4 INTO -mess.

ENDIF.

ENDIF.