ABAP资产负债表DEMO直接运行文档格式.docx
- 文档编号:17064363
- 上传时间:2022-11-28
- 格式:DOCX
- 页数:31
- 大小:27.67KB
ABAP资产负债表DEMO直接运行文档格式.docx
《ABAP资产负债表DEMO直接运行文档格式.docx》由会员分享,可在线阅读,更多相关《ABAP资产负债表DEMO直接运行文档格式.docx(31页珍藏版)》请在冰豆网上搜索。
行次
start1
LIKE
faglflext-hslvt,"
期初值
end1
期未值
asset2(30)
row2
(2)
start2
end2
END
tb_result.
prt_result
start1(16)
end1(16)
start2(16)
end2(16)
prt_result.
variant
declare
s_butxt(50)
公司名称
s_m1(23)
s_m2(23)
s_m3(23)
s_m4(23)
c.
**PARAMTERS
FOR
OUTPUT
FORMAT
i_lwidth
i
VALUE
185,
横线宽
i_col1
35,
列1宽
i_col2
4,
列2宽
i_col3
20,
列3宽
i_col4
20.
列4宽
dynpread
TABLE
WITH
HEADER
LINE.
dcurr
bapi1093_0
TYPE-POOLS:
slis.
fieldcat
slis_t_fieldcat_alv
LINE,
fld_head
slis_listheader,
sortcat
slis_t_sortinfo_alv,
sortcatln
LINE
sortcat,
itab_listhead
slis_t_listheader,
layout
slis_layout_alv,
v_repid
sy-repid,
rt_extab
slis_t_extab,
eventcat
slis_t_event.
tmpdate
sy-datum,
prtdate
tempcurr
bapi1093_1-from_curr,
exch_rate(10)
txunit(10)
errorflag
txcurr(16)
selection-screen
SELECT-OPTIONS:
s_rbukrs
bkpf-bukrs
OBLIGATORY
公司代码
PARAMETERS:
i_gjahr
bkpf-gjahr
DEFAULT
sy-datum+0(4)
OBLIGATORY,
财务年度
i_monat
bkpf-monat
期间
*
waers
like
bkpf-waers
OBLIGATORY.
货币代码
p_butxt(40)
SELECTION-SCREEN
BLOCK
b02
FRAME
TITLE
tit.
选择屏幕
单选按钮
p_1
RADIOBUTTON
GROUP
g1
'
X'
p_2
g1,
p_3
g1.
b02.
选择屏幕结束
b01
text-001.
m_1
g2
m_2
g2,
p_flag
AS
CHECKBOX.
b01.
initialization
INITIALIZATION.
tit
=
金额单位'
.
AT
OUTPUT
*AT
OUTPUT.
perform
read_screen.
LOOP
SCREEN.
IF
AND
(
screen-name
WAERS'
or
P_FLAG'
%_WAERS_%_APP_%-TEXT'
).
screen-active
1.
if
screen-request
screen-required
endif.
MODIFY
ENDIF.
0.
ENDLOOP.
at
SELECTION-SCREEN.
PERFORM
check.
SELECT
FROM
t001
WHERE
bukrs
IN
AUTHORITY-CHECK
OBJECT
ZFIRPT'
权限判断
ID
BUKRS'
FIELD
t001-bukrs.
sy-subrc
f'
ZPARK'
MESSAGE
e999(z01)
没有在公司代码'
t001-bukrs
操作的权限!
ENDSELECT.
<
1
OR
>
16."
对期间值必须在1-16之间
e004.
start-of-selection
START-OF-SELECTION.
CONCATENATE
01'
INTO
tmpdate.
组合年份
CALL
FUNCTION
LAST_DAY_OF_MONTHS'
EXPORTING
day_in
根据传入的参数,输出一个月的最后一天
IMPORTING
last_day_of_month
prtdate
EXCEPTIONS
day_in_no_date
1
OTHERS
2.
获得当前汇率
waers.
BAPI_EXCHANGERATE_GETDETAIL'
rate_type
M'
from_curr
tempcurr
to_currncy
CNY'
date
tmpdate
exch_rate
dcurr
RETURN
=
READ
INDEX
dcurr-exch_rate.
根据单选框的值给变量值
txunit
元'
txunit(*)
千元'
万元'
and
12'
判断复选框
16'
SINGLE
ktext
txcurr
根据货币单位的值返回货币名称
tcurt
人民币(汇总)'
ELSE.
折人民币'
txcurr.
取公司名称
s_rbukrs-high
IS
INITIAL
s_rbukrs-low
s_rbukrs-high.
判断是否为空
butxt
s_butxt
s_rbukrs-low.
p_butxt
NOT
INITIAL.
p_butxt.
从'
到'
s_butxt.
s_rbukrs-low
(2)
s_rbukrs-high
(2)
s_rbukrs-high.
CLEAR
(汇总)'
DATA
curr
tcurr
CORRESPONDING
FIELDS
tcurr
kurst
fcurr
waers
f_tols1
资产期初总计
f_tole1
资产期末总计
f_tols2
负债期初总计
f_tole2
负债期末总计
f_sums1
资产期初小计
f_sume1
资产期末小计
f_sums2
负债期初小计
f_sume2
负债期末小计
f_rlts1
faglflext-hslvt,
f_rlte1
zx_s
FAGLFLEXT-hslvt,
zx_e
f_rlts2
f_rlte2
faglflext-hslvt.
f_smny1
f_emny1
**数据计算
add_row
USING
流动资产:
流动负债:
现金'
1001'
1'
短期借款'
2101'
46'
1.
期间---公司代码---年份
tb_result-start2.
初始值
tb_result-end2.
tb_result-start1.
tb_result-end1.
银行存款'
1002'
2'
拆入资金'
2102'
47'
+
tb_result-start2.
tb_result-end2.
tb_result-start1.
tb_result-end1.
其他货币'
1009010000'
应付利息'
2110'
80'
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ABAP 资产负债表 DEMO 直接 运行