SAP 固资测试

SPRO >> 定义报废的交易类型

 关闭固定资产：AS03会更新“不活动日期”

 此处手工可以输入报废收入，录入到“固定资产清理”。实际输入得是本币未税的金额。

可以更新AS03里的“不活动日期”，但是更新不了“资产状态”。

 AB08 可以冲销

 

 

 要过账。

冲销可以更新AS03里的“不活动日期”，但是更新不了“资产状态”。

DATA: ls_res  TYPE  zsfi0007b,
      ls_item TYPE  zsfi0009c,
      lt_item TYPE TABLE OF zsfi0009c.

ls_item-anln1_c =  '001603000173' .          ""主资产号
ls_item-anln2_c =  '0000' .                 ""资产子编号
ls_item-anln1_q =  '' .                      ""主资产号
ls_item-anln2_q =  '' .                      ""资产子编号
ls_item-wrbtr =  10 .                      ""凭证货币金额
ls_item-dmbtr_c =  10 .                    ""按本位币计的金额
ls_item-dmbtr_q =  0.                     ""按本位币计的金额
ls_item-wmwst =  0.                       ""以凭证货币计的税额
ls_item-hkont =  '' .                        ""总账科目
ls_item-prctr =  'NB-S' .                    ""利润中心
ls_item-kostl =  'C131193001' .              ""成本中心
ls_item-werks =  'RMK1' .                    ""工厂
ls_item-stort =  '' .                        ""资产地点
ls_item-fiamt =  'C10002345' .                        ""地税局
ls_item-zuonr =  '' .                        ""分配编号
ls_item-anlkm =  '' .                        ""易点易动分级值
ls_item-ndper_02 =  0 .                    ""计划使用期间"

APPEND ls_item TO lt_item.

CALL FUNCTION 'ZFI_I009_FA_SELL_AND_GET'
  EXPORTING
    iv_sell_bukrs     = 'C131'
    iv_sell_applicant = 'SGDZC-20230619-0005'
    iv_sell_budat     = '20230915' "SY-DATUM
    iv_sell_waers     = 'CNY'
    iv_sell_kursf     = 1
    iv_sell_kunnr     = '0000050131'
    iv_sell_taxcd     = 'X1'
*   IV_GET_BUKRS      =
*   IV_GET_APPLICANT  =
    iv_get_budat      = '20230920' "SY-DATUM
*   IV_GET_WAERS      =
*   IV_GET_KURSF      =
*   IV_GET_KURSF2     =
*   IV_GET_LIFNR      =
*   IV_GET_TAXCD      =
*   IV_EXNUM          =
*   IV_REQUESTID      =
*   IV_USER           =
    iv_ties           = ''
    iv_sgtxt          = '日腾仓库固定资产已售卖，售卖资金已入账日铭'
    lv_sfky           = ''
    iv_user1          = 'C10089213_1'
    iv_user2          = 'C10089213_2'
 "  iv_abtei          = 'SAP'
 "  iv_belnr          = '1800001121'
  IMPORTING
    es_res            = ls_res
  TABLES
    t_item            = lt_item.


BREAK-POINT.

 SQL取值

SELECT
    bkpf~bukrs,          ""公司代码
    bkpf~belnr,          ""会计凭证号码
    bkpf~gjahr,          ""会计年度
    bkpf~blart,          ""凭证类型
    bkpf~bldat,          ""凭证中的凭证日期
    bkpf~budat,          ""凭证中的过账日期
    bkpf~cpudt,          ""会计凭证输入日期
    bkpf~usnam,          ""用户名

    bkpf~bktxt,          ""凭证抬头文本

    bseg~wrbtr,          ""凭证货币金额
    bseg~zuonr,          ""分配编号
    bseg~sgtxt          ""项目文本

FROM bseg
    LEFT JOIN bkpf ON bkpf~bukrs = bseg~bukrs AND bkpf~gjahr = bseg~gjahr AND bkpf~belnr = bseg~belnr
WHERE
  bseg~hkont = '0016060101' AND
  bkpf~blart IN ('AA','DR') AND
" bkpf~stblg IS INITIAL AND
  bkpf~cpudt > '20220913' AND
  bkpf~tcode IS INITIAL          ""事务代码
  and bkpf~bukrs = 'C115' ""如皋立讯
 INTO TABLE @DATA(gt_data).


SELECT
    bkpf~bukrs,          ""公司代码
    bkpf~belnr,          ""会计凭证号码
    bkpf~gjahr,          ""会计年度
    bkpf~blart,          ""凭证类型
    bkpf~bldat,          ""凭证中的凭证日期
    bkpf~budat,          ""凭证中的过账日期
    bkpf~cpudt,          ""会计凭证输入日期
    bkpf~usnam,          ""用户名

    bkpf~bktxt,          ""凭证抬头文本

    bseg~wrbtr,          ""凭证货币金额
    bseg~zuonr,          ""分配编号
    bseg~sgtxt          ""项目文本

FROM bseg
    LEFT JOIN bkpf ON bkpf~bukrs = bseg~bukrs AND bkpf~gjahr = bseg~gjahr AND bkpf~belnr = bseg~belnr
WHERE
  bseg~hkont = '0016060101' AND
  bkpf~blart IN ('AA','DR') AND
 bkpf~stblg IS INITIAL AND
  bkpf~cpudt > '20220913' AND
  bkpf~tcode IS INITIAL          ""事务代码
  and bkpf~bukrs = 'C115' ""如皋立讯
 INTO TABLE @DATA(gt_data1).

SELECT
    bkpf~bukrs,          ""公司代码
    bkpf~belnr,          ""会计凭证号码
    bkpf~gjahr,          ""会计年度
    bkpf~blart,          ""凭证类型
    bkpf~bldat,          ""凭证中的凭证日期
    bkpf~budat,          ""凭证中的过账日期
    bkpf~cpudt,          ""会计凭证输入日期
    bkpf~usnam,          ""用户名

    bkpf~bktxt,          ""凭证抬头文本

    bseg~wrbtr,          ""凭证货币金额
    bseg~zuonr,          ""分配编号
    bseg~sgtxt          ""项目文本

FROM bseg
    LEFT JOIN bkpf ON bkpf~bukrs = bseg~bukrs AND bkpf~gjahr = bseg~gjahr AND bkpf~belnr = bseg~belnr
WHERE
  bseg~hkont = '0016060101' AND
  bkpf~blart IN ('AA','DR') AND
 " bkpf~stblg IS INITIAL AND
  bkpf~cpudt > '20220913' AND
  bkpf~tcode IS INITIAL          ""事务代码
  and bkpf~bukrs <> 'C115' ""如皋立讯
 INTO TABLE @DATA(gt_data2).


SELECT
    bkpf~bukrs,          ""公司代码
    bkpf~belnr,          ""会计凭证号码
    bkpf~gjahr,          ""会计年度
    bkpf~blart,          ""凭证类型
    bkpf~bldat,          ""凭证中的凭证日期
    bkpf~budat,          ""凭证中的过账日期
    bkpf~cpudt,          ""会计凭证输入日期
    bkpf~usnam,          ""用户名

    bkpf~bktxt,          ""凭证抬头文本

    bseg~wrbtr,          ""凭证货币金额
    bseg~zuonr,          ""分配编号
    bseg~sgtxt          ""项目文本

FROM bseg
    LEFT JOIN bkpf ON bkpf~bukrs = bseg~bukrs AND bkpf~gjahr = bseg~gjahr AND bkpf~belnr = bseg~belnr
WHERE
  bseg~hkont = '0016060101' AND
  bkpf~blart IN ('AA','DR') AND
 bkpf~stblg IS INITIAL AND
  bkpf~cpudt > '20220913' AND
  bkpf~tcode IS INITIAL          ""事务代码
  and bkpf~bukrs <> 'C115' ""如皋立讯
 INTO TABLE @DATA(gt_data3).


BREAK-POINT.