1、澳ABAP實現(xiàn)本耙地化的資產負債熬表和損益表1.設計思路：哎SAP沒有提供癌標準的符合中國胺標準的資產負債阿表和損益表，需扒要我們在系統(tǒng)中扳自定義開發(fā)，我哀們在配置報表版疤本時都指定了扮一個項目的編號版，一個版本下面熬都有期其統(tǒng)馭的哀科目范圍，我們捌可以根據(jù)這個項伴目編號找到相應澳的科目范圍，然凹后根據(jù)科目范圍扮獲取科目借貸匯柏總的值。拌SAP中資產負哎債表的配置圖示拔：捌我們傳統(tǒng)的資產絆負債表如下格式艾：絆我們可以在程序骯中用項目編號找般到其下面的科目罷范圍，然后取科跋目匯總值，因為礙資產負債表是固邦定的，所以我們爸要翱建立一個CBO霸表來存放各個具瓣體的項目和在S熬AP中對應的項阿目編號。

2、按最后要強調的是佰在資產負債表中把未分配利潤的計矮算：背未分配利潤的期伴末余額=年初結壩轉額（留存收益背的上年余額）+伴今年截至到本月百的盈利額（利潤背表中有體現(xiàn)）背利潤表的思路和襖資產負債表是一辦樣的。斑具體的代碼實現(xiàn)疤：藹*&襖八巴*挨*&Compa班ny Code凹:N207吧*& modu矮le:FI矮*& crea叭te by:r襖rzhang懊*& crea柏te date芭:2011.1半2.28胺*&拔叭安*伴*& titl搬e:資產負債表般，利潤表埃*& Desc扒ription挨:資產負債表，奧利潤表報表呈現(xiàn)暗*&耙礙哎*愛*& Chan拜ge Hist般ory八*八般澳-

3、*跋*C.R No佰 |Da靶te|Deve巴loper|D盎escript挨ion隘*挨稗氨-*拌* 佰 2012巴.01.11|氨ccyu敗*辦暗奧-*唉REPORT 絆zfir00把026.邦INCLUDE邦 zfir00拜026_top頒.熬INCLUDE霸 zfir00艾026_cls版.拌INCLUDE板 zfir00啊026_f01拜.百INCLUDE按 zfir00澳026_o01爸.安INCLUDE盎 zfir00哀026_i01俺.頒INCLUDE澳 暗.扮INITIAL靶IZATION頒.叭p_y = s奧y-datum敖+0(4).安p_m = s白y-datum安+4

4、(2).巴AT SELE鞍CTION-S芭CREEN O巴UTPUT.澳PERFORM頒 setdis耙 USING 跋p_rpv.岸IF c IS傲 INITIA疤L.罷PERFORM盎 setlis隘t.爸gv_name擺 = 愛思開疤實業(yè)（上海）商愛貿有限公司合并澳財務報表版本唉.敗c = X胺.伴gv_rp =襖 資產負債表搬.ELSE.稗PERFORM背 setpcg翱 USING 藹p_rpv.板CASE p_俺rpv.昂WHEN 2疤070.矮gv_name爸 = 愛思開暗實業(yè)（上海）商氨貿有限公司合并盎財務報表版本霸.安WHEN 2靶071.罷gv_name隘 = 愛思開頒實業(yè)

5、（上海）商罷貿有限公總部財扮務報表版本.瓣WHEN 2笆072.啊gv_name扒 = 愛思開辦實業(yè)（上海）商按貿有限公司直營伴店財務報表版本扳.班WHEN 2半073.斑gv_name霸 = ”.芭ENDCASE霸.罷IF p_rp板 = BS按.百gv_rp =疤 資產負債表昂.ELSE.爸gv_rp =板 利潤表.ENDIF.ENDIF.隘START-O頒F-SELEC昂TION.藹PERFORM傲 synchr叭odata.皚PERFORM翱 get_da芭ta1.靶*&按安辦*拌*& Inc邦lude 頒 愛 ZFIR00澳026_TOP笆*&柏骯唉*埃*Data d芭efiniti

6、巴on敖TYPE-PO敖OLS vrm罷.案TABLES:盎faglfle安xa.班“同步數(shù)據(jù)用的芭憑證抬頭表敗DATA:BE擺GIN OF 邦gt_bkpf把syn OCC般URS 0,疤gjahr L疤IKE bkp熬f-gjahr疤,襖bukrs L拔IKE bkp白f-bukrs百,搬belnr L柏IKE bkp斑f-belnr板,霸END OF 霸gt_bkpf盎syn.斑DATA ly邦(4) TYP疤E n.芭“同步數(shù)據(jù)用的擺憑證行項目表（胺bseg）敗DATA:BE愛GIN OF 皚gt_bseg拜syn OCC敗URS 0,敗gjahr L懊IKE bse敗g-gjahr罷

7、,俺bukrs L矮IKE bse鞍g-bukrs般,礙belnr L敗IKE bse白g-belnr敖,耙prctr L扮IKE bse板g-prctr搬,傲pprct L罷IKE bse巴g-pprct班,暗buzei L搬IKE bse霸g-buzei啊,白END OF 扳gt_bseg板syn.澳DATA:BE把GIN OF 斑gt_faga胺syn OCC啊URS 0.搬INCLUDE埃 STRUCT絆URE fag熬lflexa.吧DATA:EN辦D OF gt癌_fagasy辦n.案TYPES: 癌ch(3) T爸YPE c,班cf(4) T辦YPE c,奧cgcp(12絆) T

8、YPE 搬c,鞍ok_code辦 LIKE s般y-ucomm般.拜DATA:c,懊d,扮gv_bs T隘YPE uku半rs_curr啊 VALUE 敗1,”倍數(shù)叭gv_iden啊(2).半“要顯示的資產矮負債表頒DATA:BE稗GIN OF 案gt_alv_哀bs0 OCC巴URS 0,罷lct1 TY唉PE int1般,礙item1 T靶YPE zit白em,敖y(tǒng)amt1 T扮YPE hsl擺vt12,挨ysamt1 澳TYPE hs頒lvt12,礙lct2 TY暗PE int1頒,傲item2 T般YPE zit澳em,氨yamt2 T把YPE hsl阿vt12,稗ysamt2 板TY

9、PE hs阿lvt12,疤waers L啊IKE t00半1-waers安,版END OF 擺gt_alv礙_bs0.拜DATA:BE拔GIN OF 藹gt_bs O挨CCURS 0叭,胺ukurs T靶YPE uku暗rs_curr愛,霸gdatu T頒YPE gda埃tu_inv,擺END OF 皚gt_bs.叭DATA:gv絆_mf(5).按”The mo礙nth fie般ld搬*The re壩port ve礙rsion a胺ccount 爸informa百tion.扮“要顯示的利潤氨表佰DATA:BE隘GIN OF 艾gt_alv_霸is0 OCC捌URS 0,邦lct TYP耙E i

10、nt1,擺item TY啊PE zite辦m,搬yamt LI跋KE fagl岸flext-h襖slvt,”本爸年累計數(shù)拜mamt LI熬KE fagl凹flext-h拔slvt,”本擺月累計數(shù)拜waers L稗IKE t00熬1-waers挨,啊END OF 霸gt_alv_拔is0.安“下載數(shù)據(jù)的內鞍表岸DATA:BE巴GIN OF 拜gt_alv_捌is01 OC版CURS 0,半lct TYP稗E int1,藹item TY頒PE zite矮m,懊yamt LI般KE fagl稗flext-h藹slvt,”本阿年累計數(shù)板mamt LI矮KE fagl俺flext-h拔slvt,”本巴月

11、累計數(shù)案END OF 跋gt_alv_疤is01.懊*利潤表下鉆數(shù)澳據(jù)內表翱* 201板2.01.16癌 CCYU S頒TART佰DATA:BE稗GIN OF 把gt_skat哀 OCCURS靶 0,般saknr L伴IKE ska按t-saknr藹,跋txt50 L板IKE ska班t-txt50背,凹END OF 安gt_skat百.凹* 201唉2.01.16爸 CCYU S奧TART盎txt50 L襖IKE ska挨t-txt50按,壩* 201百2.01.16把 CCYU S唉TART芭txt50 L頒IKE ska斑t-txt50矮,氨* 201版2.01.16罷 CCYU S襖T

12、ART阿txt50 L埃IKE ska癌t-txt50扮,癌* 201埃2.01.16敗 CCYU S熬TART岸txt50 L稗IKE ska搬t(yī)-txt50案,哎* 201啊2.01.16班 CCYU S拌TART扒txt50 L熬IKE ska佰t-txt50熬,翱* 201愛2.01.17癌 CCYU S哀TART疤DATA:BE按GIN OF 耙gt_head拔1 OCCU拔RS 0,t1(6),t2(20),t3(20),t4(20),t5(6),t6(20),t7(20),t8(20),板END OF 安gt_head昂1.壩DATA:BE愛GIN OF 奧gt_head版2 O

13、CCU艾RS 0,t1(6),t2(20),t3(20),t4(20),傲END OF 扒gt_head阿2.鞍DATA:BE霸GIN OF 奧gt_alv_俺bs01 OC懊CURS 0,暗lct1 TY暗PE int1擺,笆item1 T把YPE zit半em,案yamt1 T疤YPE hsl阿vt12,癌ysamt1 艾TYPE hs霸lvt12,俺lct2 TY翱PE int1襖,八item2 T癌YPE zit皚em,暗yamt2 T霸YPE hsl盎vt12,阿ysamt2 扒TYPE hs芭lvt12,百END OF 啊gt_alv啊_bs01.般* 201吧2.01.11拔 c

14、cyu S昂TART霸PARAMET襖ERS p_m凹(3) TYP白E n AS 挨LISTBOX爸 VISIB辦LE LENG藹TH 4 OB疤LIGATOR拔Y.捌* 拜p1 耙 text愛* 201敖2.01.11翱 CCYU S凹RART背CLEAR i皚tab.哎CLEAR l扮ine.安line-ke跋y = 01笆.埃line-te八xt = 0絆1.霸APPEND 矮line TO芭 itab.澳line-ke霸y = 02爸.辦line-te哎xt = 0奧2.般APPEND 扮line TO絆 itab.懊line-ke唉y = 03哎.敗line-te氨xt = 0耙3

15、.岸APPEND 艾line TO絆 itab.扒line-ke板y = 04骯.氨line-te啊xt = 0頒4.襖APPEND 敗line TO岸 itab.辦line-ke巴y = 05啊.岸line-te岸xt = 0柏5.岸APPEND 霸line TO扒 itab.胺line-ke艾y = 06盎.翱line-te翱xt = 0奧6.搬APPEND 瓣line TO暗 itab.熬line-ke扮y = 07把.襖line-te啊xt = 0捌7.岸APPEND 艾line TO拜 itab.壩line-ke扳y = 08愛.案line-te艾xt = 0按8.昂APPEND 辦

16、line TO巴 itab.班l(xiāng)ine-ke敖y(tǒng) = 09扮.巴line-te艾xt = 0愛9.背APPEND 壩line TO捌 itab.捌line-ke扮y = 10邦.唉line-te靶xt = 1皚0.板APPEND 霸line TO翱 itab.巴line-ke八y = 11阿.藹line-te半xt = 1巴1.搬APPEND 昂line TO啊 itab.背line-ke哀y = 12耙.奧line-te板xt = 1邦2.拔APPEND 敖line TO唉 itab.背CALL FU班NCTION 敗VRM_SE澳T_VALUE阿S襖EXPORTI敖NG暗id 稗= P_M

17、安values 唉= itab斑.懊” IF P叭_PCG IS板 INITIA巴L.拜” CL奧EAR ITA八B.搬” CA礙LL FUNC白TION V奧RM_SET_盎VALUES疤” 頒EXPORTI佰NG挨” 阿 ID 背 = P_啊PC敖” 叭 VALUE俺S = ITA埃B.藹” ELSE鞍.礙PERFORM鞍 setpcg疤 USING 氨p_rpv.頒” ENDI礙F.唉* P_P_R哎PV tex盎t把*跋唉拜-*耙FORM se癌tdis U爸SING p.巴LOOP AT百 SCREEN扒.疤IF p = 扒2070.拜IF scre佰en-grou般p1 = P胺C

18、.爸screen-靶input =背 0.ENDIF.ENDIF.安MODIFY 骯SCREEN.盎ENDLOOP白.癌ENDFORM般. 擺 把 背” SETDI巴S岸*&哎霸耙*奧*& 半Form 伴GET_DAT稗A案*&跋笆拔*疤* 佰 text傲*笆佰吧-*暗* 八p1 啊 text熬* 氨p1 捌 text靶* 案p1 捌 text凹* 板p2 骯 text昂*昂壩氨-*癌FORM se懊tisitem扳 .俺gt_alv_愛is0-lct昂 = 1.柏gt_alv_捌is0-ite熬m = 一、矮營業(yè)收入.拌APPEND 奧gt_alv_霸is0.案gt_alv_唉is0-lct

19、吧 = 2.阿gt_alv_啊is0-ite昂m = 減挨：營業(yè)成本.暗APPEND 癌gt_alv_澳is0.哎gt_alv_扒is0-lct靶 = 3.安gt_alv_擺is0-ite笆m = 班營業(yè)稅金及附加百.愛APPEND 捌gt_alv_芭is0.頒gt_alv_叭is0-lct半 = 4.八gt_alv_愛is0-ite霸m = 胺 銷售費用.斑APPEND 佰gt_alv_八is0.襖gt_alv_挨is0-lct芭 = 5.骯gt_alv_拔is0-ite俺m = 襖 管理費用.骯APPEND 耙gt_alv_版is0.隘gt_alv_百is0-lct版 = 6.吧gt_al

20、v_癌is0-ite般m = 吧 財務費用.佰APPEND 般gt_alv_盎is0.辦gt_alv_鞍is0-lct扒 = 7.拜gt_alv_懊is0-ite拔m = 拔資產減值損失佰.捌APPEND 般gt_alv_罷is0.芭gt_alv_熬is0-lct伴 = 8.奧gt_alv_辦is0-ite巴m = 加骯：公允價值變動罷收益（損失以“懊-”號填列）矮.礙APPEND 般gt_alv_盎is0.昂gt_alv_安is0-lct案 = 9.背gt_alv_白is0-ite氨m = 霸 投資八收益（損失以“澳-”號填列）盎.皚APPEND 岸gt_alv_骯is0.罷gt_alv_扳

21、is0-lct霸 = 10.凹gt_alv_絆is0-ite扳m = 斑 其中：對聯(lián)氨營企業(yè)和合營企疤業(yè)的投資收益艾.襖APPEND 熬gt_alv_百is0.拜gt_alv_鞍is0-lct澳 = 11.澳gt_alv_斑is0-ite凹m = 二、礙營業(yè)利潤（虧損昂以“-”號填列扮）.皚APPEND 按gt_alv_凹is0.隘gt_alv_矮is0-lct骯 = 12.板gt_alv_礙is0-ite熬m = 安 加：營業(yè)外收岸入.扒APPEND 啊gt_alv_凹is0.版gt_alv_班is0-lct扮 = 13.板gt_alv_盎is0-ite昂m = 挨 減：營業(yè)外支藹出.哎AP

22、PEND 辦gt_alv_靶is0.懊gt_alv_澳is0-lct皚 = 14.案gt_alv_伴is0-ite艾m = 爸其中：非流動資班產處置損失.傲APPEND 捌gt_alv_氨is0.哀gt_alv_俺is0-lct挨 = 15.巴gt_alv_邦is0-ite敗m = 巴加：以前年度損靶益調整.懊APPEND 哎gt_alv_吧is0.哀gt_alv_版is0-lct百 = 16.捌gt_alv_藹is0-ite捌m = 三、骯利潤總額（虧損?？傤~以“-”號澳填列）.暗APPEND 矮gt_alv_霸is0.般gt_alv_佰is0-lct埃 = 17.挨gt_alv_辦is0-

23、ite啊m = 白 減：所得稅費傲用.捌APPEND 啊gt_alv_班is0.埃gt_alv_霸is0-lct拜 = 18.澳gt_alv_挨is0-ite扮m = 四、跋凈利潤（凈虧損拜以“-”號填列澳）.佰APPEND 霸gt_alv_啊is0.俺gt_alv_擺is0-lct疤 = 19.皚gt_alv_扳is0-ite把m = 五、藹每股收益：.伴APPEND 拜gt_alv_背is0.板gt_alv_哎is0-lct絆 = 20.疤gt_alv_疤is0-ite胺m = 盎 (一)基本每百股收益.百APPEND 壩gt_alv_啊is0.班gt_alv_昂is0-lct襖 = 21

24、.跋gt_alv_八is0-ite柏m = 板 (二)稀釋每啊股收益.暗APPEND 爸gt_alv_靶is0.扮ENDFORM芭. 白 胺 背” SETIS翱ITEM啊*&百安凹*邦*& 爸Form 頒getisam百t靶*&按挨拔*埃* 阿 get th背e is am扮ount by叭 itemid癌*懊傲礙-*傲FORM ge疤tisamt 藹USING 敗p_yamtp_mamt百value(p俺_itemid礙)板value(p爸_id).霸“構造科目查詢奧范圍的查詢條件霸p_yamt 扳= 0.斑p_mamt 氨= 0.藹PERFORM捌 getacc白range U柏SING

25、p_伴itemid.胺CLEAR g埃s_hsl.邦REFRESH胺 gt_mon霸v.絆CHECK g敖r_act暗 IS NOT稗 INITIA癌L.胺CASE p_矮rpv.靶WHEN 2稗070.”不?？紤]利潤中心疤IF p_id靶 = 4.”6礙600取功能范皚圍1200把SELECT 柏SUM( hs骯l ) INT絆O p_mam把t稗FROM fa跋glflexa氨WHERE r白year = 般p_y芭AND rld盎nr = 0癌L哀AND rac骯ct IN g瓣r_act岸AND rbu捌krs = 芭N207澳AND ppr哎ctr = ”奧”抵消內部交易拌AND r

26、fa骯rea = 澳1200斑AND pop熬er = p_案m.皚SELECT 敗SUM( hs白l ) INT把O p_yam版t頒FROM fa艾glflexa皚WHERE (岸 ryear 氨= p_y A白ND pope埃r BETWE拔EN 001百 AND p礙_m )壩AND rld暗nr = 0哎L擺AND rac凹ct IN g爸r_act耙AND rbu矮krs = 柏N207扒AND ppr隘ctr = ”扮”抵消內部交易背AND rfa吧rea = 愛1200.絆ELSEIF 邦p_id = 安5.”6600昂取功能范圍13班00昂SELECT 俺SUM( hs凹l

27、) INT吧O p_mam哀t艾F(xiàn)ROM fa哀glflexa懊WHERE r版year = 敖p_y稗AND rld氨nr = 0拔L哎AND rac襖ct IN g敖r_act埃AND rbu耙krs = 暗N207捌AND ppr愛ctr = ”唉”抵消內部交易伴AND rfa板rea = 唉1300霸AND pop白er = p_霸m.安SELECT 捌SUM( hs百l ) INT稗O p_yam擺t啊FROM fa骯glflexa暗WHERE (盎 ryear 拔= p_y A暗ND pope敖r BETWE傲EN 001伴 AND p八_m )絆AND rld骯nr = 0隘L藹

28、AND rac搬ct IN g百r_act柏AND rbu八krs = 半N207斑AND ppr伴ctr = ”鞍”抵消內部交易捌AND rfa澳rea = 靶1300.叭ELSEIF 襖p_id = 罷14.”按照科昂目進行取數(shù)背SELECT 癌SUM( hs擺l ) INT癌O p_mam壩t凹FROM fa捌glflexa頒WHERE r艾year = 頒p_y扒AND rld拜nr = 0岸L半AND rac半ct BETW巴EEN 96版2101 A安ND 962般201斑AND rbu笆krs = 版N207岸AND ppr啊ctr = ”俺”抵消內部交易傲AND pop笆er

29、= p_骯m.板SELECT 白SUM( hs哀l ) INT懊O p_yam皚t白FROM fa哀glflexa班WHERE (岸 ryear 捌= p_y A俺ND pope邦r BETWE鞍EN 001芭 AND p礙_m )奧AND rld懊nr = 0白L翱AND rac拌ct BETW巴EEN 96翱2101 A半ND 962奧201絆AND rbu笆krs = 百N207扳AND ppr百ctr = ”板.”抵消內部交頒易.辦ELSE.”正白常取拔SELECT 拜SUM( hs柏l ) INT拜O p_mam半t傲FROM fa拌glflexa奧WHERE r唉year = 艾p

30、_y柏AND rld辦nr = 0敖L背AND rac暗ct IN g襖r_act般AND rbu拔krs = 疤N207阿AND ppr拔ctr = ”版”抵消內部交易柏AND pop八er = p_八m.案SELECT 般SUM( hs癌l ) INT凹O p_yam絆t敖FROM fa敗glflexa笆WHERE 頒( ryear伴 = p_y 癌AND pop叭er BETW八EEN 00胺1 AND 案p_m )昂AND rld班nr = 0阿L奧AND rac疤ct IN g矮r_act百AND rbu藹krs = 阿N207背AND ppr艾ctr = ”骯.”抵消內部交板易EN

31、DIF.巴WHEN 2靶071 OR唉 2072愛 OR 20安73.”自選伴利潤中心組，利翱潤中心可輸可不班輸案IF p_pc骯 ”.罷IF p_id背 = 4.”6罷600取功能范稗圍1200壩SELECT 版SUM( hs敗l ) INT板O p_mam奧t昂FROM fa百glflexa白WHERE r拜year = 板p_y胺AND rld邦nr = 0襖L翱AND rac安ct IN g辦r_act把AND rbu邦krs = 邦N207把AND prc扮tr = p_扒pc”抵消內部熬交易般AND rfa半rea = 胺1200百AND pop絆er = p_暗m.敗SELECT

32、 疤SUM( hs捌l ) INT疤O p_yam叭t按FROM fa跋glflexa安WHERE 把( ryear半 = p_y 罷AND pop奧er BETW罷EEN 00邦1 AND 絆p_m )斑AND rld隘nr = 0扳L伴AND rac盎ct IN g霸r_act哎AND rbu斑krs = 昂N207暗AND prc笆tr = p_隘pc”抵消內部耙交易斑AND rfa半rea = 捌1200.艾ELSEIF 岸p_id = 礙5.”6600凹取功能范圍13芭00邦SELECT 熬SUM( hs笆l ) INT懊O p_mam瓣t啊FROM fa奧glflexa柏WHERE

33、 r隘year = 昂p_y翱AND rld胺nr = 0八L哎AND rac敗ct IN g芭r_act斑AND rbu壩krs = 把N207瓣AND prc傲tr = p_敗pc”抵消內部隘交易背AND rfa哎rea = 巴1300板AND pop埃er = p_叭m.哀SELECT 盎SUM( hs斑l ) INT昂O p_yam絆t敗FROM fa扮glflexa伴WHERE (版 ryear 捌= p_y A昂ND pope扒r BETWE凹EN 001胺 AND p暗_m )板AND rld按nr = 0壩L佰AND rac鞍ct IN g阿r_act敖AND rbu百krs

34、= 頒N207叭AND prc吧tr = p_翱pc”抵消內部皚交易背AND rfa骯rea = 絆1300.氨ELSEIF 澳p_id = 絆14.”按照科瓣目進行取數(shù)巴SELECT 骯SUM( hs半l ) INT敗O p_mam翱t班FROM fa啊glflexa案WHERE r胺year = 昂p_y八AND rld胺nr = 0頒L般AND rac扒ct BETW藹EEN 96搬2101 A伴ND 962阿201靶AND rbu藹krs = 矮N207翱AND prc白tr = p_按pc”抵消內部懊交易絆AND pop胺er = p_按m.罷SELECT 阿SUM( hs凹l )

35、INT巴O p_yam敖t扮FROM fa笆glflexa哎WHERE (懊 ryear 笆= p_y A半ND pope隘r BETWE澳EN 001巴 AND p案_m )邦AND rld皚nr = 0俺L矮AND rac澳ct BETW板EEN 96叭2101 A挨ND 962扒201斑AND rbu皚krs = 昂N207隘AND prc把tr = p_白pc.”抵消內骯部交易.吧ELSE.”正拜常取暗SELECT 吧SUM( hs佰l ) INT伴O p_mam敖t扒FROM fa板glflexa巴WHERE r吧year = 埃p_y隘AND rld霸nr = 0埃L翱AND ra

36、c愛ct IN g靶r_act襖AND rbu跋krs = 阿N207叭AND prc捌tr = p_按pc”抵消內部敗交易柏AND pop安er = p_癌m.半SELECT 把SUM( hs拔l ) INT佰O p_yam拔t奧FROM fa岸glflexa背WHERE (藹 ryear 般= p_y A百ND pope骯r BETWE吧EN 001礙 AND p奧_m )骯AND rld邦nr = 0啊L矮AND rac扒ct IN g奧r_act瓣AND rbu把krs = 扒N207啊AND prc稗tr = p_阿pc.”抵消內爸部交易ENDIF.敗ELSEIF 案p_pcg ”

37、AND案 p_pc I耙S INITI奧AL.”利潤中版心為空，選取所暗有的利潤中心敗IF p_id把 = 4.”6拌600取功能范澳圍1200唉SELECT 罷SUM( hs懊l ) INT敗O p_mam安t敗FROM fa案glflexa俺WHERE r拜year = 胺p_y白AND rld隘nr = 0扒L哀AND rac拔ct IN g佰r_act瓣AND rbu壩krs = 藹N207扳AND prc胺tr IN (奧 SELECT爸 valfro哀m FROM胺 setlea愛f WHERE奧 setnam扒e = p_p瓣cg )哀AND rfa巴rea = 俺1200暗AN

38、D pop爸er = p_柏m.熬SELECT 板SUM( hs辦l ) INT哎O p_yam熬t叭FROM fa暗glflexa氨WHERE (邦 ryear 巴= p_y A半ND pope俺r BETWE翱EN 001阿 AND p俺_m )絆AND rld班nr = 0壩L班AND rac暗ct IN g白r_act拔AND rbu礙krs = 跋N207捌AND prc阿tr IN (扒 SELECT傲 valfro爸m FROM笆 setlea芭f WHERE捌 setnam版e = p_p翱cg )礙AND rfa埃rea = 氨1200.鞍ELSEIF 背p_id = 罷5.

39、”6600巴取功能范圍13稗00板SELECT 佰SUM( hs頒l ) INT扮O p_mam艾t把FROM fa案glflexa癌WHERE r敗year = 跋p_y芭AND rld傲nr = 0阿L翱AND rac扮ct IN g稗r_act斑AND rbu扒krs = 捌N207捌AND prc愛tr IN (稗 SELECT哀 valfro伴m FROM敗 setlea絆f WHERE凹 setnam柏e = p_p挨cg )阿AND rfa襖rea = 埃1300懊AND pop把er = p_岸m.愛SELECT 阿SUM( hs霸l ) INT擺O p_yam暗t瓣FROM

40、fa般glflexa稗WHERE 艾( ryear奧 = p_y 阿AND pop靶er BETW捌EEN 00骯1 AND 伴p_m )板AND rld唉nr = 0案L班AND rac扒ct IN g半r_act搬AND rbu皚krs = 伴N207盎AND prc般tr IN (艾 SELECT背 valfro柏m FROM擺 setlea藹f WHERE澳 setnam吧e = p_p稗cg )扳AND rfa霸rea = 壩1300.拜ELSEIF 氨p_id = 把14.”按照科捌目進行取數(shù)哎SELECT 昂SUM( hs胺l ) INT罷O p_mam奧t埃FROM fa敖gl

41、flexa昂WHERE r擺year = 白p_y藹AND rld昂nr = 0艾L霸AND rac俺ct BETW扳EEN 96耙2101 A盎ND 962壩201鞍AND rbu搬krs = 翱N207暗AND prc靶tr IN (芭 SELECT藹 valfro叭m FROM哀 setlea愛f WHERE芭 setnam扒e = p_p靶cg )熬AND pop百er = p_佰m.礙SELECT 百SUM( hs叭l ) INT搬O p_yam暗t奧FROM fa奧glflexa埃WHERE (案 ryear 白= p_y A擺ND pope搬r BETWE般EN 001熬 AND

42、 p背_m )辦AND rld俺nr = 0背L頒AND rac班ct BETW哎EEN 96俺2101 A辦ND 962搬201笆AND rbu岸krs = 扮N207盎AND prc班tr IN (哀 SELECT岸 valfro襖m FROM跋 setlea扮f WHERE擺 setnam暗e = p_p巴cg ).叭ELSE.”正笆常取壩SELECT 安SUM( hs鞍l(fā) ) INT翱O p_mam絆t澳FROM fa壩glflexa皚WHERE r氨year = 翱p_y案AND rld熬nr = 0芭L矮AND rac拜ct IN g伴r_act壩AND rbu阿krs = 鞍N2

43、07奧AND prc昂tr IN (安 SELECT半 valfro霸m FROM佰 setlea頒f WHERE扮 setnam版e = p_p扳cg )罷AND pop安er = p_氨m.挨SELECT 巴SUM( hs般l ) INT芭O p_yam百t礙FROM fa扳glflexa跋WHERE 敖( ryear班 = p_y 捌AND pop骯er BETW扮EEN 00懊1 AND 氨p_m )矮AND rld耙nr = 0罷L白AND rac斑ct IN g版r_act唉AND rbu把krs = 白N207班AND prc版tr IN (背 SELECT辦 valfro藹m

44、FROM奧 setlea白f WHERE拔 setnam芭e = p_p笆cg ).ENDIF.ENDIF.般ENDCASE霸.敖“獲取結果數(shù)值哀，p_mamt氨是本期，p_y唉amt是累計奧IF p_id板 6.翱p_yamt 跋= ABS( 背p_yamt 翱).疤p_mamt 敖= ABS( 胺p_mamt 瓣).ENDIF.阿ENDFORM絆. 奧 盎 胺”getisa白mt跋*&埃稗般*骯*& 斑Form 芭fillgt_暗monv背*&靶昂瓣*奧* 靶 FILL T敗HE MONT柏H VALUE岸*瓣吧挨-*扒FORM fi把llgt_mo案nv.胺CLEAR g笆t_monv艾

45、.懊gt_monv板-month 盎= 01.壩gt_monv扳-value 澳= gs_hs罷l-hsl01爸.隘APPEND 案gt_monv背.襖gt_monv癌-month 叭= 02.斑gt_monv岸-value 唉= gs_hs唉l-hsl02壩.把APPEND 跋gt_monv半.俺gt_monv岸-month 辦= 03.安gt_monv百-value 柏= gs_hs叭l-hsl03搬.唉APPEND 扮gt_monv胺.瓣gt_monv矮-month 絆= 04.愛gt_monv礙-value 霸= gs_hs暗l-hsl04版.案APPEND 敗gt_monv哎.襖gt

46、_monv疤-month 按= 05.安gt_monv疤-value 安= gs_hs耙l-hsl05笆.柏APPEND 拔gt_monv凹.礙gt_monv拌-month 擺= 06.瓣gt_monv矮-value 半= gs_hs般l-hsl06懊.案APPEND 阿gt_monv拜.岸gt_monv艾-month 懊= 07.壩gt_monv把-value 班= gs_hs隘l-hsl07百.頒APPEND 笆gt_monv稗.白gt_monv埃-month 罷= 08.爸gt_monv扒-value 唉= gs_hs絆l-hsl08傲.扒APPEND 八gt_monv唉.阿gt_mon

47、v襖-month 暗= 09.埃gt_monv氨-value 搬= gs_hs搬l-hsl09擺.胺APPEND 背gt_monv矮.暗gt_monv藹-month 半= 10.把gt_monv敗-value 埃= gs_hs伴l-hsl10暗.隘APPEND 班gt_monv百.矮gt_monv按-month 版= 11.懊gt_monv哎-value 絆= gs_hs懊l-hsl11敗.拜APPEND 半gt_monv皚.板gt_monv扮-month 半= 12.奧gt_monv班-value 背= gs_hs芭l-hsl12白.頒APPEND 翱gt_monv佰.艾ENDFORM柏.

48、礙 巴 哀”fillgt翱_monv搬*&芭瓣澳*拜*& 笆Form 哀FILLGT_爸MONV1按*&翱唉跋*柏* 邦 text愛*隘盎扮-*安FORM fi襖llgt_mo熬nv1.搬CLEAR g敗t_monv拔.斑gt_monv唉-month 案= 01.岸gt_monv隘-value 哎= gs_hs板l1-hsl0阿1.背APPEND 伴gt_monv暗.半gt_monv扒-month 愛= 02.版gt_monv瓣-value 盎= gs_hs班l(xiāng)1-hsl0暗2.隘APPEND 傲gt_monv伴.辦gt_monv白-month 拜= 03.骯gt_monv斑-value 翱=

49、 gs_hs扮l1-hsl0挨3.愛APPEND 版gt_monv伴.把gt_monv笆-month 壩= 04.扮gt_monv八-value 拌= gs_hs吧l1-hsl0案4.哎APPEND 邦gt_monv癌.頒gt_monv擺-month 百= 05.案gt_monv唉-value 巴= gs_hs伴l1-hsl0按5.襖APPEND 般gt_monv柏.皚gt_monv骯-month 癌= 06.扒gt_monv斑-value 礙= gs_hs搬l1-hsl0哎6.癌APPEND 背gt_monv辦.奧gt_monv般-month 啊= 07.盎gt_monv阿-value 搬=

50、 gs_hs吧l1-hsl0霸7.氨APPEND 骯gt_monv埃.俺gt_monv邦-month 柏= 08.俺gt_monv安-value 捌= gs_hs霸l1-hsl0鞍8.昂APPEND 隘gt_monv把.骯gt_monv傲-month 按= 09.皚gt_monv翱-value 哀= gs_hs芭l1-hsl0鞍9.唉APPEND 阿gt_monv耙.啊gt_monv擺-month 靶= 10.胺gt_monv按-value 哎= gs_hs暗l1-hsl1搬0.哀APPEND 搬gt_monv敖.藹gt_monv靶-month 拌= 11.暗gt_monv骯-value 叭=

51、 gs_hs耙l1-hsl1扳1.瓣APPEND 熬gt_monv擺.啊gt_monv跋-month 爸= 12.半gt_monv瓣-value 敖= gs_hs骯l1-hsl1凹2.隘APPEND 白gt_monv瓣.安ENDFORM扳. 隘 吧 熬”fillgt耙_monv搬*&盎邦愛*唉*& 柏Form 吧fm_user礙_comman吧d稗*&扮芭耙*案* 敖 text傲*挨罷柏-*扮* 佰P_UCO伴MM t搬ext襖*版奧凹-*罷FORM fm懊_user_c昂ommand 敗USING 邦 p_uc百omm.皚CASE p_皚ucomm .藹WHEN G埃ETEXC 佰.壩* 2

52、01叭2.01.16奧 CCYU S礙TART捌PERFORM擺 get_ex按cel.扮* 奧set_fro案ntend_f阿ieldcat稗alog白* 安CALL M埃ETHOD g骯s_alv-昂refresh擺_table_斑display拜 .罷* WH疤EN SAV岸E.邦* WH扮EN New疤.叭* WH胺EN Del昂ete.敖* WH版EN IMP礙O.唉ENDCASE擺 .斑ENDFORM霸. 罷 頒 挨” fm_us挨er_comm扳and擺*&哎霸爸*拌*& 柏Form 罷modify_笆toolbar般*&澳傲瓣*哎* 芭 text巴*礙暗盎-*伴* 阿P_OBJ

53、白ECT 斑 text拌* 挨P_INT癌ERACTIV半E text岸*爸絆白-*扳FORM mo把dify_to拌olbar 跋USING 扮 p_obj拔ect TYP敖E REF T澳O佰cl_alv_拔event_t熬oolbar_耙set p_i昂nteract敖ive .阿* 201岸2.01.16吧 CCYU S懊TART板DATA: l案s_toolb扮ar TYPE斑 stb_bu扒tton .敗CLEAR l拜s_toolb辦ar.擺MOVE 3 絆 TO把 ls_too白lbar-bu辦tn_type柏 .芭APPEND 巴ls_tool暗bar TO哀 p_obje辦

54、ct-mt_霸toolbar安 .昂CLEAR l霸s_toolb懊ar.笆MOVE G罷ETEXC 鞍 TO l凹s_toolb霸ar-func唉tion .”芭functio鞍n code礙MOVE ic翱on_xxl 扮 TO ls扒_toolba爸r-icon 耙.”icon敗MOVE 導艾出EXCEL罷 TO 鞍l(fā)s_tool般bar-qui矮ckinfo 耙.”the t扒ip稗MOVE 導伴出EXCEL艾 TO ls扮_toolba敖r-text.皚MOVE ” 巴 艾 TO 哎ls_tool疤bar-dis百abled .按”if dis敖abled礙APPEND 胺ls_to

55、ol吧bar TO襖 p_obje藹ct-mt_版toolbar傲 .盎* P_SEC白TION t懊ext搬* 壩P_FNA唉ME t敗ext把* 拜P_VAL邦UE t罷ext礙*搬伴胺-*皚FORM fi邦ll_fiel把d_categ白ory US案ING 壩p_secti熬onp_fname扮p_value邦.搬DATA: l礙_col(40哀) .叭FIELD-S擺YMBOLS 懊 拔.鞍IF p_se傲ction =扮 S .氨CLEAR g靶s_field疤cat .ENDIF .八CONCATE懊NATE G拜S_FIELD白CAT- p疤_fname 挨INTO l_柏co

56、l .把ASSIGN 氨(l_col)耙 TO .稗MOVE p_懊value 澳 TO .澳IF p_se傲ction =哎 E .拌APPEND 爸gs_fiel皚dcat TO襖 gt_fie跋ldcat .ENDIF .版ENDFORM百. 岸 按 俺” FILL_俺FIELD_C搬ATEGORY愛*&疤岸擺*伴*& 艾F(xiàn)orm 暗DISPLAY半IS安*&澳罷安*半* 芭 text案*邦邦氨-*啊* 般p1 百 text氨* 岸p1 扒 text絆* P_E_D耙YNDOC_I奧D text扒*壩叭胺-*啊FORM fm阿_add_to翱pofpage盎 USING盎 p_e_d拌y

57、ndoc_i骯d TYPE 隘REF TO 稗cl_dd_d笆ocument啊.霸DATA l_八text(25安5).絆IF gv_i巴den = 按IS.稗CALL ME百THOD gs笆_dyndoc岸_id-ad柏d_text襖EXPORTI白NG哀text 佰 =稗 利潤表（非扮金融類）INC半OME STA翱TEMENT 敗(NON-fi扮nancial扮 enterp凹rise)傲sap_fon搬t(yī)size =絆 cl_dd_岸documen背t=larg扳e埃sap_emp板hasis =凹 cl_dd_拌documen傲t=stro班ng.跋CALL ME皚THOD gs吧_

58、dyndoc熬_id-ne拜w_line 霸.跋CONCATE阿NATE p_奧y 年 般 p_m翱 月 般會企02表 單安位： p_c稗urr INT藹O l_tex俺t.澳CALL ME捌THOD gs安_dyndoc矮_id-ne澳w_line 辦.扮CALL ME背THOD gs案_dyndoc暗_id-ad扳d_text百EXPORTI板NG版text = 骯l_text.翱CALL ME藹THOD gs按_dyndoc骯_id-ne八w_line 盎.骯CALL ME耙THOD gs疤_dyndoc骯_id-ne頒w_line 版.襖CALL ME矮THOD gs扮_dyndoc艾

59、_id-ad靶d_text安EXPORTI襖NG壩text = 安愛思開實業(yè)（澳上海）商貿有限芭公司.癌PERFORM半 fm_con鞍trol_ht巴ml .熬ELSEIF 柏gv_iden皚 = BS氨.般CALL ME叭THOD gs凹_dyndoc芭_id-ad襖d_text愛EXPORTI八NG藹text 安 =艾 資產負債表頒（非金融類）B爸ALANCE 扳SHEET（N靶ON-fina唉ncial e鞍nterpri扮se）頒sap_fon叭tsize =捌 cl_dd_叭documen板t=larg傲e隘sap_emp挨hasis =敗 cl_dd_拌documen藹t=str

60、o奧ng.安CALL ME隘THOD gs靶_dyndoc拜_id-ne罷w_line 胺.頒CONCATE翱NATE p_埃y 年 叭 p_m安 月 靶會企02表 單挨位： p_c霸urr INT暗O l_tex般t.邦CALL ME百THOD gs哎_dyndoc柏_id-ne辦w_line 襖.拌CALL ME扮THOD gs氨_dyndoc安_id-ad班d_text瓣EXPORTI把NG半text = 熬l_text.扳CALL ME襖THOD gs拌_dyndoc百_id-ne矮w_line 斑.捌CALL ME絆THOD gs案_dyndoc耙_id-ne叭w_line 安.芭C