SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Create asset using BAPI_FIXEDASSET_CREATE1



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> CO
View previous topic :: View next topic  
Author Message
admin
Администратор
Администратор



Joined: 01 Sep 2007
Posts: 1639

PostPosted: Tue Oct 23, 2007 10:15 am    Post subject: Create asset using BAPI_FIXEDASSET_CREATE1 Reply with quote

Code:
FORM zf_bapi_call USING ps_ls_asset TYPE t_asset
CHANGING ps_ls_asset_created TYPE bapi1022_reference
ps_ws_error TYPE string.
DATA:
ls_key TYPE bapi1022_key,
ls_general_data TYPE bapi1022_feglg001,
ls_general_data_x TYPE bapi1022_feglg001x,
ls_inventory TYPE bapi1022_feglg011,
ls_inventory_x TYPE bapi1022_feglg011x,
ls_posting_information TYPE bapi1022_feglg002,
ls_posting_information_x TYPE bapi1022_feglg002x,
ls_time_dependent_data TYPE bapi1022_feglg003,
ls_time_dependent_data_x TYPE bapi1022_feglg003x,
ls_allocations TYPE bapi1022_feglg004,
ls_allocations_x TYPE bapi1022_feglg004x,
ls_origin TYPE bapi1022_feglg009,
ls_origin_x TYPE bapi1022_feglg009x,
ls_invest_acct_assignmnt TYPE bapi1022_feglg010,
ls_invest_acct_assignmnt_x TYPE bapi1022_feglg010x,
ls_real_estate TYPE bapi1022_feglg007,
ls_real_estate_x TYPE bapi1022_feglg007x,
ls_return TYPE bapiret2.

***** Required fields - Create internal asset number *****
* Company code
ls_key-companycode = ps_ls_asset-bukrs.

* Asset class
ls_general_data-assetclass = ps_ls_asset-anlkl.
ls_general_data_x-assetclass = c_updated.


***** Required fields - General Mills *****
* Asset Description
ls_general_data-descript = ps_ls_asset-txt50.
ls_general_data_x-descript = c_updated.

* Cost center
ls_time_dependent_data-costcenter = ps_ls_asset-kostl.
ls_time_dependent_data_x-costcenter = c_updated.

* Plant
ls_time_dependent_data-plant = ps_ls_asset-werks.
ls_time_dependent_data_x-plant = c_updated.

* Asset location
ls_time_dependent_data-location = ps_ls_asset-stort.
ls_time_dependent_data_x-location = c_updated.

* Smart entity
ls_allocations-evalgroup2 = ps_ls_asset-ord42.
ls_allocations_x-evalgroup2 = c_updated.

* Tax Facility Code
ls_allocations-evalgroup5 = ps_ls_asset-gdlgrp.
ls_allocations_x-evalgroup5 = c_updated.

* Asset capitalization date
ls_posting_information-cap_date = ps_ls_asset-aktiv.
ls_posting_information_x-cap_date = c_updated.


***** Optional fields *****
* Asset Description 2
ls_general_data-descript2 = ps_ls_asset-txa50.
ls_general_data_x-descript2 = c_updated.

* Serial number
ls_general_data-serial_no = ps_ls_asset-sernr.
ls_general_data_x-serial_no = c_updated.

* Asset is managed historically
ls_general_data-history = c_updated.
ls_general_data_x-history = c_updated.

* Inventory number
ls_general_data-invent_no = ps_ls_asset-invnr.
ls_general_data_x-invent_no = c_updated.

* Last inventory date
ls_inventory-date = ps_ls_asset-ivdat.
ls_inventory_x-date = c_updated.

* Supplementary inventory specifications
ls_inventory-note = ps_ls_asset-invzu.
ls_inventory_x-note = c_updated.

* Inventory indicator
ls_inventory-include_in_list = c_updated.
ls_inventory_x-include_in_list = c_updated.

* Business Area
ls_time_dependent_data-bus_area = ps_ls_asset-gsber.
ls_time_dependent_data_x-bus_area = c_updated.

* Cost center responsible for asset
ls_time_dependent_data-resp_cctr = ps_ls_asset-kostlv.
ls_time_dependent_data_x-resp_cctr = c_updated.

* Room
ls_time_dependent_data-room = ps_ls_asset-raumn.
ls_time_dependent_data_x-room = c_updated.

* License plate no. of vehichle
ls_time_dependent_data-plate_no = ps_ls_asset-kfzkz.
ls_time_dependent_data_x-license_plate_no = c_updated.

* Platform
ls_allocations-evalgroup1 = ps_ls_asset-ord41.
ls_allocations_x-evalgroup1 = c_updated.

* GMI Class Code
ls_allocations-evalgroup3 = ps_ls_asset-ord43.
ls_allocations_x-evalgroup3 = c_updated.

* Location Type
ls_allocations-evalgroup4 = ps_ls_asset-ord44.
ls_allocations_x-evalgroup4 = c_updated.

* Reason for investment
ls_allocations-inv_reason = ps_ls_asset-izwek.
ls_allocations_x-inv_reason = c_updated.

* Manufacturer of asset
ls_origin-manufacturer = ps_ls_asset-herst.
ls_origin_x-manufacturer = c_updated.

* Name of asset supplier
ls_origin-vendor = ps_ls_asset-liefe.
ls_origin_x-vendor = c_updated.

* Asset type name
ls_origin-type_name = ps_ls_asset-typbz.
ls_origin_x-type_name = c_updated.

* WBS element investment project - external key
ls_invest_acct_assignmnt-wbs_element = ps_ls_asset-posid.
ls_invest_acct_assignmnt_x-wbs_element = c_updated.

* Local tax office
ls_real_estate-tax_office = ps_ls_asset-fiamt.
ls_real_estate_x-tax_office = c_updated.


CALL FUNCTION 'BAPI_FIXEDASSET_CREATE1'
EXPORTING
key = ls_key
* TESTRUN = 'X'
generaldata = ls_general_data
generaldatax = ls_general_data_x
inventory = ls_inventory
inventoryx = ls_inventory_x
postinginformation = ls_posting_information
postinginformationx = ls_posting_information_x
timedependentdata = ls_time_dependent_data
timedependentdatax = ls_time_dependent_data_x
allocations = ls_allocations
allocationsx = ls_allocations_x
origin = ls_origin
originx = ls_origin_x
investacctassignmnt = ls_invest_acct_assignmnt
investacctassignmntx = ls_invest_acct_assignmnt_x
realestate = ls_real_estate
realestatex = ls_real_estate_x
IMPORTING
assetcreated = ps_ls_asset_created
return = ls_return.

IF ls_return-type = 'S'.
COMMIT WORK.
ELSE.
CLEAR: ps_ls_asset_created.
ps_ws_error = ls_return-message.
ENDIF.

ENDFORM. " zf_bapi_call


PS: BAPI_FIXEDASSET_CREATE (Obsolete in 46A)
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> CO All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You cannot download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.