期初资产导入BAPI

VIP文章 qq_39052254

已于 2022-09-21 11:49:35 修改

阅读量258

点赞数

分类专栏： SAP 文章标签：经验分享

于 2022-09-21 11:44:28 首次发布

本文链接：https://blog.csdn.net/qq_39052254/article/details/126969795

版权

*&---------------------------------------------------------------------*
*& Form frm_call_bapi
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      <-- <FS_DATA>
*&---------------------------------------------------------------------*
FORM frm_call_bapi  CHANGING cs_data TYPE ty_data.
  DATA: ls_bapi_te_anlu       TYPE bapi_te_anlu.
  DATA: lv_companycode         TYPE bapi1022_1-comp_code,
        ls_key                 TYPE bapi1022_key,
        ls_generaldata         TYPE bapi1022_feglg001,
        ls_generaldatax        TYPE  bapi1022_feglg001x,
        ls_postinginformation  TYPE bapi1022_feglg002,
        ls_postinginformationx TYPE bapi1022_feglg002x,
        ls_timedependentdata   TYPE  bapi1022_feglg003,
        ls_timedependentdatax  TYPE  bapi1022_feglg003x,
        ls_allocations         TYPE bapi1022_feglg004,
        ls_allocationsx        TYPE  bapi1022_feglg004x,
        ls_origin              TYPE bapi1022_feglg009,
        ls_originx             TYPE bapi1022_feglg009x,
        lt_extensionin         TYPE TABLE OF bapiparex WITH HEADER LINE,
        ls_assetcreated        TYPE bapi1022_reference,
        lt_depreciationareas   TYPE TABLE OF bapi1022_dep_areas WITH HEADER LINE,
        lt_depreciationareasx  TYPE TABLE OF bapi1022_dep_areasx WITH HEADER LINE,
        lt_cumulatedvalues     TYPE TABLE OF bapi1022_cumval WITH HEADER LINE,
        lt_postedvalues        TYPE TABLE OF bapi1022_postval WITH HEADER LINE,
        lt_transactions        TYPE TABLE OF bapi1022_trtype WITH HEADER LINE,
        lt_return              TYPE TABLE OF bapiret2,
        ls_return              TYPE bapiret2,
        lv_fisc_year           TYPE bapi1022_cumval-fisc_year,
        lv_type                TYPE char1,
        l_afblpe               TYPE t093u-afblpe,
        l_datum                TYPE t093c-datum.

  CLEAR: ls_key, ls_generaldata, ls_generaldatax, ls_timedependentdata, ls_timedependentdatax,
         ls_allocations, ls_allocationsx, lt_extensionin, lt_depreciationareas,
         lt_depreciationareasx, ls_assetcreated, ls_return, lv_fisc_year,lv_type.
  REFRESH: lt_extensionin[], lt_depreciationareas[], lt_depreciationareasx[],
           lt_cumulatedvalues[], lt_postedvalues[], lt_transactions[], lt_return[].

  SELECT SINGLE * INTO @DATA(ls_t093c)
    FROM t093c
    WHERE bukrs = @cs_data-bukrs.

  l_afblpe = ls_t093c-datum+4(2)."月度

  lv_fisc_year = ls_t093c-lgjahr.

  DATA(lv_out_anlkl) = |{ cs_data-anlkl A