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.