abap实现本地化的资产负债表和损益表docxWord下载.docx

abap实现本地化的资产负债表和损益表docxWord下载.docx

《abap实现本地化的资产负债表和损益表docxWord下载.docx》由会员分享，可在线阅读，更多相关《abap实现本地化的资产负债表和损益表docxWord下载.docx（122页珍藏版）》请在冰豆网上搜索。

module:

FI

createby:

rrzhang

createdate:

2011.12.28

title:

资产负债表，利润表

Description:

资产负债表，利润表报表呈现

ChangeHistory

*———————————————————————-*

*C.RNo 

|Date|Developer|Description

* 

2012.01.11|ccyu

REPORT 

zfir00026.

INCLUDEzfir00026_top.

INCLUDEzfir00026_cls.

INCLUDEzfir00026_f01.

INCLUDEzfir00026_o01.

INCLUDEzfir00026_i01.

INCLUDE<

icon>

.

INITIALIZATION.

p_y=sy-datum+0（4）.

p_m=sy-datum+4

（2）.

ATSELECTION-SCREENOUTPUT.

PERFORMsetdisUSINGp_rpv.

IFcISINITIAL.

PERFORMsetlist.

gv_name=‘爱思开实业（上海）商贸有限公司合并财务报表版本’.

c=‘X’.

gv_rp=‘资产负债表’.

ELSE.

PERFORMsetpcgUSINGp_rpv.

CASEp_rpv.

WHEN‘2070′.

WHEN‘2071′.

gv_name=‘爱思开实业（上海）商贸有限公总部财务报表版本’.

WHEN‘2072′.

gv_name=‘爱思开实业（上海）商贸有限公司直营店财务报表版本’.

WHEN‘2073′.

gv_name=”.

ENDCASE.

IFp_rp=‘BS’.

gv_rp=‘利润表’.

ENDIF.

START-OF-SELECTION.

PERFORMsynchrodata.

PERFORMget_data1.

Include 

ZFIR00026_TOP

*Datadefinition

TYPE-POOLSvrm.

TABLES:

faglflexa.

“同步数据用的凭证抬头表

DATA:

BEGINOFgt_bkpfsynOCCURS0,

gjahrLIKEbkpf-gjahr,

bukrsLIKEbkpf-bukrs,

belnrLIKEbkpf-belnr,

ENDOFgt_bkpfsyn.

DATAly（4）TYPEn.

“同步数据用的凭证行项目表（bseg）

BEGINOFgt_bsegsynOCCURS0,

gjahrLIKEbseg-gjahr,

bukrsLIKEbseg-bukrs,

belnrLIKEbseg-belnr,

prctrLIKEbseg-prctr,

pprctLIKEbseg-pprct,

buzeiLIKEbseg-buzei,

ENDOFgt_bsegsyn.

BEGINOFgt_fagasynOCCURS0.

INCLUDESTRUCTUREfaglflexa.

ENDOFgt_fagasyn.

TYPES:

ch（3）TYPEc,

cf（4）TYPEc,

cgcp（12）TYPEc,

ok_codeLIKEsy-ucomm.

c,d,

gv_bsTYPEukurs_currVALUE1,”倍数

gv_iden

（2）.

“要显示的资产负债表

BEGINOFgt_alv_bs0OCCURS0,

lct1TYPEint1,

item1TYPEzitem,

yamt1TYPEhslvt12,

ysamt1TYPEhslvt12,

lct2TYPEint1,

item2TYPEzitem,

yamt2TYPEhslvt12,

ysamt2TYPEhslvt12,

waersLIKEt001-waers,

ENDOF 

gt_alv_bs0.

BEGINOFgt_bsOCCURS0,

ukursTYPEukurs_curr,

gdatuTYPEgdatu_inv,

ENDOFgt_bs.

gv_mf（5）.”Themonthfield

*Thereportversionaccountinformation.

“要显示的利润表

BEGINOFgt_alv_is0OCCURS0,

lctTYPEint1,

itemTYPEzitem,

yamtLIKEfaglflext-hslvt,”本年累计数

mamtLIKEfaglflext-hslvt,”本月累计数

ENDOFgt_alv_is0.

“下载数据的内表

BEGINOFgt_alv_is01OCCURS0,

ENDOFgt_alv_is01.

*利润表下钻数据内表

*–>

2012.01.16CCYUSTART

BEGINOFgt_skatOCCURS0,

saknrLIKEskat-saknr,

txt50LIKEskat-txt50,

ENDOFgt_skat.

*<

–2012.01.16CCYUEND.

BEGINOFgt_alv_is_dp1 

OCCURS0,

racctLIKEfaglflexa-racct,

hslLIKEfaglflexa-hsl,

ENDOFgt_alv_is_dp1.

BEGINOFgt_alv_bs_dp1 

ENDOFgt_alv_bs_dp1.

BEGINOFgt_alv_bs_dp2 

ENDOFgt_alv_bs_dp2.

BEGINOFgs_alv_bs_dp_obj,

ENDOFgs_alv_bs_dp_obj.

gs_alv_bs_dp_obj1TYPEgs_alv_bs_dp_obj.

gt_alv_bs_dpTYPESTANDARDTABLEOFgs_alv_bs_dp_obj.

*利润表下钻临时数据内表

BEGINOFgt_alv_is_dp2OCCURS0,

ENDOFgt_alv_is_dp2.

BEGINOFgt_fagl_011zcOCCURS0,

versnLIKEfagl_011zc-versn,

ergsl 

LIKEfagl_011zc-ergsl,

txt45LIKEfagl_011qt-txt45,

vonktLIKEfagl_011zc-vonkt,

bisktLIKEfagl_011zc-biskt,

ENDOFgt_fagl_011zc.

BEGINOFgt_fagl_011qtOCCURS0,

LIKEfagl_011qt-ergsl,

ENDOFgt_fagl_011qt.

BEGINOFgt_mamt_isOCCURS0,

amtLIKEfaglflext-hslvt,

ENDOFgt_mamt_is.

RANGESgr_actFORfaglflext-racct.

BEGINOFgt_monvOCCURS0,

month

（2）TYPEn,

valueLIKEfaglflext-hslvt,

ENDOFgt_monv.

BEGINOFgs_hsl,

hsl01LIKEfaglflext-hslvt,

hsl02LIKEfaglflext-hslvt,

hsl03