ABAP实现本地化的资产负债表和损益表(86页DOC).docx

上传人:ahu****ng1 文档编号:58460864 上传时间:2022-11-07 格式:DOCX 页数:86 大小:601.08KB
返回 下载 相关 举报
ABAP实现本地化的资产负债表和损益表(86页DOC).docx_第1页
第1页 / 共86页
ABAP实现本地化的资产负债表和损益表(86页DOC).docx_第2页
第2页 / 共86页
点击查看更多>>
资源描述

《ABAP实现本地化的资产负债表和损益表(86页DOC).docx》由会员分享,可在线阅读,更多相关《ABAP实现本地化的资产负债表和损益表(86页DOC).docx(86页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、最新资料推荐ABAP实现本地化的资产负债表和损益表1.设计思路:SAP没有提供标准的符合中国标准的资产负债表和损益表,需要我们在系统中自定义开发,我们在配置报表版本时都指定了一个项目的编号,一个版本下面都有期其统驭的科目范围,我们可以根据这个项目编号找到相应的科目范围,然后根据科目范围获取科目借贷汇总的值。SAP中资产负债表的配置图示:我们传统的资产负债表如下格式:我们可以在程序中用项目编号找到其下面的科目范围,然后取科目汇总值,因为资产负债表是固定的,所以我们要建立一个CBO表来存放各个具体的项目和在SAP中对应的项目编号。最后要强调的是在资产负债表中未分配利润的计算:未分配利润的期末余额=

2、年初结转额(留存收益的上年余额)+今年截至到本月的盈利额(利润表中有体现)利润表的思路和资产负债表是一样的。具体的代码实现:*&*&Company Code:N207*& module:FI*& create by:rrzhang*& create date:2011.12.28*&*& title:资产负债表,利润表*& Description:资产负债表,利润表报表呈现*&*& Change History*-*C.R No |Date|Developer|Description*-* 2012.01.11|ccyu*-*REPORT zfir00026.INCLUDE zfir00026

3、_top.INCLUDE zfir00026_cls.INCLUDE zfir00026_f01.INCLUDE zfir00026_o01.INCLUDE zfir00026_i01.INCLUDE .INITIALIZATION.p_y = sy-datum+0(4).p_m = sy-datum+4(2).AT SELECTION-SCREEN OUTPUT.PERFORM setdis USING p_rpv.IF c IS INITIAL.PERFORM setlist.gv_name = 爱思开实业(上海)商贸有限公司合并财务报表版本.c = X.gv_rp = 资产负债表.ELS

4、E.PERFORM setpcg USING p_rpv.CASE p_rpv.WHEN 2070.gv_name = 爱思开实业(上海)商贸有限公司合并财务报表版本.WHEN 2071.gv_name = 爱思开实业(上海)商贸有限公总部财务报表版本.WHEN 2072.gv_name = 爱思开实业(上海)商贸有限公司直营店财务报表版本.WHEN 2073.gv_name = ”.ENDCASE.IF p_rp = BS.gv_rp = 资产负债表.ELSE.gv_rp = 利润表.ENDIF.ENDIF.START-OF-SELECTION.PERFORM synchrodata.PER

5、FORM get_data1.*&*& Include ZFIR00026_TOP*&*Data definitionTYPE-POOLS vrm.TABLES:faglflexa.“同步数据用的凭证抬头表DATA:BEGIN OF gt_bkpfsyn OCCURS 0,gjahr LIKE bkpf-gjahr,bukrs LIKE bkpf-bukrs,belnr LIKE bkpf-belnr,END OF gt_bkpfsyn.DATA ly(4) TYPE n.“同步数据用的凭证行项目表(bseg)DATA:BEGIN OF gt_bsegsyn OCCURS 0,gjahr LI

6、KE bseg-gjahr,bukrs LIKE bseg-bukrs,belnr LIKE bseg-belnr,prctr LIKE bseg-prctr,pprct LIKE bseg-pprct,buzei LIKE bseg-buzei,END OF gt_bsegsyn.DATA:BEGIN OF gt_fagasyn OCCURS 0.INCLUDE STRUCTURE faglflexa.DATA:END OF gt_fagasyn.TYPES: ch(3) TYPE c,cf(4) TYPE c,cgcp(12) TYPE c,ok_code LIKE sy-ucomm.DA

7、TA:c,d,gv_bs TYPE ukurs_curr VALUE 1,”倍数gv_iden(2).“要显示的资产负债表DATA:BEGIN OF gt_alv_bs0 OCCURS 0,lct1 TYPE int1,item1 TYPE zitem,yamt1 TYPE hslvt12,ysamt1 TYPE hslvt12,lct2 TYPE int1,item2 TYPE zitem,yamt2 TYPE hslvt12,ysamt2 TYPE hslvt12,waers LIKE t001-waers,END OF gt_alv_bs0.DATA:BEGIN OF gt_bs OCC

8、URS 0,ukurs TYPE ukurs_curr,gdatu TYPE gdatu_inv,END OF gt_bs.DATA:gv_mf(5).”The month field*The report version account information.“要显示的利润表DATA:BEGIN OF gt_alv_is0 OCCURS 0,lct TYPE int1,item TYPE zitem,yamt LIKE faglflext-hslvt,”本年累计数mamt LIKE faglflext-hslvt,”本月累计数waers LIKE t001-waers,END OF gt_

9、alv_is0.“下载数据的内表DATA:BEGIN OF gt_alv_is01 OCCURS 0,lct TYPE int1,item TYPE zitem,yamt LIKE faglflext-hslvt,”本年累计数mamt LIKE faglflext-hslvt,”本月累计数END OF gt_alv_is01.*利润表下钻数据内表* 2012.01.16 CCYU STARTDATA:BEGIN OF gt_skat OCCURS 0,saknr LIKE skat-saknr,txt50 LIKE skat-txt50,END OF gt_skat.* 2012.01.16

10、CCYU STARTtxt50 LIKE skat-txt50,* 2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* 2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* 2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* 2012.01.16 CCYU STARTtxt50 LIKE skat-txt50,* 2012.01.17 CCYU STARTDATA:BEGIN OF gt_head1 OCCURS 0,t1(6),t2(20),t3(20),t4(20),t5(6),

11、t6(20),t7(20),t8(20),END OF gt_head1.DATA:BEGIN OF gt_head2 OCCURS 0,t1(6),t2(20),t3(20),t4(20),END OF gt_head2.DATA:BEGIN OF gt_alv_bs01 OCCURS 0,lct1 TYPE int1,item1 TYPE zitem,yamt1 TYPE hslvt12,ysamt1 TYPE hslvt12,lct2 TYPE int1,item2 TYPE zitem,yamt2 TYPE hslvt12,ysamt2 TYPE hslvt12,END OF gt_a

12、lv_bs01.* 2012.01.11 ccyu STARTPARAMETERS p_m(3) TYPE n AS LISTBOX VISIBLE LENGTH 4 OBLIGATORY.* p1 text* 2012.01.11 CCYU SRARTCLEAR itab.CLEAR line.line-key = 01.line-text = 01.APPEND line TO itab.line-key = 02.line-text = 02.APPEND line TO itab.line-key = 03.line-text = 03.APPEND line TO itab.line

13、-key = 04.line-text = 04.APPEND line TO itab.line-key = 05.line-text = 05.APPEND line TO itab.line-key = 06.line-text = 06.APPEND line TO itab.line-key = 07.line-text = 07.APPEND line TO itab.line-key = 08.line-text = 08.APPEND line TO itab.line-key = 09.line-text = 09.APPEND line TO itab.line-key =

14、 10.line-text = 10.APPEND line TO itab.line-key = 11.line-text = 11.APPEND line TO itab.line-key = 12.line-text = 12.APPEND line TO itab.CALL FUNCTION VRM_SET_VALUESEXPORTINGid = P_Mvalues = itab.” IF P_PCG IS INITIAL.” CLEAR ITAB.” CALL FUNCTION VRM_SET_VALUES” EXPORTING” ID = P_PC” VALUES = ITAB.”

15、 ELSE.PERFORM setpcg USING p_rpv.” ENDIF.* 2012.01.11 CCYU END.ENDFORM. ” SETLIST*&*& Form SETPCG*&* text*-* SET THE PROFIT CENTER GROUP*-*FORM setpcg USING p.DATA: itab TYPE STANDARD TABLE OF vrm_value,line TYPE vrm_value.CLEAR: itab,line.“CLEAR p_pcg.IF p = 2070.line-key = N207.line-text = N207.AP

16、PEND line TO itab.CALL FUNCTION VRM_SET_VALUESEXPORTINGid = P_PCGvalues = itab.p_pcg = N207.CLEAR itab.” APPEND LINE TO ITAB.CALL FUNCTION VRM_SET_VALUESEXPORTINGid = P_PCvalues = itab.CLEAR d.ELSE.CLEAR itab.CLEAR p_pc.CALL FUNCTION VRM_SET_VALUESEXPORTINGid = P_PCvalues = itab.IF d IS INITIAL.SELECT DISTINCT setname AS key setname AS text FROM setleafINTO CORRESPONDING FIELDS OF TABLE ita

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 管理文献 > 管理制度

本站为文档C TO C交易模式,本站只提供存储空间、用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。本站仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知淘文阁网,我们立即给予删除!客服QQ:136780468 微信:18945177775 电话:18904686070

工信部备案号:黑ICP备15003705号© 2020-2023 www.taowenge.com 淘文阁