1、 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_inv
2、entoryx 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.“获得公司代码 (潜在的业务规则 ;只有一
3、个成本控制范围 )SELECT SINGLEbukrsINTO -bukrsFROM csksWHERE kostl = -kostl AND datbi = sy-datum AND datab -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.
4、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
5、-evalgroup5 = X. “资产中类（评估小组 5）*-bapi to create assetCALL FUNCTION BAPI_FIXEDASSET_CREATE1EXPORTINGkey = lw_keygeneraldata = lw_gengeneraldatax = lw_genxinventory = lw_inventoryinventoryx = lw_inventoryxtimedependentdata = lw_timtimedependentdatax = lw_timxallocations = lw_allocationsallocationsx = l
6、w_allocationsxIMPORTINGasset = l_assetreturn = 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_return-numberWITH lw_return-message_v1lw_return-message_v2lw_return-message_v3lw_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_return-numberWITH lw_return-message_v1lw_return-message_v2lw_return-message_v3lw_return-message_v4 INTO -mess.ENDIF.ENDIF.
