《ABAP实现本地化的资产负债表和损益表.docx》由会员分享，可在线阅读，更多相关《ABAP实现本地化的资产负债表和损益表.docx（83页珍藏版）》请在三一办公上搜索。
1、ABAP实现本地化的资产负债表和损益表1.设计思路：SAP没有提供标准的符合中国标准的资产负债表和损益表，需要我们在系统中自定义开发，我们在配置报表版本时都指定了一个工程的编号，一个版本下面都有期其统驭的科目范围，我们可以根据这个工程编号找到相应的科目范围，然后根据科目范围获取科目借贷汇总的值。SAP中资产负债表的配置图示：我们传统的资产负债表如下格式：我们可以在程序中用工程编号找到其下面的科目范围，然后取科目汇总值，因为资产负债表是固定的，所以我们要建立一个CBO表来存放各个具体的工程和在SAP中对应的工程编号。最后要强调的是在资产负债表中未分配利润的计算：未分配利润的期末余额=年初结转额留
2、存收益的上年余额+今年截至到本月的盈利额利润表中有表达利润表的思路和资产负债表是一样的。具体的代码实现：*&*&Company Code:N207*& module:FI*& create by:rrzhang*&*& title:资产负债表，利润表*& Description:资产负债表，利润表报表呈现*&*& Change History*-*C.R No |Date|Developer|Description*-* 2021.01.11|ccyu*-*REPORT zfir00026.INCLUDE zfir00026_top.INCLUDE zfir00026_cls.INCLUDE
3、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 = 爱思开实业XX商贸XX合并财务报表版本.c = X.gv_rp = 资产负债表.ELSE.PERFORM setpcg USING p_rpv.CASE p_rpv
4、.WHEN 2070.gv_name = 爱思开实业XX商贸XX合并财务报表版本.WHEN 2071.gv_name = 爱思开实业XX商贸有限公总部财务报表版本.WHEN 2072.gv_name = 爱思开实业XX商贸XX直营店财务报表版本.WHEN 2073.gv_name = .ENDCASE.IF p_rp = BS.gv_rp = 资产负债表.ELSE.gv_rp = 利润表.ENDIF.ENDIF.START-OF-SELECTION.PERFORM synchrodata.PERFORM get_data1.*&*& Include ZFIR00026_TOP*&*Data d
5、efinitionTYPE-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.“同步数据用的凭证行工程表bsegDATA:BEGIN OF gt_bsegsyn OCCURS 0,gjahr LIKE bseg-gjahr,bukrs LIKE bseg-bukrs,belnr LIKE bseg-
6、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.DATA:c,d,gv_bs TYPE ukurs_curr VALUE 1,倍数gv_iden(2).“要
7、显示的资产负债表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 OCCURS 0,ukurs TYPE ukurs_curr,gdatu TYPE gdatu_inv,END
8、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_alv_is0.“下载数据的内表DATA:BEGIN OF gt_alv_is01 OCCURS 0,lct T
9、YPE int1,item TYPE zitem,yamt LIKE faglflext-hslvt,本年累计数mamt LIKE faglflext-hslvt,本月累计数END OF gt_alv_is01.*利润表下钻数据内表* 2021.01.16 CCYU STARTDATA:BEGIN OF gt_skat OCCURS 0,saknr LIKE skat-saknr,txt50 LIKE skat-txt50,END OF gt_skat.* 2021.01.16 CCYU STARTtxt50 LIKE skat-txt50,* 2021.01.16 CCYU STARTtxt
10、50 LIKE skat-txt50,* 2021.01.16 CCYU STARTtxt50 LIKE skat-txt50,* 2021.01.16 CCYU STARTtxt50 LIKE skat-txt50,* 2021.01.16 CCYU STARTtxt50 LIKE skat-txt50,* 2021.01.17 CCYU STARTDATA:BEGIN OF gt_head1 OCCURS 0,t1(6),t2(20),t3(20),t4(20),t5(6),t6(20),t7(20),t8(20),END OF gt_head1.DATA:BEGIN OF gt_head
11、2 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_alv_bs01.* 2021.01.11 ccyu STARTPARAMETERS p_m(3) TYPE n AS
12、 LISTBOX VISIBLE LENGTH 4 OBLIGATORY.* p1 text* 2021.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-key = 04.line-text = 04.APPEND line TO itab.line-key = 05
13、.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 = 10.line-text = 10.APPEND line TO itab.line-key = 11.line-
14、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. ELSE.PERFORM setpcg USING p_rpv. ENDIF.* 2021.01.11 CCYU END.END
15、FORM. 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.APPEND line TO itab.CALL FUNCTION VRM_SET_VALUESEXPORTINGid = P_PCGval
16、ues = 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 itabWHERE subclass = N207 AND setclass = 0106.IF itab IS NOT INITIAL.CALL FUNCT
