【樣例代碼】

*&---------------------------------------------------------------------* *& 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,"資產(chǎn)分類TXT50 TYPE ANLA-TXT50,"資產(chǎn)描述TXA50 TYPE ANLA-TXA50,"附加資產(chǎn)說明KOSTL TYPE ANLZ-KOSTL,"成本中心WERKS TYPE ANLZ-WERKS,"工廠STORT TYPE ANLZ-STORT,"資產(chǎn)地點ORD41 TYPE ANLA-ORD41,"評估組1AKTIV TYPE ANLA-AKTIV,"資本化日期SERNR TYPE ANLA-SERNR,"序列號INVNR TYPE ANLA-INVNR,"存貨號GSBER TYPE ANLZ-GSBER,"業(yè)務(wù)范圍RAUMN TYPE ANLZ-RAUMN,"房間MENGE TYPE ANLA-MENGE,"數(shù)量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 附加資產(chǎn)描述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 : '資產(chǎn)創(chuàng)建成功：',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

【效果展示】

?

?

總結(jié)

以上是生活随笔為你收集整理的【Demo】创建固定资产Bapi的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。