事务码ABAVN-资产卡片报废-BAPI_ASSET_RETIREMENT

注意点：
1.
ls_retirementdata-compl_ret = ‘X’."标志: 记帐全部报废
有完全报废标识的情况，
报废金额ls_retirementdata-amount = iv_anbtr
报废百分比ls_retirementdata-perc_rate = iv_prozs
报废数量ls_retirementdata-quantity = iv_menge
不可有值否则报错:“不允许使用此组合表目”
金额,百分比,数量必输切只能输一个

2.
有报废金额金额时报废金额币别必输
有报废数量时报废单位必输

代码如下
FUNCTION zfm_rfc_anln1_scrap.
*“----------------------------------------------------------------------
"“本地接口：
*” IMPORTING
*” VALUE(IV_BUKRS) TYPE BUKRS OPTIONAL
*" VALUE(IV_ANLN1) TYPE ANLN1 OPTIONAL
*" VALUE(IV_BLDAT) TYPE BLDAT DEFAULT SY-DATUM
*" VALUE(IV_BUDAT) TYPE BUDAT DEFAULT SY-DATUM
*" VALUE(IV_BZDAT) TYPE BZDAT OPTIONAL
*" VALUE(IV_ANBTR) TYPE ANBTR OPTIONAL
*" VALUE(IV_PROZS) TYPE PROZS OPTIONAL
*" VALUE(IV_MENGE) TYPE MENGE_D OPTIONAL
*" EXPORTING
*" VALUE(EV_STATUS) TYPE CHAR1
*" VALUE(EV_MESSAGE) TYPE CHAR100
*" VALUE(EV_XBLNR) TYPE XBLNR
*"----------------------------------------------------------------------
*(修改日志)--------------------------------------------------------
*

日志号修改人修改时间修改说明传输号码
001

DATA: ls_generalpostingdata TYPE bapifapo_gen_info,
ls_retirementdata TYPE bapifapo_ret,
ls_doc TYPE bapifapo_doc_ref,
ls_return TYPE bapiret2,
ls_furtherpostingdata TYPE bapifapo_add_info.

IF iv_bukrs IS INITIAL.
ev_status = ‘E’.
ev_message = ‘公司代码为空’.
ENDIF.

IF iv_anln1 IS INITIAL.
ev_status = ‘E’.
IF ev_message IS INITIAL.
ev_message = ‘资产编码为空’.
ELSE.
ev_message = ev_message && ‘/’ && ‘资产编码为空’.
ENDIF.
ENDIF.

IF iv_bzdat IS INITIAL.
ev_status = ‘E’.
IF ev_message IS INITIAL.
ev_message = ‘资产价值日期为空’.
ELSE.
ev_message = ev_message && ‘/’ && ‘资产价值日期为空’.
ENDIF.
ENDIF.

IF iv_anbtr IS NOT INITIAL .
DATA(lv_add) = 1.
ENDIF.

"记账金额,百分比,数量必输切只能输一个检查
IF iv_prozs IS NOT INITIAL .
lv_add = lv_add + 1.
ENDIF.

IF iv_menge IS NOT INITIAL .
lv_add = lv_add + 1.
ENDIF.

IF lv_add <> 1 .
ev_status = ‘E’.
IF ev_message IS INITIAL.
ev_message = ‘记账金额,百分比,数量必输切只能输一个’.
ELSE.
ev_message = ev_message && ‘/’ && ‘记账金额,百分比,数量必输切只能输一个’.
ENDIF.

ENDIF.

IF ev_status <> ‘E’.

ls_generalpostingdata-username    = sy-uname.
ls_generalpostingdata-doc_type    = 'AA'.
ls_generalpostingdata-doc_date    = iv_bldat."凭证中的凭证日期
ls_generalpostingdata-pstng_date  = iv_bldat."凭证中的过账日期
ls_generalpostingdata-fis_period  = iv_bldat+4(2)."会计期间

ls_generalpostingdata-trans_date = iv_bzdat. "换算日期
ls_generalpostingdata-comp_code = iv_bukrs. "公司代码
ls_generalpostingdata-assetmaino = iv_anln1. "主资产号
ls_generalpostingdata-assetsubno = ‘0000’.
ls_generalpostingdata-assettrtyp = ‘’.

SELECT SINGLEaktiv ,meinsFROM anlaINTO ( @DATA(lv_aktiv) ,@DATA(lv_meins) )WHERE anln1 = @iv_anln1AND anln2 = '0000'.
IF sy-subrc = 0.IF lv_aktiv+0(4) = sy-datum+0(4)."当年的用250ls_generalpostingdata-assettrtyp  = '250'.ELSE.ls_generalpostingdata-assettrtyp  = '200'."往年的用200ENDIF.
ENDIF.IF iv_anbtr <> 0.ls_retirementdata-amount  = iv_anbtr. "记账金额ls_retirementdata-currency   = 'CNY'. "记账金额
ENDIF.IF iv_prozs <> 0.ls_retirementdata-perc_rate  = iv_prozs. "百分比
ENDIF.IF iv_menge <> 0.ls_retirementdata-quantity   = iv_menge. "数量ls_retirementdata-base_uom  = lv_meins."单位
ENDIF.ls_retirementdata-valuedate  = iv_bzdat."参考日期

ls_retirementdata-compl_ret = ‘X’."标志: 记帐全部报废

ls_furtherpostingdata-header_txt = iv_anln1 && '资产报废'."将文本写入报废会计凭证的抬头文本
ls_furtherpostingdata-item_text = iv_anln1 && '资产报废'."将文本写入报废会计凭证的抬头文本CALL FUNCTION 'BAPI_ASSET_RETIREMENT_POST'EXPORTINGgeneralpostingdata = ls_generalpostingdataretirementdata     = ls_retirementdatafurtherpostingdata = ls_furtherpostingdataIMPORTINGdocumentreference  = ls_docreturn             = ls_return.
IF ls_return-type = 'S'.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.IF ls_return-number = '374' ANDls_return-id     = 'AA'.ev_status = 'S'.ev_message = '报废成功'.ev_xblnr = ls_return-message_v2.ENDIF.
ELSE.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ev_status = 'E'.ev_message = ls_return-message.
ENDIF.

ENDIF.
ENDFUNCTION.

事务码ABAVN-资产卡片报废-BAPI_ASSET_RETIREMENT_POST相关推荐

PHP资产管理系统源码适用于IT办公行业固定资产管理，资产录入设备管理，功能齐全，可自由设计资产卡片
PHP资产管理系统源码适用于IT办公行业固定资产管理,资产录入设备管理,功能齐全,可自由设计资产卡片. 程序基于开源框架layuimini开发,可本地部署,可局域网以及服务器联网运行. ,带部署文档, ...
PHP资产管理系统源码可自由设计资产卡片
PHP资产管理系统源码可自由设计资产卡片,适用于IT办公行业固定资产管理,资产录入设备管理,功能齐全. 标价即实价. 源码全开源基于layuimini,可本地部署,可局域网以及服务器联网运行. 需求环 ...
PHP资产管理系统源码可自由设计资产卡片，适用于IT办公行业固定资产管理
PHP资产管理系统源码可自由设计资产卡片,适用于IT办公行业固定资产管理,资产录入设备管理,功能齐全. 标价即实价. 源码全开源基于layuimini,可本地部署,也可局域网以及服务器联网运行需求环 ...
SAP FICO常用报表和事务码大全
一.成本报表事务码报表中文名 KA23 成本要素: 主数据报表 KABL 订单: 计划概况 KABP 成本控制凭证: 计划 KK04 统计关键指标: 主数据报告 KL13 作业类型: 主数据报告 ...
SAP 固定资产事务码一览表
下表是可用于事务类型定义的事务码的归纳以及相对应的定义折旧范围限制的事务码. 业务处理事务类型定义折旧范围的限制取得 AO73 OAYA 报废 AO74 OAXB 转移取得 AO75 OAXC ...
geany怎么创建文件夹_SAP事务码太多，记不住怎么办？
不同于国产财务软件,SAP提供了直接输入命令的便捷功能,例如在命令框中输入F-02可以直接进入到财务记账界面,使用起来非常方便. 但是对于很多SAP初学者来说,SAP有太多的事务代码了,真的好难记住呀 ...
SAP事务码f-02做账界面显示“页数”字段
事务码 f-02 做账界面,没有显示页数. 用户账号的参数添加 CSF (Country-Specific Fields)参数,参数值为 CN(伟大的China) 再次来到 f-02 的界面,显示了页 ...
SAP PM 设备维护事务码收集整理
SAP PM 设备维护事务码收集整理,留存备查,总有一款适合你 . 事务码描述 IBI2 Plant Maintenance Batch Input 设备维护批输入 IBIP PM: Batch I ...
SAP事务码MM17物料主数据批量维护
这个事务码真的很有意思,因为可以看到物料主数据不同层次的内容. 为什么这么说呢? 进入MM17

事务码ABAVN-资产卡片报废-BAPI_ASSET_RETIREMENT_POST

事务码ABAVN-资产卡片报废-BAPI_ASSET_RETIREMENT_POST相关推荐

最新文章

热门文章