【Demo】创建固定资产Bapi

【样例代码】

*&---------------------------------------------------------------------*
*& Report  ZCREATE_ASSET
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*REPORT ZCREATE_ASSET.CONSTANTS : C_UPDATED TYPE C VALUE 'X'.
TYPES : BEGIN OF T_ASSET,BUKRS TYPE ANLA-BUKRS,ANLKL TYPE ANLA-ANLKL,"资产分类TXT50 TYPE ANLA-TXT50,"资产描述TXA50 TYPE ANLA-TXA50,"附加资产说明KOSTL TYPE ANLZ-KOSTL,"成本中心WERKS TYPE ANLZ-WERKS,"工厂STORT TYPE ANLZ-STORT,"资产地点ORD41 TYPE ANLA-ORD41,"评估组1AKTIV TYPE ANLA-AKTIV,"资本化日期SERNR TYPE ANLA-SERNR,"序列号INVNR TYPE ANLA-INVNR,"存货号GSBER TYPE ANLZ-GSBER,"业务范围RAUMN TYPE ANLZ-RAUMN,"房间MENGE TYPE ANLA-MENGE,"数量MEINS TYPE ANLA-MEINS,"单位END OF T_ASSET.START-OF-SELECTION.DATA : LW_ASSET TYPE T_ASSET.DATA : LS_ASSET_CREATED TYPE BAPI1022_REFERENCE.DATA : WS_ERROR TYPE STRING.CLEAR LW_ASSET.LW_ASSET-BUKRS = 'CN40'.LW_ASSET-ANLKL = '00002205'.LW_ASSET-TXT50 = '梅赛德斯奔驰S600 12缸'.LW_ASSET-TXA50 = '梅赛德斯奔驰S600 12缸 2020 Version'.LW_ASSET-KOSTL = '0000111102'.LW_ASSET-WERKS = 'CN41'.LW_ASSET-STORT = '0001'.LW_ASSET-ORD41 = 'CN40'.LW_ASSET-AKTIV = SY-DATUM.LW_ASSET-SERNR = 'S600'.LW_ASSET-INVNR = 'S600 12G'.LW_ASSET-GSBER = 'CN41'.LW_ASSET-RAUMN = 'ROOM'.LW_ASSET-MENGE = 1.LW_ASSET-MEINS = 'EA'.IF LW_ASSET IS NOT INITIAL.PERFORM ZF_BAPI_CALL USING LW_ASSET CHANGING LS_ASSET_CREATED WS_ERROR.ENDIF.*&---------------------------------------------------------------------*
*&      Form  zf_bapi_call
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PS_LS_ASSET          text
*      <--PS_LS_ASSET_CREATED  text
*      <--PS_WS_ERROR          text
*----------------------------------------------------------------------*
FORM ZF_BAPI_CALL USING PS_LS_ASSET TYPE T_ASSETCHANGING PS_LS_ASSET_CREATED TYPE BAPI1022_REFERENCEPS_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 CODELS_KEY-COMPANYCODE = PS_LS_ASSET-BUKRS.* Asset classLS_GENERAL_DATA-ASSETCLASS = PS_LS_ASSET-ANLKL.LS_GENERAL_DATA_X-ASSETCLASS = C_UPDATED.***** Required fields - General Mills *****
* ASSET DESCRIPTIONLS_GENERAL_DATA-DESCRIPT = PS_LS_ASSET-TXT50.LS_GENERAL_DATA_X-DESCRIPT = C_UPDATED.LS_GENERAL_DATA-QUANTITY = PS_LS_ASSET-MENGE.LS_GENERAL_DATA_X-QUANTITY = C_UPDATED.LS_GENERAL_DATA-BASE_UOM = PS_LS_ASSET-MEINS.LS_GENERAL_DATA_X-BASE_UOM = C_UPDATED.* Cost centerLS_TIME_DEPENDENT_DATA-COSTCENTER = PS_LS_ASSET-KOSTL.LS_TIME_DEPENDENT_DATA_X-COSTCENTER = C_UPDATED.* PlantLS_TIME_DEPENDENT_DATA-PLANT = PS_LS_ASSET-WERKS.LS_TIME_DEPENDENT_DATA_X-PLANT = C_UPDATED.* Asset locationLS_TIME_DEPENDENT_DATA-LOCATION = PS_LS_ASSET-STORT.LS_TIME_DEPENDENT_DATA_X-LOCATION = 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 numberLS_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 numberLS_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 AreaLS_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.* RoomLS_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.* PlatformLS_ALLOCATIONS-EVALGROUP1 = PS_LS_ASSET-ORD41.LS_ALLOCATIONS_X-EVALGROUP1 = C_UPDATED.
*  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'EXPORTINGKEY                  = LS_KEY
*     TESTRUN              = 'X'GENERALDATA          = LS_GENERAL_DATAGENERALDATAX         = LS_GENERAL_DATA_XINVENTORY            = LS_INVENTORYINVENTORYX           = LS_INVENTORY_XPOSTINGINFORMATION   = LS_POSTING_INFORMATIONPOSTINGINFORMATIONX  = LS_POSTING_INFORMATION_XTIMEDEPENDENTDATA    = LS_TIME_DEPENDENT_DATATIMEDEPENDENTDATAX   = LS_TIME_DEPENDENT_DATA_XALLOCATIONS          = LS_ALLOCATIONSALLOCATIONSX         = LS_ALLOCATIONS_XORIGIN               = LS_ORIGINORIGINX              = LS_ORIGIN_XINVESTACCTASSIGNMNT  = LS_INVEST_ACCT_ASSIGNMNTINVESTACCTASSIGNMNTX = LS_INVEST_ACCT_ASSIGNMNT_XREALESTATE           = LS_REAL_ESTATEREALESTATEX          = LS_REAL_ESTATE_XIMPORTINGASSETCREATED         = PS_LS_ASSET_CREATEDRETURN               = LS_RETURN.IF LS_RETURN-TYPE = 'S'.COMMIT WORK.WRITE : '资产创建成功：',PS_LS_ASSET_CREATED-COMPANYCODE,PS_LS_ASSET_CREATED-ASSET,PS_LS_ASSET_CREATED-SUBNUMBER.ELSE.CLEAR: PS_LS_ASSET_CREATED.PS_WS_ERROR = LS_RETURN-MESSAGE.WRITE : PS_WS_ERROR.ENDIF.ENDFORM. " zf_bapi_call

【效果展示】

【Demo】创建固定资产Bapi相关推荐

SAP ABAP 业务对象 BUS1022 FixedAsset 固定资产 BAPI 清单和相关 TCODE
SAP ABAP 业务对象 BUS1022 FixedAsset 固定资产 BAPI 清单和相关 TCODE 简介: SAP ABAP 业务对象 BUS1022 FixedAsset 固定资产 BAP ...
SAP ABAP 财务FI（CO-PA 行项目分录） KE21N创建凭证BAPI及范例
文章目录前言一.范例代码总结前言使用BDC可能会遇到错误无法报出,转而使用BAPI KE21N创建凭证BAPI及范例使用到的BAPI: BAPI_COPAACTUALS_POSTCOSTD ...
优品购第一天demo创建测试
优品购第一天demo创建测试创建maven项目 1.右键点击workspase->new---->module 2.选择maven----->next 3.填写包GroupId-- ...
AS01 创建固定资产卡片 BAPI_FIXEDASSET_CREATE1
注 1.折旧范围会自己带出来,要改的字段打x就行了 demo code function zfm_erp_012. *"----------------------------------- ...
01【ArcGIS Pro SDK for Microsoft .NET】环境搭建及Demo创建
写在前面 ArcGIS Pro SDK for Microsoft .NET的开发环境配置其实很简单,它不用像配置前端开发环境那样安装nodeJS啥的,我们只需要安装一个Visual Studio就可 ...
【富文本编辑器】Ueditor的demo——创建、修改——代码使用
文章目录富文本编辑器简述: 使用: 1.下载的demo: 2.项目创建: 3.修改代码: 4.使用富文本编辑器: 示例: 富文本编辑器 Ueditor的资源官网:http://fex.baidu. ...
二、UNO项目Demo创建时遇到的问题
UNO官方有demo代码,但是我们按照demo实现后,很可能编译报错. demo1_BugTracker 1.通过NuGet下载Refactored.MvvmHelpers,并安装到到各个子项目类型上 ...
F-02 创建财务凭证BAPI
**1.获取抬头参数, documentheader **2.项目参数 accountgl = lt_acgl"G/L account item accountreceivable = lt ...
【ABAP】固定资产创建BAPI无法自动写入增强字段处理
固定资产创建BAPI无法自动写入增强字段处理通过实现增强点"AIST0002"给SAP固定资产主数据屏幕添加自定义字段(增强实现这里省略). (下图的增强字段仅供参考) 目前需要 ...

【Demo】创建固定资产Bapi

【Demo】创建固定资产Bapi相关推荐

最新文章

热门文章