资产管理中的原始资产

我写这个文件是为了那些在确定资产管理中的原始资产时遇到问题的人。我希望这些信息能满足您的要求。

先决条件：

1。需要考虑ANLA、ANEK、ANEP、ANLB的SAP表

2。输入选择屏幕

3。选择文本

4。文本符号

5。我们需要确定以下信息

原资产公司代码

原资产编号

原资产子编号

原资产订单折旧开始日期

6。相关程序代码

*---------------------------

*---------------------------

*开发者：B Raghu Prasad（Mouritech私人有限公司）

*创建日期：2015年7月23日

*功能区：资产管理

*目的：本程序将确定原始资产

*------------------------------*

*------------------------------*

报表系统报告

*-局部变量声明

数据：lv\U anlkl类型安乐安乐，

安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐安乐，

吕祖格特dzugdat型，

吕祖格达特afabg型，

吕祖格达特表格（5）n型

*-结构声明

类型：天路安陆1号开始，

安陆1号安陆-anln1型，

安陆2号安陆-anln2型，

天路安陆1号结束。

*-资产转移链

类型：天路安陆链开始，

布克尔斯安陆-bukrs型，

安陆1号安陆-anln1型，

安陆2型类型anla-anln2，

zugdt类型anla-zugdt，

afabg类型anlb-afabg，

deakt类型anla-deakt，大数据数据，

ty-U资产链末端。

*-产出结构

类型：ty-U产出开始，

bukrs类型bukrs，

anln1类型anln1，

anln2类型anln2，人工智能技术发展，

afabg类型afabg，

oribukrs类型bukrs，

ORIALN1类型anln2，

oriafabg型afabg，

ty输出结束。

*-内部表格和工作区声明

数据：waanln1型tyanln1型，

itanln1型tyanln1型标准表格，

gtANLU型ANLNA型表格，

waANLNA型anln1型tywa，

it\U输出类型ty\U输出标准表。

数据：it\U fieldcatalog类型slis\U t\U fieldcat\U alv，

wa\U fieldcatalog类型slis\U fieldcat\U alv，物联网传感器，

wa\U fieldlayout类型slis\U layout\U alv，

gd\U repid类型sy repid。

*-资产列表转移链

数据：it\U资产链类型ty\U资产链标准表，

wa\ U asset\ U chain ty\ U asset\ U chain。

*-选择屏幕

选择屏幕以框标题text-001的b1块开始。

参数：p\ bukrs LIKE bkpf bukrs DEFAULT‘HU01’，

p\ gjahr LIKE bkpf gjahr DEFAULT sy datum+0（4）。

选择选项：s\ zuper表示lv\ zuper NO-EXTENSION，

s\ anlkl表示lv anlkl强制，淘客推广渠道，

s\ U asset FOR lv\ U asset.

选择-屏幕b1区结束

开始选择

*-从停用日期为空的ANLA获取数据（仅活动资产）

清除：gt\ U ANLA[]。

从ANLA选择*到gt\ U ANLA表，其中bukrs=p\ U bukrs

和anln1在s\ U asset

中，anlkl在s\ anlkl

中，zujhr=p\ U gjahr

和zuper在s\ U zuper

和deakt中=‘00000000’。

如果gt\U anla不是初始的。

*-循环所有资产并确定其原始资产

循环gt\U anla到wa\U anla。

lv\U bukrs=wa\U anla-bukrs。

lv\U anln1=wa\U anla-anln1。

lv\U anln2=wa\U anla-anln2。

清除：it\U anln1[]。

DO。

清除：wa\U anln1。

读取表格it\U anln1到wa\U anln1，按键anln1=lv\U anln2=lv泷anln2.

如果sy subrc NE 0.

清除：wa泷anln1.

wa泷anln1-anln1=lv泷anln2.

将wa泷anln1附加到它上面

否则

退出

结束

选择单个a~aibn1 a~aibn2 a~zugdt a~deakt b~afabg

进入（lv泷aibn1，lv泷aibn2，lv泷zugdt，lv泷deakt，lv\U afabg）

从安拉作为内部连接anlb作为b在

a~bukrs=b~bukrs和

a~anln1=b~anln1和

a~anln2=b~anln2和

b~afabe='01''折旧区在我的情况下

其中a~bukrs=lv\U bukrs和

a~anln1=lv\U anln1和

a~anln2=lv\U anln2.

*-获取原始资产的公司代码

使用lv\U bukrs执行Get\U partner\U bukrslv\ U anln1 lv\ U anln2

lv\ U aibn1 lv\ U aibn2

更改lv\ U pbukr.

清除wa\ U资产链

wa\ U资产链-bukrs=lv\ U bukrs.

wa\ U资产链-anln1=lv\ U anln1.

wa\ U资产链-anln2=lv\ U anln2.

wa\ U资产链-deakt=lv\ U deakt.

wa\ U资产链-zugdt=lv\ U zugdt.

wa\ U资产链-afabg=lv\ U afabg.

追加wa\ U资产链至it资产链

清除：wa资产链

如果lv资产链1是初始的

退出

结束

结束

lv资产链=lv资产链1

lv资产链1=lv资产链1

lv资产链2=lv资产链2

结束

如果it资产链不是初始的

清除：wa资产链

将表it资产链读入wa资产链索引1

如果wa资产链1不是初始的

wa资产链输出-bukrs=wa\ U asset\ U chain-bukrs.

wa\ U output-anln1=wa\ U asset\ U chain-anln1.

SHIFT wa\ U output-anln1左移删除前导"0"。

wa\ U output-anln2=wa\ U asset\ U chain-anln2.

wa\ U output-afabg=wa\ U asset\ U chain-afabg.

ENDIF.

lv\ U tablines=行（it\ U asset\ U chain）。

清除：wa\ U asset\ U chain.

将表it\ U asset\ U chain读入wa\ U ASlv\ U tablines.

如果wa\ U asset\ U chain-anln1不是初始值，

wa\ U output-oribukrs=wa\ U asset\ U chain-bukrs.

wa\ U output-ORIALN1=wa\ U asset\ U chain-anln1.

将wa\ U output-ORIALN1左移，删除前导"0"。

wa\ U output-ORIALN2=wa\ U asset\ U chain-anln2.

wa\ U output-ORIAFBG=wa\ U asset chain-afabg.

ENDIF.

ENDIF.

将wa\ U OUit\ U输出。

清除：wa\ U输出，wa\ U anla，lv\ U bukrs，lv\ U bukrs，lv\ U deakt，lv\ U afabg，物联网是学什么的，lv\ U aibn1，

lv\ U anln1，lv\ U anln1，lv\ U zugdt，lv\ U aibn2，lv\ U tablines，

lv\ U anln2，lv\ U anln2，lv\ U pbukr，it\u asset\u chain[]。

ENDLOOP.

ENDIF.

END-OF-SELECTION.

PERFORM build\u fieldcat.

PERFORM display\u alv.

*&-------------------*

*&Form GET\u PARTNER\u BUKRS

*&-------------------*

*查找原始资产的公司代码从中进行内部

*转移

使用pv\u bukrs形成get\u partner\u bukrs

pv\u anln1

pv\u anln2

pv\u aibn1

pv\u aibn2

更改cv\u partner\u bukrs。

如果不是，则pv\u aibn1是初始值。

从anep选择单个k~pbukr进入cv\u bukrs

作为p内部连接anek作为k ON

p~bukrs=k~bukrs和

p~anln1=k~anln1和

p~anln2=k~anln2和

p~gjahr=k~gjahr和

p~lnran=k~lnran

其中p~bukrs=pv\u bukrs和

p~anln1=pv\u anln1和

p~anln2=pv\u anln2和

p~afabe='01'和

p~lnsan=0和

k~anlu1=pv\u aibn1和

k~anlu2=pv\u aibn2。

ENDIF.

如果cv\u partner\u bukrs是首字母。

cv\u partner\u bukrs=pv\U bukrs.

ENDIF.

ENDFORM."获取合作伙伴\U bukrs

*&------------------*

*&表格构建\U FIELDCAT

*&------------------*

*text

*------------------------------*