以前年度资产价值导入以及汇率自动计算解决方案

原创

已于 2024-01-25 17:18:53 修改 · 532 阅读

10 ·

CC 4.0 BY-SA版权

文章标签：

#其他

于 2024-01-25 16:38:22 首次发布

本文详细描述了如何在SAP系统中使用ABAP编程实现一个BLDT函数，涉及资产值的更新，包括资产分类、数量、折旧范围、成本中心等字段的处理，以及与固定资产折旧相关数据的创建、累计值计算和事务处理。

文章目录

1 Introduction

In the example we will finish ABLDT function and modify asset value .

2 Code


  DATA: key                   TYPE bapi1022_key,
        generaldata           TYPE bapi1022_feglg001,
        generaldatax          TYPE bapi1022_feglg001x,
        postinginformation    TYPE bapi1022_feglg002,
        postinginformationx   TYPE bapi1022_feglg002x,
        allocations           TYPE bapi1022_feglg004,
        allocationsx          TYPE bapi1022_feglg004x,
        timedependentdata     TYPE bapi1022_feglg003,
        timedependentdatax    TYPE bapi1022_feglg003x,
        origin                TYPE bapi1022_feglg009,
        originx               TYPE bapi1022_feglg009x,
        transactions          TYPE STANDARD TABLE OF bapi1022_trtype     WITH HEADER LINE,
        depreciationareas     TYPE STANDARD TABLE OF bapi1022_dep_areas  WITH HEADER LINE,
        depreciationareasx    TYPE STANDARD TABLE OF bapi1022_dep_areasx WITH HEADER LINE,
        postedvalues          TYPE STANDARD TABLE OF bapi1022_postval    WITH HEADER LINE,
        cumulatedvalues       TYPE STANDARD TABLE OF bapi1022_cumval     WITH HEADER LINE,
        return                TYPE STANDARD TABLE OF bapiret2           WITH HEADER LINE,
        extensionin           TYPE STANDARD TABLE OF bapiparex WITH HEADER LINE,
        lt_investment_support TYPE STANDARD TABLE OF bapi1022_inv_support WITH HEADER LINE.



  DATA:companycode LIKE  bapi1022_1-comp_code,
       asset       LIKE  bapi1022_1-assetmaino,
       subnumber   LIKE  bapi1022_1-assetsubno.



  CLEAR:gv_num,gv_count.
  gv_num = lines( i_data )."上传条目数

  LOOP AT i_data INTO wa_data.
    IF wa_data-name06 IS INITIAL.
      wa_data-message = TEXT-009.
      wa_data-type = 'E'.
      APPEND wa_data TO it_data.
      CONTINUE.
    ENDIF.
    key-companycode = wa_data-name02.                  "公司代码
    key-asset       = wa_data-name34.   "资产
    key-subnumber   = '0'.           "次级编号

    generaldata-assetclass  = wa_data-name01.          "资产分类
    generaldatax-assetclass = 'X'.
    generaldata-quantity  = wa_data-name08.            "数量
    generaldatax-quantity = 'X'.
    generaldata-base_uom    = wa_data-name09.          "基本计量单位
    generaldatax-base_uom    = 'X'.
    generaldata-descript   = wa_data-name03.           "资产描述
    generaldatax-descript  = 'X'.
    generaldata-descript2  = wa_data-name04.           "附加资产描述
    generaldatax-descript2 = 'X'.
    generaldata-main_descript  = wa_data-name05.           "设备编码
    generaldatax-main_descript = 'X'.

    generaldata-invent_no  = wa_data-name32.           "存货号  EAS资产号
    generaldatax-invent_no = 'X'.

    postinginformation-cap_date  = wa_data-name10.
    postinginformationx-cap_date = 'X'.                "资产资本化日期


    timedependentdata-costcenter = wa_data-name11.     "成本中心
    timedependentdatax-costcenter = 'X'.

    timedependentdata-plant = wa_data-name35.     "工厂
    timedependentdatax-plant = 'X'.

    timedependentdata-bus_area =