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

Harryjing2018
已于 2024-01-25 17:18:53 修改
阅读量398
点赞数 6
文章标签：其他
于 2024-01-25 16:38:22 首次发布
本文链接：https://blog.csdn.net/beyond911/article/details/135819604
版权
文章目录

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 = wa_data-name12.     "业务范围
    timedependentdatax-bus_area = 'X'.

    origin-vendor_no = wa_data-name17.        "供应商
    originx-vendor_no = 'X'.                  "供应商

    origin-manufacturer = wa_data-name33.        "制造商   原始资产号
    originx-manufacturer = 'X'.                  "制造商   原始资产号

    origin-type_name = wa_data-name28.  "类型名   原始购入日期
    originx-type_name = 'X'.

    allocations-evalgroup1 = wa_data-name16.           "评审小组1使用状态
    allocationsx-evalgroup1 = 'X'.
    allocations-evalgroup2 = wa_data-name06.           "评审小组2-资产来源 20200301 add by skyyan
    allocationsx-evalgroup2 = 'X'.

    "  add it by  sie_jinggl start 20240123

    IF wa_data-name36   IS NOT INITIAL .
      CLEAR:depreciationareas ,depreciationareasx , cumulatedvalues,transactions,postedvalues.
      CLEAR depreciationareas[].
      CLEAR depreciationareasx[].
      depreciationareas-area = '01'.
      depreciationareas-dep_key = wa_data-name19.        "折旧码
      depreciationareas-ulife_yrs = wa_data-name20.      "计划年使用期
      depreciationareas-ulife_prds = wa_data-name21.     "计划使用期间
      depreciationareas-odep_start_date  = wa_data-name38.     "折旧计算开始日期

      APPEND depreciationareas.
      depreciationareasx-area = '01'.
      depreciationareasx-dep_key = 'X'.                  "折旧码
      depreciationareasx-ulife_yrs = 'X'.                "计划年使用期
      depreciationareasx-ulife_prds = 'X'.               "计划使用期间
      depreciationareasx-exp_ulife_yrs = 'X'.            "原始使用年
      depreciationareasx-exp_ulife_prds = 'X'.           "原始使用期间
      depreciationareasx-odep_start_date = 'X'.           " "
      APPEND depreciationareasx.

      CLEAR: cumulatedvalues[].
      IF wa_data-name10+0(4) < sy-datum+0(4).
        cumulatedvalues-fisc_year     = sy-datum+0(4)."'2020'.            "年度
        cumulatedvalues-area     = '01'.                   "范围
        cumulatedvalues-acq_value = wa_data-name37.        "购置价值
        cumulatedvalues-ord_dep = 0 - wa_data-name26.          "累积普通折旧

        APPEND cumulatedvalues.

      ELSE.

        CLEAR transactions[].
        IF wa_data-name38 IS NOT INITIAL.
          transactions-valuedate = wa_data-name38.
          transactions-current_no = '00001'.
          transactions-fisc_year  =  sy-datum+0(4)."'2020'.                  "会计年
          transactions-assettrtyp = '100'.          "事物类型
          transactions-area       = '01'."wa_data-name33'.          "折旧范围
          transactions-amount     = wa_data-name37.          "记账金额
          APPEND transactions.
        ENDIF.


      ENDIF.


      IF  wa_data-name27   <>  0.

        CLEAR postedvalues[].
        postedvalues-fisc_year     = sy-datum+0(4)."'2020'.               "年度
        postedvalues-area     = '01'.                      "范围
        postedvalues-ord_dep = 0 - wa_data-name27.             "一般折旧

        APPEND postedvalues.

      ENDIF.
*

    ENDIF.


    " add  it by sie_jinggl start
    "  The function is  depreciation Range2 .
    IF wa_data-name39   IS NOT INITIAL .
      CLEAR:depreciationareas ,depreciationareasx , cumulatedvalues,transactions,postedvalues.

      depreciationareas-area = '20'.
      depreciationareas-dep_key = wa_data-name40.        "折旧码
      depreciationareas-ulife_yrs = wa_data-name41.      "计划年使用期
      depreciationareas-ulife_prds = wa_data-name42.     "计划使用期间
      depreciationareas-odep_start_date  = wa_data-name43.     "折旧计算开始日期



      APPEND depreciationareas.
      depreciationareasx-area = '20'.
      depreciationareasx-dep_key = 'X'.                  "折旧码
      depreciationareasx-ulife_yrs = 'X'.                "计划年使用期
      depreciationareasx-ulife_prds = 'X'.               "计划使用期间
      depreciationareasx-exp_ulife_yrs = 'X'.            "原始使用年
      depreciationareasx-exp_ulife_prds = 'X'.           "原始使用期间
      depreciationareasx-odep_start_date = 'X'.           "折旧计算开始日
       "

      APPEND depreciationareasx.


      IF wa_data-name10+0(4) < sy-datum+0(4).
        cumulatedvalues-fisc_year     = sy-datum+0(4)."'2020'.            "年度
        cumulatedvalues-area     = '20'.                   "范围
        cumulatedvalues-acq_value = wa_data-name44.        "购置价值
        cumulatedvalues-ord_dep =  0 - wa_data-name45.          "累积普通折旧

*        cumulatedvalues-currency = 'USDT'.
*        cumulatedvalues-currency_iso  = 'USDT' .
        APPEND cumulatedvalues.


      ELSE.
        IF wa_data-name38 IS NOT INITIAL.
          transactions-valuedate = wa_data-name38.
          transactions-current_no = '00001'.
          transactions-fisc_year  =  sy-datum+0(4)."'2020'.                  "会计年
          transactions-assettrtyp = '100'.          "事物类型
          transactions-area       = '20'."wa_data-name33'.          "折旧范围
          transactions-amount     = wa_data-name44.          "记账金额
          APPEND transactions.
        ENDIF.

      ENDIF.
*      CLEAR postedvalues[].
      IF  wa_data-name46   <>  0.
        postedvalues-fisc_year     = sy-datum+0(4)."'2020'.               "年度
        postedvalues-area     = '20'.                      "范围
        postedvalues-ord_dep =  0 - wa_data-name46.             "一般折旧
*
*         postedvalues-currency = 'USDT'.
*         postedvalues-currency_iso = 'USDT'.
*        cumulatedvalues-currency_iso  = 'TRY' .
        APPEND postedvalues.
      ENDIF.


    ENDIF.


    "  The function is  depreciation Range3 .
    IF wa_data-name47  IS NOT INITIAL .
      CLEAR:depreciationareas ,depreciationareasx , cumulatedvalues,transactions,postedvalues.

      depreciationareas-area = '06'.
      depreciationareas-dep_key = wa_data-name48.        "折旧码
      depreciationareas-ulife_yrs = wa_data-name49.      "计划年使用期
      depreciationareas-ulife_prds = wa_data-name50.     "计划使用期间
      depreciationareas-odep_start_date  = wa_data-name51.     "折旧计算开始日期



      APPEND depreciationareas.
      depreciationareasx-area = '06'.
      depreciationareasx-dep_key = 'X'.                  "折旧码
      depreciationareasx-ulife_yrs = 'X'.                "计划年使用期
      depreciationareasx-ulife_prds = 'X'.               "计划使用期间
      depreciationareasx-exp_ulife_yrs = 'X'.            "原始使用年
      depreciationareasx-exp_ulife_prds = 'X'.           "原始使用期间
      depreciationareasx-odep_start_date = 'X'.           "折旧计算开始日



      APPEND depreciationareasx.



      IF wa_data-name10+0(4) < sy-datum+0(4).
        cumulatedvalues-fisc_year     = sy-datum+0(4)."'2020'.            "年度
        cumulatedvalues-area     = '06'.                   "范围
        cumulatedvalues-acq_value = wa_data-name52.        "购置价值
        cumulatedvalues-ord_dep =  0 - wa_data-name53.          "累积普通折旧

        APPEND cumulatedvalues.
      ELSE.

        IF wa_data-name38 IS NOT INITIAL.
          transactions-valuedate = wa_data-name38.
          transactions-current_no = '00001'.
          transactions-fisc_year  =  sy-datum+0(4)."'2020'.                  "会计年
          transactions-assettrtyp = '100'.          "事物类型
          transactions-area       = '06'."wa_data-name33'.          "折旧范围
          transactions-amount     = wa_data-name52.          "记账金额
          APPEND transactions.
        ENDIF.


*
      ENDIF.


*      CLEAR postedvalues[].
      IF wa_data-name54  <> 0 .
        postedvalues-fisc_year     = sy-datum+0(4)."'2020'.               "年度
        postedvalues-area     = '06'.                      "范围
        postedvalues-ord_dep =  0 - wa_data-name54.             "一般折旧
        APPEND postedvalues.
      ENDIF.



    ENDIF.

    "  The function is  depreciation Range4 .
    IF wa_data-name55  IS NOT INITIAL .
      CLEAR:depreciationareas ,depreciationareasx , cumulatedvalues,transactions,postedvalues.

      depreciationareas-area = '30'.
      depreciationareas-dep_key = wa_data-name56.        "折旧码
      depreciationareas-ulife_yrs = wa_data-name57.      "计划年使用期
      depreciationareas-ulife_prds = wa_data-name58.     "计划使用期间
      depreciationareas-odep_start_date  = wa_data-name59.     "折旧计算开始日期




      APPEND depreciationareas.
      depreciationareasx-area = '30'.
      depreciationareasx-dep_key = 'X'.                  "折旧码
      depreciationareasx-ulife_yrs = 'X'.                "计划年使用期
      depreciationareasx-ulife_prds = 'X'.               "计划使用期间
      depreciationareasx-exp_ulife_yrs = 'X'.            "原始使用年
      depreciationareasx-exp_ulife_prds = 'X'.           "原始使用期间
      depreciationareasx-odep_start_date = 'X'.           "折旧计算开始日
      APPEND depreciationareasx.



      IF wa_data-name10+0(4) < sy-datum+0(4).
        cumulatedvalues-fisc_year     = sy-datum+0(4)."'2020'.            "年度
        cumulatedvalues-area     = '30'.                   "范围
        cumulatedvalues-acq_value = wa_data-name60.        "购置价值
        cumulatedvalues-ord_dep =  0 - wa_data-name61.          "累积普通折旧
*        cumulatedvalues-currency = 'USDT'.
*        cumulatedvalues-currency_iso  = 'USDT' .
        APPEND cumulatedvalues.

      ELSE.
        IF wa_data-name38 IS NOT INITIAL.
          transactions-valuedate = wa_data-name38.
          transactions-current_no = '00001'.
          transactions-fisc_year  =  sy-datum+0(4)."'2020'.                  "会计年
          transactions-assettrtyp = '100'.          "事物类型
          transactions-area       = '01'."wa_data-name33'.          "折旧范围
          transactions-amount     = wa_data-name60.          "记账金额
          APPEND transactions.
        ENDIF.

      ENDIF.

*      CLEAR postedvalues[].
      IF wa_data-name62 <> 0 .
        postedvalues-fisc_year     = sy-datum+0(4)."'2020'.               "年度
        postedvalues-area     = '30'.                      "范围
        postedvalues-ord_dep =  0 - wa_data-name62.             "一般折旧
*        postedvalues-currency = 'USDT'.
*        postedvalues-currency_iso = 'USDT'.
        APPEND postedvalues.
      ENDIF.

    ENDIF.


    " add it by sie_jinggl  end 20240123

    gv_count = gv_count + 1.
    gv_prog = '正在处理数据...' && gv_count && '/' && gv_num.
    PERFORM frm_show_progress USING gv_prog.



    CALL FUNCTION 'BAPI_FIXEDASSET_OVRTAKE_CREATE'
      EXPORTING
        key                 = key
        generaldata         = generaldata
        generaldatax        = generaldatax
*       INVENTORY           =
*       INVENTORYX          =
        postinginformation  = postinginformation
        postinginformationx = postinginformationx
        timedependentdata   = timedependentdata
        timedependentdatax  = timedependentdatax
        allocations         = allocations
        allocationsx        = allocationsx
        origin              = origin
        originx             = originx
      IMPORTING
        companycode         = companycode
        asset               = asset
        subnumber           = subnumber
      TABLES
        depreciationareas   = depreciationareas
        depreciationareasx  = depreciationareasx
        cumulatedvalues     = cumulatedvalues
        postedvalues        = postedvalues
        transactions        = transactions
        return              = return.
    APPEND return.

    LOOP AT return  WHERE type = 'E' OR type = 'A'.
    ENDLOOP.
    IF sy-subrc NE 0.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
      wa_data-message = '成功'.
      CONCATENATE asset wa_data-message INTO wa_data-message.
      wa_data-type = 'S'.
      APPEND wa_data TO it_data.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      wa_data-message = return-message.
      wa_data-type = 'E'.
      APPEND wa_data TO it_data.
    ENDIF.
    CLEAR return[].
  ENDLOOP.
3 Summary

Curr1 is local currency .
Curr2 is group currency.
在这里插入图片描述
If the system tell us htat we don’t changed it . We will cancel the field for deleting .
在这里插入图片描述
When the SAP system gets data by exchange rate and we hope we get value from input the following solution is here .

When I debug it and I find the control point is here (The system get data by exchange rate ).

When the field ‘wrtaft’ is not equal ‘00’ and we don’t get value by exchange rate .
在这里插入图片描述