ABAP实现本地化的资产负债表和损益表Word格式.docx
《ABAP实现本地化的资产负债表和损益表Word格式.docx》由会员分享,可在线阅读,更多相关《ABAP实现本地化的资产负债表和损益表Word格式.docx(141页珍藏版)》请在冰点文库上搜索。
*———————————————————————-*
*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,
hsl03LIKEfaglflext-hslvt,
hsl04LIKEfaglflext-hslvt,
hsl05LIKEfaglflext-hslvt,
hsl06LIKEfaglflext-hslvt,
hsl07LIKEfaglflext-hslvt,
hsl08LIKEfaglflext-hslvt,
hsl09LIKEfaglflext-hslvt,
hsl10LIKEfaglflext-hslvt,
hsl11LIKEfaglflext-hslvt,
hsl12LIKEfaglflext-hslvt,
ENDOFgs_hsl.
BEGINOFgs_hsl1,
hslvtLIKEfaglflext-hslvt,
ENDOFgs_hsl1.
gs_alv_isTYPEREFTOcl_gui_alv_grid,”thealvobjectforisreport
gs_alv_bsTYPEREFTOcl_gui_alv_grid,”thealvobjectforbsreport
gs_alv_is_dp1TYPEREFTOcl_gui_alv_grid,”thealvobjectforbsreport
gs_alv_bs_dp1TYPEREFTOcl_gui_alv_grid,”thealvobjectforbsreport
gs_conTYPEREFTOcl_gui_custom_container,”thecontianerobject
gs_con1TYPEREFTOcl_gui_custom_container,”thecontianerobject
gs_layout
TYPElvc_s_layo,”setthelayoutofthealv
gt_fieldcatTYPElvc_t_fcat,”thefieldcatelogtable
gs_fieldcatTYPElvc_s_fcat,”thefieldcatelogworkarea
g_toolbar
TYPEui_functions,”thetoolbarofthealv
g_toolbar1
gt_sort
TYPElvc_t_sort,”controlthesortofthealv
gs_sort
TYPElvc_s_sort.”theworkareaofthegt_sort
gs_dyndoc_idTYPEREFTOcl_dd_document,
gs_dyndoc_id1TYPEREFTOcl_dd_document,
gs_splitterTYPEREFTOcl_gui_splitter_container,
gs_parent_htmlTYPEREFTOcl_gui_container,
gs_parent_gridTYPEREFTOcl_gui_container,
gs_splitter1TYPEREFTOcl_gui_splitter_container,
gs_parent_html1TYPEREFTOcl_gui_container,
gs_parent_grid1TYPEREFTOcl_gui_container,
gs_html_cntrlTYPEREFTOcl_gui_html_viewer.
*SCREENDEFINE
DATA
ok_code.
2012.01.17CCYUSTART
BEGINOFgt_head1
t1(6),
t2(20),
t3(20),
t4(20),
t5(6),
t6(20),
t7(20),
t8(20),
ENDOFgt_head1.
BEGINOFgt_head2
ENDOFgt_head2.
BEGINOFgt_alv_bs01OCCURS0,
gt_alv_bs01.
–2012.01.17CCYUEND.
SELECTION-SCREENBEGINOFBLOCKblkWITHFRAMETITLEtext-001.
“公司代码
SELECTION-SCREENBEGINOFLINE.
SELECTION-SCREENPOSITION1.
SELECTION-SCREENCOMMENT(79)text-002.
SELECTION-SCREENENDOFLINE.
“Currency
SELECTION-SCREENPOSITION1.
“从位置1开始输出
SELECTION-SCREENCOMMENT(7)text-003FORFIELDp_curr.
SELECTION-SCREENPOSITION15.
PARAMETERSp_currTYPEchASLISTBOX
VISIBLELENGTH12
OBLIGATORYDEFAULT‘CNY’.
“reportversion
SELECTION-SCREENCOMMENT(9)text-004FORFIELDp_rpv.
PARAMETERSp_rpvTYPEcfASLISTBOXVISIBLELENGTH12USER-COMMANDdpOBLIGATORYDEFAULT‘2070′.
SELECTION-SCREENPOSITION28.
SELECTION-SCREENCOMMENT(60)gv_name.
“profitcentergroup
SELECTION-SCREENCOMMENT(12)text-005FORFIELDp_pcg.
PARAMETERSp_pcgTYPEcgcpASLISTBOXVISIBLELENGTH12USER-COMMANDdp1OBLIGATORY.
“profitcenter
SELECTION-SCREENCOMMENT(12)text-006FORFIELDp_pc.
PARAMETERSp_pcTYPEcgcpASLISTBOXVISIBLELENGTH12MODIFIDpc.
“REPROT
SELECTION-SCREENCOMMENT(12)text-007FORFIELDp_rp.
PARAMETERSp_rpTYPEcgcpASLISTBOXVISIBLELENGTH12USER-COMMANDrpOBLIGATORYDEFAULT‘BS’.
SELECTION-SCREENCOMMENT(12)gv_rp.
“YEAR
SELECTION-SCREENCOMMENT(12)text-008FORFIELDp_y.
PARAMETERSp_y(4)TYPEnOBLIGATORY.
“MONTH
SELECTION-SCREENCOMMENT(12)text-009FORFIELDp_m.
*PARAMETERSP_M
(2)TYPENOBLIGATORY.
2012.01.11ccyuSTART
PARAMETERSp_m(3)TYPEnASLISTBOX
VISIBLELENGTH4OBLIGATORY.
–2012.01.11ccyuEND.
SELECTION-SCREENENDOFBLOCKblk.
ClassLCL_APP_COMPT
theeventhan